diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 99e8b8d..64b31bd 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb b/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb index bf0df93..6345e81 100644 --- a/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb +++ b/Aviso/frmSendungsDetailsAbrechnungLeistungen.vb @@ -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