diff --git a/Aviso/Aviso.vbproj b/Aviso/Aviso.vbproj index a66f6d5..a7c9d2c 100644 --- a/Aviso/Aviso.vbproj +++ b/Aviso/Aviso.vbproj @@ -540,6 +540,12 @@ Form + + frmATEZNCTS.vb + + + Form + frmATZollEingereichtSetzen.vb @@ -1122,6 +1128,9 @@ frmAvisoBenachrichtigungReminderBestaetigen.vb + + frmATEZNCTS.vb + frmATZollEingereichtSetzen.vb diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index d9b1a04..9bab66d 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmATEZNCTS.Designer.vb b/Aviso/frmATEZNCTS.Designer.vb new file mode 100644 index 0000000..73274a6 --- /dev/null +++ b/Aviso/frmATEZNCTS.Designer.vb @@ -0,0 +1,963 @@ + +Partial Class frmATEZNCTS + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + 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.Label9 = New System.Windows.Forms.Label() + Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Button1 = New System.Windows.Forms.Button() + Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.lklRoutenauswahl = New System.Windows.Forms.LinkLabel() + Me.sbRoute5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute7 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute6 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute4 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbRoute1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label14 = New System.Windows.Forms.Label() + Me.sbDurchgangszollstelle5 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle9 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle8 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle7 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle6 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle4 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle3 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle2 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.sbDurchgangszollstelle1 = New VERAG_PROG_ALLGEMEIN.MySearchBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.lblC = New System.Windows.Forms.Label() + Me.txtTransporttemp = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxTemperatur = New System.Windows.Forms.CheckBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.dtpDat = New System.Windows.Forms.DateTimePicker() + Me.usrCntl_Carrier = New SDL.usrCntlAdresse() + Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox() + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'txtDyMandant + ' + Me.txtDyMandant.BackColor = System.Drawing.Color.White + Me.txtDyMandant.Location = New System.Drawing.Point(4, 7) + Me.txtDyMandant.Name = "txtDyMandant" + Me.txtDyMandant.Size = New System.Drawing.Size(44, 13) + Me.txtDyMandant.TabIndex = 23 + 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(192, 7) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(82, 13) + Me.Label1.TabIndex = 20 + Me.Label1.Text = "Bezugsnummer:" + ' + 'txtDyNiederlassung + ' + Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White + Me.txtDyNiederlassung.Location = New System.Drawing.Point(54, 8) + Me.txtDyNiederlassung.Name = "txtDyNiederlassung" + Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12) + Me.txtDyNiederlassung.TabIndex = 22 + 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(280, 7) + Me.lblBezugsnummer.Name = "lblBezugsnummer" + Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23) + Me.lblBezugsnummer.TabIndex = 21 + Me.lblBezugsnummer.Text = "4800/000000/17 AAA" + Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight + ' + 'Label9 + ' + Me.Label9.Location = New System.Drawing.Point(12, 83) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(103, 17) + Me.Label9.TabIndex = 24 + Me.Label9.Text = "Abgangs-Zollstelle:" + ' + 'sbAbgangZollstelle + ' + Me.sbAbgangZollstelle._allowFreitext = False + Me.sbAbgangZollstelle._AllowSetValue = False + Me.sbAbgangZollstelle._allowSpaceAsSplitter = False + Me.sbAbgangZollstelle._autoSizeGross = False + Me.sbAbgangZollstelle._hideIfListEmpty = True + Me.sbAbgangZollstelle._value = "" + Me.sbAbgangZollstelle.conn_art = "FMZOLL" + Me.sbAbgangZollstelle.dgvpos = "LEFT" + Me.sbAbgangZollstelle.DISPLAY_PARAM = Nothing + Me.sbAbgangZollstelle.INVISIBLE_COLUMNS = Nothing + Me.sbAbgangZollstelle.key_visible = False + Me.sbAbgangZollstelle.KEYPARAM = Nothing + Me.sbAbgangZollstelle.Location = New System.Drawing.Point(153, 80) + Me.sbAbgangZollstelle.Name = "sbAbgangZollstelle" + Me.sbAbgangZollstelle.searchActive = True + Me.sbAbgangZollstelle.Size = New System.Drawing.Size(196, 20) + Me.sbAbgangZollstelle.SQL_ORDER_BY = Nothing + Me.sbAbgangZollstelle.SQL_SELECT = Nothing + Me.sbAbgangZollstelle.SQL_WHERE = Nothing + Me.sbAbgangZollstelle.SQL_WhereParamList = Nothing + Me.sbAbgangZollstelle.TabIndex = 25 + Me.sbAbgangZollstelle.usrcntl = Nothing + ' + 'Button1 + ' + Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Button1.BackColor = System.Drawing.Color.White + Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.TopCenter + Me.Button1.Location = New System.Drawing.Point(153, 710) + Me.Button1.Margin = New System.Windows.Forms.Padding(2) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(159, 42) + Me.Button1.TabIndex = 26 + Me.Button1.Text = "An ATEZ senden -->" + Me.Button1.UseVisualStyleBackColor = False + ' + 'dgvAnhaenge + ' + Me.dgvAnhaenge.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvAnhaenge.AllowUserToAddRows = False + Me.dgvAnhaenge.AllowUserToDeleteRows = False + Me.dgvAnhaenge.AllowUserToResizeColumns = False + Me.dgvAnhaenge.AllowUserToResizeRows = False + Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White + Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvAnhaenge.ColumnHeadersVisible = False + Me.dgvAnhaenge.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName}) + Me.dgvAnhaenge.Location = New System.Drawing.Point(15, 605) + Me.dgvAnhaenge.Name = "dgvAnhaenge" + Me.dgvAnhaenge.ReadOnly = True + Me.dgvAnhaenge.RowHeadersVisible = False + Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 69) + Me.dgvAnhaenge.TabIndex = 40 + ' + 'columnName + ' + Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.columnName.HeaderText = "Name" + Me.columnName.Name = "columnName" + Me.columnName.ReadOnly = True + ' + 'Label2 + ' + Me.Label2.Location = New System.Drawing.Point(15, 589) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(135, 13) + Me.Label2.TabIndex = 41 + Me.Label2.Text = "Dokumente:" + ' + 'Label3 + ' + Me.Label3.Location = New System.Drawing.Point(12, 57) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(103, 17) + Me.Label3.TabIndex = 42 + Me.Label3.Text = "LKW-KZ:" + ' + 'Label4 + ' + Me.Label4.Location = New System.Drawing.Point(12, 106) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(121, 17) + Me.Label4.TabIndex = 44 + Me.Label4.Text = "Bestimmungs-Zollstelle:" + ' + 'sbBestimmungsZollstelle + ' + Me.sbBestimmungsZollstelle._allowFreitext = False + Me.sbBestimmungsZollstelle._AllowSetValue = False + Me.sbBestimmungsZollstelle._allowSpaceAsSplitter = False + Me.sbBestimmungsZollstelle._autoSizeGross = False + Me.sbBestimmungsZollstelle._hideIfListEmpty = True + Me.sbBestimmungsZollstelle._value = "" + Me.sbBestimmungsZollstelle.conn_art = "FMZOLL" + Me.sbBestimmungsZollstelle.dgvpos = "LEFT" + Me.sbBestimmungsZollstelle.DISPLAY_PARAM = Nothing + Me.sbBestimmungsZollstelle.INVISIBLE_COLUMNS = Nothing + Me.sbBestimmungsZollstelle.key_visible = False + Me.sbBestimmungsZollstelle.KEYPARAM = Nothing + Me.sbBestimmungsZollstelle.Location = New System.Drawing.Point(153, 106) + Me.sbBestimmungsZollstelle.Name = "sbBestimmungsZollstelle" + Me.sbBestimmungsZollstelle.searchActive = True + Me.sbBestimmungsZollstelle.Size = New System.Drawing.Size(196, 20) + Me.sbBestimmungsZollstelle.SQL_ORDER_BY = Nothing + Me.sbBestimmungsZollstelle.SQL_SELECT = Nothing + Me.sbBestimmungsZollstelle.SQL_WHERE = Nothing + Me.sbBestimmungsZollstelle.SQL_WhereParamList = Nothing + Me.sbBestimmungsZollstelle.TabIndex = 45 + Me.sbBestimmungsZollstelle.usrcntl = Nothing + ' + 'lklRoutenauswahl + ' + Me.lklRoutenauswahl.AutoSize = True + Me.lklRoutenauswahl.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.lklRoutenauswahl.Location = New System.Drawing.Point(394, 483) + Me.lklRoutenauswahl.Name = "lklRoutenauswahl" + Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13) + Me.lklRoutenauswahl.TabIndex = 54 + Me.lklRoutenauswahl.TabStop = True + Me.lklRoutenauswahl.Text = "Routenauswahl" + ' + 'sbRoute5 + ' + Me.sbRoute5._allowFreitext = False + Me.sbRoute5._AllowSetValue = False + Me.sbRoute5._allowSpaceAsSplitter = False + Me.sbRoute5._autoSizeGross = False + Me.sbRoute5._hideIfListEmpty = True + Me.sbRoute5._value = "" + Me.sbRoute5.conn_art = "FMZOLL" + Me.sbRoute5.dgvpos = "LEFT" + Me.sbRoute5.DISPLAY_PARAM = Nothing + Me.sbRoute5.INVISIBLE_COLUMNS = Nothing + Me.sbRoute5.key_visible = False + Me.sbRoute5.KEYPARAM = Nothing + Me.sbRoute5.Location = New System.Drawing.Point(168, 518) + Me.sbRoute5.Name = "sbRoute5" + Me.sbRoute5.searchActive = True + Me.sbRoute5.Size = New System.Drawing.Size(154, 20) + Me.sbRoute5.SQL_ORDER_BY = Nothing + Me.sbRoute5.SQL_SELECT = Nothing + Me.sbRoute5.SQL_WHERE = Nothing + Me.sbRoute5.SQL_WhereParamList = Nothing + Me.sbRoute5.TabIndex = 59 + Me.sbRoute5.usrcntl = Nothing + ' + 'sbRoute9 + ' + Me.sbRoute9._allowFreitext = False + Me.sbRoute9._AllowSetValue = False + Me.sbRoute9._allowSpaceAsSplitter = False + Me.sbRoute9._autoSizeGross = False + Me.sbRoute9._hideIfListEmpty = True + Me.sbRoute9._value = "" + Me.sbRoute9.conn_art = "FMZOLL" + Me.sbRoute9.dgvpos = "LEFT" + Me.sbRoute9.DISPLAY_PARAM = Nothing + Me.sbRoute9.INVISIBLE_COLUMNS = Nothing + Me.sbRoute9.key_visible = False + Me.sbRoute9.KEYPARAM = Nothing + Me.sbRoute9.Location = New System.Drawing.Point(321, 537) + Me.sbRoute9.Name = "sbRoute9" + Me.sbRoute9.searchActive = True + Me.sbRoute9.Size = New System.Drawing.Size(154, 20) + Me.sbRoute9.SQL_ORDER_BY = Nothing + Me.sbRoute9.SQL_SELECT = Nothing + Me.sbRoute9.SQL_WHERE = Nothing + Me.sbRoute9.SQL_WhereParamList = Nothing + Me.sbRoute9.TabIndex = 63 + Me.sbRoute9.usrcntl = Nothing + ' + 'sbRoute8 + ' + Me.sbRoute8._allowFreitext = False + Me.sbRoute8._AllowSetValue = False + Me.sbRoute8._allowSpaceAsSplitter = False + Me.sbRoute8._autoSizeGross = False + Me.sbRoute8._hideIfListEmpty = True + Me.sbRoute8._value = "" + Me.sbRoute8.conn_art = "FMZOLL" + Me.sbRoute8.dgvpos = "LEFT" + Me.sbRoute8.DISPLAY_PARAM = Nothing + Me.sbRoute8.INVISIBLE_COLUMNS = Nothing + Me.sbRoute8.key_visible = False + Me.sbRoute8.KEYPARAM = Nothing + Me.sbRoute8.Location = New System.Drawing.Point(168, 537) + Me.sbRoute8.Name = "sbRoute8" + Me.sbRoute8.searchActive = True + Me.sbRoute8.Size = New System.Drawing.Size(154, 20) + Me.sbRoute8.SQL_ORDER_BY = Nothing + Me.sbRoute8.SQL_SELECT = Nothing + Me.sbRoute8.SQL_WHERE = Nothing + Me.sbRoute8.SQL_WhereParamList = Nothing + Me.sbRoute8.TabIndex = 62 + Me.sbRoute8.usrcntl = Nothing + ' + 'sbRoute7 + ' + Me.sbRoute7._allowFreitext = False + Me.sbRoute7._AllowSetValue = False + Me.sbRoute7._allowSpaceAsSplitter = False + Me.sbRoute7._autoSizeGross = False + Me.sbRoute7._hideIfListEmpty = True + Me.sbRoute7._value = "" + Me.sbRoute7.conn_art = "FMZOLL" + Me.sbRoute7.dgvpos = "LEFT" + Me.sbRoute7.DISPLAY_PARAM = Nothing + Me.sbRoute7.INVISIBLE_COLUMNS = Nothing + Me.sbRoute7.key_visible = False + Me.sbRoute7.KEYPARAM = Nothing + Me.sbRoute7.Location = New System.Drawing.Point(15, 537) + Me.sbRoute7.Name = "sbRoute7" + Me.sbRoute7.searchActive = True + Me.sbRoute7.Size = New System.Drawing.Size(154, 20) + Me.sbRoute7.SQL_ORDER_BY = Nothing + Me.sbRoute7.SQL_SELECT = Nothing + Me.sbRoute7.SQL_WHERE = Nothing + Me.sbRoute7.SQL_WhereParamList = Nothing + Me.sbRoute7.TabIndex = 61 + Me.sbRoute7.usrcntl = Nothing + ' + 'sbRoute6 + ' + Me.sbRoute6._allowFreitext = False + Me.sbRoute6._AllowSetValue = False + Me.sbRoute6._allowSpaceAsSplitter = False + Me.sbRoute6._autoSizeGross = False + Me.sbRoute6._hideIfListEmpty = True + Me.sbRoute6._value = "" + Me.sbRoute6.conn_art = "FMZOLL" + Me.sbRoute6.dgvpos = "LEFT" + Me.sbRoute6.DISPLAY_PARAM = Nothing + Me.sbRoute6.INVISIBLE_COLUMNS = Nothing + Me.sbRoute6.key_visible = False + Me.sbRoute6.KEYPARAM = Nothing + Me.sbRoute6.Location = New System.Drawing.Point(321, 518) + Me.sbRoute6.Name = "sbRoute6" + Me.sbRoute6.searchActive = True + Me.sbRoute6.Size = New System.Drawing.Size(154, 20) + Me.sbRoute6.SQL_ORDER_BY = Nothing + Me.sbRoute6.SQL_SELECT = Nothing + Me.sbRoute6.SQL_WHERE = Nothing + Me.sbRoute6.SQL_WhereParamList = Nothing + Me.sbRoute6.TabIndex = 60 + Me.sbRoute6.usrcntl = Nothing + ' + 'sbRoute4 + ' + Me.sbRoute4._allowFreitext = False + Me.sbRoute4._AllowSetValue = False + Me.sbRoute4._allowSpaceAsSplitter = False + Me.sbRoute4._autoSizeGross = False + Me.sbRoute4._hideIfListEmpty = True + Me.sbRoute4._value = "" + Me.sbRoute4.conn_art = "FMZOLL" + Me.sbRoute4.dgvpos = "LEFT" + Me.sbRoute4.DISPLAY_PARAM = Nothing + Me.sbRoute4.INVISIBLE_COLUMNS = Nothing + Me.sbRoute4.key_visible = False + Me.sbRoute4.KEYPARAM = Nothing + Me.sbRoute4.Location = New System.Drawing.Point(15, 518) + Me.sbRoute4.Name = "sbRoute4" + Me.sbRoute4.searchActive = True + Me.sbRoute4.Size = New System.Drawing.Size(154, 20) + Me.sbRoute4.SQL_ORDER_BY = Nothing + Me.sbRoute4.SQL_SELECT = Nothing + Me.sbRoute4.SQL_WHERE = Nothing + Me.sbRoute4.SQL_WhereParamList = Nothing + Me.sbRoute4.TabIndex = 58 + Me.sbRoute4.usrcntl = Nothing + ' + 'sbRoute3 + ' + Me.sbRoute3._allowFreitext = False + Me.sbRoute3._AllowSetValue = False + Me.sbRoute3._allowSpaceAsSplitter = False + Me.sbRoute3._autoSizeGross = False + Me.sbRoute3._hideIfListEmpty = True + Me.sbRoute3._value = "" + Me.sbRoute3.conn_art = "FMZOLL" + Me.sbRoute3.dgvpos = "LEFT" + Me.sbRoute3.DISPLAY_PARAM = Nothing + Me.sbRoute3.INVISIBLE_COLUMNS = Nothing + Me.sbRoute3.key_visible = False + Me.sbRoute3.KEYPARAM = Nothing + Me.sbRoute3.Location = New System.Drawing.Point(321, 499) + Me.sbRoute3.Name = "sbRoute3" + Me.sbRoute3.searchActive = True + Me.sbRoute3.Size = New System.Drawing.Size(154, 20) + Me.sbRoute3.SQL_ORDER_BY = Nothing + Me.sbRoute3.SQL_SELECT = Nothing + Me.sbRoute3.SQL_WHERE = Nothing + Me.sbRoute3.SQL_WhereParamList = Nothing + Me.sbRoute3.TabIndex = 57 + Me.sbRoute3.usrcntl = Nothing + ' + 'sbRoute2 + ' + Me.sbRoute2._allowFreitext = False + Me.sbRoute2._AllowSetValue = False + Me.sbRoute2._allowSpaceAsSplitter = False + Me.sbRoute2._autoSizeGross = False + Me.sbRoute2._hideIfListEmpty = True + Me.sbRoute2._value = "" + Me.sbRoute2.conn_art = "FMZOLL" + Me.sbRoute2.dgvpos = "LEFT" + Me.sbRoute2.DISPLAY_PARAM = Nothing + Me.sbRoute2.INVISIBLE_COLUMNS = Nothing + Me.sbRoute2.key_visible = False + Me.sbRoute2.KEYPARAM = Nothing + Me.sbRoute2.Location = New System.Drawing.Point(168, 499) + Me.sbRoute2.Name = "sbRoute2" + Me.sbRoute2.searchActive = True + Me.sbRoute2.Size = New System.Drawing.Size(154, 20) + Me.sbRoute2.SQL_ORDER_BY = Nothing + Me.sbRoute2.SQL_SELECT = Nothing + Me.sbRoute2.SQL_WHERE = Nothing + Me.sbRoute2.SQL_WhereParamList = Nothing + Me.sbRoute2.TabIndex = 56 + Me.sbRoute2.usrcntl = Nothing + ' + 'sbRoute1 + ' + Me.sbRoute1._allowFreitext = False + Me.sbRoute1._AllowSetValue = False + Me.sbRoute1._allowSpaceAsSplitter = False + Me.sbRoute1._autoSizeGross = False + Me.sbRoute1._hideIfListEmpty = True + Me.sbRoute1._value = "" + Me.sbRoute1.conn_art = "FMZOLL" + Me.sbRoute1.dgvpos = "LEFT" + Me.sbRoute1.DISPLAY_PARAM = Nothing + Me.sbRoute1.INVISIBLE_COLUMNS = Nothing + Me.sbRoute1.key_visible = False + Me.sbRoute1.KEYPARAM = Nothing + Me.sbRoute1.Location = New System.Drawing.Point(15, 499) + Me.sbRoute1.Name = "sbRoute1" + Me.sbRoute1.searchActive = True + Me.sbRoute1.Size = New System.Drawing.Size(154, 20) + Me.sbRoute1.SQL_ORDER_BY = Nothing + Me.sbRoute1.SQL_SELECT = Nothing + Me.sbRoute1.SQL_WHERE = Nothing + Me.sbRoute1.SQL_WhereParamList = Nothing + Me.sbRoute1.TabIndex = 55 + Me.sbRoute1.usrcntl = Nothing + ' + 'Label14 + ' + Me.Label14.Location = New System.Drawing.Point(12, 483) + Me.Label14.Name = "Label14" + Me.Label14.Size = New System.Drawing.Size(135, 13) + Me.Label14.TabIndex = 53 + Me.Label14.Text = "Route:" + ' + 'sbDurchgangszollstelle5 + ' + Me.sbDurchgangszollstelle5._allowFreitext = False + Me.sbDurchgangszollstelle5._AllowSetValue = False + Me.sbDurchgangszollstelle5._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle5._autoSizeGross = False + Me.sbDurchgangszollstelle5._hideIfListEmpty = True + Me.sbDurchgangszollstelle5._value = "" + Me.sbDurchgangszollstelle5.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle5.dgvpos = "LEFT" + Me.sbDurchgangszollstelle5.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle5.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle5.key_visible = False + Me.sbDurchgangszollstelle5.KEYPARAM = Nothing + Me.sbDurchgangszollstelle5.Location = New System.Drawing.Point(168, 423) + Me.sbDurchgangszollstelle5.Name = "sbDurchgangszollstelle5" + Me.sbDurchgangszollstelle5.searchActive = True + Me.sbDurchgangszollstelle5.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle5.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle5.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle5.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle5.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle5.TabIndex = 69 + Me.sbDurchgangszollstelle5.usrcntl = Nothing + ' + 'sbDurchgangszollstelle9 + ' + Me.sbDurchgangszollstelle9._allowFreitext = False + Me.sbDurchgangszollstelle9._AllowSetValue = False + Me.sbDurchgangszollstelle9._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle9._autoSizeGross = False + Me.sbDurchgangszollstelle9._hideIfListEmpty = True + Me.sbDurchgangszollstelle9._value = "" + Me.sbDurchgangszollstelle9.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle9.dgvpos = "LEFT" + Me.sbDurchgangszollstelle9.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle9.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle9.key_visible = False + Me.sbDurchgangszollstelle9.KEYPARAM = Nothing + Me.sbDurchgangszollstelle9.Location = New System.Drawing.Point(321, 442) + Me.sbDurchgangszollstelle9.Name = "sbDurchgangszollstelle9" + Me.sbDurchgangszollstelle9.searchActive = True + Me.sbDurchgangszollstelle9.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle9.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle9.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle9.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle9.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle9.TabIndex = 73 + Me.sbDurchgangszollstelle9.usrcntl = Nothing + ' + 'sbDurchgangszollstelle8 + ' + Me.sbDurchgangszollstelle8._allowFreitext = False + Me.sbDurchgangszollstelle8._AllowSetValue = False + Me.sbDurchgangszollstelle8._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle8._autoSizeGross = False + Me.sbDurchgangszollstelle8._hideIfListEmpty = True + Me.sbDurchgangszollstelle8._value = "" + Me.sbDurchgangszollstelle8.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle8.dgvpos = "LEFT" + Me.sbDurchgangszollstelle8.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle8.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle8.key_visible = False + Me.sbDurchgangszollstelle8.KEYPARAM = Nothing + Me.sbDurchgangszollstelle8.Location = New System.Drawing.Point(168, 442) + Me.sbDurchgangszollstelle8.Name = "sbDurchgangszollstelle8" + Me.sbDurchgangszollstelle8.searchActive = True + Me.sbDurchgangszollstelle8.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle8.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle8.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle8.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle8.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle8.TabIndex = 72 + Me.sbDurchgangszollstelle8.usrcntl = Nothing + ' + 'sbDurchgangszollstelle7 + ' + Me.sbDurchgangszollstelle7._allowFreitext = False + Me.sbDurchgangszollstelle7._AllowSetValue = False + Me.sbDurchgangszollstelle7._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle7._autoSizeGross = False + Me.sbDurchgangszollstelle7._hideIfListEmpty = True + Me.sbDurchgangszollstelle7._value = "" + Me.sbDurchgangszollstelle7.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle7.dgvpos = "LEFT" + Me.sbDurchgangszollstelle7.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle7.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle7.key_visible = False + Me.sbDurchgangszollstelle7.KEYPARAM = Nothing + Me.sbDurchgangszollstelle7.Location = New System.Drawing.Point(15, 442) + Me.sbDurchgangszollstelle7.Name = "sbDurchgangszollstelle7" + Me.sbDurchgangszollstelle7.searchActive = True + Me.sbDurchgangszollstelle7.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle7.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle7.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle7.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle7.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle7.TabIndex = 71 + Me.sbDurchgangszollstelle7.usrcntl = Nothing + ' + 'sbDurchgangszollstelle6 + ' + Me.sbDurchgangszollstelle6._allowFreitext = False + Me.sbDurchgangszollstelle6._AllowSetValue = False + Me.sbDurchgangszollstelle6._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle6._autoSizeGross = False + Me.sbDurchgangszollstelle6._hideIfListEmpty = True + Me.sbDurchgangszollstelle6._value = "" + Me.sbDurchgangszollstelle6.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle6.dgvpos = "LEFT" + Me.sbDurchgangszollstelle6.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle6.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle6.key_visible = False + Me.sbDurchgangszollstelle6.KEYPARAM = Nothing + Me.sbDurchgangszollstelle6.Location = New System.Drawing.Point(321, 423) + Me.sbDurchgangszollstelle6.Name = "sbDurchgangszollstelle6" + Me.sbDurchgangszollstelle6.searchActive = True + Me.sbDurchgangszollstelle6.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle6.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle6.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle6.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle6.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle6.TabIndex = 70 + Me.sbDurchgangszollstelle6.usrcntl = Nothing + ' + 'sbDurchgangszollstelle4 + ' + Me.sbDurchgangszollstelle4._allowFreitext = False + Me.sbDurchgangszollstelle4._AllowSetValue = False + Me.sbDurchgangszollstelle4._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle4._autoSizeGross = False + Me.sbDurchgangszollstelle4._hideIfListEmpty = True + Me.sbDurchgangszollstelle4._value = "" + Me.sbDurchgangszollstelle4.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle4.dgvpos = "LEFT" + Me.sbDurchgangszollstelle4.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle4.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle4.key_visible = False + Me.sbDurchgangszollstelle4.KEYPARAM = Nothing + Me.sbDurchgangszollstelle4.Location = New System.Drawing.Point(15, 423) + Me.sbDurchgangszollstelle4.Name = "sbDurchgangszollstelle4" + Me.sbDurchgangszollstelle4.searchActive = True + Me.sbDurchgangszollstelle4.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle4.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle4.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle4.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle4.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle4.TabIndex = 68 + Me.sbDurchgangszollstelle4.usrcntl = Nothing + ' + 'sbDurchgangszollstelle3 + ' + Me.sbDurchgangszollstelle3._allowFreitext = False + Me.sbDurchgangszollstelle3._AllowSetValue = False + Me.sbDurchgangszollstelle3._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle3._autoSizeGross = False + Me.sbDurchgangszollstelle3._hideIfListEmpty = True + Me.sbDurchgangszollstelle3._value = "" + Me.sbDurchgangszollstelle3.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle3.dgvpos = "LEFT" + Me.sbDurchgangszollstelle3.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle3.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle3.key_visible = False + Me.sbDurchgangszollstelle3.KEYPARAM = Nothing + Me.sbDurchgangszollstelle3.Location = New System.Drawing.Point(321, 404) + Me.sbDurchgangszollstelle3.Name = "sbDurchgangszollstelle3" + Me.sbDurchgangszollstelle3.searchActive = True + Me.sbDurchgangszollstelle3.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle3.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle3.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle3.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle3.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle3.TabIndex = 67 + Me.sbDurchgangszollstelle3.usrcntl = Nothing + ' + 'sbDurchgangszollstelle2 + ' + Me.sbDurchgangszollstelle2._allowFreitext = False + Me.sbDurchgangszollstelle2._AllowSetValue = False + Me.sbDurchgangszollstelle2._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle2._autoSizeGross = False + Me.sbDurchgangszollstelle2._hideIfListEmpty = True + Me.sbDurchgangszollstelle2._value = "" + Me.sbDurchgangszollstelle2.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle2.dgvpos = "LEFT" + Me.sbDurchgangszollstelle2.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle2.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle2.key_visible = False + Me.sbDurchgangszollstelle2.KEYPARAM = Nothing + Me.sbDurchgangszollstelle2.Location = New System.Drawing.Point(168, 404) + Me.sbDurchgangszollstelle2.Name = "sbDurchgangszollstelle2" + Me.sbDurchgangszollstelle2.searchActive = True + Me.sbDurchgangszollstelle2.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle2.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle2.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle2.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle2.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle2.TabIndex = 66 + Me.sbDurchgangszollstelle2.usrcntl = Nothing + ' + 'sbDurchgangszollstelle1 + ' + Me.sbDurchgangszollstelle1._allowFreitext = False + Me.sbDurchgangszollstelle1._AllowSetValue = False + Me.sbDurchgangszollstelle1._allowSpaceAsSplitter = False + Me.sbDurchgangszollstelle1._autoSizeGross = False + Me.sbDurchgangszollstelle1._hideIfListEmpty = True + Me.sbDurchgangszollstelle1._value = "" + Me.sbDurchgangszollstelle1.conn_art = "FMZOLL" + Me.sbDurchgangszollstelle1.dgvpos = "LEFT" + Me.sbDurchgangszollstelle1.DISPLAY_PARAM = Nothing + Me.sbDurchgangszollstelle1.INVISIBLE_COLUMNS = Nothing + Me.sbDurchgangszollstelle1.key_visible = False + Me.sbDurchgangszollstelle1.KEYPARAM = Nothing + Me.sbDurchgangszollstelle1.Location = New System.Drawing.Point(15, 404) + Me.sbDurchgangszollstelle1.Name = "sbDurchgangszollstelle1" + Me.sbDurchgangszollstelle1.searchActive = True + Me.sbDurchgangszollstelle1.Size = New System.Drawing.Size(154, 20) + Me.sbDurchgangszollstelle1.SQL_ORDER_BY = Nothing + Me.sbDurchgangszollstelle1.SQL_SELECT = Nothing + Me.sbDurchgangszollstelle1.SQL_WHERE = Nothing + Me.sbDurchgangszollstelle1.SQL_WhereParamList = Nothing + Me.sbDurchgangszollstelle1.TabIndex = 65 + Me.sbDurchgangszollstelle1.usrcntl = Nothing + ' + 'Label5 + ' + Me.Label5.Location = New System.Drawing.Point(12, 388) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(135, 13) + Me.Label5.TabIndex = 64 + Me.Label5.Text = "Durchgangszollstellen:" + ' + 'lblC + ' + Me.lblC.AutoSize = True + Me.lblC.Location = New System.Drawing.Point(253, 187) + Me.lblC.Name = "lblC" + Me.lblC.Size = New System.Drawing.Size(18, 13) + Me.lblC.TabIndex = 78 + Me.lblC.Text = "°C" + ' + 'txtTransporttemp + ' + Me.txtTransporttemp._DateTimeOnly = False + Me.txtTransporttemp._numbersOnly = False + Me.txtTransporttemp._numbersOnlyKommastellen = "" + Me.txtTransporttemp._numbersOnlyTrennzeichen = True + Me.txtTransporttemp._Prozent = False + Me.txtTransporttemp._ShortDateNew = False + Me.txtTransporttemp._ShortDateOnly = False + Me.txtTransporttemp._TimeOnly = False + Me.txtTransporttemp._TimeOnly_Seconds = False + Me.txtTransporttemp._value = "" + Me.txtTransporttemp._Waehrung = False + Me.txtTransporttemp._WaehrungZeichen = True + Me.txtTransporttemp.ForeColor = System.Drawing.Color.Black + Me.txtTransporttemp.Location = New System.Drawing.Point(153, 183) + Me.txtTransporttemp.MaxLineLength = -1 + Me.txtTransporttemp.MaxLines_Warning = "" + Me.txtTransporttemp.MaxLines_Warning_Label = Nothing + Me.txtTransporttemp.Name = "txtTransporttemp" + Me.txtTransporttemp.Size = New System.Drawing.Size(100, 20) + Me.txtTransporttemp.TabIndex = 77 + ' + 'cbxTemperatur + ' + Me.cbxTemperatur.AutoSize = True + Me.cbxTemperatur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cbxTemperatur.Location = New System.Drawing.Point(15, 183) + Me.cbxTemperatur.Name = "cbxTemperatur" + Me.cbxTemperatur.Size = New System.Drawing.Size(125, 17) + Me.cbxTemperatur.TabIndex = 76 + Me.cbxTemperatur.TabStop = False + Me.cbxTemperatur.Text = "Trasport-Temperatur:" + Me.cbxTemperatur.UseVisualStyleBackColor = True + ' + 'Label7 + ' + Me.Label7.Location = New System.Drawing.Point(12, 156) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(103, 17) + Me.Label7.TabIndex = 79 + Me.Label7.Text = "Datumgrenze:" + ' + 'txtDat + ' + Me.txtDat._DateTimeOnly = False + Me.txtDat._numbersOnly = False + Me.txtDat._numbersOnlyKommastellen = "" + Me.txtDat._numbersOnlyTrennzeichen = True + Me.txtDat._Prozent = False + Me.txtDat._ShortDateNew = False + Me.txtDat._ShortDateOnly = True + Me.txtDat._TimeOnly = False + Me.txtDat._TimeOnly_Seconds = False + Me.txtDat._value = "" + Me.txtDat._Waehrung = False + Me.txtDat._WaehrungZeichen = True + Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtDat.ForeColor = System.Drawing.Color.Black + Me.txtDat.Location = New System.Drawing.Point(153, 156) + Me.txtDat.MaxLength = 10 + Me.txtDat.MaxLineLength = -1 + Me.txtDat.MaxLines_Warning = "" + Me.txtDat.MaxLines_Warning_Label = Nothing + Me.txtDat.Multiline = True + Me.txtDat.Name = "txtDat" + Me.txtDat.Size = New System.Drawing.Size(78, 24) + Me.txtDat.TabIndex = 80 + ' + 'dtpDat + ' + Me.dtpDat.CustomFormat = "''" + Me.dtpDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.dtpDat.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.dtpDat.Location = New System.Drawing.Point(153, 156) + Me.dtpDat.Margin = New System.Windows.Forms.Padding(0) + Me.dtpDat.Name = "dtpDat" + Me.dtpDat.Size = New System.Drawing.Size(110, 24) + Me.dtpDat.TabIndex = 81 + ' + 'usrCntl_Carrier + ' + Me.usrCntl_Carrier._Titel = "Frächter:" + Me.usrCntl_Carrier.BackColor = System.Drawing.Color.White + Me.usrCntl_Carrier.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.usrCntl_Carrier.Location = New System.Drawing.Point(15, 223) + Me.usrCntl_Carrier.Name = "usrCntl_Carrier" + Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132) + Me.usrCntl_Carrier.TabIndex = 84 + ' + 'txtLKWId + ' + Me.txtLKWId._DateTimeOnly = False + Me.txtLKWId._numbersOnly = False + Me.txtLKWId._numbersOnlyKommastellen = "" + Me.txtLKWId._numbersOnlyTrennzeichen = True + Me.txtLKWId._Prozent = False + Me.txtLKWId._ShortDateNew = False + Me.txtLKWId._ShortDateOnly = False + Me.txtLKWId._TimeOnly = False + Me.txtLKWId._TimeOnly_Seconds = False + Me.txtLKWId._value = "" + Me.txtLKWId._Waehrung = False + Me.txtLKWId._WaehrungZeichen = True + Me.txtLKWId.ForeColor = System.Drawing.Color.Black + Me.txtLKWId.Location = New System.Drawing.Point(153, 54) + Me.txtLKWId.MaxLineLength = -1 + Me.txtLKWId.MaxLines_Warning = "" + Me.txtLKWId.MaxLines_Warning_Label = Nothing + Me.txtLKWId.Name = "txtLKWId" + Me.txtLKWId.Size = New System.Drawing.Size(100, 20) + Me.txtLKWId.TabIndex = 87 + ' + '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(285, 36) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(57, 13) + Me.Label8.TabIndex = 89 + Me.Label8.Text = "Stammref.:" + Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'cboStammreferenz + ' + Me.cboStammreferenz._allowedValuesFreiText = Nothing + Me.cboStammreferenz._allowFreiText = False + Me.cboStammreferenz._value = "" + Me.cboStammreferenz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer)) + Me.cboStammreferenz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboStammreferenz.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.cboStammreferenz.FormattingEnabled = True + Me.cboStammreferenz.Location = New System.Drawing.Point(343, 33) + Me.cboStammreferenz.Name = "cboStammreferenz" + Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21) + Me.cboStammreferenz.TabIndex = 88 + ' + 'frmATEZNCTS + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(484, 763) + Me.Controls.Add(Me.Label8) + Me.Controls.Add(Me.cboStammreferenz) + Me.Controls.Add(Me.txtLKWId) + Me.Controls.Add(Me.usrCntl_Carrier) + Me.Controls.Add(Me.txtDat) + Me.Controls.Add(Me.dtpDat) + Me.Controls.Add(Me.Label7) + Me.Controls.Add(Me.lblC) + Me.Controls.Add(Me.txtTransporttemp) + Me.Controls.Add(Me.cbxTemperatur) + Me.Controls.Add(Me.sbDurchgangszollstelle5) + Me.Controls.Add(Me.sbDurchgangszollstelle9) + Me.Controls.Add(Me.sbDurchgangszollstelle8) + Me.Controls.Add(Me.sbDurchgangszollstelle7) + Me.Controls.Add(Me.sbDurchgangszollstelle6) + Me.Controls.Add(Me.sbDurchgangszollstelle4) + Me.Controls.Add(Me.sbDurchgangszollstelle3) + Me.Controls.Add(Me.sbDurchgangszollstelle2) + Me.Controls.Add(Me.sbDurchgangszollstelle1) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.lklRoutenauswahl) + Me.Controls.Add(Me.sbRoute5) + Me.Controls.Add(Me.sbRoute9) + Me.Controls.Add(Me.sbRoute8) + Me.Controls.Add(Me.sbRoute7) + Me.Controls.Add(Me.sbRoute6) + Me.Controls.Add(Me.sbRoute4) + Me.Controls.Add(Me.sbRoute3) + Me.Controls.Add(Me.sbRoute2) + Me.Controls.Add(Me.sbRoute1) + Me.Controls.Add(Me.Label14) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.sbBestimmungsZollstelle) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.dgvAnhaenge) + Me.Controls.Add(Me.Button1) + Me.Controls.Add(Me.Label9) + Me.Controls.Add(Me.sbAbgangZollstelle) + Me.Controls.Add(Me.txtDyMandant) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.txtDyNiederlassung) + Me.Controls.Add(Me.lblBezugsnummer) + Me.Name = "frmATEZNCTS" + Me.Text = "ATEZ NCTS" + CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents txtDyMandant As Label + Friend WithEvents Label1 As Label + Friend WithEvents txtDyNiederlassung As Label + Friend WithEvents lblBezugsnummer As Label + Friend WithEvents Label9 As Label + Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Button1 As Button + Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents columnName As DataGridViewTextBoxColumn + Friend WithEvents Label2 As Label + Friend WithEvents Label3 As Label + Friend WithEvents Label4 As Label + Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents lklRoutenauswahl As LinkLabel + Friend WithEvents sbRoute5 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute9 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute8 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute7 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute6 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute4 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute3 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute2 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbRoute1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label14 As Label + Friend WithEvents sbDurchgangszollstelle5 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle9 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle8 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle7 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle6 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle4 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle3 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle2 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents sbDurchgangszollstelle1 As VERAG_PROG_ALLGEMEIN.MySearchBox + Friend WithEvents Label5 As Label + Friend WithEvents lblC As Label + Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents cbxTemperatur As CheckBox + Friend WithEvents Label7 As Label + Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents dtpDat As DateTimePicker + Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse + Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox +End Class diff --git a/Aviso/frmATEZNCTS.resx b/Aviso/frmATEZNCTS.resx new file mode 100644 index 0000000..ce5c567 --- /dev/null +++ b/Aviso/frmATEZNCTS.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + \ No newline at end of file diff --git a/Aviso/frmATEZNCTS.vb b/Aviso/frmATEZNCTS.vb new file mode 100644 index 0000000..319ba70 --- /dev/null +++ b/Aviso/frmATEZNCTS.vb @@ -0,0 +1,208 @@ +Imports DocumentFormat.OpenXml.Drawing.Charts +Imports VERAG_PROG_ALLGEMEIN +Imports VERAG_PROG_ALLGEMEIN.TESTJSON + +Public Class frmATEZNCTS + + Dim ART As String = "" + Dim FilialenNr As Integer + Dim AbfertigungsNr As Integer + Dim JAHR As Integer = Now.ToString("yy") + Public isSTAMMREF As Boolean = False + Public STAMMREF As String = "" + Public CopyFromZA_Id As Integer = -1 + Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Dim ZOLL_SYSTEM = "DAKOSY" + Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing + Public ATT As List(Of String) + Dim AVISO As New cAviso + Dim zusatz As String + Dim cDy_ART As String = If(FIRMA_DY = "ATILLA", "T2", "T1") + Property BezugsNr As String = "" + Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen + + + + + Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional ZOLL_SYSTEM As String = "DAKOSY") + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + Me.DY = DY + Me.AVISO = AVISO + Me.ART = ART + Me.SENDUNG = SENDUNG + Me.JAHR = JAHR + Me.ZOLL_SYSTEM = ZOLL_SYSTEM + + If SENDUNG IsNot Nothing Then + Me.FilialenNr = SENDUNG.FilialenNr + Me.AbfertigungsNr = SENDUNG.AbfertigungsNr + End If + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.AVISO = AVISO + Me.SENDUNG = SENDUNG + Me.JAHR = JAHR + + If SENDUNG IsNot Nothing Then + Me.FilialenNr = SENDUNG.FilialenNr + Me.AbfertigungsNr = SENDUNG.AbfertigungsNr + End If + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim failreDesc As String + + Dim atezData As New cATEZ_NCTS_DATA + Dim atez As New cATEZ_NCTS_IN + + With atezData + + .VERAG_LRN = lblBezugsnummer.Text + .LicensePlateContainerNo = txtLKWId.Text + .DAKOSY_IOPartner = txtDyNiederlassung.Text & txtDyNiederlassung.Text + .DAKOSY_Division1 = "" + .DepartureCustomsOffice = "" + .DatDeterminationLimit = txtDat.Text + .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "") + + .Carrier_Name = "" + .Carrier_Adress_City = "" + .Carrier_Adress_Country = "" + .Carrier_Adress_Postcode = "" + .Carrier_Adress_Street = "" + .Carrier_EORI = "" + + .Guarantee_GRN = "" 'leer lassen + + + + 'Datenzuweisung machen! + .SAVE() + + End With + + Dim test = atez.authenticate() + If test <> "200" Then + failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!" + MsgBox(failreDesc) + Exit Sub + End If + + + If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten") + + atez.SendRequestWithAuthHeader("application/json", failreDesc) + + If failreDesc <> "" Then + atezData.status = failreDesc + atezData.SAVE() + MsgBox(failreDesc) + Else + atezData.status = "Sent" + atezData.SAVE() + End If + End Sub + + Function getBezugsnr(ByRef BezugsNr) + Dim BezugsNrTmp = "" + BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr '& If(zusatz <> "", "/" & zusatz, "") 'zusatz ' & "/" & Jahr2Stellig + BezugsNr = BezugsNrTmp + zusatz = "A" + 'Soloagne bis die Bezugsnummer noch nicht existiert + While DAKOSY_Worker.cDakosy_Zollanmeldungen.ExistsBezugsNr(BezugsNr) 'IsNot Nothing + BezugsNr = BezugsNrTmp & "/" & zusatz + + If zusatz.Length = 1 Then + zusatz = Chr(Asc(zusatz.ToString) + 1) + Else + zusatz = zusatz.Substring(0, 1) & Chr(Asc(zusatz.Substring(0, 2).ToString) + 1) + End If + + If zusatz = "Z" Then zusatz = "AA" + End While + lblBezugsnummer.Text = BezugsNr + Return BezugsNr + End Function + + Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load + + Select Case FIRMA_DY + Case "VERAG" : txtDyMandant.Text = "VERG" + txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG + Case "ATILLA" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "SUW" + Case "UNISPED" : txtDyMandant.Text = "UNAT" : txtDyNiederlassung.Text = "ATSPED" + Case "IMEX" : txtDyMandant.Text = "IMEX" : txtDyNiederlassung.Text = "IME" + Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO" + End Select + + initSeachboxes() + initAttachment() + + cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='NCTS' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) + cboStammreferenz.changeItem("") + + getBezugsnr(BezugsNr) + txtLKWId.Text = AVISO.LKW_Nr + + sbAbgangZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle + sbBestimmungsZollstelle._value = SENDUNG.NCTS_Bestimmungszollstelle + + usrCntl_Carrier.KundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr + + + + + + End Sub + + Sub initAttachment() + dgvAnhaenge.Rows.Clear() + + If ATT Is Nothing Then + Exit Sub + End If + + dgvAnhaenge.ClearSelection() + End Sub + + + Sub initSeachboxes() + + sbAbgangZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbBestimmungsZollstelle.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + + sbDurchgangszollstelle1.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle2.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle3.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle4.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle5.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle6.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle7.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle8.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + sbDurchgangszollstelle9.initSearchBox(Me.FindForm, "[Code] ,[Code] as Nr,Description as Dienststelle,left(Code,2) as Land,[Description] +' (' +left(Code,2)+')' as display FROM [tbl_DY_ZollDE_C0141_Zollstellen]", {" [Code]", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", " left(Code,2),[Description]", "Code", "display", "FMZOLL", , 400, 200, {"display", "Code"}) + + + sbRoute1.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute2.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute3.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute4.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute5.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute6.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute7.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute8.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + sbRoute9.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land,[Code]+' - ' +[Description] as display FROM tbl_DY_ZollDE_C0008_LaenderFull", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "display", "FMZOLL", , 400, 200) + End Sub +End Class \ No newline at end of file diff --git a/Aviso/frmSendungsdetailsNEU.Designer.vb b/Aviso/frmSendungsdetailsNEU.Designer.vb index 4aea849..5651059 100644 --- a/Aviso/frmSendungsdetailsNEU.Designer.vb +++ b/Aviso/frmSendungsdetailsNEU.Designer.vb @@ -412,6 +412,7 @@ Partial Class frmSendungsdetailsNEU Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.ToolStripMenuItem14 = New System.Windows.Forms.ToolStripMenuItem() Me.NurÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.AntragQualitätskontrolleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.pnl.SuspendLayout() Me.Panel4.SuspendLayout() Me.TabControl1.SuspendLayout() @@ -5036,9 +5037,9 @@ Partial Class frmSendungsdetailsNEU 'ctxtWeitereFormulare ' Me.ctxtWeitereFormulare.ImageScalingSize = New System.Drawing.Size(24, 24) - Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem, Me.AMBARZollbeschauNEUToolStripMenuItem}) + Me.ctxtWeitereFormulare.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolGelangensbestätigung, Me.toolOriginalSendungsunterlagen, Me.LaufzettelDruckenToolStripMenuItem, Me.ZollstoppAMBARToolStripMenuItem, Me.ATANAKToolStripMenuItem, Me.AMBARZollbeschauToolStripMenuItem, Me.AMBARZollbeschauNEUToolStripMenuItem, Me.AntragQualitätskontrolleToolStripMenuItem}) Me.ctxtWeitereFormulare.Name = "cntxt" - Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 158) + Me.ctxtWeitereFormulare.Size = New System.Drawing.Size(263, 202) ' 'toolGelangensbestätigung ' @@ -5087,19 +5088,19 @@ Partial Class frmSendungsdetailsNEU 'ImportToolStripMenuItem ' Me.ImportToolStripMenuItem.Name = "ImportToolStripMenuItem" - Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.ImportToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ImportToolStripMenuItem.Text = "Import" ' 'ExportToolStripMenuItem ' Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem" - Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ExportToolStripMenuItem.Text = "Export" ' 'ExportT1ToolStripMenuItem ' Me.ExportT1ToolStripMenuItem.Name = "ExportT1ToolStripMenuItem" - Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.ExportT1ToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.ExportT1ToolStripMenuItem.Text = "Export T1" ' 'AMBARZollbeschauToolStripMenuItem @@ -5321,6 +5322,12 @@ Partial Class frmSendungsdetailsNEU Me.NurÖffnenToolStripMenuItem.Size = New System.Drawing.Size(255, 30) Me.NurÖffnenToolStripMenuItem.Text = "nur öffnen" ' + 'AntragQualitätskontrolleToolStripMenuItem + ' + Me.AntragQualitätskontrolleToolStripMenuItem.Name = "AntragQualitätskontrolleToolStripMenuItem" + Me.AntragQualitätskontrolleToolStripMenuItem.Size = New System.Drawing.Size(262, 22) + Me.AntragQualitätskontrolleToolStripMenuItem.Text = "Antrag Qualitätskontrolle" + ' 'frmSendungsdetailsNEU ' Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!) @@ -5803,4 +5810,5 @@ Partial Class frmSendungsdetailsNEU Friend WithEvents ToolStripMenuItem29 As ToolStripMenuItem Friend WithEvents ToolStripMenuItem30 As ToolStripMenuItem Friend WithEvents Button19 As Button + Friend WithEvents AntragQualitätskontrolleToolStripMenuItem As ToolStripMenuItem End Class diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index 504c2c7..3007648 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -6308,5 +6308,7 @@ Public Class frmSendungsdetailsNEU End Sub + Private Sub AntragQualitätskontrolleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AntragQualitätskontrolleToolStripMenuItem.Click + End Sub End Class diff --git a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb index 245e5fb..bacbe0f 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.Designer.vb @@ -1583,7 +1583,6 @@ Partial Class usrcntlAktDetailsATILLANeu Me.NCTSATEZToolStripMenuItem.Name = "NCTSATEZToolStripMenuItem" Me.NCTSATEZToolStripMenuItem.Size = New System.Drawing.Size(180, 22) Me.NCTSATEZToolStripMenuItem.Text = "NCTS - ATEZ" - Me.NCTSATEZToolStripMenuItem.Visible = False ' 'cntxt ' diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index e714e4d..bac42dc 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/Aviso/usrcntlAktDetailsATILLANeu.vb @@ -1,7 +1,7 @@ Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO -Imports System.IO +Imports System.IO 'Imports Gemeinsames.cDatenbank Imports System.Drawing @@ -130,7 +130,7 @@ Public Class usrcntlAktDetailsATILLANeu 'Kann nur bei Freigabe angezeigt werden - If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben Then + If AVISO.Status <> VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then Button3.Visible = False End If @@ -207,7 +207,7 @@ Public Class usrcntlAktDetailsATILLANeu Dim SYSTEM = "DAKOSY" ' Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SENDUNG_LIST(0), Now.ToString("yy")) - Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), System) + Dim f As New SDL.frmZollanmeldung(DY.dy_ART, DY, AVISO, SND, Now.ToString("yy"), SYSTEM) AddHandler f.FormClosed, Sub() initdgvZollAnmeldungen() End Sub @@ -258,9 +258,6 @@ Public Class usrcntlAktDetailsATILLANeu End If - - - dgvZollAnmeldungen.ClearSelection() End Sub @@ -292,9 +289,9 @@ Public Class usrcntlAktDetailsATILLANeu Button3.Visible = False Select Case AVISO.Status - Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Ankunft + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Ankunft lblStatus.Text = "ANKUNFT" : pnlStatus.BackColor = btnAnkunft.BackColor - Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Erfasst + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Erfasst lblStatus.Text = "ERFASST" : pnlStatus.BackColor = btnErfasst.BackColor 'Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Vorbereitet ' lblStatus.Text = "VORBEREITET - QS" : pnlStatus.BackColor = btnVorbereitet.BackColor @@ -304,13 +301,13 @@ Public Class usrcntlAktDetailsATILLANeu lblStatus.Text = "AN VERIMEX" : pnlStatus.BackColor = btnAnVerimex.BackColor Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_ATILLA_INDONESIEN lblStatus.Text = "AN INDONESIEN" : pnlStatus.BackColor = btnAnIndonesien.BackColor - Case VERAG_PROG_ALLGEMEIN.cglobal.Status_Freigegeben + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben lblStatus.Text = "FREIGABE" : pnlStatus.BackColor = btnFreigabe.BackColor Button3.Visible = True 'For Each s In sendun 'If alle spedbuchOK 'visible - Case VERAG_PROG_ALLGEMEIN.cglobal.Status_NichtEingetroffen + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen lblStatus.Text = "NICHT EINGETR." : pnlStatus.BackColor = btnNichtEingetroffen.BackColor End Select @@ -545,10 +542,9 @@ Public Class usrcntlAktDetailsATILLANeu Else Process.Start(docPath) End If - End If - End If + End If Catch ex As Exception MsgBox(ex.Message & ex.StackTrace) @@ -566,8 +562,8 @@ Public Class usrcntlAktDetailsATILLANeu myVermerk.VermerkID = 0 'myVermerk.AvisoID = CInt(gridVermerke.Rows(e.RowIndex).Cells(1).Value) myVermerk.Datum = Now - myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.Mitarbeiter - myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cglobal.AktiverMitarbeiter.MitarbeiterID + myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.Mitarbeiter + myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.MitarbeiterID Dim init As Boolean = False Select Case CStr(gridVermerke.Rows(e.RowIndex).Cells("VermerkeCode").Value) Case "1" @@ -1613,49 +1609,40 @@ Public Class usrcntlAktDetailsATILLANeu End Sub Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click - If dgvanhaenge.SelectedRows.Count = 0 Then - MsgBox("Bitte zu schickenden Anhänge markieren!") - Exit Sub - End If + Dim ATTACHMENTS_LIST As New List(Of String) + Try + + If dgvanhaenge.SelectedRows.Count = 0 Then + MsgBox("Bitte zu schickenden Anhänge markieren!") + Exit Sub + Else + For Each row As DataGridViewRow In dgvanhaenge.SelectedRows + Dim anh_id = row.Cells("anh_id").Value + ATTACHMENTS_LIST.Add(anh_id) + Next + + End If + If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then + Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0) - 'Dim atezData As New cATEZ_NCTS_DATA - 'Dim atez As New cATEZ_NCTS_IN + Dim frmAttilaATEZNCTS = New frmATEZNCTS(AVISO, SND, Now.ToString("yy")) + frmAttilaATEZNCTS.ATT = ATTACHMENTS_LIST - 'With atezData + AddHandler frmAttilaATEZNCTS.FormClosed, Sub() + 'initdgvZollAnmeldungen() + End Sub - ' .VERAG_LRN = AVISO.AvisoID - ' .LicensePlateContainerNo = AVISO.LKW_Nr - ' .DAKOSY_Division1 = "test" - ' 'Datenzuweisung machen! - ' .SAVE() - - 'End With - - 'Dim test = atez.authenticate() - 'If test <> "200" Then - ' failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!" - ' MsgBox(failreDesc) - ' Exit Sub - 'End If - - - 'If Not atez.setData(atezData, dgvAnhang) Then MsgBox("Fehler beim Erstellen der Daten") - - 'atez.SendRequestWithAuthHeader("application/json", failreDesc) - - 'If failreDesc <> "" Then - ' atezData.status = failreDesc - ' atezData.SAVE() - ' MsgBox(failreDesc) - 'Else - ' atezData.status = "Sent" - ' atezData.SAVE() - 'End If + frmAttilaATEZNCTS.Show(Me) + End If + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + Me.Cursor = Cursors.Default End Sub End Class