mergekonfl.

Aviso/Aviso.vbproj

@@ -540,6 +540,12 @@
     <Compile Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="frmDigicust.Designer.vb">
+      <DependentUpon>frmDigicust.vb</DependentUpon>
+    </Compile>
+    <Compile Include="frmDigicust.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="frmATEZ_NCTS.Designer.vb">
       <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
     </Compile>
@@ -1134,6 +1140,9 @@
     <EmbeddedResource Include="Benachrichtigung\frmAvisoBenachrichtigungReminderBestaetigen.resx">
       <DependentUpon>frmAvisoBenachrichtigungReminderBestaetigen.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="frmDigicust.resx">
+      <DependentUpon>frmDigicust.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="frmATEZ_NCTS.resx">
       <DependentUpon>frmATEZ_NCTS.vb</DependentUpon>
     </EmbeddedResource>

Aviso/My Project/Application.Designer.vb

@@ -27,7 +27,7 @@ Namespace My
             Me.IsSingleInstance = false
             Me.EnableVisualStyles = true
             Me.SaveMySettingsOnExit = true
-            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
+            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
         End Sub
         
         <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _

Aviso/My Project/Application.myapp

@@ -3,8 +3,9 @@
   <MySubMain>true</MySubMain>
   <MainForm>frmLogin</MainForm>
   <SingleInstance>false</SingleInstance>
-  <ShutdownMode>0</ShutdownMode>
+  <ShutdownMode>1</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+  <HighDpiMpde>false</HighDpiMpde>
 </MyApplicationData>

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmATEZ_NCTS.vb

@@ -118,20 +118,25 @@ Public Class frmATEZ_NCTS
                 .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
                 .Guarantee_GRN = "" 'leer 
 
-                For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                'For Each doc As DataGridViewRow In dgvAnhaenge.Rows
-                    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
+                '    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
-                    If isSelected Then
+                '    If isSelected Then
-                        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
+                '        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
-                    End If
+                '    End If
-                Next
+                'Next
 
                 .SAVE()
 
             End With
+
             saveDurchgangszollstelle(atez_data)
             saveRoute(atez_data)
+            setDurchgangszolstellen()
+            setRoute()
 
-            sendAtezData(atez_data, atez)
+            If sendAtezData(atez_data, atez) Then
+                Me.Close()
+            End If
 
             Me.Cursor = Cursors.Default
 
@@ -142,7 +147,7 @@ Public Class frmATEZ_NCTS
 
     End Sub
 
-    Private Sub sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN)
+    Private Function sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN) As Boolean
 
         Dim failreDesc As String
 
@@ -150,7 +155,7 @@ Public Class frmATEZ_NCTS
         If authResp <> "200" Then
             failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
             lblInfo.Text = failreDesc
-            Exit Sub
+            Return False
         End If
 
 
@@ -165,14 +170,18 @@ Public Class frmATEZ_NCTS
             If atezData.status = "Draft" Then
                 MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
                 atezData.fehlerbeschreibung = failreDesc
-                atezData.SAVE()
+                Return atezData.SAVE()
-                Exit Sub
+
             End If
             Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
             If result = vbYes Then
                 atezData.status = "Draft"
                 atezData.fehlerbeschreibung = failreDesc
-                atezData.SAVE()
+                Return atezData.SAVE()
+            Else
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
             End If
 
             lblInfo.Text = "Fehler in der API "
@@ -180,11 +189,11 @@ Public Class frmATEZ_NCTS
         Else
             atezData.status = "Sent"
             atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
-            atezData.SAVE()
+            Return atezData.SAVE()
             Me.Close()
         End If
 
-    End Sub
+    End Function
 
     Function getBezugsnr(ByRef BezugsNr)
         Dim BezugsNrTmp = ""
@@ -372,7 +381,7 @@ Public Class frmATEZ_NCTS
                                                 when [anh_Art] = 'Sonstiges' then 'OTHER'
                                                 when [anh_Art] ='' then 'OTHER' End
                                                 [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <= 0 And anh_Typ = 'PDF'
                                         Order BY  [anh_Reihenfolge], anh_Datum desc, [anh_id]"
 
         Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
@@ -554,6 +563,8 @@ Public Class frmATEZ_NCTS
 
     Public Sub saveDurchgangszollstelle(atezData As cATEZ_NCTS_DATA)
 
+        Dim atezTransitOffice As New cATEZ_NCTS_TransitCustomsOffice()
+        atezTransitOffice.delete(atezData.Id)
 
         If sbDurchgangszollstelle1._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle1._value)
         If sbDurchgangszollstelle2._value <> "" Then Dim TCO As New cATEZ_NCTS_TransitCustomsOffice(atezData.Id, sbDurchgangszollstelle2._value)
@@ -569,6 +580,9 @@ Public Class frmATEZ_NCTS
 
     Public Sub saveRoute(atezData As cATEZ_NCTS_DATA)
 
+        Dim atezRouten As New cATEZ_NCTS_Routen()
+        atezRouten.delete(atezData.Id)
+
 
         If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
         If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)

Aviso/frmDigicust.Designer.vb

@@ -0,0 +1,777 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmDigicust
+    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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDigicust))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.pnlHead = New System.Windows.Forms.Panel()
+        Me.lblInfo = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cboStammreferenz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtLKWId = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.usrCntl_Carrier = New SDL.usrCntlAdresse()
+        Me.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.dtpDat = New System.Windows.Forms.DateTimePicker()
+        Me.Label7 = 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.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.Label4 = New System.Windows.Forms.Label()
+        Me.sbBestimmungsZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.sbAbgangZollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
+        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.Button2 = New System.Windows.Forms.Button()
+        Me.btnCreateToken = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.rtfToken = New System.Windows.Forms.RichTextBox()
+        Me.pnlHead.SuspendLayout()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '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(154, 716)
+        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 DC senden -->"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'pnlHead
+        '
+        Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.Button2)
+        Me.pnlHead.Controls.Add(Me.btnCreateToken)
+        Me.pnlHead.Controls.Add(Me.Label2)
+        Me.pnlHead.Controls.Add(Me.rtfToken)
+        Me.pnlHead.Controls.Add(Me.lblInfo)
+        Me.pnlHead.Controls.Add(Me.Label6)
+        Me.pnlHead.Controls.Add(Me.Label8)
+        Me.pnlHead.Controls.Add(Me.cboStammreferenz)
+        Me.pnlHead.Controls.Add(Me.txtLKWId)
+        Me.pnlHead.Controls.Add(Me.usrCntl_Carrier)
+        Me.pnlHead.Controls.Add(Me.txtDat)
+        Me.pnlHead.Controls.Add(Me.dtpDat)
+        Me.pnlHead.Controls.Add(Me.Label7)
+        Me.pnlHead.Controls.Add(Me.lblC)
+        Me.pnlHead.Controls.Add(Me.txtTransporttemp)
+        Me.pnlHead.Controls.Add(Me.cbxTemperatur)
+        Me.pnlHead.Controls.Add(Me.lklRoutenauswahl)
+        Me.pnlHead.Controls.Add(Me.sbRoute5)
+        Me.pnlHead.Controls.Add(Me.sbRoute9)
+        Me.pnlHead.Controls.Add(Me.sbRoute8)
+        Me.pnlHead.Controls.Add(Me.sbRoute7)
+        Me.pnlHead.Controls.Add(Me.sbRoute6)
+        Me.pnlHead.Controls.Add(Me.sbRoute4)
+        Me.pnlHead.Controls.Add(Me.sbRoute3)
+        Me.pnlHead.Controls.Add(Me.sbRoute2)
+        Me.pnlHead.Controls.Add(Me.sbRoute1)
+        Me.pnlHead.Controls.Add(Me.Label14)
+        Me.pnlHead.Controls.Add(Me.Label4)
+        Me.pnlHead.Controls.Add(Me.sbBestimmungsZollstelle)
+        Me.pnlHead.Controls.Add(Me.Label3)
+        Me.pnlHead.Controls.Add(Me.dgvAnhaenge)
+        Me.pnlHead.Controls.Add(Me.Label9)
+        Me.pnlHead.Controls.Add(Me.sbAbgangZollstelle)
+        Me.pnlHead.Controls.Add(Me.txtDyMandant)
+        Me.pnlHead.Controls.Add(Me.Label1)
+        Me.pnlHead.Controls.Add(Me.txtDyNiederlassung)
+        Me.pnlHead.Controls.Add(Me.lblBezugsnummer)
+        Me.pnlHead.Location = New System.Drawing.Point(3, 2)
+        Me.pnlHead.Name = "pnlHead"
+        Me.pnlHead.Size = New System.Drawing.Size(478, 706)
+        Me.pnlHead.TabIndex = 112
+        '
+        'lblInfo
+        '
+        Me.lblInfo.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblInfo.ForeColor = System.Drawing.Color.Red
+        Me.lblInfo.Location = New System.Drawing.Point(10, 27)
+        Me.lblInfo.Name = "lblInfo"
+        Me.lblInfo.Size = New System.Drawing.Size(460, 27)
+        Me.lblInfo.TabIndex = 148
+        '
+        'Label6
+        '
+        Me.Label6.Location = New System.Drawing.Point(10, 562)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(135, 13)
+        Me.Label6.TabIndex = 147
+        Me.Label6.Text = "Dokumente:"
+        '
+        'Label8
+        '
+        Me.Label8.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label8.AutoSize = True
+        Me.Label8.Location = New System.Drawing.Point(283, 179)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(57, 13)
+        Me.Label8.TabIndex = 146
+        Me.Label8.Text = "Stammref.:"
+        Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboStammreferenz
+        '
+        Me.cboStammreferenz._allowedValuesFreiText = Nothing
+        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(341, 176)
+        Me.cboStammreferenz.Name = "cboStammreferenz"
+        Me.cboStammreferenz.Size = New System.Drawing.Size(129, 21)
+        Me.cboStammreferenz.TabIndex = 145
+        '
+        '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(151, 177)
+        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 = 144
+        '
+        '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(13, 332)
+        Me.usrCntl_Carrier.Name = "usrCntl_Carrier"
+        Me.usrCntl_Carrier.Size = New System.Drawing.Size(408, 132)
+        Me.usrCntl_Carrier.TabIndex = 143
+        '
+        '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", 9.0!)
+        Me.txtDat.ForeColor = System.Drawing.Color.Black
+        Me.txtDat.Location = New System.Drawing.Point(151, 251)
+        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 = 141
+        '
+        '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(151, 251)
+        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 = 142
+        '
+        'Label7
+        '
+        Me.Label7.Location = New System.Drawing.Point(10, 251)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(103, 17)
+        Me.Label7.TabIndex = 140
+        Me.Label7.Text = "Datumgrenze:"
+        '
+        'lblC
+        '
+        Me.lblC.AutoSize = True
+        Me.lblC.Location = New System.Drawing.Point(251, 282)
+        Me.lblC.Name = "lblC"
+        Me.lblC.Size = New System.Drawing.Size(18, 13)
+        Me.lblC.TabIndex = 139
+        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(151, 278)
+        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 = 138
+        '
+        '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(13, 278)
+        Me.cbxTemperatur.Name = "cbxTemperatur"
+        Me.cbxTemperatur.Size = New System.Drawing.Size(131, 17)
+        Me.cbxTemperatur.TabIndex = 137
+        Me.cbxTemperatur.TabStop = False
+        Me.cbxTemperatur.Text = "Transport-Temperatur:"
+        Me.cbxTemperatur.UseVisualStyleBackColor = True
+        '
+        '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(392, 478)
+        Me.lklRoutenauswahl.Name = "lklRoutenauswahl"
+        Me.lklRoutenauswahl.Size = New System.Drawing.Size(81, 13)
+        Me.lklRoutenauswahl.TabIndex = 117
+        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(166, 513)
+        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 = 122
+        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(319, 532)
+        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 = 126
+        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(166, 532)
+        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 = 125
+        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(13, 532)
+        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 = 124
+        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(319, 513)
+        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 = 123
+        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(13, 513)
+        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 = 121
+        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(319, 494)
+        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 = 120
+        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(166, 494)
+        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 = 119
+        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(13, 494)
+        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 = 118
+        Me.sbRoute1.usrcntl = Nothing
+        '
+        'Label14
+        '
+        Me.Label14.Location = New System.Drawing.Point(10, 478)
+        Me.Label14.Name = "Label14"
+        Me.Label14.Size = New System.Drawing.Size(135, 13)
+        Me.Label14.TabIndex = 116
+        Me.Label14.Text = "Route:"
+        '
+        'Label4
+        '
+        Me.Label4.Location = New System.Drawing.Point(10, 229)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(121, 17)
+        Me.Label4.TabIndex = 114
+        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(151, 229)
+        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 = 115
+        Me.sbBestimmungsZollstelle.usrcntl = Nothing
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(10, 180)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(103, 17)
+        Me.Label3.TabIndex = 113
+        Me.Label3.Text = "LKW-KZ:"
+        '
+        '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.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.columnName})
+        Me.dgvAnhaenge.Location = New System.Drawing.Point(13, 578)
+        Me.dgvAnhaenge.Name = "dgvAnhaenge"
+        Me.dgvAnhaenge.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvAnhaenge.Size = New System.Drawing.Size(463, 122)
+        Me.dgvAnhaenge.TabIndex = 112
+        '
+        'columnName
+        '
+        Me.columnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.columnName.HeaderText = "Name"
+        Me.columnName.Name = "columnName"
+        Me.columnName.ReadOnly = True
+        '
+        'Label9
+        '
+        Me.Label9.Location = New System.Drawing.Point(10, 206)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(103, 17)
+        Me.Label9.TabIndex = 110
+        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(151, 203)
+        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 = 111
+        Me.sbAbgangZollstelle.usrcntl = Nothing
+        '
+        'txtDyMandant
+        '
+        Me.txtDyMandant.BackColor = System.Drawing.Color.White
+        Me.txtDyMandant.Location = New System.Drawing.Point(2, 2)
+        Me.txtDyMandant.Name = "txtDyMandant"
+        Me.txtDyMandant.Size = New System.Drawing.Size(44, 13)
+        Me.txtDyMandant.TabIndex = 109
+        Me.txtDyMandant.Text = "VERG"
+        Me.txtDyMandant.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.BackColor = System.Drawing.Color.White
+        Me.Label1.Location = New System.Drawing.Point(190, 2)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(82, 13)
+        Me.Label1.TabIndex = 106
+        Me.Label1.Text = "Bezugsnummer:"
+        '
+        'txtDyNiederlassung
+        '
+        Me.txtDyNiederlassung.BackColor = System.Drawing.Color.White
+        Me.txtDyNiederlassung.Location = New System.Drawing.Point(52, 3)
+        Me.txtDyNiederlassung.Name = "txtDyNiederlassung"
+        Me.txtDyNiederlassung.Size = New System.Drawing.Size(45, 12)
+        Me.txtDyNiederlassung.TabIndex = 108
+        Me.txtDyNiederlassung.Text = "SUB"
+        '
+        'lblBezugsnummer
+        '
+        Me.lblBezugsnummer.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblBezugsnummer.BackColor = System.Drawing.Color.White
+        Me.lblBezugsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblBezugsnummer.Location = New System.Drawing.Point(278, 2)
+        Me.lblBezugsnummer.Name = "lblBezugsnummer"
+        Me.lblBezugsnummer.Size = New System.Drawing.Size(193, 23)
+        Me.lblBezugsnummer.TabIndex = 107
+        Me.lblBezugsnummer.Text = "4800/000000/17 AAA"
+        Me.lblBezugsnummer.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(70, 105)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(115, 25)
+        Me.Button2.TabIndex = 152
+        Me.Button2.Text = "Clear Token"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'btnCreateToken
+        '
+        Me.btnCreateToken.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCreateToken.Location = New System.Drawing.Point(274, 105)
+        Me.btnCreateToken.Name = "btnCreateToken"
+        Me.btnCreateToken.Size = New System.Drawing.Size(115, 25)
+        Me.btnCreateToken.TabIndex = 151
+        Me.btnCreateToken.Text = "Create Token"
+        Me.btnCreateToken.UseVisualStyleBackColor = True
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.Label2.Location = New System.Drawing.Point(68, 41)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(98, 13)
+        Me.Label2.TabIndex = 150
+        Me.Label2.Text = "Token (valid 24hrs)"
+        Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        '
+        'rtfToken
+        '
+        Me.rtfToken.Location = New System.Drawing.Point(70, 57)
+        Me.rtfToken.Name = "rtfToken"
+        Me.rtfToken.Size = New System.Drawing.Size(319, 42)
+        Me.rtfToken.TabIndex = 149
+        Me.rtfToken.Text = ""
+        '
+        'frmDigicust
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
+        Me.ClientSize = New System.Drawing.Size(484, 769)
+        Me.Controls.Add(Me.pnlHead)
+        Me.Controls.Add(Me.Button1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmDigicust"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Digicust"
+        Me.pnlHead.ResumeLayout(False)
+        Me.pnlHead.PerformLayout()
+        CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Button1 As Button
+    Friend WithEvents pnlHead As Panel
+    Friend WithEvents lblInfo As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cboStammreferenz As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtLKWId As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents usrCntl_Carrier As SDL.usrCntlAdresse
+    Friend WithEvents txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents dtpDat As DateTimePicker
+    Friend WithEvents Label7 As Label
+    Friend WithEvents lblC As Label
+    Friend WithEvents txtTransporttemp As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cbxTemperatur As CheckBox
+    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 Label4 As Label
+    Friend WithEvents sbBestimmungsZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents dgvAnhaenge As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents columnName As DataGridViewTextBoxColumn
+    Friend WithEvents Label9 As Label
+    Friend WithEvents sbAbgangZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
+    Friend WithEvents txtDyMandant As Label
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtDyNiederlassung As Label
+    Friend WithEvents lblBezugsnummer As Label
+    Friend WithEvents Button2 As Button
+    Friend WithEvents btnCreateToken As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents rtfToken As RichTextBox
+End Class

Aviso/frmDigicust.vb

@@ -0,0 +1,524 @@
+Imports DocumentFormat.OpenXml.Vml.Presentation
+Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
+Imports GrapeCity.ActiveReports.ReportsCore.Tools
+Imports Newtonsoft.Json.Linq
+Imports SDL
+Imports VERAG_PROG_ALLGEMEIN
+
+
+Public Class frmDigicust
+
+
+    Dim api As cDigicustAPI
+
+
+    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")
+    Dim VermerkeDAL As New cVermerkeDAL
+    Dim NCTS As DAKOSY_Worker.cDakosyNCTSOut = Nothing
+    Dim openExisting As Boolean = False
+    Dim id As Integer = -1
+    Dim dgv As DataGridView = Nothing
+    Dim atez_data As cATEZ_NCTS_DATA
+    Dim atez = New cATEZ_NCTS_IN
+
+    Property BezugsNr As String = ""
+    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
+
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, Optional _dgv As DataGridView = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        If _dgv IsNot Nothing Then Me.dgv = _dgv
+        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
+
+
+    Sub New(_id As Integer, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        openExisting = True
+        id = _id
+
+        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
+        Try
+
+            If atez_data.status = "Sent" Then
+                MsgBox(IIf(atez_data.json <> "", atez_data.json, ""))
+                Exit Sub
+            End If
+
+            If Not checkAttachment() Then
+                Exit Sub
+            End If
+
+
+            If Not checkMandatoryField() Then
+                Exit Sub
+            End If
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            lblInfo.Text = ""
+
+            With atez_data
+
+                .AvisoId = AVISO.AvisoID
+                .SendungsId = SENDUNG.tblSnd_SendungID
+                .VERAG_LRN = lblBezugsnummer.Text
+                .LicensePlateContainerNo = txtLKWId.Text
+                .DAKOSY_TemplateCode = cboStammreferenz._value
+                .DAKOSY_IOPartner = txtDyMandant.Text
+                .DAKOSY_Division3 = txtDyNiederlassung.Text
+                .DepartureCustomsOffice = sbAbgangZollstelle._value
+                .DestinationCustomsOffice = sbBestimmungsZollstelle._value
+                .DatDeterminationLimit = txtDat.Text
+                .CoolingTemperature = IIf(cbxTemperatur.Checked, txtTransporttemp.Text, "")
+                .Carrier_Name = usrCntl_Carrier.kdFirma.Text
+                .Carrier_Adress_City = usrCntl_Carrier.txtOrt.Text
+                .Carrier_Adress_Country = usrCntl_Carrier.sbLand._value
+                .Carrier_Adress_Postcode = usrCntl_Carrier.txtPlz.Text
+                .Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
+                .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
+                .Guarantee_GRN = "" 'leer 
+
+                For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
+                    If isSelected Then
+                        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
+                    End If
+                Next
+
+                .SAVE()
+
+            End With
+
+            saveRoute(atez_data)
+
+            sendAtezData(atez_data, atez)
+
+            Me.Cursor = Cursors.Default
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Me.Cursor = Cursors.Default
+        End Try
+
+    End Sub
+
+    Private Sub sendAtezData(atezData As cATEZ_NCTS_DATA, atez As cATEZ_NCTS_IN)
+
+        Dim failreDesc As String
+
+        Dim authResp = atez.authenticate()
+        If authResp <> "200" Then
+            failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
+            lblInfo.Text = failreDesc
+            Exit Sub
+        End If
+
+
+        If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+
+        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")
+
+
+        Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
+
+        If failreDesc <> "" Then
+            If atezData.status = "Draft" Then
+                MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+                atezData.fehlerbeschreibung = failreDesc
+                atezData.SAVE()
+                Exit Sub
+            End If
+            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+            If result = vbYes Then
+                atezData.status = "Draft"
+                atezData.fehlerbeschreibung = failreDesc
+                atezData.SAVE()
+            End If
+
+            lblInfo.Text = "Fehler in der API "
+
+        Else
+            atezData.status = "Sent"
+            atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
+            atezData.SAVE()
+            Me.Close()
+        End If
+
+    End Sub
+
+    Function getBezugsnr(ByRef BezugsNr)
+        Dim BezugsNrTmp = ""
+        BezugsNrTmp = SENDUNG.FilialenNr & "/" & SENDUNG.AbfertigungsNr
+        BezugsNr = BezugsNrTmp
+        zusatz = "A"
+
+        If dgv IsNot Nothing AndAlso dgv.Rows.Count > 0 Then
+            BezugsNr = BezugsNrTmp & "/" & zusatz
+            For Each r As DataGridViewRow In dgv.Rows
+                If r.Cells("BezugsNr").Value = BezugsNr Then
+
+                    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 If
+                BezugsNr = BezugsNrTmp & "/" & zusatz
+            Next
+
+        End If
+
+        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()
+
+        'If openExisting Then
+
+        '    If id > 0 Then
+        '        atez_data = New cATEZ_NCTS_DATA(id)
+
+        '        If atez_data.atezId <> "" Then
+        '            lblInfo.Text = "Atez-ID " & atez_data.atezId
+        '        Else
+        '            lblInfo.Text = "Status: " & atez_data.status
+        '        End If
+
+
+        '        lblBezugsnummer.Text = atez_data.VERAG_LRN
+
+        '        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(atez_data.DAKOSY_TemplateCode)
+
+        '        txtLKWId.Text = atez_data.LicensePlateContainerNo
+
+        '        sbBestimmungsZollstelle.SET_VALUE(atez_data.DestinationCustomsOffice)
+        '        sbAbgangZollstelle.SET_VALUE(atez_data.DepartureCustomsOffice)
+
+        '        cbxTemperatur.Checked = IIf(atez_data.CoolingTemperature <> "", True, False)
+        '        txtTransporttemp.Text = atez_data.CoolingTemperature
+
+        '        txtDat.Text = IIf(atez_data.DatDeterminationLimit IsNot DBNull.Value, atez_data.DatDeterminationLimit, "")
+
+        '        usrCntl_Carrier.kdFirma.Text = atez_data.Carrier_Name
+        '        usrCntl_Carrier.txtStrasse.Text = atez_data.Carrier_Adress_Street
+        '        usrCntl_Carrier.txtPlz.Text = atez_data.Carrier_Adress_Postcode
+        '        usrCntl_Carrier.txtOrt.Text = atez_data.Carrier_Adress_City
+        '        usrCntl_Carrier.sbLand._value = atez_data.Carrier_Adress_Country
+        '        usrCntl_Carrier.txtEORI.Text = atez_data.Carrier_EORI
+
+        '        setRoute()
+
+        '        If atez_data.status = "Draft" Then
+        '            Button1.Text = "An ATEZ senden -->"
+        '            pnlHead.Enabled = True
+        '            Button1.Enabled = True
+        '            initAttachment()
+
+        '        Else
+        '            Button1.Text = "JSON"
+        '            pnlHead.Enabled = False
+        '            Button1.Enabled = True
+        '        End If
+
+
+        '    Else
+        '        Button1.Enabled = False
+        '    End If
+
+        'Else
+        '    atez_data = New cATEZ_NCTS_DATA()
+        '    Button1.Text = "An ATEZ senden -->"
+        '    pnlHead.Enabled = True
+
+        '    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
+
+        '    cbxTemperatur.Checked = IIf(AVISO.TransportTemperatur <> "", True, False)
+        '    txtTransporttemp.Text = AVISO.TransportTemperatur
+
+        '    If AVISO.Frächter_KdNr IsNot Nothing AndAlso IsNumeric(AVISO.Frächter_KdNr) AndAlso AVISO.Frächter_KdNr > 0 Then
+        '        usrCntl_Carrier.kdFirma.initKdBox(Me)
+        '        usrCntl_Carrier.kdFirma.KdNr = AVISO.Frächter_KdNr
+        '    End If
+
+        '    If AVISO.Grenzstelle.Replace("???", "") = "" Then
+        '        sbAbgangZollstelle.SET_VALUE(AVISO.Zollstelle)
+        '    Else
+
+        '        Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
+        '        If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
+        '            If GRZ.grz_ZollamtDST IsNot Nothing Then
+        '                sbAbgangZollstelle.SET_VALUE(GRZ.grz_ZollamtDST)
+        '            End If
+        '        End If
+        '    End If
+
+        'End If
+
+
+    End Sub
+
+    Sub initAttachment()
+        Dim hSQL As String = " SELECT [anh_id],anh_Datum,[anh_Name],[anh_docId],
+
+                                                CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
+                                                when [anh_Art] = 'Rechnung' then 'INVOICE'
+                                                when [anh_Art] = 'eFatura' then 'INVOICE'
+                                                when [anh_Art] = 'CMR' then 'CMR'
+                                                when [anh_Art] = 'Ausfuhr' then 'OTHER'
+                                                when [anh_Art] = 'Vorpapier' then 'OTHER'
+                                                when [anh_Art] = 'Packliste' then 'PACK'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Auftrag' then 'OTHER'
+                                                when [anh_Art] = 'Dispoliste' then 'OTHER'
+                                                when [anh_Art] = 'Vorkasse' then 'OTHER'
+                                                when [anh_Art] = 'Überweisungsbeleg' then 'OTHER'
+                                                when [anh_Art] = 'Vollmacht' then 'OTHER'
+                                                when [anh_Art] = 'ATB' then 'OTHER'
+                                                when [anh_Art] = 'ATA' then 'CarnetATA'
+                                                when [anh_Art] = 'Sonstiges' then 'OTHER'
+                                                when [anh_Art] ='' then 'OTHER' End
+                                                [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
+                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <= 0 And anh_Typ = 'PDF'
+                                        Order BY  [anh_Reihenfolge], anh_Datum desc, [anh_id]"
+
+        Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
+
+        Dim col As DataColumn
+        col = dt.Columns.Add("anh_selekt", GetType(Boolean))
+        col.SetOrdinal(0)
+
+        dgvAnhaenge.DataSource = dt
+
+        If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
+
+        With dgvAnhaenge
+
+            .Enabled = True
+            .ReadOnly = False
+
+            .RowTemplate.MinimumHeight = 30
+            .AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
+            .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
+            .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
+
+            .Columns("anh_selekt").MinimumWidth = 50
+            .Columns("anh_selekt").HeaderText = "ausgewählt"
+            .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Datum").MinimumWidth = 50
+            .Columns("anh_Datum").HeaderText = "Datum"
+            .Columns("anh_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+
+            .Columns("anh_Name").MinimumWidth = 150
+            .Columns("anh_Name").HeaderText = "Name"
+            .Columns("anh_Name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("anh_Art").MinimumWidth = 50
+            .Columns("anh_Art").HeaderText = "Art"
+            .Columns("anh_Art").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("anh_Typ").Width = 60
+            .Columns("anh_Typ").HeaderText = "Typ"
+            .Columns("anh_Typ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+        End With
+
+    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"})
+
+        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
+
+    Private Sub lklRoutenauswahl_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklRoutenauswahl.LinkClicked
+        Dim frmRoutenauswahl As New frmRoutenauswahl
+        If frmRoutenauswahl.ShowDialog(Me) = DialogResult.OK Then
+            If frmRoutenauswahl.ROUTE.Count > 0 Then sbRoute1.SET_VALUE(frmRoutenauswahl.ROUTE(0)) Else sbRoute1.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 1 Then sbRoute2.SET_VALUE(frmRoutenauswahl.ROUTE(1)) Else sbRoute2.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 2 Then sbRoute3.SET_VALUE(frmRoutenauswahl.ROUTE(2)) Else sbRoute3.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 3 Then sbRoute4.SET_VALUE(frmRoutenauswahl.ROUTE(3)) Else sbRoute4.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 4 Then sbRoute5.SET_VALUE(frmRoutenauswahl.ROUTE(4)) Else sbRoute5.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 5 Then sbRoute6.SET_VALUE(frmRoutenauswahl.ROUTE(5)) Else sbRoute6.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 6 Then sbRoute7.SET_VALUE(frmRoutenauswahl.ROUTE(6)) Else sbRoute7.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 7 Then sbRoute8.SET_VALUE(frmRoutenauswahl.ROUTE(7)) Else sbRoute8.SET_VALUE("")
+            If frmRoutenauswahl.ROUTE.Count > 8 Then sbRoute9.SET_VALUE(frmRoutenauswahl.ROUTE(8)) Else sbRoute9.SET_VALUE("")
+
+        End If
+    End Sub
+
+    Private Sub dtpDat_ValueChanged(sender As Object, e As EventArgs) Handles dtpDat.ValueChanged
+        txtDat._value = CDate(sender.value).ToShortDateString
+    End Sub
+
+
+    Public Function checkAttachment() As Boolean
+
+        Dim selectedDocuments As Boolean = False
+
+        For Each Row In dgvAnhaenge.Rows
+
+            selectedDocuments = IIf(DBNull.Value Is Row.Cells("anh_selekt").Value, False, Row.Cells("anh_selekt").Value)
+            If selectedDocuments Then Exit For
+        Next
+
+        If Not selectedDocuments Then
+            lblInfo.Text = "kein Anhang selektiert"
+            Cursor = Cursors.Default
+            Return selectedDocuments
+        End If
+
+        Return selectedDocuments
+
+    End Function
+
+    Public Function checkMandatoryField() As Boolean
+
+
+        'TODO
+        Return True
+
+
+    End Function
+
+
+    Public Sub setRoute()
+
+        Dim Route_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen)
+        VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, id)
+
+        Dim i = 0
+        For Each route In Route_LIST
+            If i = 0 Then sbRoute1.SET_VALUE(route.Route_Country)
+            If i = 1 Then sbRoute2.SET_VALUE(route.Route_Country)
+            If i = 2 Then sbRoute3.SET_VALUE(route.Route_Country)
+            If i = 3 Then sbRoute4.SET_VALUE(route.Route_Country)
+            If i = 4 Then sbRoute5.SET_VALUE(route.Route_Country)
+            If i = 5 Then sbRoute6.SET_VALUE(route.Route_Country)
+            If i = 6 Then sbRoute7.SET_VALUE(route.Route_Country)
+            If i = 7 Then sbRoute8.SET_VALUE(route.Route_Country)
+            If i = 8 Then sbRoute9.SET_VALUE(route.Route_Country)
+            i = i + 1
+        Next
+
+
+    End Sub
+
+
+
+    Public Sub saveRoute(atezData As cATEZ_NCTS_DATA)
+
+
+        If sbRoute1._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute1._value)
+        If sbRoute2._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute2._value)
+        If sbRoute3._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute3._value)
+        If sbRoute4._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute4._value)
+        If sbRoute5._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute5._value)
+        If sbRoute6._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute6._value)
+        If sbRoute7._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute7._value)
+        If sbRoute8._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute8._value)
+        If sbRoute9._value <> "" Then Dim route As New cATEZ_NCTS_Routen(atezData.Id, sbRoute9._value)
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        rtfToken.Text = ""
+    End Sub
+
+    Private Sub btnCreateToken_Click(sender As Object, e As EventArgs) Handles btnCreateToken.Click
+        Label2.Text = "Status: " & api.authenticate(rtfToken.Text)
+        If rtfToken.Text <> "" Then
+            Label1.Text = "Token (valid 24hrs) until: " & Now().AddHours(24)
+        Else
+            Label1.Text = "Token (valid 24hrs)"
+        End If
+
+    End Sub
+End Class

Aviso/frmSendungsdetailsNEU.resx

@@ -1531,6 +1531,9 @@
         mVCCPwiVeQBaqAV4Jfq5XQAAAABJRU5ErkJggg==
 </value>
   </data>
+  <metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>296, 17</value>
+  </metadata>
   <data name="Button6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAIdJREFUOE/V
@@ -1651,6 +1654,18 @@
   <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   </metadata>
+  <metadata name="clmnVK_id.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnFirma.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnLeistung.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
+  <metadata name="clmnPreis.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>True</value>
+  </metadata>
   <data name="Button9.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAAHtJREFUSEvt
@@ -2059,6 +2074,9 @@
   <metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>174, 17</value>
   </metadata>
+  <metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>404, 17</value>
+  </metadata>
   <metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>596, 17</value>
   </metadata>
@@ -2508,6 +2526,9 @@
         fjuTNv9i/tQzLEixxaJZiCHx/5vo8E9z4BWUwHZVTQAAAABJRU5ErkJggg==
 </value>
   </data>
+  <metadata name="cntxAPI.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>49, 41</value>
+  </metadata>
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         AAABAAEAgIAAAAEAIAAoCAEAFgAAACgAAACAAAAAAAEAAAEAIAAAAAAAAAgBABMLAAATCwAAAAAAAAAA

Aviso/frmSendungsdetailsNEU.vb

@@ -6278,11 +6278,20 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
+    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
+        SAVE_ME()
 
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+            End If
 
-    Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
+        Catch ex As Exception
-        'MsgBox("Funktion noch nicht implementiert!")
+            MsgBox(ex.Message & ex.StackTrace)
-        'Exit Sub
+        End Try
+        Me.Cursor = Cursors.Default
 
         SAVE_ME()
         If Not IsNumeric(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) OrElse CInt(SENDUNG_LIST(CURRENT_INDEX).AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
@@ -6293,7 +6302,41 @@ Public Class frmSendungsdetailsNEU
                                      End Sub
     End Sub
 
-    Sub initdgvATEZ()
+    Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.Click
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+
+
+    End Sub
+
+    Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                If AVISO.ImEx.ToLower() <> "import" Then
+                    MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren")
+                    Exit Sub
+                End If
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"))
+                frm.Show(Me)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
+      Sub initdgvATEZ()
         With dgvATEZNCTS
             .Columns.Clear()
             .ReadOnly = False
@@ -6340,24 +6383,4 @@ Public Class frmSendungsdetailsNEU
         End Try
 
     End Sub
-
-    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
-        SAVE_ME()
-
-        Try
-            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
-                frmAttilaATEZNCTS.Show(Me)
-            End If
-
-        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
-        End Try
-        Me.Cursor = Cursors.Default
-
-        initTab()
-
-
-    End Sub
 End Class

Gemeinsames/Gemeinsames.vbproj

@@ -211,7 +211,6 @@
     <EmbeddedResource Include="frmGrayOut.resx">
       <DependentUpon>frmGrayOut.vb</DependentUpon>
     </EmbeddedResource>
-    <EmbeddedResource Include="My Project\licenses.licx" />
     <EmbeddedResource Include="My Project\Resources.resx">
       <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
       <LastGenOutput>Resources.Designer.vb</LastGenOutput>

Gemeinsames/My Project/licenses.licx

@@ -1 +0,0 @@
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff