edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Zollbeschau: DGV integriert.

Browse Source
This commit is contained in:
d.breimaier
2022-12-28 12:02:54 +01:00
parent cd1d203541
commit ed5aa04bd5
4 changed files with 222 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files

286
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.Designer.vb generated
View File

@@ -22,6 +22,9 @@ Partial Class usrCntlZollbeschau
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() 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.Label46 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
@@ -106,13 +109,16 @@ Partial Class usrCntlZollbeschau
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label30 = New System.Windows.Forms.Label() Me.Label30 = New System.Windows.Forms.Label()
Me.txtzusPosText = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.dgvPositionen = New System.Windows.Forms.DataGridView()
Me.cbxzusätzlichePosition = New System.Windows.Forms.CheckBox() Me.lblgesamtpreis = New System.Windows.Forms.Label()
Me.txtInfo = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label31 = New System.Windows.Forms.Label() Me.Label31 = New System.Windows.Forms.Label()
Me.Label32 = New System.Windows.Forms.Label() Me.pos = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label33 = New System.Windows.Forms.Label() Me.leistung = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtzusPosPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.stk = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label46 'Label46
@@ -151,7 +157,7 @@ Partial Class usrCntlZollbeschau
'Label41 'Label41
' '
Me.Label41.AutoSize = True 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.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(62, 13) Me.Label41.Size = New System.Drawing.Size(62, 13)
Me.Label41.TabIndex = 95 Me.Label41.TabIndex = 95
@@ -170,7 +176,7 @@ Partial Class usrCntlZollbeschau
'Label7 'Label7
' '
Me.Label7.AutoSize = True 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(49, 13) Me.Label7.Size = New System.Drawing.Size(49, 13)
Me.Label7.TabIndex = 97 Me.Label7.TabIndex = 97
@@ -179,7 +185,7 @@ Partial Class usrCntlZollbeschau
'Label9 'Label9
' '
Me.Label9.AutoSize = True 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.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(61, 13) Me.Label9.Size = New System.Drawing.Size(61, 13)
Me.Label9.TabIndex = 93 Me.Label9.TabIndex = 93
@@ -364,7 +370,7 @@ Partial Class usrCntlZollbeschau
'Label12 'Label12
' '
Me.Label12.AutoSize = True 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.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(59, 13) Me.Label12.Size = New System.Drawing.Size(59, 13)
Me.Label12.TabIndex = 99 Me.Label12.TabIndex = 99
@@ -382,7 +388,7 @@ Partial Class usrCntlZollbeschau
'Label15 'Label15
' '
Me.Label15.AutoSize = True 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.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(49, 13) Me.Label15.Size = New System.Drawing.Size(49, 13)
Me.Label15.TabIndex = 105 Me.Label15.TabIndex = 105
@@ -401,7 +407,7 @@ Partial Class usrCntlZollbeschau
'Label10 'Label10
' '
Me.Label10.AutoSize = True 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.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(74, 13) Me.Label10.Size = New System.Drawing.Size(74, 13)
Me.Label10.TabIndex = 110 Me.Label10.TabIndex = 110
@@ -410,7 +416,7 @@ Partial Class usrCntlZollbeschau
'Label17 'Label17
' '
Me.Label17.AutoSize = True 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.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(74, 13) Me.Label17.Size = New System.Drawing.Size(74, 13)
Me.Label17.TabIndex = 108 Me.Label17.TabIndex = 108
@@ -468,7 +474,7 @@ Partial Class usrCntlZollbeschau
'Label22 'Label22
' '
Me.Label22.AutoSize = True 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.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(31, 13) Me.Label22.Size = New System.Drawing.Size(31, 13)
Me.Label22.TabIndex = 123 Me.Label22.TabIndex = 123
@@ -479,7 +485,7 @@ Partial Class usrCntlZollbeschau
Me.DateTimePicker1.CustomFormat = "''" 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.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.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.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -491,7 +497,7 @@ Partial Class usrCntlZollbeschau
Me.DateTimePicker2.CustomFormat = "''" 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.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.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.Margin = New System.Windows.Forms.Padding(0)
Me.DateTimePicker2.Name = "DateTimePicker2" Me.DateTimePicker2.Name = "DateTimePicker2"
Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No
@@ -501,7 +507,7 @@ Partial Class usrCntlZollbeschau
'Label23 'Label23
' '
Me.Label23.AutoSize = True 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.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(41, 13) Me.Label23.Size = New System.Drawing.Size(41, 13)
Me.Label23.TabIndex = 133 Me.Label23.TabIndex = 133
@@ -510,7 +516,7 @@ Partial Class usrCntlZollbeschau
'Label24 'Label24
' '
Me.Label24.AutoSize = True 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.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(41, 13) Me.Label24.Size = New System.Drawing.Size(41, 13)
Me.Label24.TabIndex = 134 Me.Label24.TabIndex = 134
@@ -519,7 +525,7 @@ Partial Class usrCntlZollbeschau
'Label25 'Label25
' '
Me.Label25.AutoSize = True 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.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(39, 13) Me.Label25.Size = New System.Drawing.Size(39, 13)
Me.Label25.TabIndex = 135 Me.Label25.TabIndex = 135
@@ -528,7 +534,7 @@ Partial Class usrCntlZollbeschau
'Label27 'Label27
' '
Me.Label27.AutoSize = True 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.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(39, 13) Me.Label27.Size = New System.Drawing.Size(39, 13)
Me.Label27.TabIndex = 136 Me.Label27.TabIndex = 136
@@ -538,7 +544,7 @@ Partial Class usrCntlZollbeschau
' '
Me.Label28.AutoSize = True 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.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.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(73, 13) Me.Label28.Size = New System.Drawing.Size(73, 13)
Me.Label28.TabIndex = 137 Me.Label28.TabIndex = 137
@@ -569,7 +575,7 @@ Partial Class usrCntlZollbeschau
'Label29 'Label29
' '
Me.Label29.AutoSize = True 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.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(43, 13) Me.Label29.Size = New System.Drawing.Size(43, 13)
Me.Label29.TabIndex = 145 Me.Label29.TabIndex = 145
@@ -578,7 +584,7 @@ Partial Class usrCntlZollbeschau
'lblZoll1Time 'lblZoll1Time
' '
Me.lblZoll1Time.AutoSize = True 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.Name = "lblZoll1Time"
Me.lblZoll1Time.Size = New System.Drawing.Size(43, 13) Me.lblZoll1Time.Size = New System.Drawing.Size(43, 13)
Me.lblZoll1Time.TabIndex = 144 Me.lblZoll1Time.TabIndex = 144
@@ -599,7 +605,7 @@ Partial Class usrCntlZollbeschau
Me.txtTimeZoll2._Waehrung = False Me.txtTimeZoll2._Waehrung = False
Me.txtTimeZoll2._WaehrungZeichen = False Me.txtTimeZoll2._WaehrungZeichen = False
Me.txtTimeZoll2.ForeColor = System.Drawing.Color.Black 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.MaxLength = 8
Me.txtTimeZoll2.MaxLineLength = -1 Me.txtTimeZoll2.MaxLineLength = -1
Me.txtTimeZoll2.MaxLines_Warning = "" Me.txtTimeZoll2.MaxLines_Warning = ""
@@ -623,7 +629,7 @@ Partial Class usrCntlZollbeschau
Me.txtTimeZoll1._Waehrung = False Me.txtTimeZoll1._Waehrung = False
Me.txtTimeZoll1._WaehrungZeichen = False Me.txtTimeZoll1._WaehrungZeichen = False
Me.txtTimeZoll1.ForeColor = System.Drawing.Color.Black 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.MaxLength = 8
Me.txtTimeZoll1.MaxLineLength = -1 Me.txtTimeZoll1.MaxLineLength = -1
Me.txtTimeZoll1.MaxLines_Warning = "" Me.txtTimeZoll1.MaxLines_Warning = ""
@@ -672,7 +678,7 @@ Partial Class usrCntlZollbeschau
Me.txtDurationZoll2._Waehrung = False Me.txtDurationZoll2._Waehrung = False
Me.txtDurationZoll2._WaehrungZeichen = False Me.txtDurationZoll2._WaehrungZeichen = False
Me.txtDurationZoll2.ForeColor = System.Drawing.Color.Black 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.MaxLength = 8
Me.txtDurationZoll2.MaxLineLength = -1 Me.txtDurationZoll2.MaxLineLength = -1
Me.txtDurationZoll2.MaxLines_Warning = "" Me.txtDurationZoll2.MaxLines_Warning = ""
@@ -696,7 +702,7 @@ Partial Class usrCntlZollbeschau
Me.txtDurationZoll1._Waehrung = False Me.txtDurationZoll1._Waehrung = False
Me.txtDurationZoll1._WaehrungZeichen = False Me.txtDurationZoll1._WaehrungZeichen = False
Me.txtDurationZoll1.ForeColor = System.Drawing.Color.Black 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.MaxLength = 8
Me.txtDurationZoll1.MaxLineLength = -1 Me.txtDurationZoll1.MaxLineLength = -1
Me.txtDurationZoll1.MaxLines_Warning = "" Me.txtDurationZoll1.MaxLines_Warning = ""
@@ -721,7 +727,7 @@ Partial Class usrCntlZollbeschau
Me.txtZoll2Date._WaehrungZeichen = True 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.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.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.MaxLength = 10
Me.txtZoll2Date.MaxLineLength = -1 Me.txtZoll2Date.MaxLineLength = -1
Me.txtZoll2Date.MaxLines_Warning = "" Me.txtZoll2Date.MaxLines_Warning = ""
@@ -746,7 +752,7 @@ Partial Class usrCntlZollbeschau
Me.txtZoll1Date._WaehrungZeichen = True 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.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.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.MaxLength = 10
Me.txtZoll1Date.MaxLineLength = -1 Me.txtZoll1Date.MaxLineLength = -1
Me.txtZoll1Date.MaxLines_Warning = "" Me.txtZoll1Date.MaxLines_Warning = ""
@@ -770,7 +776,7 @@ Partial Class usrCntlZollbeschau
Me.txtATC._Waehrung = False Me.txtATC._Waehrung = False
Me.txtATC._WaehrungZeichen = True Me.txtATC._WaehrungZeichen = True
Me.txtATC.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtATC.MaxLines_Warning = "" Me.txtATC.MaxLines_Warning = ""
Me.txtATC.MaxLines_Warning_Label = Nothing Me.txtATC.MaxLines_Warning_Label = Nothing
@@ -887,7 +893,7 @@ Partial Class usrCntlZollbeschau
Me.txtZollb2._Waehrung = False Me.txtZollb2._Waehrung = False
Me.txtZollb2._WaehrungZeichen = True Me.txtZollb2._WaehrungZeichen = True
Me.txtZollb2.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtZollb2.MaxLines_Warning = "" Me.txtZollb2.MaxLines_Warning = ""
Me.txtZollb2.MaxLines_Warning_Label = Nothing Me.txtZollb2.MaxLines_Warning_Label = Nothing
@@ -910,7 +916,7 @@ Partial Class usrCntlZollbeschau
Me.txtZollb1._Waehrung = False Me.txtZollb1._Waehrung = False
Me.txtZollb1._WaehrungZeichen = True Me.txtZollb1._WaehrungZeichen = True
Me.txtZollb1.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtZollb1.MaxLines_Warning = "" Me.txtZollb1.MaxLines_Warning = ""
Me.txtZollb1.MaxLines_Warning_Label = Nothing Me.txtZollb1.MaxLines_Warning_Label = Nothing
@@ -933,7 +939,7 @@ Partial Class usrCntlZollbeschau
Me.txtFrächter._Waehrung = False Me.txtFrächter._Waehrung = False
Me.txtFrächter._WaehrungZeichen = True Me.txtFrächter._WaehrungZeichen = True
Me.txtFrächter.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtFrächter.MaxLines_Warning = "" Me.txtFrächter.MaxLines_Warning = ""
Me.txtFrächter.MaxLines_Warning_Label = Nothing Me.txtFrächter.MaxLines_Warning_Label = Nothing
@@ -956,7 +962,7 @@ Partial Class usrCntlZollbeschau
Me.txtFilialNr._Waehrung = False Me.txtFilialNr._Waehrung = False
Me.txtFilialNr._WaehrungZeichen = True Me.txtFilialNr._WaehrungZeichen = True
Me.txtFilialNr.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtFilialNr.MaxLines_Warning = "" Me.txtFilialNr.MaxLines_Warning = ""
Me.txtFilialNr.MaxLines_Warning_Label = Nothing Me.txtFilialNr.MaxLines_Warning_Label = Nothing
@@ -979,7 +985,7 @@ Partial Class usrCntlZollbeschau
Me.txtWarenwert._Waehrung = False Me.txtWarenwert._Waehrung = False
Me.txtWarenwert._WaehrungZeichen = True Me.txtWarenwert._WaehrungZeichen = True
Me.txtWarenwert.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtWarenwert.MaxLines_Warning = "" Me.txtWarenwert.MaxLines_Warning = ""
Me.txtWarenwert.MaxLines_Warning_Label = Nothing Me.txtWarenwert.MaxLines_Warning_Label = Nothing
@@ -1050,7 +1056,7 @@ Partial Class usrCntlZollbeschau
Me.txtWarenbez._Waehrung = False Me.txtWarenbez._Waehrung = False
Me.txtWarenbez._WaehrungZeichen = True Me.txtWarenbez._WaehrungZeichen = True
Me.txtWarenbez.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtWarenbez.MaxLines_Warning = "" Me.txtWarenbez.MaxLines_Warning = ""
Me.txtWarenbez.MaxLines_Warning_Label = Nothing Me.txtWarenbez.MaxLines_Warning_Label = Nothing
@@ -1073,7 +1079,7 @@ Partial Class usrCntlZollbeschau
Me.txtGewicht._Waehrung = False Me.txtGewicht._Waehrung = False
Me.txtGewicht._WaehrungZeichen = True Me.txtGewicht._WaehrungZeichen = True
Me.txtGewicht.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtGewicht.MaxLines_Warning = "" Me.txtGewicht.MaxLines_Warning = ""
Me.txtGewicht.MaxLines_Warning_Label = Nothing Me.txtGewicht.MaxLines_Warning_Label = Nothing
@@ -1096,7 +1102,7 @@ Partial Class usrCntlZollbeschau
Me.txtAnzVerp._Waehrung = False Me.txtAnzVerp._Waehrung = False
Me.txtAnzVerp._WaehrungZeichen = True Me.txtAnzVerp._WaehrungZeichen = True
Me.txtAnzVerp.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtAnzVerp.MaxLines_Warning = "" Me.txtAnzVerp.MaxLines_Warning = ""
Me.txtAnzVerp.MaxLines_Warning_Label = Nothing Me.txtAnzVerp.MaxLines_Warning_Label = Nothing
@@ -1413,89 +1419,96 @@ Partial Class usrCntlZollbeschau
Me.Label30.TabIndex = 146 Me.Label30.TabIndex = 146
Me.Label30.Text = "Sendungstabelle:" Me.Label30.Text = "Sendungstabelle:"
' '
'txtzusPosText 'dgvPositionen
' '
Me.txtzusPosText._DateTimeOnly = False Me.dgvPositionen.BackgroundColor = System.Drawing.Color.White
Me.txtzusPosText._numbersOnly = False Me.dgvPositionen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.txtzusPosText._numbersOnlyKommastellen = "" Me.dgvPositionen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.pos, Me.leistung, Me.stk, Me.preis})
Me.txtzusPosText._numbersOnlyTrennzeichen = True Me.dgvPositionen.Location = New System.Drawing.Point(180, 386)
Me.txtzusPosText._Prozent = False Me.dgvPositionen.Name = "dgvPositionen"
Me.txtzusPosText._ShortDateNew = False Me.dgvPositionen.Size = New System.Drawing.Size(823, 264)
Me.txtzusPosText._ShortDateOnly = False Me.dgvPositionen.TabIndex = 156
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
' '
'cbxzusätzlichePosition 'lblgesamtpreis
' '
Me.cbxzusätzlichePosition.AutoSize = True Me.lblgesamtpreis.AutoSize = True
Me.cbxzusätzlichePosition.Location = New System.Drawing.Point(329, 364) Me.lblgesamtpreis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxzusätzlichePosition.Name = "cbxzusätzlichePosition" Me.lblgesamtpreis.Location = New System.Drawing.Point(177, 653)
Me.cbxzusätzlichePosition.Size = New System.Drawing.Size(15, 14) Me.lblgesamtpreis.Name = "lblgesamtpreis"
Me.cbxzusätzlichePosition.TabIndex = 150 Me.lblgesamtpreis.Size = New System.Drawing.Size(80, 13)
Me.cbxzusätzlichePosition.UseVisualStyleBackColor = True 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 'Label31
' '
Me.Label31.AutoSize = True 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.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(145, 13) Me.Label31.Size = New System.Drawing.Size(62, 13)
Me.Label31.TabIndex = 151 Me.Label31.TabIndex = 158
Me.Label31.Text = "zusätzliche Position anzeigen" Me.Label31.Text = "Grund/Info:"
' '
'Label32 'pos
' '
Me.Label32.AutoSize = True DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.Label32.Location = New System.Drawing.Point(178, 384) DataGridViewCellStyle1.Format = "N0"
Me.Label32.Name = "Label32" DataGridViewCellStyle1.NullValue = Nothing
Me.Label32.Size = New System.Drawing.Size(31, 13) Me.pos.DefaultCellStyle = DataGridViewCellStyle1
Me.Label32.TabIndex = 152 Me.pos.Frozen = True
Me.Label32.Text = "Text:" 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.leistung.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Label33.Location = New System.Drawing.Point(590, 384) Me.leistung.HeaderText = "Leistung"
Me.Label33.Name = "Label33" Me.leistung.Name = "leistung"
Me.Label33.Size = New System.Drawing.Size(33, 13)
Me.Label33.TabIndex = 153
Me.Label33.Text = "Preis:"
' '
'txtzusPosPreis 'stk
' '
Me.txtzusPosPreis._DateTimeOnly = False DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleCenter
Me.txtzusPosPreis._numbersOnly = False DataGridViewCellStyle2.Format = "N1"
Me.txtzusPosPreis._numbersOnlyKommastellen = "" DataGridViewCellStyle2.NullValue = Nothing
Me.txtzusPosPreis._numbersOnlyTrennzeichen = True Me.stk.DefaultCellStyle = DataGridViewCellStyle2
Me.txtzusPosPreis._Prozent = False Me.stk.HeaderText = "Stück"
Me.txtzusPosPreis._ShortDateNew = False Me.stk.MaxInputLength = 100
Me.txtzusPosPreis._ShortDateOnly = False Me.stk.Name = "stk"
Me.txtzusPosPreis._TimeOnly = False '
Me.txtzusPosPreis._TimeOnly_Seconds = False 'preis
Me.txtzusPosPreis._value = "" '
Me.txtzusPosPreis._Waehrung = True DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
Me.txtzusPosPreis._WaehrungZeichen = False DataGridViewCellStyle3.Format = "C2"
Me.txtzusPosPreis.Enabled = False DataGridViewCellStyle3.NullValue = Nothing
Me.txtzusPosPreis.ForeColor = System.Drawing.Color.Black Me.preis.DefaultCellStyle = DataGridViewCellStyle3
Me.txtzusPosPreis.Location = New System.Drawing.Point(662, 381) Me.preis.HeaderText = "Preis"
Me.txtzusPosPreis.MaxLineLength = -1 Me.preis.MaxInputLength = 100
Me.txtzusPosPreis.MaxLines_Warning = "" Me.preis.Name = "preis"
Me.txtzusPosPreis.MaxLines_Warning_Label = Nothing
Me.txtzusPosPreis.Name = "txtzusPosPreis"
Me.txtzusPosPreis.Size = New System.Drawing.Size(63, 20)
Me.txtzusPosPreis.TabIndex = 155
' '
'usrCntlZollbeschau 'usrCntlZollbeschau
' '
@@ -1503,29 +1516,39 @@ Partial Class usrCntlZollbeschau
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtzusPosPreis) Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.Label33)
Me.Controls.Add(Me.Label32)
Me.Controls.Add(Me.Label31) Me.Controls.Add(Me.Label31)
Me.Controls.Add(Me.cbxzusätzlichePosition) Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtzusPosText) Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label30) Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.Label29) Me.Controls.Add(Me.Label29)
Me.Controls.Add(Me.lblZoll1Time)
Me.Controls.Add(Me.txtTimeZoll2) 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.txtTimeZoll1)
Me.Controls.Add(Me.txtVZDatum) Me.Controls.Add(Me.txtVZDatum)
Me.Controls.Add(Me.DateTimePicker3) Me.Controls.Add(Me.DateTimePicker3)
Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.Label28) Me.Controls.Add(Me.Label28)
Me.Controls.Add(Me.Label27)
Me.Controls.Add(Me.Label25) Me.Controls.Add(Me.Label25)
Me.Controls.Add(Me.Label24)
Me.Controls.Add(Me.Label23) Me.Controls.Add(Me.Label23)
Me.Controls.Add(Me.txtDurationZoll2)
Me.Controls.Add(Me.txtDurationZoll1) Me.Controls.Add(Me.txtDurationZoll1)
Me.Controls.Add(Me.txtZoll2Date)
Me.Controls.Add(Me.DateTimePicker2)
Me.Controls.Add(Me.txtZoll1Date) Me.Controls.Add(Me.txtZoll1Date)
Me.Controls.Add(Me.DateTimePicker1) Me.Controls.Add(Me.DateTimePicker1)
Me.Controls.Add(Me.txtATC) Me.Controls.Add(Me.txtATC)
@@ -1539,32 +1562,23 @@ Partial Class usrCntlZollbeschau
Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.Label18)
Me.Controls.Add(Me.txtBeschauDat) Me.Controls.Add(Me.txtBeschauDat)
Me.Controls.Add(Me.dtpBeschauDat) Me.Controls.Add(Me.dtpBeschauDat)
Me.Controls.Add(Me.txtZollb2)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txtZollb1) Me.Controls.Add(Me.txtZollb1)
Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.txtFrächter)
Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.txtFilialNr) Me.Controls.Add(Me.txtFilialNr)
Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.txtWarenwert)
Me.Controls.Add(Me.Label12) Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.txtAbfNr) Me.Controls.Add(Me.txtAbfNr)
Me.Controls.Add(Me.Label46) Me.Controls.Add(Me.Label46)
Me.Controls.Add(Me.Button2) Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.LinkLabel3) Me.Controls.Add(Me.LinkLabel3)
Me.Controls.Add(Me.txtDW) Me.Controls.Add(Me.txtDW)
Me.Controls.Add(Me.txtWarenbez)
Me.Controls.Add(Me.Label41) Me.Controls.Add(Me.Label41)
Me.Controls.Add(Me.Label40) Me.Controls.Add(Me.Label40)
Me.Controls.Add(Me.txtGewicht)
Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtAnzVerp)
Me.Controls.Add(Me.Label9) Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtLKWKennz)
Me.Controls.Add(Me.Label37) Me.Controls.Add(Me.Label37)
Me.Controls.Add(Me.txtAbsender)
Me.Controls.Add(Me.Label39) Me.Controls.Add(Me.Label39)
Me.Controls.Add(Me.txtHerrFrau) Me.Controls.Add(Me.txtHerrFrau)
Me.Controls.Add(Me.Label26) Me.Controls.Add(Me.Label26)
@@ -1587,15 +1601,13 @@ Partial Class usrCntlZollbeschau
Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtUid) Me.Controls.Add(Me.txtUid)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lblHerrFrau) Me.Controls.Add(Me.lblHerrFrau)
Me.Controls.Add(Me.lblVollmachtDE) Me.Controls.Add(Me.lblVollmachtDE)
Me.Name = "usrCntlZollbeschau" 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.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvPositionen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1684,10 +1696,12 @@ Partial Class usrCntlZollbeschau
Friend WithEvents txtTimeZoll2 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtTimeZoll2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtTimeZoll1 As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtTimeZoll1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label30 As Label Friend WithEvents Label30 As Label
Friend WithEvents txtzusPosText As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents dgvPositionen As DataGridView
Friend WithEvents cbxzusätzlichePosition As CheckBox Friend WithEvents lblgesamtpreis As Label
Friend WithEvents txtInfo As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label31 As Label Friend WithEvents Label31 As Label
Friend WithEvents Label32 As Label Friend WithEvents pos As DataGridViewTextBoxColumn
Friend WithEvents Label33 As Label Friend WithEvents leistung As DataGridViewTextBoxColumn
Friend WithEvents txtzusPosPreis As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents stk As DataGridViewTextBoxColumn
Friend WithEvents preis As DataGridViewTextBoxColumn
End Class End Class

12
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.resx
View File

@@ -117,4 +117,16 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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> </root>

52
SDL/Formulare/KDFormulare/FormulareBaukasten/usrCntlZollbeschau.vb
View File

@@ -1,5 +1,4 @@
 Public Class usrCntlZollbeschau
Public Class usrCntlZollbeschau
Implements FormualrInterface Implements FormualrInterface
Public Event CHANGED(name, value) Public Event CHANGED(name, value)
@@ -144,7 +143,8 @@ Public Class usrCntlZollbeschau
txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME txtAnsprechpartnerVERAG.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy") txtBeschauDat.Text = Date.Today.ToString("dd.MM.yyyy")
txtVZDatum.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 If IsNumeric(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl) Then
txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl txtDW.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl
@@ -214,19 +214,47 @@ Public Class usrCntlZollbeschau
End If End If
End Sub 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 End Function
If cbxzusätzlichePosition.Checked Then
txtzusPosPreis.Enabled = True Private Sub dgvPositionen_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPositionen.CellValueChanged
txtzusPosText.Enabled = True
Else If e.ColumnIndex = 3 Or e.ColumnIndex = 2 Then
txtzusPosPreis.Enabled = False calcPreis()
txtzusPosText.Enabled = False
txtzusPosPreis.Text = ""
txtzusPosText.Text = ""
End If End If
End Sub 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 End Class

32
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -3588,13 +3588,13 @@ Public Class FormularManagerNEU
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim top = 3 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.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.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.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.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.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.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)) 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.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.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)) 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.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(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 '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.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, 131 + 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, 41, 146 + top, 150, 6, "", 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 '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 If usrCntl.dgvPositionen.Rows.Count() > 0 Then
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("10", 27, 199 + top, 110, 6, "", 10, , itextsharp.text.Element.ALIGN_LEFT)) Dim x = 154
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)) For i As Integer = 0 To usrCntl.dgvPositionen.Rows.Count() - 1
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))
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 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 = "" Dim ort As String = ""