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

SND Abrechung

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-17 14:23:13 +02:00
parent 663a1f817b
commit 6697922adb
12 changed files with 823 additions and 303 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Aviso/frmSendungsdetailsAbrechnung.vb
View File

@@ -47,7 +47,7 @@ Public Class frmSendungsdetailsAbrechnung
Dim preis As Object = Nothing
If IsNumeric(r.Cells("Preis").Value) Then preis = CDbl(r.Cells("Preis").Value)
If leistung <> "" Then
SENDUNG.ABRECHNUNG.Add(New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG.tblSnd_SendungID, usr._beteiligter, "", "", leistung, 1, preis, preis))
SENDUNG.ABRECHNUNG.Add(New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG.tblSnd_SendungID, usr._beteiligter, "", "", leistung, 1, preis, preis, Nothing))
End If
Next