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

Kundenblatt, ustva, KI-Einbindung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-14 17:03:11 +02:00
parent 26668bb5af
commit 1f31993977
15 changed files with 2393 additions and 579 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/buchhaltung/frmBU_Mahnlauf.vb
View File

@@ -74,7 +74,7 @@ Public Class frmBU_Mahnlauf
Case "DE", "KE", "KO" : SQLWhere &= " and c_kennung = '" & cbxKontotyp._value & "'"
End Select
Dim sqlStringVerag360Zahlungseingaenge = " SELECT cast(d_beleg as Date) as d_beleg ,c_urbelegid, c_buchtext, case when c_sollhabenkz = 'H' then eur_betrag else eur_betrag * -1 end as eur_betrag , BU.i_konto,KTO.c_landid
Dim sqlStringVerag360Zahlungseingaenge = " SELECT cast(d_beleg as Date) as d_beleg ,c_urbelegid, c_buchtext, case when c_sollhabenkz = 'H' then eur_betrag else eur_betrag * -1 end as eur_betrag , BU.i_konto as Konto,KTO.c_landid
FROM [FIBU2].[dbo].[fibu_belegzeile] as BU
RIGHT join fibu_konto KTO on KTO.i_konto=BU.i_konto AND BU.i_firm_refid=KTO.i_firm_refid
where cast(d_beleg as date) = '" & txtZahlEingaenge._value & "' and BU.i_firm_refid=" & Firma_ID & SQLWhere & "
@@ -102,8 +102,8 @@ Public Class frmBU_Mahnlauf
.Columns("c_urbelegid").Width = 90
.Columns("c_urbelegid").HeaderText = "BelegNr."
.Columns("i_konto").Width = 75
.Columns("i_konto").HeaderText = "KdNr/Konto"
.Columns("Konto").Width = 75
.Columns("Konto").HeaderText = "KdNr/Konto"
.Columns("eur_betrag").Width = 75
.Columns("eur_betrag").HeaderText = "Betrag"