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

MDMAusewrtung, faktEmail, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-01-28 12:04:18 +01:00
parent 8896aa1def
commit 44a58bc077
13 changed files with 276 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
SDL/kassenbuch/frmNacherfassungLeihgeld.vb
View File

@@ -591,7 +591,7 @@ Public Class frmNacherfassungLeihgeld
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
RG.LOAD_OFFERT_POSITIONEN() ' --> OFFERTE MIT ANZAHL >0 und Preis >0
allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "Leihgeldauszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")")
allPos(RG, OFFERTE, 110, summeBRUTTO, summeNETTO, (summeBRUTTO - summeNETTO), "LG-Auszahlung (" & BARBELEG.LKW_Kennzeichen & " " & BARBELEG.Fahrer & ")")
Dim dtSt As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'') FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & RG.Steuerschlüssel & "'", "FMZOLL")
If dtSt IsNot Nothing AndAlso dtSt.Rows.Count > 0 Then
@@ -627,6 +627,10 @@ Public Class frmNacherfassungLeihgeld
POS.LeistungsNr = o.LeistungsNr
POS.LeistungsBez = IIf(leistungsBez <> "", leistungsBez, o.LeistungsBez)
If POS.LeistungsBez IsNot Nothing AndAlso POS.LeistungsBez.Length > 30 Then
POS.LeistungsBez = POS.LeistungsBez.Substring(0, Math.Min(30, POS.LeistungsBez.Length))
End If
POS.BerechnungsartNr = o.BerechnungsartNr
POS.Anzahl = 1
POS.Steuerpflichtig = LEISTUNG.Steuerpflichtig