Zollbeschau: DGV integriert.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb

@@ -22,6 +22,9 @@ Partial Class usrCntlZollbeschau
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     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

SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx

@@ -117,4 +117,16 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="pos.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="leistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="stk.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="preis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
 </root>

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

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 = ""