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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -70,7 +70,7 @@ Public Class cSpeditionsbuch
Property FilialenNr As Integer = -1
Property AbfertigungsNr As Integer = -1
Property UnterNr As Integer = -1
Property Abfertigungsdatum As Object = Nothing
Property Abfertigungsdatum As Object = CDate(Now.ToShortDateString)
Property Bar As Boolean = False
Property Fakturiert As Boolean = False
Property BelegNr As String = ""
@@ -138,6 +138,7 @@ Public Class cSpeditionsbuch
Property Versendungsland As String = ""
Property SB_CMR As Boolean = False
Property SB_CMRDatum As Object = Nothing
Property SB_CMRNr As Object = Nothing
Property veoerz_basbtg As Double = 0
Property Zucker_MRN_Nr As Object = Nothing
Property Zucker_MRN_Datum As Object = Nothing
@@ -173,6 +174,10 @@ Public Class cSpeditionsbuch
Property DokumentId_Steuerbeleg As Object = Nothing
Property DokumentId_Mitteilung As Object = Nothing
Property DokumentId_VBD As Object = Nothing
Property FilialenNrHandling As Object = Nothing
Property HandlingZuKassieren As Double = 0
Property UNTERPOS As New List(Of cSpeditionsbuchUnterPos)
Property VORKOSTEN As New List(Of cVorkosten)
@@ -322,7 +327,10 @@ Public Class cSpeditionsbuch
Me.DokumentId_Steuerbeleg = SQL.checkNullReturnValue(dr.Item("DokumentId_Steuerbeleg"), Nothing)
Me.DokumentId_Mitteilung = SQL.checkNullReturnValue(dr.Item("DokumentId_Mitteilung"), Nothing)
Me.DokumentId_VBD = SQL.checkNullReturnValue(dr.Item("DokumentId_VBD"), Nothing)
Me.FilialenNrHandling = SQL.checkNullReturnValue(dr.Item("FilialenNrHandling"), Nothing)
Me.HandlingZuKassieren = SQL.checkNulDbl(dr.Item("HandlingZuKassieren"))
Me.SB_CMRNr = SQL.checkNullReturnValue(dr.Item("SB_CMRNr"), Nothing)
LOAD_VORKOSTEN()
@@ -426,6 +434,9 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Steuerbeleg", DokumentId_Steuerbeleg))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_Mitteilung", DokumentId_Mitteilung))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DokumentId_VBD", DokumentId_VBD))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNrHandling", FilialenNrHandling))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("HandlingZuKassieren", HandlingZuKassieren))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SB_CMRNr", SB_CMRNr))
Return list