This commit is contained in:
2025-04-17 14:28:05 +02:00
parent 6697922adb
commit a5f64552b7
2 changed files with 3 additions and 3 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.2.0")>
<Assembly: AssemblyFileVersion("4.1.2.0")>
<Assembly: AssemblyVersion("4.1.2.1")>
<Assembly: AssemblyFileVersion("4.1.2.1")>

View File

@@ -34,7 +34,7 @@
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, _beteiligter, "", "", leistung, 1, preis, preis))
SENDUNG.ABRECHNUNG.Add(New VERAG_PROG_ALLGEMEIN.cSendungAbrechnung(SENDUNG.tblSnd_SendungID, _beteiligter, "", "", leistung, 1, preis, preis, Nothing))
End If
Next