Digicust und ATEZ

2023-09-13 17:18:46 +02:00
parent 78a8564267
commit 0c601a9402
3 changed files with 166 additions and 152 deletions
--- a/Aviso/frmDigicust.Designer.vb
+++ b/Aviso/frmDigicust.Designer.vb
@@ -26,26 +26,27 @@ Partial Class frmDigicust
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust))
        Me.Button1 = New System.Windows.Forms.Button()
        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.txtVorpapierT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtLWKLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.UsrCntl_Consignee = New SDL.usrCntlAdresse()
+        Me.txtVorpapier = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.lblVorpapier = New System.Windows.Forms.Label()
        Me.lblInfo = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.usrCntl_consignor = New SDL.usrCntlAdresse()
        Me.Label4 = New System.Windows.Forms.Label()
+        Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
        Me.Label3 = New System.Windows.Forms.Label()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.txtDyMandant = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.txtDyNiederlassung = New System.Windows.Forms.Label()
        Me.lblBezugsnummer = New System.Windows.Forms.Label()
-        Me.lblVorpapier = New System.Windows.Forms.Label()
-        Me.UsrCntl_Consignee = New SDL.usrCntlAdresse()
-        Me.txtVorpapier = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.usrCntl_consignor = New SDL.usrCntlAdresse()
-        Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.txtLWKLand = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtVorpapierT = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cbxAviso = New System.Windows.Forms.CheckBox()
        Me.pnlHead.SuspendLayout()
        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -70,6 +71,7 @@ Partial Class frmDigicust
        '
        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.cbxAviso)
        Me.pnlHead.Controls.Add(Me.txtVorpapierT)
        Me.pnlHead.Controls.Add(Me.txtLWKLand)
        Me.pnlHead.Controls.Add(Me.UsrCntl_Consignee)
@@ -94,99 +96,51 @@ Partial Class frmDigicust
        Me.pnlHead.Size = New System.Drawing.Size(606, 706)
        Me.pnlHead.TabIndex = 112
        '
-        'lblInfo
+        'txtVorpapierT
        '
-        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblInfo.ForeColor = System.Drawing.Color.Red
-        Me.lblInfo.Location = New System.Drawing.Point(64, 310)
-        Me.lblInfo.Name = "lblInfo"
-        Me.lblInfo.Size = New System.Drawing.Size(460, 27)
-        Me.lblInfo.TabIndex = 148
+        Me.txtVorpapierT._DateTimeOnly = False
+        Me.txtVorpapierT._numbersOnly = False
+        Me.txtVorpapierT._numbersOnlyKommastellen = ""
+        Me.txtVorpapierT._numbersOnlyTrennzeichen = True
+        Me.txtVorpapierT._Prozent = False
+        Me.txtVorpapierT._ShortDateNew = False
+        Me.txtVorpapierT._ShortDateOnly = False
+        Me.txtVorpapierT._TimeOnly = False
+        Me.txtVorpapierT._TimeOnly_Seconds = False
+        Me.txtVorpapierT._value = ""
+        Me.txtVorpapierT._Waehrung = False
+        Me.txtVorpapierT._WaehrungZeichen = True
+        Me.txtVorpapierT.ForeColor = System.Drawing.Color.Black
+        Me.txtVorpapierT.Location = New System.Drawing.Point(410, 86)
+        Me.txtVorpapierT.MaxLineLength = -1
+        Me.txtVorpapierT.MaxLines_Warning = ""
+        Me.txtVorpapierT.MaxLines_Warning_Label = Nothing
+        Me.txtVorpapierT.Name = "txtVorpapierT"
+        Me.txtVorpapierT.Size = New System.Drawing.Size(33, 20)
+        Me.txtVorpapierT.TabIndex = 155
        '
-        'Label6
+        'txtLWKLand
        '
-        Me.Label6.Location = New System.Drawing.Point(10, 337)
-        Me.Label6.Name = "Label6"
-        Me.Label6.Size = New System.Drawing.Size(135, 13)
-        Me.Label6.TabIndex = 147
-        Me.Label6.Text = "Dokumente:"
-        '
-        'Label8
-        '
-        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label8.AutoSize = True
-        Me.Label8.Location = New System.Drawing.Point(14, 58)
-        Me.Label8.Name = "Label8"
-        Me.Label8.Size = New System.Drawing.Size(57, 13)
-        Me.Label8.TabIndex = 146
-        Me.Label8.Text = "Stammref.:"
-        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
-        '
-        'Label4
-        '
-        Me.Label4.Location = New System.Drawing.Point(14, 85)
-        Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(78, 20)
-        Me.Label4.TabIndex = 114
-        Me.Label4.Text = "Bes-Zollstelle:"
-        '
-        'Label3
-        '
-        Me.Label3.Location = New System.Drawing.Point(319, 61)
-        Me.Label3.Name = "Label3"
-        Me.Label3.Size = New System.Drawing.Size(50, 15)
-        Me.Label3.TabIndex = 113
-        Me.Label3.Text = "LKW-KZ:"
-        '
-        'txtDyMandant
-        '
-        Me.txtDyMandant.BackColor = System.Drawing.Color.White
-        Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
-        Me.txtDyMandant.Name = "txtDyMandant"
-        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
-        Me.txtDyMandant.TabIndex = 109
-        Me.txtDyMandant.Text = "VERG"
-        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
-        '
-        'Label1
-        '
-        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Label1.AutoSize = True
-        Me.Label1.BackColor = System.Drawing.Color.White
-        Me.Label1.Location = New System.Drawing.Point(318, 2)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(82, 13)
-        Me.Label1.TabIndex = 106
-        Me.Label1.Text = "Bezugsnummer:"
-        '
-        'txtDyNiederlassung
-        '
-        Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
-        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
-        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
-        Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
-        Me.txtDyNiederlassung.TabIndex = 108
-        Me.txtDyNiederlassung.Text = "SUB"
-        '
-        'lblBezugsnummer
-        '
-        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
-        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblBezugsnummer.Location = New System.Drawing.Point(406, 2)
-        Me.lblBezugsnummer.Name = "lblBezugsnummer"
-        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
-        Me.lblBezugsnummer.TabIndex = 107
-        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
-        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
-        '
-        'lblVorpapier
-        '
-        Me.lblVorpapier.Location = New System.Drawing.Point(319, 89)
-        Me.lblVorpapier.Name = "lblVorpapier"
-        Me.lblVorpapier.Size = New System.Drawing.Size(67, 13)
-        Me.lblVorpapier.TabIndex = 149
-        Me.lblVorpapier.Text = "Vorpapier"
+        Me.txtLWKLand._DateTimeOnly = False
+        Me.txtLWKLand._numbersOnly = False
+        Me.txtLWKLand._numbersOnlyKommastellen = ""
+        Me.txtLWKLand._numbersOnlyTrennzeichen = True
+        Me.txtLWKLand._Prozent = False
+        Me.txtLWKLand._ShortDateNew = False
+        Me.txtLWKLand._ShortDateOnly = False
+        Me.txtLWKLand._TimeOnly = False
+        Me.txtLWKLand._TimeOnly_Seconds = False
+        Me.txtLWKLand._value = ""
+        Me.txtLWKLand._Waehrung = False
+        Me.txtLWKLand._WaehrungZeichen = True
+        Me.txtLWKLand.ForeColor = System.Drawing.Color.Black
+        Me.txtLWKLand.Location = New System.Drawing.Point(533, 58)
+        Me.txtLWKLand.MaxLineLength = -1
+        Me.txtLWKLand.MaxLines_Warning = ""
+        Me.txtLWKLand.MaxLines_Warning_Label = Nothing
+        Me.txtLWKLand.Name = "txtLWKLand"
+        Me.txtLWKLand.Size = New System.Drawing.Size(37, 20)
+        Me.txtLWKLand.TabIndex = 154
        '
        'UsrCntl_Consignee
        '
@@ -221,6 +175,42 @@ Partial Class frmDigicust
        Me.txtVorpapier.Size = New System.Drawing.Size(121, 20)
        Me.txtVorpapier.TabIndex = 150
        '
+        'lblVorpapier
+        '
+        Me.lblVorpapier.Location = New System.Drawing.Point(319, 89)
+        Me.lblVorpapier.Name = "lblVorpapier"
+        Me.lblVorpapier.Size = New System.Drawing.Size(67, 13)
+        Me.lblVorpapier.TabIndex = 149
+        Me.lblVorpapier.Text = "Vorpapier"
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(64, 310)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 27)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(10, 337)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(14, 58)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(57, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammref.:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
        'cboStammreferenz
        '
        Me.cboStammreferenz._allowedValuesFreiText = Nothing
@@ -268,6 +258,14 @@ Partial Class frmDigicust
        Me.usrCntl_consignor.Size = New System.Drawing.Size(284, 132)
        Me.usrCntl_consignor.TabIndex = 143
        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(14, 85)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(78, 20)
+        Me.Label4.TabIndex = 114
+        Me.Label4.Text = "Bes-Zollstelle:"
+        '
        'sbBestimmungsZollstelle
        '
        Me.sbBestimmungsZollstelle._allowFreitext = False
@@ -293,6 +291,14 @@ Partial Class frmDigicust
        Me.sbBestimmungsZollstelle.TabIndex = 115
        Me.sbBestimmungsZollstelle.usrcntl = Nothing
        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(319, 61)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(50, 15)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
        'dgvAnhaenge
        '
        Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1
@@ -316,51 +322,59 @@ Partial Class frmDigicust
        Me.columnName.Name = "columnName"
        Me.columnName.ReadOnly = True
        '
-        'txtLWKLand
+        'txtDyMandant
        '
-        Me.txtLWKLand._DateTimeOnly = False
-        Me.txtLWKLand._numbersOnly = False
-        Me.txtLWKLand._numbersOnlyKommastellen = ""
-        Me.txtLWKLand._numbersOnlyTrennzeichen = True
-        Me.txtLWKLand._Prozent = False
-        Me.txtLWKLand._ShortDateNew = False
-        Me.txtLWKLand._ShortDateOnly = False
-        Me.txtLWKLand._TimeOnly = False
-        Me.txtLWKLand._TimeOnly_Seconds = False
-        Me.txtLWKLand._value = ""
-        Me.txtLWKLand._Waehrung = False
-        Me.txtLWKLand._WaehrungZeichen = True
-        Me.txtLWKLand.ForeColor = System.Drawing.Color.Black
-        Me.txtLWKLand.Location = New System.Drawing.Point(533, 58)
-        Me.txtLWKLand.MaxLineLength = -1
-        Me.txtLWKLand.MaxLines_Warning = ""
-        Me.txtLWKLand.MaxLines_Warning_Label = Nothing
-        Me.txtLWKLand.Name = "txtLWKLand"
-        Me.txtLWKLand.Size = New System.Drawing.Size(37, 20)
-        Me.txtLWKLand.TabIndex = 154
+        Me.txtDyMandant.BackColor = System.Drawing.Color.White
+        Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
+        Me.txtDyMandant.Name = "txtDyMandant"
+        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
+        Me.txtDyMandant.TabIndex = 109
+        Me.txtDyMandant.Text = "VERG"
+        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
-        'txtVorpapierT
+        'Label1
        '
-        Me.txtVorpapierT._DateTimeOnly = False
-        Me.txtVorpapierT._numbersOnly = False
-        Me.txtVorpapierT._numbersOnlyKommastellen = ""
-        Me.txtVorpapierT._numbersOnlyTrennzeichen = True
-        Me.txtVorpapierT._Prozent = False
-        Me.txtVorpapierT._ShortDateNew = False
-        Me.txtVorpapierT._ShortDateOnly = False
-        Me.txtVorpapierT._TimeOnly = False
-        Me.txtVorpapierT._TimeOnly_Seconds = False
-        Me.txtVorpapierT._value = ""
-        Me.txtVorpapierT._Waehrung = False
-        Me.txtVorpapierT._WaehrungZeichen = True
-        Me.txtVorpapierT.ForeColor = System.Drawing.Color.Black
-        Me.txtVorpapierT.Location = New System.Drawing.Point(410, 86)
-        Me.txtVorpapierT.MaxLineLength = -1
-        Me.txtVorpapierT.MaxLines_Warning = ""
-        Me.txtVorpapierT.MaxLines_Warning_Label = Nothing
-        Me.txtVorpapierT.Name = "txtVorpapierT"
-        Me.txtVorpapierT.Size = New System.Drawing.Size(33, 20)
-        Me.txtVorpapierT.TabIndex = 155
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(318, 2)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'txtDyNiederlassung
+        '
+        Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
+        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
+        Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
+        Me.txtDyNiederlassung.TabIndex = 108
+        Me.txtDyNiederlassung.Text = "SUB"
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(406, 2)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'cbxAviso
+        '
+        Me.cbxAviso.AutoSize = True
+        Me.cbxAviso.Checked = True
+        Me.cbxAviso.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxAviso.Location = New System.Drawing.Point(409, 35)
+        Me.cbxAviso.Name = "cbxAviso"
+        Me.cbxAviso.Size = New System.Drawing.Size(150, 17)
+        Me.cbxAviso.TabIndex = 156
+        Me.cbxAviso.Text = "Daten aus Aviso schicken"
+        Me.cbxAviso.UseVisualStyleBackColor = True
        '
        'frmDigicust
        '
@@ -402,4 +416,5 @@ Partial Class frmDigicust
    Friend WithEvents lblVorpapier As Label
    Friend WithEvents txtVorpapierT As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtLWKLand As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxAviso As CheckBox
 End Class