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

Fehlerhandling verbessert, AMBAR CMR

Browse Source
This commit is contained in:
d.breimaier
2023-09-01 14:30:57 +02:00
parent 6cdca15d8f
commit 2bf8cf0bea
4 changed files with 197 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

254
SDL/Formulare/CMR/usrcntlCMR.Designer.vb generated
View File

@@ -23,15 +23,26 @@ Partial Class usrcntlCMR
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.Panel3 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.LinkLabel7 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel6 = New System.Windows.Forms.LinkLabel()
Me.lbl_errCMR_1 = New System.Windows.Forms.Label()
Me.txtAbsender = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.dgvLadungenKurz = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.dgvLadungen = New System.Windows.Forms.DataGridView()
Me.ZeNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.statNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.umfang = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbxKurz = New System.Windows.Forms.CheckBox()
Me.lblKurz = New System.Windows.Forms.Label()
Me.LinkLabel4 = New System.Windows.Forms.LinkLabel()
@@ -76,17 +87,8 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFrachtführer = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.ZeNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.anz = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.art = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.bez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.statNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.gewicht = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.umfang = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.LinkLabel8 = New System.Windows.Forms.LinkLabel()
Me.LinkLabel9 = New System.Windows.Forms.LinkLabel()
Me.Panel3.SuspendLayout()
CType(Me.dgvLadungenKurz, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvLadungen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -101,6 +103,8 @@ Partial Class usrcntlCMR
'
Me.Panel3.AutoScroll = True
Me.Panel3.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.Panel3.Controls.Add(Me.LinkLabel9)
Me.Panel3.Controls.Add(Me.LinkLabel8)
Me.Panel3.Controls.Add(Me.LinkLabel7)
Me.Panel3.Controls.Add(Me.LinkLabel6)
Me.Panel3.Controls.Add(Me.lbl_errCMR_1)
@@ -213,14 +217,14 @@ Partial Class usrcntlCMR
Me.dgvLadungenKurz.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungenKurz.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungenKurz.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn6})
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungenKurz.DefaultCellStyle = DataGridViewCellStyle3
Me.dgvLadungenKurz.GridColor = System.Drawing.Color.Gray
Me.dgvLadungenKurz.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungenKurz.Name = "dgvLadungenKurz"
@@ -228,6 +232,34 @@ Partial Class usrcntlCMR
Me.dgvLadungenKurz.Size = New System.Drawing.Size(796, 165)
Me.dgvLadungenKurz.TabIndex = 490
'
'DataGridViewTextBoxColumn2
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.Width = 50
'
'DataGridViewTextBoxColumn3
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Art der Verpack."
Me.DataGridViewTextBoxColumn3.MaxInputLength = 50
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 110
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "Bezeichnung"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 80
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.HeaderText = "Brutto Gewicht"
Me.DataGridViewTextBoxColumn6.MaxInputLength = 53
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.Width = 274
'
'dgvLadungen
'
Me.dgvLadungen.AllowUserToAddRows = False
@@ -236,14 +268,14 @@ Partial Class usrcntlCMR
Me.dgvLadungen.BackgroundColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
Me.dgvLadungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLadungen.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.ZeNr, Me.anz, Me.art, Me.bez, Me.statNr, Me.gewicht, Me.umfang})
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle2
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLadungen.DefaultCellStyle = DataGridViewCellStyle4
Me.dgvLadungen.GridColor = System.Drawing.Color.Gray
Me.dgvLadungen.Location = New System.Drawing.Point(32, 519)
Me.dgvLadungen.Name = "dgvLadungen"
@@ -252,6 +284,53 @@ Partial Class usrcntlCMR
Me.dgvLadungen.TabIndex = 17
Me.dgvLadungen.Visible = False
'
'ZeNr
'
Me.ZeNr.HeaderText = "Zeichen/Nr."
Me.ZeNr.MaxInputLength = 50
Me.ZeNr.Name = "ZeNr"
Me.ZeNr.Width = 75
'
'anz
'
Me.anz.HeaderText = "Anzahl"
Me.anz.MaxInputLength = 50
Me.anz.Name = "anz"
Me.anz.Width = 50
'
'art
'
Me.art.HeaderText = "Art der Verpack."
Me.art.Name = "art"
Me.art.Width = 107
'
'bez
'
Me.bez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.bez.HeaderText = "Bezeichnung"
Me.bez.MaxInputLength = 80
Me.bez.Name = "bez"
'
'statNr
'
Me.statNr.HeaderText = "Statistik Nr."
Me.statNr.MaxInputLength = 10
Me.statNr.Name = "statNr"
Me.statNr.Width = 84
'
'gewicht
'
Me.gewicht.HeaderText = "Brutto Gewicht"
Me.gewicht.MaxInputLength = 53
Me.gewicht.Name = "gewicht"
'
'umfang
'
Me.umfang.HeaderText = "Umfang"
Me.umfang.MaxInputLength = 53
Me.umfang.Name = "umfang"
Me.umfang.Width = 90
'
'cbxKurz
'
Me.cbxKurz.AutoSize = True
@@ -424,10 +503,12 @@ Partial Class usrcntlCMR
Me.txtAusgefertigtAm._DateTimeOnly = False
Me.txtAusgefertigtAm._numbersOnly = False
Me.txtAusgefertigtAm._numbersOnlyKommastellen = ""
Me.txtAusgefertigtAm._numbersOnlyTrennzeichen = True
Me.txtAusgefertigtAm._Prozent = False
Me.txtAusgefertigtAm._ShortDateNew = True
Me.txtAusgefertigtAm._ShortDateOnly = False
Me.txtAusgefertigtAm._TimeOnly = False
Me.txtAusgefertigtAm._TimeOnly_Seconds = False
Me.txtAusgefertigtAm._value = ""
Me.txtAusgefertigtAm._Waehrung = False
Me.txtAusgefertigtAm._WaehrungZeichen = True
@@ -552,10 +633,12 @@ Partial Class usrcntlCMR
Me.txtAnhängerKg._DateTimeOnly = False
Me.txtAnhängerKg._numbersOnly = True
Me.txtAnhängerKg._numbersOnlyKommastellen = ""
Me.txtAnhängerKg._numbersOnlyTrennzeichen = True
Me.txtAnhängerKg._Prozent = False
Me.txtAnhängerKg._ShortDateNew = False
Me.txtAnhängerKg._ShortDateOnly = False
Me.txtAnhängerKg._TimeOnly = False
Me.txtAnhängerKg._TimeOnly_Seconds = False
Me.txtAnhängerKg._value = ""
Me.txtAnhängerKg._Waehrung = False
Me.txtAnhängerKg._WaehrungZeichen = True
@@ -576,10 +659,12 @@ Partial Class usrcntlCMR
Me.txtKfzKg._DateTimeOnly = False
Me.txtKfzKg._numbersOnly = True
Me.txtKfzKg._numbersOnlyKommastellen = ""
Me.txtKfzKg._numbersOnlyTrennzeichen = True
Me.txtKfzKg._Prozent = False
Me.txtKfzKg._ShortDateNew = False
Me.txtKfzKg._ShortDateOnly = False
Me.txtKfzKg._TimeOnly = False
Me.txtKfzKg._TimeOnly_Seconds = False
Me.txtKfzKg._value = ""
Me.txtKfzKg._Waehrung = False
Me.txtKfzKg._WaehrungZeichen = True
@@ -600,10 +685,12 @@ Partial Class usrcntlCMR
Me.txtAnhänger._DateTimeOnly = False
Me.txtAnhänger._numbersOnly = False
Me.txtAnhänger._numbersOnlyKommastellen = ""
Me.txtAnhänger._numbersOnlyTrennzeichen = True
Me.txtAnhänger._Prozent = False
Me.txtAnhänger._ShortDateNew = False
Me.txtAnhänger._ShortDateOnly = False
Me.txtAnhänger._TimeOnly = False
Me.txtAnhänger._TimeOnly_Seconds = False
Me.txtAnhänger._value = Nothing
Me.txtAnhänger._Waehrung = False
Me.txtAnhänger._WaehrungZeichen = True
@@ -624,10 +711,12 @@ Partial Class usrcntlCMR
Me.txtDatum._DateTimeOnly = False
Me.txtDatum._numbersOnly = False
Me.txtDatum._numbersOnlyKommastellen = ""
Me.txtDatum._numbersOnlyTrennzeichen = True
Me.txtDatum._Prozent = False
Me.txtDatum._ShortDateNew = True
Me.txtDatum._ShortDateOnly = False
Me.txtDatum._TimeOnly = False
Me.txtDatum._TimeOnly_Seconds = False
Me.txtDatum._value = ""
Me.txtDatum._Waehrung = False
Me.txtDatum._WaehrungZeichen = True
@@ -647,10 +736,12 @@ Partial Class usrcntlCMR
Me.txtKfz._DateTimeOnly = False
Me.txtKfz._numbersOnly = False
Me.txtKfz._numbersOnlyKommastellen = ""
Me.txtKfz._numbersOnlyTrennzeichen = True
Me.txtKfz._Prozent = False
Me.txtKfz._ShortDateNew = False
Me.txtKfz._ShortDateOnly = False
Me.txtKfz._TimeOnly = False
Me.txtKfz._TimeOnly_Seconds = False
Me.txtKfz._value = Nothing
Me.txtKfz._Waehrung = False
Me.txtKfz._WaehrungZeichen = True
@@ -671,10 +762,12 @@ Partial Class usrcntlCMR
Me.txtAusgefertigtIn._DateTimeOnly = False
Me.txtAusgefertigtIn._numbersOnly = False
Me.txtAusgefertigtIn._numbersOnlyKommastellen = ""
Me.txtAusgefertigtIn._numbersOnlyTrennzeichen = True
Me.txtAusgefertigtIn._Prozent = False
Me.txtAusgefertigtIn._ShortDateNew = False
Me.txtAusgefertigtIn._ShortDateOnly = False
Me.txtAusgefertigtIn._TimeOnly = False
Me.txtAusgefertigtIn._TimeOnly_Seconds = False
Me.txtAusgefertigtIn._value = Nothing
Me.txtAusgefertigtIn._Waehrung = False
Me.txtAusgefertigtIn._WaehrungZeichen = True
@@ -694,10 +787,12 @@ Partial Class usrcntlCMR
Me.txtLand._DateTimeOnly = False
Me.txtLand._numbersOnly = False
Me.txtLand._numbersOnlyKommastellen = ""
Me.txtLand._numbersOnlyTrennzeichen = True
Me.txtLand._Prozent = False
Me.txtLand._ShortDateNew = False
Me.txtLand._ShortDateOnly = False
Me.txtLand._TimeOnly = False
Me.txtLand._TimeOnly_Seconds = False
Me.txtLand._value = Nothing
Me.txtLand._Waehrung = False
Me.txtLand._WaehrungZeichen = True
@@ -717,10 +812,12 @@ Partial Class usrcntlCMR
Me.txtOrt._DateTimeOnly = False
Me.txtOrt._numbersOnly = False
Me.txtOrt._numbersOnlyKommastellen = ""
Me.txtOrt._numbersOnlyTrennzeichen = True
Me.txtOrt._Prozent = False
Me.txtOrt._ShortDateNew = False
Me.txtOrt._ShortDateOnly = False
Me.txtOrt._TimeOnly = False
Me.txtOrt._TimeOnly_Seconds = False
Me.txtOrt._value = Nothing
Me.txtOrt._Waehrung = False
Me.txtOrt._WaehrungZeichen = True
@@ -753,10 +850,12 @@ Partial Class usrcntlCMR
Me.txtAnweisungenDesAbsenders._DateTimeOnly = False
Me.txtAnweisungenDesAbsenders._numbersOnly = False
Me.txtAnweisungenDesAbsenders._numbersOnlyKommastellen = ""
Me.txtAnweisungenDesAbsenders._numbersOnlyTrennzeichen = True
Me.txtAnweisungenDesAbsenders._Prozent = False
Me.txtAnweisungenDesAbsenders._ShortDateNew = False
Me.txtAnweisungenDesAbsenders._ShortDateOnly = False
Me.txtAnweisungenDesAbsenders._TimeOnly = False
Me.txtAnweisungenDesAbsenders._TimeOnly_Seconds = False
Me.txtAnweisungenDesAbsenders._value = Nothing
Me.txtAnweisungenDesAbsenders._Waehrung = False
Me.txtAnweisungenDesAbsenders._WaehrungZeichen = True
@@ -802,10 +901,12 @@ Partial Class usrcntlCMR
Me.txtBesondereVereinbarungen._DateTimeOnly = False
Me.txtBesondereVereinbarungen._numbersOnly = False
Me.txtBesondereVereinbarungen._numbersOnlyKommastellen = ""
Me.txtBesondereVereinbarungen._numbersOnlyTrennzeichen = True
Me.txtBesondereVereinbarungen._Prozent = False
Me.txtBesondereVereinbarungen._ShortDateNew = False
Me.txtBesondereVereinbarungen._ShortDateOnly = False
Me.txtBesondereVereinbarungen._TimeOnly = False
Me.txtBesondereVereinbarungen._TimeOnly_Seconds = False
Me.txtBesondereVereinbarungen._value = Nothing
Me.txtBesondereVereinbarungen._Waehrung = False
Me.txtBesondereVereinbarungen._WaehrungZeichen = True
@@ -852,10 +953,12 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsLand._DateTimeOnly = False
Me.txtAuslieferungsLand._numbersOnly = False
Me.txtAuslieferungsLand._numbersOnlyKommastellen = ""
Me.txtAuslieferungsLand._numbersOnlyTrennzeichen = True
Me.txtAuslieferungsLand._Prozent = False
Me.txtAuslieferungsLand._ShortDateNew = False
Me.txtAuslieferungsLand._ShortDateOnly = False
Me.txtAuslieferungsLand._TimeOnly = False
Me.txtAuslieferungsLand._TimeOnly_Seconds = False
Me.txtAuslieferungsLand._value = Nothing
Me.txtAuslieferungsLand._Waehrung = False
Me.txtAuslieferungsLand._WaehrungZeichen = True
@@ -875,10 +978,12 @@ Partial Class usrcntlCMR
Me.txtAuslieferungsort._DateTimeOnly = False
Me.txtAuslieferungsort._numbersOnly = False
Me.txtAuslieferungsort._numbersOnlyKommastellen = ""
Me.txtAuslieferungsort._numbersOnlyTrennzeichen = True
Me.txtAuslieferungsort._Prozent = False
Me.txtAuslieferungsort._ShortDateNew = False
Me.txtAuslieferungsort._ShortDateOnly = False
Me.txtAuslieferungsort._TimeOnly = False
Me.txtAuslieferungsort._TimeOnly_Seconds = False
Me.txtAuslieferungsort._value = Nothing
Me.txtAuslieferungsort._Waehrung = False
Me.txtAuslieferungsort._WaehrungZeichen = True
@@ -918,80 +1023,27 @@ Partial Class usrcntlCMR
Me.pic.TabIndex = 3
Me.pic.TabStop = False
'
'DataGridViewTextBoxColumn2
'LinkLabel8
'
Me.DataGridViewTextBoxColumn2.HeaderText = "Anzahl"
Me.DataGridViewTextBoxColumn2.MaxInputLength = 50
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
Me.DataGridViewTextBoxColumn2.Width = 50
Me.LinkLabel8.AutoSize = True
Me.LinkLabel8.BackColor = System.Drawing.Color.White
Me.LinkLabel8.Location = New System.Drawing.Point(200, 1024)
Me.LinkLabel8.Name = "LinkLabel8"
Me.LinkLabel8.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel8.TabIndex = 497
Me.LinkLabel8.TabStop = True
Me.LinkLabel8.Text = "AMBAR"
'
'DataGridViewTextBoxColumn3
'LinkLabel9
'
Me.DataGridViewTextBoxColumn3.HeaderText = "Art der Verpack."
Me.DataGridViewTextBoxColumn3.MaxInputLength = 50
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
Me.DataGridViewTextBoxColumn3.Width = 110
'
'DataGridViewTextBoxColumn4
'
Me.DataGridViewTextBoxColumn4.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn4.HeaderText = "Bezeichnung"
Me.DataGridViewTextBoxColumn4.MaxInputLength = 80
Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4"
'
'DataGridViewTextBoxColumn6
'
Me.DataGridViewTextBoxColumn6.HeaderText = "Brutto Gewicht"
Me.DataGridViewTextBoxColumn6.MaxInputLength = 53
Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6"
Me.DataGridViewTextBoxColumn6.Width = 274
'
'ZeNr
'
Me.ZeNr.HeaderText = "Zeichen/Nr."
Me.ZeNr.MaxInputLength = 50
Me.ZeNr.Name = "ZeNr"
Me.ZeNr.Width = 75
'
'anz
'
Me.anz.HeaderText = "Anzahl"
Me.anz.MaxInputLength = 50
Me.anz.Name = "anz"
Me.anz.Width = 50
'
'art
'
Me.art.HeaderText = "Art der Verpack."
Me.art.Name = "art"
Me.art.Width = 107
'
'bez
'
Me.bez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.bez.HeaderText = "Bezeichnung"
Me.bez.MaxInputLength = 80
Me.bez.Name = "bez"
'
'statNr
'
Me.statNr.HeaderText = "Statistik Nr."
Me.statNr.MaxInputLength = 10
Me.statNr.Name = "statNr"
Me.statNr.Width = 84
'
'gewicht
'
Me.gewicht.HeaderText = "Brutto Gewicht"
Me.gewicht.MaxInputLength = 53
Me.gewicht.Name = "gewicht"
'
'umfang
'
Me.umfang.HeaderText = "Umfang"
Me.umfang.MaxInputLength = 53
Me.umfang.Name = "umfang"
Me.umfang.Width = 90
Me.LinkLabel9.AutoSize = True
Me.LinkLabel9.BackColor = System.Drawing.Color.White
Me.LinkLabel9.Location = New System.Drawing.Point(492, 1024)
Me.LinkLabel9.Name = "LinkLabel9"
Me.LinkLabel9.Size = New System.Drawing.Size(45, 13)
Me.LinkLabel9.TabIndex = 498
Me.LinkLabel9.TabStop = True
Me.LinkLabel9.Text = "AMBAR"
'
'usrcntlCMR
'
@@ -1074,4 +1126,6 @@ Partial Class usrcntlCMR
Friend WithEvents statNr As DataGridViewTextBoxColumn
Friend WithEvents gewicht As DataGridViewTextBoxColumn
Friend WithEvents umfang As DataGridViewTextBoxColumn
Friend WithEvents LinkLabel9 As LinkLabel
Friend WithEvents LinkLabel8 As LinkLabel
End Class

13
SDL/Formulare/CMR/usrcntlCMR.vb
View File

@@ -12,6 +12,9 @@
dgvLadungen.Rows.Add("", "", "", "", "", "", "")
dgvLadungenKurz.Rows.Add("", "", "", "", "", "", "")
Next
txtUnterschriftAbsender.Text = getverag(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
End Sub
Public Sub init()
@@ -75,6 +78,8 @@
Return "ATILLA Spedition GmbH" & Environment.NewLine & "A 4975 Suben, Nr. 15"
Case "IMEX"
Return "IMEX Customs Service GmbH" & Environment.NewLine & "A 4975 Suben, Nr. 15"
Case "AMBAR"
Return "AMBAR Logistic Services GmbH" & Environment.NewLine & "DE 83435 Bad Reichenhall, Reichenhallerstrasse 62"
End Select
Return ""
@@ -112,4 +117,12 @@
Private Sub LinkLabel7_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel7.LinkClicked
txtUnterschriftFrachtführer.Text = getverag("IMEX")
End Sub
Private Sub LinkLabel8_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel8.LinkClicked
txtUnterschriftAbsender.Text = getverag("AMBAR")
End Sub
Private Sub LinkLabel9_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel9.LinkClicked
txtUnterschriftFrachtführer.Text = getverag("AMBAR")
End Sub
End Class

2
SDL/SDL.vbproj
View File

@@ -90,7 +90,7 @@
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />