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

div

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-17 14:26:29 +02:00
parent 100b1c3030
commit 6e2e6a5e38
6 changed files with 28 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -474,6 +474,7 @@ Public Class cSendungen
a.sndabr_anzahl = SQL.checkNullReturnValue(dr2.Item("sndabr_anzahl"), Nothing)
a.sndabr_einzelPreis = SQL.checkNullReturnValue(dr2.Item("sndabr_einzelPreis"), Nothing)
a.sndabr_preis = SQL.checkNullReturnValue(dr2.Item("sndabr_preis"), Nothing)
a.sndabr_LeistungsNr = SQL.checkNullReturnValue(dr2.Item("sndabr_LeistungsNr"), Nothing)
Me.ABRECHNUNG.Add(a)
End While
@@ -846,6 +847,7 @@ Public Class cSendungAbrechnung
Property sndabr_anzahl As Integer = Nothing
Property sndabr_einzelPreis As Object = Nothing
Property sndabr_preis As Object = Nothing
Property sndabr_LeistungsNr As Object = Nothing
Dim SQL As New SQL
@@ -860,7 +862,7 @@ Public Class cSendungAbrechnung
Me.sndabr_wert = sndabr_wert
End Sub
Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndabr_bezeichnung, sndabr_anzahl, sndabr_einzelPreis, sndabr_preis)
Sub New(sndabr_sendId, sndabr_beteiligter, sndabr_abrArt, sndabr_wert, sndabr_bezeichnung, sndabr_anzahl, sndabr_einzelPreis, sndabr_preis, sndabr_LeistungsNr)
Me.sndabr_sendId = sndabr_sendId
Me.sndabr_beteiligter = sndabr_beteiligter
Me.sndabr_abrArt = sndabr_abrArt
@@ -869,6 +871,7 @@ Public Class cSendungAbrechnung
Me.sndabr_anzahl = sndabr_anzahl
Me.sndabr_einzelPreis = sndabr_einzelPreis
Me.sndabr_preis = sndabr_preis
Me.sndabr_LeistungsNr = sndabr_LeistungsNr
End Sub
Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -881,6 +884,7 @@ Public Class cSendungAbrechnung
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_anzahl", sndabr_anzahl))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_einzelPreis", sndabr_einzelPreis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_preis", sndabr_preis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("sndabr_LeistungsNr", sndabr_LeistungsNr))
Return list
End Function