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

Verzollungspreise,getSig,VERIMEX_ATEZ(NCTSAbr.)

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-04-04 16:48:18 +02:00
parent 7cc8a40537
commit b655d20408
11 changed files with 242 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
View File

@@ -71,6 +71,7 @@ Public Class cKundenErweitert
Property kde_FakturierungSR_Details As Boolean = False
Property kde_Fakturierung_Sprache As Object = Nothing
Property kde_TOBB_KundenNr As Object = Nothing
Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False
Dim SQL As New SQL
@@ -143,6 +144,7 @@ Public Class cKundenErweitert
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Abrechnung_SendungsdatenAusSTB", kde_Abrechnung_SendungsdatenAusSTB))
Return list
End Function

3
VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb
View File

@@ -124,6 +124,7 @@ Public Class cSpeditionsbuch
Property Rechnungsbetrag As Object = Nothing 'dbl=0
Property Umrechnungskurs As Object = CDbl(1) 'dbl=1
Property Packstücke As String = ""
Property Packstücke_Zoll As String = ""
Property Rohmasse As Object = Nothing 'int=0
Property Zahlungsaufschub As String = ""
Property Löschen As Object = Nothing
@@ -301,6 +302,7 @@ Public Class cSpeditionsbuch
Me.Rechnungsbetrag = SQL.checkNullReturnValue(dr.Item("Rechnungsbetrag"), Nothing)
Me.Umrechnungskurs = SQL.checkNullReturnValue(dr.Item("Umrechnungskurs"), 1)
Me.Packstücke = SQL.checkNullStr(dr.Item("Packstücke"))
Me.Packstücke_Zoll = SQL.checkNullStr(dr.Item("Packstücke_Zoll"))
Me.Rohmasse = SQL.checkNullReturnValue(dr.Item("Rohmasse"), Nothing)
Me.Zahlungsaufschub = SQL.checkNullStr(dr.Item("Zahlungsaufschub"))
Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen"))
@@ -456,6 +458,7 @@ Public Class cSpeditionsbuch
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke_Zoll", Packstücke_Zoll))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))