From a5f64552b73d1ce963e13db1b7ccd111e8afe7c5 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Thu, 17 Apr 2025 14:28:05 +0200 Subject: [PATCH] vers --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmSendungsDetailsAbrechnungLeistungen.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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