From cacc212561a1c8c841ba40c74a93969f1588bb5e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 10 Apr 2026 09:29:38 +0200 Subject: [PATCH] tradinvioce, etc. --- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index bc87b31d..f76383b3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -503,6 +503,10 @@ Class TrdInvoice_FUNCTIONS TRD_INVOICE.BV = 1 End If + If TRD_INVOICE.Source = "KB" AndAlso Not TRD_INVOICE.BV = 1 Then + TRD_INVOICE.BV = 1 + End If + If dtVZ IsNot Nothing AndAlso dtVZ.Rows.Count > 0 Then For Each VZ_ROW In dtVZ.Rows If CDate(TRD_INVOICE.Rechnungsdatum) = CDate(VZ_ROW("RK_RechnungsDatum")) And TRD_INVOICE.FilialenNr.ToString = VZ_ROW("RK_FilialenNr").ToString And TRD_INVOICE.AbfertigungsNr = VZ_ROW("RK_AbfertigungsNr") And CDate(TRD_INVOICE.Abfertigungsdatum) = CDate(VZ_ROW("RK_Abfertigungsdatum")) And TRD_INVOICE.UnterNr = VZ_ROW("RK_UnterNr") And TRD_INVOICE.BelegartenNr = VZ_ROW("RK_BelegartenNr") Then