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

fakt, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-23 13:47:45 +02:00
parent f5bd517e49
commit 1c54193ff3
5 changed files with 34 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -815,10 +815,11 @@ Public Class usrCntlBH
Dim toleranztage As Integer = CInt(txtTolInTagen.Text)
Dim sqlStr_FIBU = "declare @KundeVon as Integer = " & txtKdNrvon.Text & "
Dim sqlStr_FIBU =
"declare @KundeVon as Integer = " & txtKdNrvon.Text & "
declare @KundeBis as Integer = " & txtKdNrbis.Text & "
declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToShortDateString & "'
declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToShortDateString & "'
declare @ZahlungVon as Date = '" & CDate(txtZRvon.Text).ToString("yyyy-MM-dd") & "'
declare @ZahlungBis as Date = '" & CDate(txtZRbis.Text).ToString("yyyy-MM-dd") & "'
declare @MandantNr as Integer = 19
@@ -832,16 +833,16 @@ Public Class usrCntlBH
op_debitor.d_netto AS Nettodatum,
op_debitor.c_bemerkung AS buchungstext,
op_debitor.d_zahlung AS Zahlungsdatum,
ISNULL(op_debitor.c_zahlziel, '0/0/14') AS ZZ_in_OP,
ISNULL(op_debitor.c_zahlziel, '0/0/20') AS ZZ_in_OP,
isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") AS Zinssatz_Kunde,
ISNULL(fibu_konto.c_zahlziel, '0/0/14') AS ZZ_in_Debitor,
case when isnull(dbo.fibu_zahlziel.si_ntage,14) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,14) end as ZZinTage,
ISNULL(fibu_konto.c_zahlziel, '0/0/20') AS ZZ_in_Debitor,
ISNULL(dbo.fibu_zahlziel.si_ntage,20) as ZZinTage,
DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & "), op_debitor.d_rechnung) as ReZielZahlungsdatum,
DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + 0 ), op_debitor.d_rechnung), op_debitor.d_zahlung) as ÜberschreitungInTagen,
case when DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
case when DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + 0), op_debitor.d_rechnung), op_debitor.d_zahlung) > 0 then
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz," & zinssatz.ToString.Replace(",", ".") & ") / 100 * DATEDIFF(DAY, DATEADD(DAY, (select case when isnull(dbo.fibu_zahlziel.si_ntage,0) >= 14 then 14 else isnull(dbo.fibu_zahlziel.si_ntage,0) end + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
op_debitor.eur_bruttobetrag * isnull(kde_zinssatz,9.5) / 100 * DATEDIFF(DAY, DATEADD(DAY, (isnull(dbo.fibu_zahlziel.si_ntage,0) + " & toleranztage & " ), op_debitor.d_rechnung), op_debitor.d_zahlung) / 360
else 0 end as Zinsbetrag,
@@ -1234,7 +1235,7 @@ Public Class usrCntlBH
Dim startDate As String = CDate(R("zahlungsperiode_start")).ToShortDateString
Dim EndDate As String = CDate(R("zahlungsperiode_ende")).ToShortDateString
Dim vermerk As String = "Zahlungen vom " & startDate & " bis " & EndDate
Dim vermerk As String = "Zahlungen vom " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim Fußtext As String = "Sehr geehrte Damen und Herren," & vbNewLine & "
Sie erhalten unten eine Aufstellung jener Rechnungen, deren Zahlungseingänge nach der gesetzten Zahlungsfrist von 14 Tagen gelegen ist." & vbNewLine & "
Bitte haben Sie Verständnis dafür, dass wir Ihnen die dadurch entstehenden Verzugszinsen nachberechnen müssen." & vbNewLine & "