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