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

Nacherfassung Abf.Land; NCTS 004 Anpassungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-10-11 13:27:39 +02:00
parent 4fea6e3470
commit aa26988458
11 changed files with 274 additions and 144 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

161
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.Designer.vb generated
View File

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

68
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

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

73
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.Designer.vb generated
View File

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

37
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004_Allg.vb
View File

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

2
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/cDakosyInterface_Send.vb
View File

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

17
SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
View File

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

48
SDL/frmMain.Designer.vb generated
View File

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

2
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

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

3
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

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

3
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

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