Nacherfassung Abf.Land; NCTS 004 Anpassungen

SDL/My Project/AssemblyInfo.vb

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

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb

@@ -121,8 +121,12 @@ Partial Class frmNacherfassungNEU
         Me.Label34 = New System.Windows.Forms.Label()
         Me.btnFertig = New System.Windows.Forms.Button()
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.cboAbfertigungsLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxEIDR = New System.Windows.Forms.CheckBox()
         Me.Button4 = New System.Windows.Forms.Button()
+        Me.cboNiederlassung = New System.Windows.Forms.ComboBox()
+        Me.Label56 = New System.Windows.Forms.Label()
+        Me.btnATLASPOS = New System.Windows.Forms.Button()
         Me.txtKdAuftragsnummerEmpfaenger = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtKdAuftragsnummerFrachtfuehrer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtKdAuftragsnummerAvisierer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -205,11 +209,10 @@ Partial Class frmNacherfassungNEU
         Me.txtEndEmpfKdNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtBelegNummerZAT1T2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.pnlZOll = New System.Windows.Forms.Panel()
-        Me.cboNiederlassung = New System.Windows.Forms.ComboBox()
+        Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label56 = New System.Windows.Forms.Label()
+        Me.Label65 = New System.Windows.Forms.Label()
         Me.lblZollsys = New System.Windows.Forms.Label()
         Me.cboZollsystem = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.btnATLASPOS = New System.Windows.Forms.Button()
         Me.txtAtlasBezNrEZA = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtAtlasBezNrNCTS = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label26 = New System.Windows.Forms.Label()
@@ -233,8 +236,6 @@ Partial Class frmNacherfassungNEU
         Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label65 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         Me.Panel3.SuspendLayout()
         Me.GroupBox4.SuspendLayout()
@@ -786,9 +787,9 @@ Partial Class frmNacherfassungNEU
         Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label13.Location = New System.Drawing.Point(12, 74)
         Me.Label13.Name = "Label13"
-        Me.Label13.Size = New System.Drawing.Size(97, 13)
+        Me.Label13.Size = New System.Drawing.Size(83, 13)
         Me.Label13.TabIndex = 3
-        Me.Label13.Text = "Abfertigungsart:"
+        Me.Label13.Text = "Abf.land/-art:"
         '
         'Label14
         '
@@ -1465,6 +1466,7 @@ Partial Class frmNacherfassungNEU
         'Panel1
         '
         Me.Panel1.AutoScroll = True
+        Me.Panel1.Controls.Add(Me.cboAbfertigungsLand)
         Me.Panel1.Controls.Add(Me.cbxEIDR)
         Me.Panel1.Controls.Add(Me.Button4)
         Me.Panel1.Controls.Add(Me.cboNiederlassung)
@@ -1568,6 +1570,19 @@ Partial Class frmNacherfassungNEU
         Me.Panel1.Size = New System.Drawing.Size(883, 818)
         Me.Panel1.TabIndex = 1
         '
+        'cboAbfertigungsLand
+        '
+        Me.cboAbfertigungsLand._allowedValuesFreiText = Nothing
+        Me.cboAbfertigungsLand._allowFreiText = False
+        Me.cboAbfertigungsLand._value = ""
+        Me.cboAbfertigungsLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
+        Me.cboAbfertigungsLand.DropDownWidth = 250
+        Me.cboAbfertigungsLand.FormattingEnabled = True
+        Me.cboAbfertigungsLand.Location = New System.Drawing.Point(116, 71)
+        Me.cboAbfertigungsLand.Name = "cboAbfertigungsLand"
+        Me.cboAbfertigungsLand.Size = New System.Drawing.Size(63, 21)
+        Me.cboAbfertigungsLand.TabIndex = 3
+        '
         'cbxEIDR
         '
         Me.cbxEIDR.AutoSize = True
@@ -1591,6 +1606,37 @@ Partial Class frmNacherfassungNEU
         Me.Button4.Text = "Endempfänger Liste"
         Me.Button4.UseVisualStyleBackColor = True
         '
+        'cboNiederlassung
+        '
+        Me.cboNiederlassung.FormattingEnabled = True
+        Me.cboNiederlassung.Items.AddRange(New Object() {"SUB", "SBG", "WAI", "NEU", "SUW"})
+        Me.cboNiederlassung.Location = New System.Drawing.Point(301, 309)
+        Me.cboNiederlassung.Name = "cboNiederlassung"
+        Me.cboNiederlassung.Size = New System.Drawing.Size(74, 21)
+        Me.cboNiederlassung.TabIndex = 2
+        '
+        'Label56
+        '
+        Me.Label56.AutoSize = True
+        Me.Label56.Location = New System.Drawing.Point(298, 293)
+        Me.Label56.Name = "Label56"
+        Me.Label56.Size = New System.Drawing.Size(77, 13)
+        Me.Label56.TabIndex = 0
+        Me.Label56.Text = "Niederlassung:"
+        '
+        'btnATLASPOS
+        '
+        Me.btnATLASPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnATLASPOS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
+        Me.btnATLASPOS.Location = New System.Drawing.Point(318, 315)
+        Me.btnATLASPOS.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
+        Me.btnATLASPOS.Name = "btnATLASPOS"
+        Me.btnATLASPOS.Size = New System.Drawing.Size(29, 24)
+        Me.btnATLASPOS.TabIndex = 10
+        Me.btnATLASPOS.Text = "Pos"
+        Me.btnATLASPOS.UseVisualStyleBackColor = True
+        Me.btnATLASPOS.Visible = False
+        '
         'txtKdAuftragsnummerEmpfaenger
         '
         Me.txtKdAuftragsnummerEmpfaenger._DateTimeOnly = False
@@ -2172,6 +2218,7 @@ Partial Class frmNacherfassungNEU
         Me.txtAvisierer._displayWoelflKd = False
         Me.txtAvisierer._hideIfListEmpty = True
         Me.txtAvisierer._loadKdData = False
+        Me.txtAvisierer._searchName1 = True
         Me.txtAvisierer._UseFIRMA = ""
         Me.txtAvisierer._ValueKdAndName = False
         Me.txtAvisierer.dgvpos = "LEFT"
@@ -2247,6 +2294,7 @@ Partial Class frmNacherfassungNEU
         Me.txtEUFiskalEmpf._displayWoelflKd = False
         Me.txtEUFiskalEmpf._hideIfListEmpty = True
         Me.txtEUFiskalEmpf._loadKdData = False
+        Me.txtEUFiskalEmpf._searchName1 = True
         Me.txtEUFiskalEmpf._UseFIRMA = ""
         Me.txtEUFiskalEmpf._ValueKdAndName = False
         Me.txtEUFiskalEmpf.dgvpos = "LEFT"
@@ -2276,6 +2324,7 @@ Partial Class frmNacherfassungNEU
         Me.txtEndEmpf._displayWoelflKd = False
         Me.txtEndEmpf._hideIfListEmpty = True
         Me.txtEndEmpf._loadKdData = False
+        Me.txtEndEmpf._searchName1 = True
         Me.txtEndEmpf._UseFIRMA = ""
         Me.txtEndEmpf._ValueKdAndName = False
         Me.txtEndEmpf.dgvpos = "LEFT"
@@ -2304,6 +2353,7 @@ Partial Class frmNacherfassungNEU
         Me.txtFraechter._displayWoelflKd = False
         Me.txtFraechter._hideIfListEmpty = True
         Me.txtFraechter._loadKdData = False
+        Me.txtFraechter._searchName1 = True
         Me.txtFraechter._UseFIRMA = ""
         Me.txtFraechter._ValueKdAndName = False
         Me.txtFraechter.dgvpos = "LEFT"
@@ -2332,6 +2382,7 @@ Partial Class frmNacherfassungNEU
         Me.txtAuftraggeber._displayWoelflKd = False
         Me.txtAuftraggeber._hideIfListEmpty = True
         Me.txtAuftraggeber._loadKdData = False
+        Me.txtAuftraggeber._searchName1 = True
         Me.txtAuftraggeber._UseFIRMA = ""
         Me.txtAuftraggeber._ValueKdAndName = False
         Me.txtAuftraggeber.dgvpos = "LEFT"
@@ -2360,6 +2411,7 @@ Partial Class frmNacherfassungNEU
         Me.txtEmpfaenger._displayWoelflKd = False
         Me.txtEmpfaenger._hideIfListEmpty = True
         Me.txtEmpfaenger._loadKdData = False
+        Me.txtEmpfaenger._searchName1 = True
         Me.txtEmpfaenger._UseFIRMA = ""
         Me.txtEmpfaenger._ValueKdAndName = False
         Me.txtEmpfaenger.dgvpos = "LEFT"
@@ -2388,6 +2440,7 @@ Partial Class frmNacherfassungNEU
         Me.txtAbsender._displayWoelflKd = False
         Me.txtAbsender._hideIfListEmpty = True
         Me.txtAbsender._loadKdData = False
+        Me.txtAbsender._searchName1 = True
         Me.txtAbsender._UseFIRMA = ""
         Me.txtAbsender._ValueKdAndName = False
         Me.txtAbsender.dgvpos = "LEFT"
@@ -2640,9 +2693,9 @@ Partial Class frmNacherfassungNEU
         Me.cboAbfertigungsart.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
         Me.cboAbfertigungsart.DropDownWidth = 250
         Me.cboAbfertigungsart.FormattingEnabled = True
-        Me.cboAbfertigungsart.Location = New System.Drawing.Point(116, 71)
+        Me.cboAbfertigungsart.Location = New System.Drawing.Point(178, 71)
         Me.cboAbfertigungsart.Name = "cboAbfertigungsart"
-        Me.cboAbfertigungsart.Size = New System.Drawing.Size(264, 21)
+        Me.cboAbfertigungsart.Size = New System.Drawing.Size(202, 21)
         Me.cboAbfertigungsart.TabIndex = 4
         '
         'txtRohmasse
@@ -3049,23 +3102,38 @@ Partial Class frmNacherfassungNEU
         Me.pnlZOll.Size = New System.Drawing.Size(883, 50)
         Me.pnlZOll.TabIndex = 0
         '
-        'cboNiederlassung
+        'txtAtlasBezNrAES
         '
-        Me.cboNiederlassung.FormattingEnabled = True
+        Me.txtAtlasBezNrAES._DateTimeOnly = False
-        Me.cboNiederlassung.Items.AddRange(New Object() {"SUB", "SBG", "WAI", "NEU", "SUW"})
+        Me.txtAtlasBezNrAES._numbersOnly = False
-        Me.cboNiederlassung.Location = New System.Drawing.Point(301, 309)
+        Me.txtAtlasBezNrAES._numbersOnlyKommastellen = ""
-        Me.cboNiederlassung.Name = "cboNiederlassung"
+        Me.txtAtlasBezNrAES._numbersOnlyTrennzeichen = True
-        Me.cboNiederlassung.Size = New System.Drawing.Size(74, 21)
+        Me.txtAtlasBezNrAES._Prozent = False
-        Me.cboNiederlassung.TabIndex = 3
+        Me.txtAtlasBezNrAES._ShortDateNew = False
+        Me.txtAtlasBezNrAES._ShortDateOnly = False
+        Me.txtAtlasBezNrAES._TimeOnly = False
+        Me.txtAtlasBezNrAES._TimeOnly_Seconds = False
+        Me.txtAtlasBezNrAES._value = Nothing
+        Me.txtAtlasBezNrAES._Waehrung = False
+        Me.txtAtlasBezNrAES._WaehrungZeichen = True
+        Me.txtAtlasBezNrAES.ForeColor = System.Drawing.Color.Black
+        Me.txtAtlasBezNrAES.Location = New System.Drawing.Point(571, 18)
+        Me.txtAtlasBezNrAES.MaxLength = 22
+        Me.txtAtlasBezNrAES.MaxLineLength = -1
+        Me.txtAtlasBezNrAES.MaxLines_Warning = ""
+        Me.txtAtlasBezNrAES.MaxLines_Warning_Label = Nothing
+        Me.txtAtlasBezNrAES.Name = "txtAtlasBezNrAES"
+        Me.txtAtlasBezNrAES.Size = New System.Drawing.Size(100, 20)
+        Me.txtAtlasBezNrAES.TabIndex = 11
         '
-        'Label56
+        'Label65
         '
-        Me.Label56.AutoSize = True
+        Me.Label65.AutoSize = True
-        Me.Label56.Location = New System.Drawing.Point(298, 293)
+        Me.Label65.Location = New System.Drawing.Point(534, 22)
-        Me.Label56.Name = "Label56"
+        Me.Label65.Name = "Label65"
-        Me.Label56.Size = New System.Drawing.Size(77, 13)
+        Me.Label65.Size = New System.Drawing.Size(31, 13)
-        Me.Label56.TabIndex = 0
+        Me.Label65.TabIndex = 10
-        Me.Label56.Text = "Niederlassung:"
+        Me.Label65.Text = "AES:"
         '
         'lblZollsys
         '
@@ -3090,19 +3158,6 @@ Partial Class frmNacherfassungNEU
         Me.cboZollsystem.Size = New System.Drawing.Size(62, 21)
         Me.cboZollsystem.TabIndex = 4
         '
-        'btnATLASPOS
-        '
-        Me.btnATLASPOS.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnATLASPOS.ImageAlign = System.Drawing.ContentAlignment.TopCenter
-        Me.btnATLASPOS.Location = New System.Drawing.Point(318, 315)
-        Me.btnATLASPOS.Margin = New System.Windows.Forms.Padding(10, 3, 3, 3)
-        Me.btnATLASPOS.Name = "btnATLASPOS"
-        Me.btnATLASPOS.Size = New System.Drawing.Size(29, 24)
-        Me.btnATLASPOS.TabIndex = 10
-        Me.btnATLASPOS.Text = "Pos"
-        Me.btnATLASPOS.UseVisualStyleBackColor = True
-        Me.btnATLASPOS.Visible = False
-        '
         'txtAtlasBezNrEZA
         '
         Me.txtAtlasBezNrEZA._DateTimeOnly = False
@@ -3387,39 +3442,6 @@ Partial Class frmNacherfassungNEU
         Me.KopierenZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
         Me.KopierenZwischenablageToolStripMenuItem.Text = "Kopieren (Zwischenablage)"
         '
-        'txtAtlasBezNrAES
-        '
-        Me.txtAtlasBezNrAES._DateTimeOnly = False
-        Me.txtAtlasBezNrAES._numbersOnly = False
-        Me.txtAtlasBezNrAES._numbersOnlyKommastellen = ""
-        Me.txtAtlasBezNrAES._numbersOnlyTrennzeichen = True
-        Me.txtAtlasBezNrAES._Prozent = False
-        Me.txtAtlasBezNrAES._ShortDateNew = False
-        Me.txtAtlasBezNrAES._ShortDateOnly = False
-        Me.txtAtlasBezNrAES._TimeOnly = False
-        Me.txtAtlasBezNrAES._TimeOnly_Seconds = False
-        Me.txtAtlasBezNrAES._value = Nothing
-        Me.txtAtlasBezNrAES._Waehrung = False
-        Me.txtAtlasBezNrAES._WaehrungZeichen = True
-        Me.txtAtlasBezNrAES.ForeColor = System.Drawing.Color.Black
-        Me.txtAtlasBezNrAES.Location = New System.Drawing.Point(571, 18)
-        Me.txtAtlasBezNrAES.MaxLength = 22
-        Me.txtAtlasBezNrAES.MaxLineLength = -1
-        Me.txtAtlasBezNrAES.MaxLines_Warning = ""
-        Me.txtAtlasBezNrAES.MaxLines_Warning_Label = Nothing
-        Me.txtAtlasBezNrAES.Name = "txtAtlasBezNrAES"
-        Me.txtAtlasBezNrAES.Size = New System.Drawing.Size(100, 20)
-        Me.txtAtlasBezNrAES.TabIndex = 11
-        '
-        'Label65
-        '
-        Me.Label65.AutoSize = True
-        Me.Label65.Location = New System.Drawing.Point(534, 22)
-        Me.Label65.Name = "Label65"
-        Me.Label65.Size = New System.Drawing.Size(31, 13)
-        Me.Label65.TabIndex = 10
-        Me.Label65.Text = "AES:"
-        '
         'frmNacherfassungNEU
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3663,4 +3685,5 @@ Partial Class frmNacherfassungNEU
     Public WithEvents Button5 As Button
     Friend WithEvents txtAtlasBezNrAES As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label65 As Label
+    Friend WithEvents cboAbfertigungsLand As VERAG_PROG_ALLGEMEIN.MyComboBox
 End Class

SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb

@@ -103,7 +103,8 @@ Public Class frmNacherfassungNEU
             cboSachbearbeiter.fillWithSQL("SELECT  ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " and [SBSichtbar]=1  ORDER BY Name ", False, "FMZOLL", True)
 
             If SQL.getValueTxtBySql("SELECT count(*) FROM tblAbfertigungsartenFiliale WHERE Filialennr='" & cboFiliale._value & "'", "FMZOLL") > 0 Then
-                cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart  where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
+                '  cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsarten.Abfertigungsart,[Abfertigungsbezeichnung] FROM [Abfertigungsarten] INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=Abfertigungsarten.Abfertigungsart  where Filialennr=" & cboFiliale._value & "", True, "FMZOLL", True)
+                initAbfertigungsart()
             End If
 
             If Not SPEDITIONSBUCH.hasEntry Then
@@ -176,11 +177,16 @@ Public Class frmNacherfassungNEU
         txtFraechter.KdNr = -1
         txtAvisierer.KdNr = -1
         txtEndEmpf.KdNr = -1
+        cboAbfertigungsLand.changeItem(SPEDITIONSBUCH.Zollsystem_Land)
 
         cboAbfertigungsart.changeItem(SPEDITIONSBUCH.Abfertigungsart)
         If cboAbfertigungsart._value = "" And cboAbfertigungsart.Items.Count = 2 Then
             cboAbfertigungsart.SelectedItem = cboAbfertigungsart.Items(1)
         End If
+
+
+        checkinitOLDAbfertigungsart(SPEDITIONSBUCH.Abfertigungsart)
+
         cboVersendungsland._value = SPEDITIONSBUCH.Versendungsland
         cboBestimmungsland._value = SPEDITIONSBUCH.Bestimmungsland
         ' MsgBox(SPEDITIONSBUCH.PersonalnummerQS & " ------ " & CStr(If(SPEDITIONSBUCH.PersonalnummerQS, "")))
@@ -600,9 +606,12 @@ Public Class frmNacherfassungNEU
         cbxWaehrung.fillWithSQL("  SELECT LandNr, isnull(Währungscode + ' - '  ,'') + LandBez    + ' (' + cast(LandNr as varchar(8)) + ')' FROM [Länderverzeichnis für die Außenhandelsstatistik] ORDER BY case when Währungscode is null then 1 else 0 end,LandBez ", False, "FMZOLL", True)
         '   cboAbfertigungsart.fillWithSQL(" SELECT [Abfertigungsart],cast([Abfertigungsart] as char(2)) + ' ' + [Abfertigungsbezeichnung] FROM [Abfertigungsarten] ORDER BY Abfertigungsart ", False, "FMZOLL", True)
 
-        cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung]  FROM [Abfertigungsarten]", True, "FMZOLL", True)
+        cboAbfertigungsLand.fillWithSQL("SELECT [AbfertigungsLand],[AbfertigungsLand] FROM [AbfertigungsLaender] WHERE Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' OR Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "' OR (Firma is null and cluster is null)", False, "FMZOLL", True)
+        cboZollsystem.fillWithSQL("SELECT [Zollsystemart],Zollsystembezeichnung FROM [Zollsysteme] ORDER BY Zollsystemart", False, "FMZOLL", True)
+        'cboAbfertigungsart.fillWithSQL("SELECT Abfertigungsart,[Abfertigungsbezeichnung]  FROM [Abfertigungsarten]", True, "FMZOLL", True)
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+
             Case "FRONTOFFICE"
                 cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                 cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
@@ -615,12 +624,12 @@ Public Class frmNacherfassungNEU
                 '    cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
                 '    cboZollsystem.changeItem("D")
             Case Else
-                cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-                cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
-                cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
-                cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
-                cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
-                cboZollsystem.SelectedIndex = 0
+                'cboZollsystem.SelectedIndex = 0
         End Select
 
 
@@ -805,6 +814,7 @@ Public Class frmNacherfassungNEU
 
         If Not IsNumeric(txtAnzahl.Text) OrElse txtAnzahl.Text = "0" Then txtAnzahl.Text = "1"
         If Not IsNumeric(cboAbfertigungsart._value) Then lblErrAbfertigungsart.Visible = True : Return False
+        If (cboAbfertigungsLand._value) = String.Empty Then lblErrAbfertigungsart.Visible = True : Return False
         If (IsNumeric(txtRechnungsbetrag._value) AndAlso txtRechnungsbetrag._value <> 0) Then
             If (Not IsNumeric(cbxWaehrung._value) OrElse cbxWaehrung._value <= 0) Then lblErrWaehrung.Visible = True : Return False
         End If
@@ -862,6 +872,8 @@ Public Class frmNacherfassungNEU
 
     Sub loadDatainSPEDBUCH()
         SPEDITIONSBUCH.Abfertigungsart = IIf(IsNumeric(cboAbfertigungsart._value), cboAbfertigungsart._value, Nothing)
+        SPEDITIONSBUCH.Zollsystem_Land = cboAbfertigungsLand._value
+
         SPEDITIONSBUCH.Versendungsland = cboVersendungsland._value
         SPEDITIONSBUCH.Bestimmungsland = cboBestimmungsland._value
         SPEDITIONSBUCH.Personalnummer = IIf(IsNumeric(cboSachbearbeiter._value), cboSachbearbeiter._value, Nothing)
@@ -1200,6 +1212,7 @@ Public Class frmNacherfassungNEU
         txtAuftraggeber._UseFIRMA = FirmaTmp
         txtFraechter._UseFIRMA = FirmaTmp
         txtEndEmpf._UseFIRMA = FirmaTmp
+        initAbfertigungsart()
 
         If cboFiliale._value.ToString = "7001" Then
             cbxEIDR.Visible = True
@@ -1590,6 +1603,44 @@ Public Class frmNacherfassungNEU
     Private Sub Button5_Click_2(sender As Object, e As EventArgs) Handles Button5.Click
         cSpedBuch_Aktendeckel.PrintSimpleSpedbuch("PDF", SPEDITIONSBUCH)
     End Sub
+
+
+
+
+    Sub initAbfertigungsart()
+        Dim abfTmp As String = cboAbfertigungsart._value
+        cboAbfertigungsart.fillWithSQL("
+            SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as  AA 
+            INNER JOIN AbfertigungsLaenderAbfertigungsarten as ALA ON AA.Abfertigungsart=ALA.Abfertigungsart 
+            INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart    
+            WHERE ALA.[AbfertigungsLand]='" & cboAbfertigungsLand._value & "' 
+            AND  Filialennr='" & cboFiliale._value & "'
+            GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
+        If abfTmp <> "" Then
+            cboAbfertigungsart.changeItem(abfTmp)
+        End If
+    End Sub
+
+    Private Sub cboAbfertigungsLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsLand.SelectedIndexChanged
+        initAbfertigungsart()
+    End Sub
+
+    Sub checkinitOLDAbfertigungsart(Optional AbfNr As Object = Nothing)
+
+        If cboAbfertigungsart.Items.Count <= 1 Then
+            If AbfNr IsNot Nothing AndAlso AbfNr.ToString <> "" Then
+
+                cboAbfertigungsart.fillWithSQL("
+            SELECT AA.Abfertigungsart,AA.[Abfertigungsbezeichnung] FROM [Abfertigungsarten]as  AA 
+            INNER JOIN tblAbfertigungsartenFiliale ON tblAbfertigungsartenFiliale.Abfertigungsart=AA.Abfertigungsart    
+            WHERE Filialennr='" & cboFiliale._value & "'
+            GROUP BY AA.Abfertigungsart,AA.[Abfertigungsbezeichnung]", True, "FMZOLL", True)
+
+                cboAbfertigungsart.changeItem(AbfNr)
+            End If
+        End If
+    End Sub
+
 End Class
 
 Class cSpedBuch_Aktendeckel
@@ -1797,4 +1848,5 @@ Class cSpedBuch_Aktendeckel
 
     End Sub
 
+
 End Class

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb

@@ -23,6 +23,8 @@ Partial Class usrCntlATLAS_NCTS004_Allg
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.Label22 = New System.Windows.Forms.Label()
+        Me.cboVerfahrensart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxWegStrecke = New System.Windows.Forms.CheckBox()
         Me.lblWegstreckeVonNach = New System.Windows.Forms.Label()
         Me.lblWegZeit = New System.Windows.Forms.Label()
@@ -97,8 +99,7 @@ Partial Class usrCntlATLAS_NCTS004_Allg
         Me.Label7 = New System.Windows.Forms.Label()
         Me.txtLadeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.txtEntladeort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboVerfahrensart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.sbArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
-        Me.Label22 = New System.Windows.Forms.Label()
         Me.pnl.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
@@ -108,6 +109,7 @@ Partial Class usrCntlATLAS_NCTS004_Allg
         '
         'pnl
         '
+        Me.pnl.Controls.Add(Me.sbArtGrenzUeberschreitung)
         Me.pnl.Controls.Add(Me.Label22)
         Me.pnl.Controls.Add(Me.cboVerfahrensart)
         Me.pnl.Controls.Add(Me.cbxWegStrecke)
@@ -180,6 +182,27 @@ Partial Class usrCntlATLAS_NCTS004_Allg
         Me.pnl.Size = New System.Drawing.Size(930, 503)
         Me.pnl.TabIndex = 0
         '
+        'Label22
+        '
+        Me.Label22.Location = New System.Drawing.Point(1, 84)
+        Me.Label22.Name = "Label22"
+        Me.Label22.Size = New System.Drawing.Size(135, 13)
+        Me.Label22.TabIndex = 65
+        Me.Label22.Text = "Verfahrensart:"
+        Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
+        '
+        'cboVerfahrensart
+        '
+        Me.cboVerfahrensart._allowedValuesFreiText = Nothing
+        Me.cboVerfahrensart._allowFreiText = False
+        Me.cboVerfahrensart._value = ""
+        Me.cboVerfahrensart.DropDownWidth = 350
+        Me.cboVerfahrensart.FormattingEnabled = True
+        Me.cboVerfahrensart.Location = New System.Drawing.Point(142, 81)
+        Me.cboVerfahrensart.Name = "cboVerfahrensart"
+        Me.cboVerfahrensart.Size = New System.Drawing.Size(140, 21)
+        Me.cboVerfahrensart.TabIndex = 64
+        '
         'cbxWegStrecke
         '
         Me.cbxWegStrecke.AutoSize = True
@@ -333,10 +356,11 @@ Partial Class usrCntlATLAS_NCTS004_Allg
         Me.cboArtGrenzUeberschreitung._value = ""
         Me.cboArtGrenzUeberschreitung.DropDownWidth = 350
         Me.cboArtGrenzUeberschreitung.FormattingEnabled = True
-        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
+        Me.cboArtGrenzUeberschreitung.Location = New System.Drawing.Point(470, 332)
         Me.cboArtGrenzUeberschreitung.Name = "cboArtGrenzUeberschreitung"
         Me.cboArtGrenzUeberschreitung.Size = New System.Drawing.Size(41, 21)
         Me.cboArtGrenzUeberschreitung.TabIndex = 41
+        Me.cboArtGrenzUeberschreitung.Visible = False
         '
         'Label17
         '
@@ -1409,26 +1433,30 @@ Partial Class usrCntlATLAS_NCTS004_Allg
         Me.txtEntladeort.Size = New System.Drawing.Size(214, 20)
         Me.txtEntladeort.TabIndex = 35
         '
-        'cboVerfahrensart
+        'sbArtGrenzUeberschreitung
         '
-        Me.cboVerfahrensart._allowedValuesFreiText = Nothing
+        Me.sbArtGrenzUeberschreitung._allowFreitext = False
-        Me.cboVerfahrensart._allowFreiText = False
+        Me.sbArtGrenzUeberschreitung._AllowSetValue = False
-        Me.cboVerfahrensart._value = ""
+        Me.sbArtGrenzUeberschreitung._allowSpaceAsSplitter = False
-        Me.cboVerfahrensart.DropDownWidth = 350
+        Me.sbArtGrenzUeberschreitung._autoSizeGross = False
-        Me.cboVerfahrensart.FormattingEnabled = True
+        Me.sbArtGrenzUeberschreitung._hideIfListEmpty = True
-        Me.cboVerfahrensart.Location = New System.Drawing.Point(142, 81)
+        Me.sbArtGrenzUeberschreitung._value = ""
-        Me.cboVerfahrensart.Name = "cboVerfahrensart"
+        Me.sbArtGrenzUeberschreitung.conn_art = "FMZOLL"
-        Me.cboVerfahrensart.Size = New System.Drawing.Size(140, 21)
+        Me.sbArtGrenzUeberschreitung.dgvpos = "LEFT"
-        Me.cboVerfahrensart.TabIndex = 64
+        Me.sbArtGrenzUeberschreitung.DISPLAY_PARAM = Nothing
-        '
+        Me.sbArtGrenzUeberschreitung.INVISIBLE_COLUMNS = Nothing
-        'Label22
+        Me.sbArtGrenzUeberschreitung.key_visible = False
-        '
+        Me.sbArtGrenzUeberschreitung.KEYPARAM = Nothing
-        Me.Label22.Location = New System.Drawing.Point(1, 84)
+        Me.sbArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325)
-        Me.Label22.Name = "Label22"
+        Me.sbArtGrenzUeberschreitung.Name = "sbArtGrenzUeberschreitung"
-        Me.Label22.Size = New System.Drawing.Size(135, 13)
+        Me.sbArtGrenzUeberschreitung.searchActive = True
-        Me.Label22.TabIndex = 65
+        Me.sbArtGrenzUeberschreitung.Size = New System.Drawing.Size(42, 20)
-        Me.Label22.Text = "Verfahrensart:"
+        Me.sbArtGrenzUeberschreitung.SQL_ORDER_BY = Nothing
-        Me.Label22.TextAlign = System.Drawing.ContentAlignment.TopRight
+        Me.sbArtGrenzUeberschreitung.SQL_SELECT = Nothing
+        Me.sbArtGrenzUeberschreitung.SQL_WHERE = Nothing
+        Me.sbArtGrenzUeberschreitung.SQL_WhereParamList = Nothing
+        Me.sbArtGrenzUeberschreitung.TabIndex = 66
+        Me.sbArtGrenzUeberschreitung.usrcntl = Nothing
         '
         'usrCntlATLAS_NCTS004_Allg
         '
@@ -1525,4 +1553,5 @@ Partial Class usrCntlATLAS_NCTS004_Allg
     Friend WithEvents cbxWegStrecke As CheckBox
     Friend WithEvents Label22 As Label
     Friend WithEvents cboVerfahrensart As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents sbArtGrenzUeberschreitung As VERAG_PROG_ALLGEMEIN.MySearchBox
 End Class

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb

@@ -109,20 +109,23 @@
         cboVerkehrszweig.changeItem("3")
 
 
-        cboArtGrenzUeberschreitung.Items.Clear()
+
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        sbArtGrenzUeberschreitung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_C0219_TypeTransportMeans", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 400, 200)
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
+
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
+        'cboArtGrenzUeberschreitung.Items.Clear()
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35"))
-        cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40"))
-        cboArtGrenzUeberschreitung.changeItem("35")
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("50 - Binnenschiff", "50"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("60 - Eigener Antrieb", "60"))
+        'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("70 - Feste Transporteinrichtung", "70"))
+        'cboArtGrenzUeberschreitung.changeItem("35")
 
 
         cboBesondereUmstaende.Items.Clear()
@@ -228,7 +231,8 @@
         ' NCTS.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = cProgramFunctions.isLeerNothing(txtKennzeichenGrenze._value)
         ' NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = cProgramFunctions.isLeerNothing(sbKennzeichenGrenzeLand._value)
 
-        NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        '  NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(cboArtGrenzUeberschreitung._value)
+        NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification = cProgramFunctions.isLeerNothing(sbArtGrenzUeberschreitung._value)
         ' NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent = cProgramFunctions.isLeerNothing(cboVerkehrszweig._value)
         NCTS.ncts_SpecificCircomstanceIndicator = cProgramFunctions.isLeerNothing(cboBesondereUmstaende._value)
         NCTS.ncts_TransportCharges = cProgramFunctions.isLeerNothing(cboZahlungsweiseBefKosten._value)
@@ -299,7 +303,8 @@
         'sbKennzeichenGrenzeLand.SET_VALUE(If(NCTS.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode, ""))
 
 
-        cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
+        'cboArtGrenzUeberschreitung.changeItem(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
+        sbArtGrenzUeberschreitung.SET_VALUE(NCTS.ncts_DepartureTransportMeans_1_TypeOfIdentification)
         ' cboVerkehrszweig.changeItem(NCTS.ncts_Befoerderungsmittel_VerkehrszweigGrenzueberschreitent)
 
         cboBesondereUmstaende.changeItem(NCTS.ncts_SpecificCircomstanceIndicator)

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb

@@ -1222,6 +1222,7 @@ Class DAKOSY_Interface_SEND
         XML.EinzelVersandanmeldung.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
         XML.EinzelVersandanmeldung.ObjektIdentifizierung = New VersandanmeldungNCTSDE_004.ObjektIdentifizierungVATyp
         XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektName = cDY.ncts_ObjectName
+
         If cDY.ncts_ObjectAlias IsNot Nothing Then XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAliasname = cDY.ncts_ObjectAlias
         Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
         XML.EinzelVersandanmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
@@ -1506,6 +1507,7 @@ Class DAKOSY_Interface_SEND
         If cDY.ncts_PlaceOfLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfLoading.Country = cDY.ncts_PlaceOfLoading_Country
         If cDY.ncts_PlaceOfUnLoading_Location IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Location = cDY.ncts_PlaceOfUnLoading_Location
         If cDY.ncts_PlaceOfUnLoading_Country IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.PlaceOfUnloading.Country = cDY.ncts_PlaceOfUnLoading_Country
+        If cDY.ncts_ObjectName IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.ReferenceNumberUCR = cDY.ncts_ObjectName
 
         If cDY.ncts_TransportCharges IsNot Nothing Then XML.EinzelVersandanmeldung.TransitOperation.TransportCharges = cDY.ncts_TransportCharges
 

SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb

@@ -67,13 +67,21 @@
 
     Sub editSelected()
         If dgvStammref.SelectedRows.Count > 0 Then
-            Dim ZA As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
+            Dim ZA As DAKOSY_Worker.cDakosy_Zollanmeldungen
+            If dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value Is DBNull.Value Then
+                ZA = New DAKOSY_Worker.cDakosy_Zollanmeldungen
+                ZA.SAVE()
+            Else
+                ZA = New DAKOSY_Worker.cDakosy_Zollanmeldungen(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
+            End If
+
             If ZA.dy_Id <= 0 Then ZA.SAVE()
             ' MsgBox(dgvStammref.SelectedRows(0).Cells("dySr_dyId").Value)
             Dim f As New frmZollanmeldung(cboVerfahren._value, ZA)
             f.isSTAMMREF = True
             f.STAMMREF = dgvStammref.SelectedRows(0).Cells("dySr_Stammreferenz").Value
             f.ShowDialog(Me)
+
             SQL.doSQL("UPDATE [tblDakosy_Stammreferenzen] SET dySr_dyId='" & ZA.dy_Id & "' WHERE dySr_Id='" & dgvStammref.SelectedRows(0).Cells("dySr_Id").Value & "'", "FMZOLL")
 
             initDGV()
@@ -166,10 +174,15 @@
                 EZA.eza_dyaAnmID = ZA.dy_Id
                 EZA.SAVE()
             Case "NCTS"
-                Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByAnmIDFull(AnmID, True)
+                Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut004.LOADByAnmIDFull(AnmID, True)
                 NCTS.ncts_Id = -1
                 NCTS.ncts_dyaAnmID = ZA.dy_Id
                 NCTS.SAVE()
+            'Case "NCTS"
+            '    Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByAnmIDFull(AnmID, True)
+            '    NCTS.ncts_Id = -1
+            '    NCTS.ncts_dyaAnmID = ZA.dy_Id
+            '    NCTS.SAVE()
             Case "AES"
                 Dim AES = DAKOSY_Worker.cDakosyAES.LOADByAnmIDFull(AnmID, True)
                 AES.aes_Id = -1

SDL/frmMain.Designer.vb

@@ -45,6 +45,8 @@ Partial Class frmMain
         Me.AuswertungenToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueBerichte = New System.Windows.Forms.ToolStripMenuItem()
         Me.mneFakturierung = New System.Windows.Forms.ToolStripMenuItem()
+        Me.FakturierungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.RechnungsdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueBuchhaltung = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueEssensbestellung = New System.Windows.Forms.ToolStripMenuItem()
         Me.mnueKassenbuch = New System.Windows.Forms.ToolStripMenuItem()
@@ -107,8 +109,6 @@ Partial Class frmMain
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.AuswertungenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
-        Me.RechnungsdatenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.FakturierungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.pnlLeft.SuspendLayout()
         Me.MenuStripSDL.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -132,7 +132,7 @@ Partial Class frmMain
         Me.pnlLeft.Dock = System.Windows.Forms.DockStyle.Left
         Me.pnlLeft.Location = New System.Drawing.Point(0, 73)
         Me.pnlLeft.Name = "pnlLeft"
-        Me.pnlLeft.Size = New System.Drawing.Size(100, 831)
+        Me.pnlLeft.Size = New System.Drawing.Size(100, 905)
         Me.pnlLeft.TabIndex = 27
         '
         'MenuStripSDL
@@ -145,7 +145,7 @@ Partial Class frmMain
         Me.MenuStripSDL.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
         Me.MenuStripSDL.Location = New System.Drawing.Point(0, 0)
         Me.MenuStripSDL.Name = "MenuStripSDL"
-        Me.MenuStripSDL.Size = New System.Drawing.Size(100, 609)
+        Me.MenuStripSDL.Size = New System.Drawing.Size(100, 678)
         Me.MenuStripSDL.TabIndex = 72
         Me.MenuStripSDL.Text = "test"
         '
@@ -310,6 +310,19 @@ Partial Class frmMain
         Me.mneFakturierung.TextAlign = System.Drawing.ContentAlignment.BottomCenter
         Me.mneFakturierung.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
         '
+        'FakturierungToolStripMenuItem
+        '
+        Me.FakturierungToolStripMenuItem.Enabled = False
+        Me.FakturierungToolStripMenuItem.Name = "FakturierungToolStripMenuItem"
+        Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
+        Me.FakturierungToolStripMenuItem.Text = "Fakturierung"
+        '
+        'RechnungsdatenToolStripMenuItem
+        '
+        Me.RechnungsdatenToolStripMenuItem.Name = "RechnungsdatenToolStripMenuItem"
+        Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(163, 22)
+        Me.RechnungsdatenToolStripMenuItem.Text = "Rechnungsdaten"
+        '
         'mnueBuchhaltung
         '
         Me.mnueBuchhaltung.ForeColor = System.Drawing.Color.White
@@ -379,9 +392,9 @@ Partial Class frmMain
         Me.Panel1.Controls.Add(Me.btnExit)
         Me.Panel1.Controls.Add(Me.Button1)
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
-        Me.Panel1.Location = New System.Drawing.Point(0, 603)
+        Me.Panel1.Location = New System.Drawing.Point(0, 681)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(100, 228)
+        Me.Panel1.Size = New System.Drawing.Size(100, 224)
         Me.Panel1.TabIndex = 30
         '
         'Label20
@@ -390,7 +403,7 @@ Partial Class frmMain
         Me.Label20.BackColor = System.Drawing.Color.Red
         Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Label20.ForeColor = System.Drawing.Color.White
-        Me.Label20.Location = New System.Drawing.Point(68, 163)
+        Me.Label20.Location = New System.Drawing.Point(68, 159)
         Me.Label20.Name = "Label20"
         Me.Label20.Size = New System.Drawing.Size(28, 19)
         Me.Label20.TabIndex = 41
@@ -413,7 +426,7 @@ Partial Class frmMain
         Me.picAVISOMessenger.BackgroundImage = Global.SDL.My.Resources.Resources.aviso_messenger
         Me.picAVISOMessenger.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
         Me.picAVISOMessenger.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.picAVISOMessenger.Location = New System.Drawing.Point(20, 115)
+        Me.picAVISOMessenger.Location = New System.Drawing.Point(20, 111)
         Me.picAVISOMessenger.Name = "picAVISOMessenger"
         Me.picAVISOMessenger.Size = New System.Drawing.Size(59, 55)
         Me.picAVISOMessenger.TabIndex = 40
@@ -424,7 +437,7 @@ Partial Class frmMain
         '
         Me.lblVersion.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.lblVersion.ForeColor = System.Drawing.Color.White
-        Me.lblVersion.Location = New System.Drawing.Point(1, 206)
+        Me.lblVersion.Location = New System.Drawing.Point(1, 202)
         Me.lblVersion.Name = "lblVersion"
         Me.lblVersion.RightToLeft = System.Windows.Forms.RightToLeft.Yes
         Me.lblVersion.Size = New System.Drawing.Size(96, 13)
@@ -957,7 +970,7 @@ Partial Class frmMain
         Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
         Me.pnlMain.Location = New System.Drawing.Point(100, 73)
         Me.pnlMain.Name = "pnlMain"
-        Me.pnlMain.Size = New System.Drawing.Size(1184, 831)
+        Me.pnlMain.Size = New System.Drawing.Size(1184, 905)
         Me.pnlMain.TabIndex = 29
         '
         'cntxtZOLL
@@ -990,24 +1003,11 @@ Partial Class frmMain
         Me.Timer_REFRESH.Enabled = True
         Me.Timer_REFRESH.Interval = 5000
         '
-        'RechnungsdatenToolStripMenuItem
-        '
-        Me.RechnungsdatenToolStripMenuItem.Name = "RechnungsdatenToolStripMenuItem"
-        Me.RechnungsdatenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.RechnungsdatenToolStripMenuItem.Text = "Rechnungsdaten"
-        '
-        'FakturierungToolStripMenuItem
-        '
-        Me.FakturierungToolStripMenuItem.Enabled = False
-        Me.FakturierungToolStripMenuItem.Name = "FakturierungToolStripMenuItem"
-        Me.FakturierungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
-        Me.FakturierungToolStripMenuItem.Text = "Fakturierung"
-        '
         'frmMain
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Dpi
-        Me.ClientSize = New System.Drawing.Size(1284, 904)
+        Me.ClientSize = New System.Drawing.Size(1284, 978)
         Me.Controls.Add(Me.pnlMain)
         Me.Controls.Add(Me.pnlLeft)
         Me.Controls.Add(Me.pnlHeader)

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -48,7 +48,7 @@ Public Class cRechnungsausgang
     Property RechnungsKundenNr As Integer
     Property RechnungsName_1 As Object = Nothing '!!!!
     Property RechnungsName_2 As Object = Nothing '!!!!
-    Property RechnungsName_AdressZusatz As Object = Nothing '!!!!
+    Property RechnungsName_AdressZusatz As String = ""
     Property RechnungsStraße As Object = Nothing
     Property RechnungsOrt As Object = Nothing
     Property RechnungsUstIdKz As Object = Nothing

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -5,6 +5,7 @@ Public Class cSendungen
     Property tblSnd_SendungID As Integer = Nothing
     Property tblSnd_PosUnterNr As Integer = Nothing
     Property tblSnd_AvisoID As Integer = Nothing
+    Property tblSnd_Zollsystem_Land As Object = Nothing
     Property tblSnd_Abfertigungsart_ID As Integer = Nothing
     Property tblSnd_EmpfaengerKdNr As Integer = Nothing
     Property tblSnd_Empfaenger As String = Nothing
@@ -333,6 +334,7 @@ Public Class cSendungen
                     Me.tblSnd_SendungID = SQL.checkNullReturnValue(dr.Item("tblSnd_SendungID"), Nothing)
                     Me.tblSnd_PosUnterNr = SQL.checkNullReturnValue(dr.Item("tblSnd_PosUnterNr"), Nothing)
                     Me.tblSnd_AvisoID = SQL.checkNullReturnValue(dr.Item("tblSnd_AvisoID"), Nothing)
+                    Me.tblSnd_Zollsystem_Land = SQL.checkNullReturnValue(dr.Item("tblSnd_Zollsystem_Land"), Nothing)
                     Me.tblSnd_Abfertigungsart_ID = SQL.checkNullReturnValue(dr.Item("tblSnd_Abfertigungsart_ID"), Nothing)
                     Me.tblSnd_EmpfaengerKdNr = SQL.checkNullReturnValue(dr.Item("tblSnd_EmpfaengerKdNr"), Nothing)
                     Me.tblSnd_Empfaenger = SQL.checkNullReturnValue(dr.Item("tblSnd_Empfaenger"), Nothing)
@@ -558,6 +560,7 @@ Public Class cSendungen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_SendungID", tblSnd_SendungID, , True)) 'UPDATE INSERT ISPRIMARY!
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_PosUnterNr", tblSnd_PosUnterNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AvisoID", tblSnd_AvisoID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Zollsystem_Land", tblSnd_Zollsystem_Land))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Abfertigungsart_ID", tblSnd_Abfertigungsart_ID))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_EmpfaengerKdNr", tblSnd_EmpfaengerKdNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Empfaenger", tblSnd_Empfaenger))

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -188,6 +188,7 @@ Public Class cSpeditionsbuch
     Property UK_EIDR_ausstehend As Boolean = False
 
     Property Zollstelle As Object = Nothing
+    Property Zollsystem_Land As Object = Nothing
 
     Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
     Property VORKOSTEN As New List(Of cVorkosten)
@@ -356,6 +357,7 @@ Public Class cSpeditionsbuch
                         Me.PersonalnummerAbklTR = SQL.checkNullReturnValue(dr.Item("PersonalnummerAbklTR"), Nothing)
                         Me.UK_EIDR_ausstehend = SQL.checkNullBool(dr.Item("UK_EIDR_ausstehend"))
                         Me.Zollstelle = SQL.checkNullReturnValue(dr.Item("Zollstelle"), Nothing)
+                        Me.Zollsystem_Land = SQL.checkNullReturnValue(dr.Item("Zollsystem_Land"), Nothing)
 
                         Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
 
@@ -512,6 +514,7 @@ Public Class cSpeditionsbuch
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("PersonalnummerAbklTR", PersonalnummerAbklTR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UK_EIDR_ausstehend", UK_EIDR_ausstehend))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollstelle", Zollstelle))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zollsystem_Land", Zollsystem_Land))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))