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

Sendungsdetails, atezncts

Browse Source
This commit is contained in:
d.breimaier
2023-07-14 21:12:44 +02:00
parent 8b8d04d489
commit b5fc2603f0
9 changed files with 1356 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Aviso/Aviso.vbproj
View File

@@ -540,6 +540,12 @@
<Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATEZNCTS.Designer.vb">
<DependentUpon>frmATEZNCTS.vb</DependentUpon>
</Compile>
<Compile Include="frmATEZNCTS.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmATZollEingereichtSetzen.Designer.vb">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</Compile>
@@ -1122,6 +1128,9 @@
<EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
<DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATEZNCTS.resx">
<DependentUpon>frmATEZNCTS.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmATZollEingereichtSetzen.resx">
<DependentUpon>frmATZollEingereichtSetzen.vb</DependentUpon>
</EmbeddedResource>

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("3.8.9.6")>
<Assembly: AssemblyFileVersion("3.8.9.6")>
<Assembly: AssemblyVersion("3.8.9.8")>
<Assembly: AssemblyFileVersion("3.8.9.8")>

963
Aviso/frmATEZNCTS.Designer.vb generated Normal file
View File

@@ -0,0 +1,963 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmATEZNCTS
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
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.
<System.Diagnostics.DebuggerStepThrough()>
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

123
Aviso/frmATEZNCTS.resx Normal file
View File

@@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="columnName.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root>

208
Aviso/frmATEZNCTS.vb Normal file
View File

@@ -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

18
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

@@ -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

2
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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

1
Aviso/usrcntlAktDetailsATILLANeu.Designer.vb generated
View File

@@ -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
'

85
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -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