Nacherfassung Abf.Land; NCTS 004 Anpassungen

2023-10-11 13:27:39 +02:00
parent 4fea6e3470
commit aa26988458
11 changed files with 274 additions and 144 deletions
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb
+++ b/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.Label56 = New System.Windows.Forms.Label()
+        Me.txtAtlasBezNrAES = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        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.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 = 3
+        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
        '
-        'Label56
+        'Label65
        '
-        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:"
+        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:"
        '
        '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
--- a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
+++ b/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("ATLAS (KEWILL)", "A"))
-                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("DAKOSY", "D"))
-                cboZollsystem.SelectedIndex = 0
+                '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("EZOLL", "E"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
+                'cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
+                '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