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

Timas, Fakt -> Leihgeldkasse, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-09 17:08:34 +01:00
parent 4da7d188d1
commit dc62abfd64
16 changed files with 154 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/buchhaltung/usrCntlBH.Designer.vb generated
View File

@@ -732,7 +732,7 @@ Partial Class usrCntlBH
'
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Label5.Location = New System.Drawing.Point(564, 16)
Me.Label5.Location = New System.Drawing.Point(145, 6)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(197, 24)
Me.Label5.TabIndex = 0

5
SDL/buchhaltung/usrCntlBH.vb
View File

@@ -905,7 +905,7 @@ Public Class usrCntlBH
Else
zins.buchungstext = r.Item("Buchungstext")
zins.buchungstext = r.Item("Buchungstext").ToString.Replace("'", "")
zins.kundeZahlungsziel = r.Item("ZZ_in_Debitor")
zins.zinssatz = r.Item("Zinssatz_Kunde")
zins.belegZahlungsziel = r.Item("ZZinTage")
@@ -918,6 +918,7 @@ Public Class usrCntlBH
zins.faelligkeitsDatum = CDate(r.Item("Belegdatum")).AddDays(CInt(r.Item("ZZinTage")))
zins.zahlungsperiode_start = CDate(txtZRvon.Text).ToShortDateString
zins.zahlungsperiode_ende = CDate(txtZRbis.Text).ToShortDateString
zins.SAVE()
End If
@@ -1320,7 +1321,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 von " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim vermerk As String = "Zahlungen " & startDate & " - " & EndDate 'max 50 Zeichen!!!
Dim Fußtext As String = ""
'Fußtext = "Sehr geehrte Damen und Herren," & vbNewLine & "