From 6a3ea9cb9760ee6ee32fdbe46d13ea041ea08880 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 26 Nov 2025 16:06:40 +0100 Subject: [PATCH] FIBU, etc. --- SDL/buchhaltung/usrCntlBH.vb | 4 ++-- VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/SDL/buchhaltung/usrCntlBH.vb b/SDL/buchhaltung/usrCntlBH.vb index e373715d..725893d5 100644 --- a/SDL/buchhaltung/usrCntlBH.vb +++ b/SDL/buchhaltung/usrCntlBH.vb @@ -1245,8 +1245,8 @@ Public Class usrCntlBH End If Dim LimitBEtrag As Integer = -1 - If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then - LimitBEtrag = CInt(txtAbBetragAbrechnen._value) + If txtAbBetragAbrechnen.Text <> "" AndAlso IsNumeric(txtAbBetragAbrechnen.Text) Then + LimitBEtrag = CInt(txtAbBetragAbrechnen.Text) End If Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("Select [kundenNr],SUM([zinsbetrag]) as Zinsbetrag, zahlungsperiode_start,zahlungsperiode_ende FROM [VERAG].[dbo].[tblMDM_Zinsberechnung] where [verrechnet] Is null group by [kundenNr], zahlungsperiode_start, zahlungsperiode_ende" & IIf(LimitBEtrag > 0, " having SUM([zinsbetrag]) >= " & LimitBEtrag, ""), "FMZOLL") diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb index 1a65a74d..85b38ea7 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb @@ -498,9 +498,9 @@ Class TrdInvoice_FUNCTIONS Dim Buchungstext As String = ROW("RK_Buchungstext") - If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then - Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen") - Buchungstext &= " / nicht verzinsen" + If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then + Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen") + ' Buchungstext &= " / nicht verzinsen" End If If TRD_INVOICE.SAVE Then