From ed5aa04bd5f929c6d610ac8c071120b0b80d6105 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 28 Dec 2022 12:02:54 +0100 Subject: [PATCH] Zollbeschau: DGV integriert. --- .../usrCntlZollbeschau.Designer.vb | 286 +++++++++--------- .../usrCntlZollbeschau.resx | 12 + .../FormulareBaukasten/usrCntlZollbeschau.vb | 52 +++- SDL/Formulare/KDFormulare/frmFormulare.vb | 32 +- 4 files changed, 222 insertions(+), 160 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb index b7f4485b..ba704594 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb @@ -22,6 +22,9 @@ Partial Class usrCntlZollbeschau 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.Label46 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() @@ -106,13 +109,16 @@ Partial Class usrCntlZollbeschau Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label30 = New System.Windows.Forms.Label() - Me.txtzusPosText = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cbxzusätzlichePosition = New System.Windows.Forms.CheckBox() + Me.dgvPositionen = New System.Windows.Forms.DataGridView() + Me.lblgesamtpreis = New System.Windows.Forms.Label() + Me.txtInfo = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Label31 = New System.Windows.Forms.Label() - Me.Label32 = New System.Windows.Forms.Label() - Me.Label33 = New System.Windows.Forms.Label() - Me.txtzusPosPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.leistung = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.stk = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.preis = New System.Windows.Forms.DataGridViewTextBoxColumn() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'Label46 @@ -151,7 +157,7 @@ Partial Class usrCntlZollbeschau 'Label41 ' Me.Label41.AutoSize = True - Me.Label41.Location = New System.Drawing.Point(178, 268) + Me.Label41.Location = New System.Drawing.Point(177, 361) Me.Label41.Name = "Label41" Me.Label41.Size = New System.Drawing.Size(62, 13) Me.Label41.TabIndex = 95 @@ -170,7 +176,7 @@ Partial Class usrCntlZollbeschau 'Label7 ' Me.Label7.AutoSize = True - Me.Label7.Location = New System.Drawing.Point(708, 271) + Me.Label7.Location = New System.Drawing.Point(708, 364) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(49, 13) Me.Label7.TabIndex = 97 @@ -179,7 +185,7 @@ Partial Class usrCntlZollbeschau 'Label9 ' Me.Label9.AutoSize = True - Me.Label9.Location = New System.Drawing.Point(590, 268) + Me.Label9.Location = New System.Drawing.Point(590, 361) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(61, 13) Me.Label9.TabIndex = 93 @@ -364,7 +370,7 @@ Partial Class usrCntlZollbeschau 'Label12 ' Me.Label12.AutoSize = True - Me.Label12.Location = New System.Drawing.Point(831, 271) + Me.Label12.Location = New System.Drawing.Point(831, 364) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(59, 13) Me.Label12.TabIndex = 99 @@ -382,7 +388,7 @@ Partial Class usrCntlZollbeschau 'Label15 ' Me.Label15.AutoSize = True - Me.Label15.Location = New System.Drawing.Point(178, 246) + Me.Label15.Location = New System.Drawing.Point(178, 245) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(49, 13) Me.Label15.TabIndex = 105 @@ -401,7 +407,7 @@ Partial Class usrCntlZollbeschau 'Label10 ' Me.Label10.AutoSize = True - Me.Label10.Location = New System.Drawing.Point(178, 326) + Me.Label10.Location = New System.Drawing.Point(178, 323) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(74, 13) Me.Label10.TabIndex = 110 @@ -410,7 +416,7 @@ Partial Class usrCntlZollbeschau 'Label17 ' Me.Label17.AutoSize = True - Me.Label17.Location = New System.Drawing.Point(178, 308) + Me.Label17.Location = New System.Drawing.Point(178, 306) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(74, 13) Me.Label17.TabIndex = 108 @@ -468,7 +474,7 @@ Partial Class usrCntlZollbeschau 'Label22 ' Me.Label22.AutoSize = True - Me.Label22.Location = New System.Drawing.Point(590, 246) + Me.Label22.Location = New System.Drawing.Point(590, 245) Me.Label22.Name = "Label22" Me.Label22.Size = New System.Drawing.Size(31, 13) Me.Label22.TabIndex = 123 @@ -479,7 +485,7 @@ Partial Class usrCntlZollbeschau Me.DateTimePicker1.CustomFormat = "''" Me.DateTimePicker1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker1.Location = New System.Drawing.Point(509, 301) + Me.DateTimePicker1.Location = New System.Drawing.Point(509, 299) Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No @@ -491,7 +497,7 @@ Partial Class usrCntlZollbeschau Me.DateTimePicker2.CustomFormat = "''" Me.DateTimePicker2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom - Me.DateTimePicker2.Location = New System.Drawing.Point(509, 322) + Me.DateTimePicker2.Location = New System.Drawing.Point(509, 319) Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No @@ -501,7 +507,7 @@ Partial Class usrCntlZollbeschau 'Label23 ' Me.Label23.AutoSize = True - Me.Label23.Location = New System.Drawing.Point(442, 309) + Me.Label23.Location = New System.Drawing.Point(442, 307) Me.Label23.Name = "Label23" Me.Label23.Size = New System.Drawing.Size(41, 13) Me.Label23.TabIndex = 133 @@ -510,7 +516,7 @@ Partial Class usrCntlZollbeschau 'Label24 ' Me.Label24.AutoSize = True - Me.Label24.Location = New System.Drawing.Point(442, 328) + Me.Label24.Location = New System.Drawing.Point(442, 325) Me.Label24.Name = "Label24" Me.Label24.Size = New System.Drawing.Size(41, 13) Me.Label24.TabIndex = 134 @@ -519,7 +525,7 @@ Partial Class usrCntlZollbeschau 'Label25 ' Me.Label25.AutoSize = True - Me.Label25.Location = New System.Drawing.Point(755, 308) + Me.Label25.Location = New System.Drawing.Point(755, 306) Me.Label25.Name = "Label25" Me.Label25.Size = New System.Drawing.Size(39, 13) Me.Label25.TabIndex = 135 @@ -528,7 +534,7 @@ Partial Class usrCntlZollbeschau 'Label27 ' Me.Label27.AutoSize = True - Me.Label27.Location = New System.Drawing.Point(755, 328) + Me.Label27.Location = New System.Drawing.Point(755, 324) Me.Label27.Name = "Label27" Me.Label27.Size = New System.Drawing.Size(39, 13) Me.Label27.TabIndex = 136 @@ -538,7 +544,7 @@ Partial Class usrCntlZollbeschau ' Me.Label28.AutoSize = True Me.Label28.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label28.Location = New System.Drawing.Point(52, 305) + Me.Label28.Location = New System.Drawing.Point(52, 303) Me.Label28.Name = "Label28" Me.Label28.Size = New System.Drawing.Size(73, 13) Me.Label28.TabIndex = 137 @@ -569,7 +575,7 @@ Partial Class usrCntlZollbeschau 'Label29 ' Me.Label29.AutoSize = True - Me.Label29.Location = New System.Drawing.Point(627, 327) + Me.Label29.Location = New System.Drawing.Point(627, 323) Me.Label29.Name = "Label29" Me.Label29.Size = New System.Drawing.Size(43, 13) Me.Label29.TabIndex = 145 @@ -578,7 +584,7 @@ Partial Class usrCntlZollbeschau 'lblZoll1Time ' Me.lblZoll1Time.AutoSize = True - Me.lblZoll1Time.Location = New System.Drawing.Point(627, 307) + Me.lblZoll1Time.Location = New System.Drawing.Point(627, 305) Me.lblZoll1Time.Name = "lblZoll1Time" Me.lblZoll1Time.Size = New System.Drawing.Size(43, 13) Me.lblZoll1Time.TabIndex = 144 @@ -599,7 +605,7 @@ Partial Class usrCntlZollbeschau Me.txtTimeZoll2._Waehrung = False Me.txtTimeZoll2._WaehrungZeichen = False Me.txtTimeZoll2.ForeColor = System.Drawing.Color.Black - Me.txtTimeZoll2.Location = New System.Drawing.Point(672, 322) + Me.txtTimeZoll2.Location = New System.Drawing.Point(672, 318) Me.txtTimeZoll2.MaxLength = 8 Me.txtTimeZoll2.MaxLineLength = -1 Me.txtTimeZoll2.MaxLines_Warning = "" @@ -623,7 +629,7 @@ Partial Class usrCntlZollbeschau Me.txtTimeZoll1._Waehrung = False Me.txtTimeZoll1._WaehrungZeichen = False Me.txtTimeZoll1.ForeColor = System.Drawing.Color.Black - Me.txtTimeZoll1.Location = New System.Drawing.Point(672, 301) + Me.txtTimeZoll1.Location = New System.Drawing.Point(672, 299) Me.txtTimeZoll1.MaxLength = 8 Me.txtTimeZoll1.MaxLineLength = -1 Me.txtTimeZoll1.MaxLines_Warning = "" @@ -672,7 +678,7 @@ Partial Class usrCntlZollbeschau Me.txtDurationZoll2._Waehrung = False Me.txtDurationZoll2._WaehrungZeichen = False Me.txtDurationZoll2.ForeColor = System.Drawing.Color.Black - Me.txtDurationZoll2.Location = New System.Drawing.Point(800, 323) + Me.txtDurationZoll2.Location = New System.Drawing.Point(800, 319) Me.txtDurationZoll2.MaxLength = 8 Me.txtDurationZoll2.MaxLineLength = -1 Me.txtDurationZoll2.MaxLines_Warning = "" @@ -696,7 +702,7 @@ Partial Class usrCntlZollbeschau Me.txtDurationZoll1._Waehrung = False Me.txtDurationZoll1._WaehrungZeichen = False Me.txtDurationZoll1.ForeColor = System.Drawing.Color.Black - Me.txtDurationZoll1.Location = New System.Drawing.Point(800, 302) + Me.txtDurationZoll1.Location = New System.Drawing.Point(800, 300) Me.txtDurationZoll1.MaxLength = 8 Me.txtDurationZoll1.MaxLineLength = -1 Me.txtDurationZoll1.MaxLines_Warning = "" @@ -721,7 +727,7 @@ Partial Class usrCntlZollbeschau Me.txtZoll2Date._WaehrungZeichen = True Me.txtZoll2Date.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtZoll2Date.ForeColor = System.Drawing.Color.Black - Me.txtZoll2Date.Location = New System.Drawing.Point(510, 322) + Me.txtZoll2Date.Location = New System.Drawing.Point(510, 319) Me.txtZoll2Date.MaxLength = 10 Me.txtZoll2Date.MaxLineLength = -1 Me.txtZoll2Date.MaxLines_Warning = "" @@ -746,7 +752,7 @@ Partial Class usrCntlZollbeschau Me.txtZoll1Date._WaehrungZeichen = True Me.txtZoll1Date.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtZoll1Date.ForeColor = System.Drawing.Color.Black - Me.txtZoll1Date.Location = New System.Drawing.Point(510, 301) + Me.txtZoll1Date.Location = New System.Drawing.Point(510, 299) Me.txtZoll1Date.MaxLength = 10 Me.txtZoll1Date.MaxLineLength = -1 Me.txtZoll1Date.MaxLines_Warning = "" @@ -770,7 +776,7 @@ Partial Class usrCntlZollbeschau Me.txtATC._Waehrung = False Me.txtATC._WaehrungZeichen = True Me.txtATC.ForeColor = System.Drawing.Color.Black - Me.txtATC.Location = New System.Drawing.Point(662, 243) + Me.txtATC.Location = New System.Drawing.Point(662, 242) Me.txtATC.MaxLineLength = -1 Me.txtATC.MaxLines_Warning = "" Me.txtATC.MaxLines_Warning_Label = Nothing @@ -887,7 +893,7 @@ Partial Class usrCntlZollbeschau Me.txtZollb2._Waehrung = False Me.txtZollb2._WaehrungZeichen = True Me.txtZollb2.ForeColor = System.Drawing.Color.Black - Me.txtZollb2.Location = New System.Drawing.Point(262, 322) + Me.txtZollb2.Location = New System.Drawing.Point(262, 319) Me.txtZollb2.MaxLineLength = -1 Me.txtZollb2.MaxLines_Warning = "" Me.txtZollb2.MaxLines_Warning_Label = Nothing @@ -910,7 +916,7 @@ Partial Class usrCntlZollbeschau Me.txtZollb1._Waehrung = False Me.txtZollb1._WaehrungZeichen = True Me.txtZollb1.ForeColor = System.Drawing.Color.Black - Me.txtZollb1.Location = New System.Drawing.Point(262, 302) + Me.txtZollb1.Location = New System.Drawing.Point(262, 300) Me.txtZollb1.MaxLineLength = -1 Me.txtZollb1.MaxLines_Warning = "" Me.txtZollb1.MaxLines_Warning_Label = Nothing @@ -933,7 +939,7 @@ Partial Class usrCntlZollbeschau Me.txtFrächter._Waehrung = False Me.txtFrächter._WaehrungZeichen = True Me.txtFrächter.ForeColor = System.Drawing.Color.Black - Me.txtFrächter.Location = New System.Drawing.Point(262, 243) + Me.txtFrächter.Location = New System.Drawing.Point(262, 242) Me.txtFrächter.MaxLineLength = -1 Me.txtFrächter.MaxLines_Warning = "" Me.txtFrächter.MaxLines_Warning_Label = Nothing @@ -956,7 +962,7 @@ Partial Class usrCntlZollbeschau Me.txtFilialNr._Waehrung = False Me.txtFilialNr._WaehrungZeichen = True Me.txtFilialNr.ForeColor = System.Drawing.Color.Black - Me.txtFilialNr.Location = New System.Drawing.Point(501, 181) + Me.txtFilialNr.Location = New System.Drawing.Point(501, 185) Me.txtFilialNr.MaxLineLength = -1 Me.txtFilialNr.MaxLines_Warning = "" Me.txtFilialNr.MaxLines_Warning_Label = Nothing @@ -979,7 +985,7 @@ Partial Class usrCntlZollbeschau Me.txtWarenwert._Waehrung = False Me.txtWarenwert._WaehrungZeichen = True Me.txtWarenwert.ForeColor = System.Drawing.Color.Black - Me.txtWarenwert.Location = New System.Drawing.Point(893, 265) + Me.txtWarenwert.Location = New System.Drawing.Point(893, 358) Me.txtWarenwert.MaxLineLength = -1 Me.txtWarenwert.MaxLines_Warning = "" Me.txtWarenwert.MaxLines_Warning_Label = Nothing @@ -1050,7 +1056,7 @@ Partial Class usrCntlZollbeschau Me.txtWarenbez._Waehrung = False Me.txtWarenbez._WaehrungZeichen = True Me.txtWarenbez.ForeColor = System.Drawing.Color.Black - Me.txtWarenbez.Location = New System.Drawing.Point(262, 265) + Me.txtWarenbez.Location = New System.Drawing.Point(262, 358) Me.txtWarenbez.MaxLineLength = -1 Me.txtWarenbez.MaxLines_Warning = "" Me.txtWarenbez.MaxLines_Warning_Label = Nothing @@ -1073,7 +1079,7 @@ Partial Class usrCntlZollbeschau Me.txtGewicht._Waehrung = False Me.txtGewicht._WaehrungZeichen = True Me.txtGewicht.ForeColor = System.Drawing.Color.Black - Me.txtGewicht.Location = New System.Drawing.Point(763, 265) + Me.txtGewicht.Location = New System.Drawing.Point(763, 358) Me.txtGewicht.MaxLineLength = -1 Me.txtGewicht.MaxLines_Warning = "" Me.txtGewicht.MaxLines_Warning_Label = Nothing @@ -1096,7 +1102,7 @@ Partial Class usrCntlZollbeschau Me.txtAnzVerp._Waehrung = False Me.txtAnzVerp._WaehrungZeichen = True Me.txtAnzVerp.ForeColor = System.Drawing.Color.Black - Me.txtAnzVerp.Location = New System.Drawing.Point(662, 265) + Me.txtAnzVerp.Location = New System.Drawing.Point(662, 358) Me.txtAnzVerp.MaxLineLength = -1 Me.txtAnzVerp.MaxLines_Warning = "" Me.txtAnzVerp.MaxLines_Warning_Label = Nothing @@ -1413,89 +1419,96 @@ Partial Class usrCntlZollbeschau Me.Label30.TabIndex = 146 Me.Label30.Text = "Sendungstabelle:" ' - 'txtzusPosText + 'dgvPositionen ' - Me.txtzusPosText._DateTimeOnly = False - Me.txtzusPosText._numbersOnly = False - Me.txtzusPosText._numbersOnlyKommastellen = "" - Me.txtzusPosText._numbersOnlyTrennzeichen = True - Me.txtzusPosText._Prozent = False - Me.txtzusPosText._ShortDateNew = False - Me.txtzusPosText._ShortDateOnly = False - Me.txtzusPosText._TimeOnly = False - Me.txtzusPosText._TimeOnly_Seconds = False - Me.txtzusPosText._value = Nothing - Me.txtzusPosText._Waehrung = False - Me.txtzusPosText._WaehrungZeichen = True - Me.txtzusPosText.Enabled = False - Me.txtzusPosText.ForeColor = System.Drawing.Color.Black - Me.txtzusPosText.Location = New System.Drawing.Point(268, 381) - Me.txtzusPosText.MaxLineLength = -1 - Me.txtzusPosText.MaxLines_Warning = "" - Me.txtzusPosText.MaxLines_Warning_Label = Nothing - Me.txtzusPosText.Name = "txtzusPosText" - Me.txtzusPosText.Size = New System.Drawing.Size(304, 20) - Me.txtzusPosText.TabIndex = 147 + Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White + Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.pos, Me.leistung, Me.stk, Me.preis}) + Me.dgvPositionen.Location = New System.Drawing.Point(180, 386) + Me.dgvPositionen.Name = "dgvPositionen" + Me.dgvPositionen.Size = New System.Drawing.Size(823, 264) + Me.dgvPositionen.TabIndex = 156 ' - 'cbxzusätzlichePosition + 'lblgesamtpreis ' - Me.cbxzusätzlichePosition.AutoSize = True - Me.cbxzusätzlichePosition.Location = New System.Drawing.Point(329, 364) - Me.cbxzusätzlichePosition.Name = "cbxzusätzlichePosition" - Me.cbxzusätzlichePosition.Size = New System.Drawing.Size(15, 14) - Me.cbxzusätzlichePosition.TabIndex = 150 - Me.cbxzusätzlichePosition.UseVisualStyleBackColor = True + Me.lblgesamtpreis.AutoSize = True + Me.lblgesamtpreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblgesamtpreis.Location = New System.Drawing.Point(177, 653) + Me.lblgesamtpreis.Name = "lblgesamtpreis" + Me.lblgesamtpreis.Size = New System.Drawing.Size(80, 13) + Me.lblgesamtpreis.TabIndex = 157 + Me.lblgesamtpreis.Text = "Gesamtpreis:" + ' + 'txtInfo + ' + Me.txtInfo._DateTimeOnly = False + Me.txtInfo._numbersOnly = False + Me.txtInfo._numbersOnlyKommastellen = "" + Me.txtInfo._numbersOnlyTrennzeichen = True + Me.txtInfo._Prozent = False + Me.txtInfo._ShortDateNew = False + Me.txtInfo._ShortDateOnly = False + Me.txtInfo._TimeOnly = False + Me.txtInfo._TimeOnly_Seconds = False + Me.txtInfo._value = Nothing + Me.txtInfo._Waehrung = False + Me.txtInfo._WaehrungZeichen = True + Me.txtInfo.ForeColor = System.Drawing.Color.Black + Me.txtInfo.Location = New System.Drawing.Point(262, 259) + Me.txtInfo.MaxLineLength = -1 + Me.txtInfo.MaxLines_Warning = "" + Me.txtInfo.MaxLines_Warning_Label = Nothing + Me.txtInfo.Name = "txtInfo" + Me.txtInfo.Size = New System.Drawing.Size(710, 20) + Me.txtInfo.TabIndex = 159 ' 'Label31 ' Me.Label31.AutoSize = True - Me.Label31.Location = New System.Drawing.Point(178, 364) + Me.Label31.Location = New System.Drawing.Point(178, 262) Me.Label31.Name = "Label31" - Me.Label31.Size = New System.Drawing.Size(145, 13) - Me.Label31.TabIndex = 151 - Me.Label31.Text = "zusätzliche Position anzeigen" + Me.Label31.Size = New System.Drawing.Size(62, 13) + Me.Label31.TabIndex = 158 + Me.Label31.Text = "Grund/Info:" ' - 'Label32 + 'pos ' - Me.Label32.AutoSize = True - Me.Label32.Location = New System.Drawing.Point(178, 384) - Me.Label32.Name = "Label32" - Me.Label32.Size = New System.Drawing.Size(31, 13) - Me.Label32.TabIndex = 152 - Me.Label32.Text = "Text:" + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle1.Format = "N0" + DataGridViewCellStyle1.NullValue = Nothing + Me.pos.DefaultCellStyle = DataGridViewCellStyle1 + Me.pos.Frozen = True + Me.pos.HeaderText = "Position" + Me.pos.MaxInputLength = 3 + Me.pos.Name = "pos" + Me.pos.ReadOnly = True + Me.pos.Width = 50 ' - 'Label33 + 'leistung ' - Me.Label33.AutoSize = True - Me.Label33.Location = New System.Drawing.Point(590, 384) - Me.Label33.Name = "Label33" - Me.Label33.Size = New System.Drawing.Size(33, 13) - Me.Label33.TabIndex = 153 - Me.Label33.Text = "Preis:" + Me.leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.leistung.HeaderText = "Leistung" + Me.leistung.Name = "leistung" ' - 'txtzusPosPreis + 'stk ' - Me.txtzusPosPreis._DateTimeOnly = False - Me.txtzusPosPreis._numbersOnly = False - Me.txtzusPosPreis._numbersOnlyKommastellen = "" - Me.txtzusPosPreis._numbersOnlyTrennzeichen = True - Me.txtzusPosPreis._Prozent = False - Me.txtzusPosPreis._ShortDateNew = False - Me.txtzusPosPreis._ShortDateOnly = False - Me.txtzusPosPreis._TimeOnly = False - Me.txtzusPosPreis._TimeOnly_Seconds = False - Me.txtzusPosPreis._value = "" - Me.txtzusPosPreis._Waehrung = True - Me.txtzusPosPreis._WaehrungZeichen = False - Me.txtzusPosPreis.Enabled = False - Me.txtzusPosPreis.ForeColor = System.Drawing.Color.Black - Me.txtzusPosPreis.Location = New System.Drawing.Point(662, 381) - Me.txtzusPosPreis.MaxLineLength = -1 - Me.txtzusPosPreis.MaxLines_Warning = "" - Me.txtzusPosPreis.MaxLines_Warning_Label = Nothing - Me.txtzusPosPreis.Name = "txtzusPosPreis" - Me.txtzusPosPreis.Size = New System.Drawing.Size(63, 20) - Me.txtzusPosPreis.TabIndex = 155 + DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter + DataGridViewCellStyle2.Format = "N1" + DataGridViewCellStyle2.NullValue = Nothing + Me.stk.DefaultCellStyle = DataGridViewCellStyle2 + Me.stk.HeaderText = "Stück" + Me.stk.MaxInputLength = 100 + Me.stk.Name = "stk" + ' + 'preis + ' + DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight + DataGridViewCellStyle3.Format = "C2" + DataGridViewCellStyle3.NullValue = Nothing + Me.preis.DefaultCellStyle = DataGridViewCellStyle3 + Me.preis.HeaderText = "Preis" + Me.preis.MaxInputLength = 100 + Me.preis.Name = "preis" ' 'usrCntlZollbeschau ' @@ -1503,29 +1516,39 @@ Partial Class usrCntlZollbeschau Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle - Me.Controls.Add(Me.txtzusPosPreis) - Me.Controls.Add(Me.Label33) - Me.Controls.Add(Me.Label32) + Me.Controls.Add(Me.txtInfo) Me.Controls.Add(Me.Label31) - Me.Controls.Add(Me.cbxzusätzlichePosition) - Me.Controls.Add(Me.txtzusPosText) - Me.Controls.Add(Me.Label30) + Me.Controls.Add(Me.txtAdresse2) + Me.Controls.Add(Me.txtAdresse1) + Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.Label29) - Me.Controls.Add(Me.lblZoll1Time) Me.Controls.Add(Me.txtTimeZoll2) + Me.Controls.Add(Me.Label27) + Me.Controls.Add(Me.Label24) + Me.Controls.Add(Me.txtDurationZoll2) + Me.Controls.Add(Me.txtZoll2Date) + Me.Controls.Add(Me.DateTimePicker2) + Me.Controls.Add(Me.txtZollb2) + Me.Controls.Add(Me.Label10) + Me.Controls.Add(Me.txtWarenbez) + Me.Controls.Add(Me.txtFrächter) + Me.Controls.Add(Me.txtLKWKennz) + Me.Controls.Add(Me.txtAbsender) + Me.Controls.Add(Me.txtWarenwert) + Me.Controls.Add(Me.txtGewicht) + Me.Controls.Add(Me.txtAnzVerp) + Me.Controls.Add(Me.lblgesamtpreis) + Me.Controls.Add(Me.dgvPositionen) + Me.Controls.Add(Me.Label30) + Me.Controls.Add(Me.lblZoll1Time) Me.Controls.Add(Me.txtTimeZoll1) Me.Controls.Add(Me.txtVZDatum) Me.Controls.Add(Me.DateTimePicker3) Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.Label28) - Me.Controls.Add(Me.Label27) Me.Controls.Add(Me.Label25) - Me.Controls.Add(Me.Label24) Me.Controls.Add(Me.Label23) - Me.Controls.Add(Me.txtDurationZoll2) Me.Controls.Add(Me.txtDurationZoll1) - Me.Controls.Add(Me.txtZoll2Date) - Me.Controls.Add(Me.DateTimePicker2) Me.Controls.Add(Me.txtZoll1Date) Me.Controls.Add(Me.DateTimePicker1) Me.Controls.Add(Me.txtATC) @@ -1539,32 +1562,23 @@ Partial Class usrCntlZollbeschau Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.txtBeschauDat) Me.Controls.Add(Me.dtpBeschauDat) - Me.Controls.Add(Me.txtZollb2) - Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.txtZollb1) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.Label16) - Me.Controls.Add(Me.txtFrächter) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.txtFilialNr) Me.Controls.Add(Me.Label14) - Me.Controls.Add(Me.txtWarenwert) Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.txtAbfNr) Me.Controls.Add(Me.Label46) Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.LinkLabel3) Me.Controls.Add(Me.txtDW) - Me.Controls.Add(Me.txtWarenbez) Me.Controls.Add(Me.Label41) Me.Controls.Add(Me.Label40) - Me.Controls.Add(Me.txtGewicht) Me.Controls.Add(Me.Label7) - Me.Controls.Add(Me.txtAnzVerp) Me.Controls.Add(Me.Label9) - Me.Controls.Add(Me.txtLKWKennz) Me.Controls.Add(Me.Label37) - Me.Controls.Add(Me.txtAbsender) Me.Controls.Add(Me.Label39) Me.Controls.Add(Me.txtHerrFrau) Me.Controls.Add(Me.Label26) @@ -1587,15 +1601,13 @@ Partial Class usrCntlZollbeschau Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.txtUid) Me.Controls.Add(Me.Label2) - Me.Controls.Add(Me.txtAdresse2) - Me.Controls.Add(Me.txtAdresse1) Me.Controls.Add(Me.Label1) - Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.lblHerrFrau) Me.Controls.Add(Me.lblVollmachtDE) Me.Name = "usrCntlZollbeschau" - Me.Size = New System.Drawing.Size(1018, 404) + Me.Size = New System.Drawing.Size(1018, 688) CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1684,10 +1696,12 @@ Partial Class usrCntlZollbeschau Friend WithEvents txtTimeZoll2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtTimeZoll1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label30 As Label - Friend WithEvents txtzusPosText As VERAG_PROG_ALLGEMEIN.MyTextBox - Friend WithEvents cbxzusätzlichePosition As CheckBox + Friend WithEvents dgvPositionen As DataGridView + Friend WithEvents lblgesamtpreis As Label + Friend WithEvents txtInfo As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Label31 As Label - Friend WithEvents Label32 As Label - Friend WithEvents Label33 As Label - Friend WithEvents txtzusPosPreis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents pos As DataGridViewTextBoxColumn + Friend WithEvents leistung As DataGridViewTextBoxColumn + Friend WithEvents stk As DataGridViewTextBoxColumn + Friend WithEvents preis As DataGridViewTextBoxColumn End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx index 1af7de15..791fa171 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx @@ -117,4 +117,16 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + True + + + True + + + True + \ No newline at end of file diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb index 4fc2d907..a8cfc8ea 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb @@ -1,5 +1,4 @@ - -Public Class usrCntlZollbeschau +Public Class usrCntlZollbeschau Implements FormualrInterface Public Event CHANGED(name, value) @@ -144,7 +143,8 @@ Public Class usrCntlZollbeschau txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy") txtVZDatum.Text = Date.Today.ToString("dd.MM.yyyy") - + loadDGV() + calcPreis() If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) Then txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl @@ -214,19 +214,47 @@ Public Class usrCntlZollbeschau End If End Sub + Private Sub loadDGV() + + dgvPositionen.Rows.Add(1, "Vorbereitung Waren zum Zollbeschau durch Ambar", 1, 60) + dgvPositionen.Rows.Add(2, "Mehraufwandskosten") + dgvPositionen.Rows.Add(3, "Lagereingang (Mindessatz 30€); (pro Palette 10€)") + dgvPositionen.Rows.Add(4, "Lagerung pro KW 10€/Palette; KW: ") + dgvPositionen.Rows.Add(5, "Lagerausgang (pro Palette 10€) ") + dgvPositionen.Rows.Add(6, "Verpackungsmaterial je nach Bedarf (Kartonagen, Klebeband, Wickelfolie, Paletten)") + dgvPositionen.Rows.Add(7, "Händische Abladung (mind-satz. 80€, Stundenpau. bei 2 Person. 50€ pro Stunde/Person, gilt bei Lose-/Kartonwaren ohne Palettierung ") + dgvPositionen.Rows.Add(8, "Samstagzuschlag/Spätzuschlag ab 17 Uhr (Mindestsatz 30€)") + dgvPositionen.Rows.Add(9, "Bürgschaftskosten Verwahrlager 1% vom Warenwert") + + End Sub + + Private Function calcPreis() As Double + + Dim gesamtpreis As Double = 0 + + For Each r As DataGridViewRow In dgvPositionen.Rows + If (IsNumeric(r.Cells(2).Value) AndAlso IsNumeric(r.Cells(3).Value)) Then + gesamtpreis += r.Cells(2).Value * r.Cells(3).Value + End If + + Next + + lblgesamtpreis.Text = "Gesamtpreis: " & gesamtpreis & " €" + Return gesamtpreis - Private Sub cbxzusätzlichePosition_CheckedChanged(sender As Object, e As EventArgs) Handles cbxzusätzlichePosition.CheckedChanged - If cbxzusätzlichePosition.Checked Then + End Function - txtzusPosPreis.Enabled = True - txtzusPosText.Enabled = True - Else - txtzusPosPreis.Enabled = False - txtzusPosText.Enabled = False - txtzusPosPreis.Text = "" - txtzusPosText.Text = "" + Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged + + If e.ColumnIndex = 3 Or e.ColumnIndex = 2 Then + calcPreis() End If End Sub + + Private Sub dgvPositionen_DefaultValuesNeeded(sender As Object, e As DataGridViewRowEventArgs) Handles dgvPositionen.DefaultValuesNeeded + + e.Row.Cells("pos").Value = dgvPositionen.Rows.Count + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 0a3c4904..05ad2100 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -3588,13 +3588,13 @@ Public Class FormularManagerNEU Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim top = 3 - Dim preisStandard As Double = 60 + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 145, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFilialNr.Text & "/" & usrCntl.txtAbfNr.Text, 40, 47 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtT1.Text, 145, 52 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATB.Text, 145, 57 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATC.Text, 145, 62 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 120, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVZDatum.Text, 145, 72 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollagent.Text, 40, 82 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrächter.Text, 40, 88 + top, 55, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) @@ -3603,7 +3603,7 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollb2.Text, 40, 103 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 141, 82 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBeschauDat.Text, 135, 82 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 135, 88 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 135, 93 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) @@ -3627,25 +3627,33 @@ Public Class FormularManagerNEU listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll1Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll1.Text <> "" AndAlso usrCntl.txtDurationZoll1.Text <> "", usrCntl.txtTimeZoll1.Text & " - " & newTimeZoll1.ToString("HH:mm"), ""), 135, 98 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtZoll1Date.Text <> "", usrCntl.txtZoll2Date.Text & " ", "") & IIf(usrCntl.txtTimeZoll2.Text <> "" AndAlso usrCntl.txtDurationZoll2.Text <> "", usrCntl.txtTimeZoll2.Text & " - " & newTimeZoll2.ToString("HH:mm"), ""), 135, 103 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInfo.Text, 16, 120 + top, 135, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) 'Sendungsdaten - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 130, 131 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 131 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 41, 146 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 132, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGewicht.Text, 157, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 28, 136 + top, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + 'Tabelle - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(preisStandard & " €", 122, 151 + top, 150, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) - If usrCntl.cbxzusätzlichePosition.Checked Then - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("10", 27, 199 + top, 110, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosText.Text <> "", usrCntl.txtzusPosText.Text, ""), 41, 199 + top, 110, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosPreis.Text <> "", usrCntl.txtzusPosPreis.Text & " €", ""), 122, 199 + top, 135, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + If usrCntl.dgvPositionen.Rows.Count() > 0 Then + Dim x = 154 + For i As Integer = 0 To usrCntl.dgvPositionen.Rows.Count() - 1 + + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("pos").Value, 17, x + top, 10, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("leistung").Value, 24, x + top, 138, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("stk").Value, 165, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.dgvPositionen.Rows(i).Cells("preis").Value, 185, x + top, 20, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + x += 5 + Next End If - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(IIf(usrCntl.txtzusPosPreis.Text <> "", usrCntl.txtzusPosPreis.Text + preisStandard & " €", preisStandard & " €"), 122, 203 + top, 200, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblgesamtpreis.Text, 150, 217 + top, 40, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Dim ort As String = ""