From aa26988458e9892ee3386c505f6b270e1aba300b Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Wed, 11 Oct 2023 13:27:39 +0200 Subject: [PATCH] Nacherfassung Abf.Land; NCTS 004 Anpassungen --- SDL/My Project/AssemblyInfo.vb | 4 +- .../frmNacherfassungNEU.Designer.vb | 161 ++++++++++-------- .../Nacherfassung/frmNacherfassungNEU.vb | 68 +++++++- .../usrCntlATLAS_NCTS004_Allg.Designer.vb | 73 +++++--- .../NCTS004/usrCntlATLAS_NCTS004_Allg.vb | 37 ++-- .../DAKOSY/ATLAS/cDakosyInterface_Send.vb | 2 + .../frmDakosyStammreferenzVerwalten.vb | 17 +- SDL/frmMain.Designer.vb | 48 +++--- .../Classes/cRechnungsausgang.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 3 + .../Classes/cSpeditionsbuch.vb | 3 + 11 files changed, 274 insertions(+), 144 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 4fe1efbb..4e485b71 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb index 92d2d5e0..0c962795 100644 --- 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 diff --git a/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb b/SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb index d4c33d32..03bb1c7b 100644 --- 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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb index 4c0145fb..5c68d50e 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb @@ -23,6 +23,8 @@ Partial Class usrCntlATLAS_NCTS004_Allg 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.Label22 = New System.Windows.Forms.Label() + Me.sbArtGrenzUeberschreitung = New VERAG_PROG_ALLGEMEIN.MySearchBox() 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.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 - ' - '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 + Me.sbArtGrenzUeberschreitung._allowFreitext = False + Me.sbArtGrenzUeberschreitung._AllowSetValue = False + Me.sbArtGrenzUeberschreitung._allowSpaceAsSplitter = False + Me.sbArtGrenzUeberschreitung._autoSizeGross = False + Me.sbArtGrenzUeberschreitung._hideIfListEmpty = True + Me.sbArtGrenzUeberschreitung._value = "" + Me.sbArtGrenzUeberschreitung.conn_art = "FMZOLL" + Me.sbArtGrenzUeberschreitung.dgvpos = "LEFT" + Me.sbArtGrenzUeberschreitung.DISPLAY_PARAM = Nothing + Me.sbArtGrenzUeberschreitung.INVISIBLE_COLUMNS = Nothing + Me.sbArtGrenzUeberschreitung.key_visible = False + Me.sbArtGrenzUeberschreitung.KEYPARAM = Nothing + Me.sbArtGrenzUeberschreitung.Location = New System.Drawing.Point(315, 325) + Me.sbArtGrenzUeberschreitung.Name = "sbArtGrenzUeberschreitung" + Me.sbArtGrenzUeberschreitung.searchActive = True + Me.sbArtGrenzUeberschreitung.Size = New System.Drawing.Size(42, 20) + Me.sbArtGrenzUeberschreitung.SQL_ORDER_BY = Nothing + 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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb index 6793a075..49789a62 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb +++ b/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("", "")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35")) - cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40")) - 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") + + 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.Clear() + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10 - Seeschiff", "10")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20 - Waggon", "20")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("31 - Pkw", "31")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("32 - Pkw mit Anhänger", "32")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("33 - Lkw", "33")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("34 - Lkw mit Anhänger", "34")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("35 - Zugmaschine mit Auflieger ", "35")) + 'cboArtGrenzUeberschreitung.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("40 - Flugzeug", "40")) + '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) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb index c618178d..ce8282ab 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb +++ b/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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb index 7eea8af5..773ca672 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb +++ b/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 diff --git a/SDL/frmMain.Designer.vb b/SDL/frmMain.Designer.vb index 06447f25..965f6334 100644 --- a/SDL/frmMain.Designer.vb +++ b/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) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb index 72a07916..65d6e962 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index 61b1c801..58412cbb 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/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)) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 8d7e9896..b22a75c4 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/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))