edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FIBU, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-26 16:06:40 +01:00
parent 2afd056b2c
commit 6a3ea9cb97
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -1245,8 +1245,8 @@ Public Class usrCntlBH
End If End If
Dim LimitBEtrag As Integer = -1 Dim LimitBEtrag As Integer = -1
If txtAbBetragAbrechnen._value <> "" AndAlso IsNumeric(txtAbBetragAbrechnen._value) Then If txtAbBetragAbrechnen.Text <> "" AndAlso IsNumeric(txtAbBetragAbrechnen.Text) Then
LimitBEtrag = CInt(txtAbBetragAbrechnen._value) LimitBEtrag = CInt(txtAbBetragAbrechnen.Text)
End If 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") 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")

6
VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
View File

@@ -498,9 +498,9 @@ Class TrdInvoice_FUNCTIONS
Dim Buchungstext As String = ROW("RK_Buchungstext") Dim Buchungstext As String = ROW("RK_Buchungstext")
If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen vom") Then If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then
Buchungstext = Buchungstext.Replace("Zahlungen vom", "Zinsen") Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen")
Buchungstext &= " / nicht verzinsen" ' Buchungstext &= " / nicht verzinsen"
End If End If
If TRD_INVOICE.SAVE Then If TRD_INVOICE.SAVE Then