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

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