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

Fakturierung Parkplatz (VERAG AG-DE), ATR

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-02 11:29:45 +01:00
parent 6973750294
commit 6d6c5e9415
13 changed files with 2425 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -612,7 +612,12 @@ Public Class cVorauskasseOptions
myVermerk.Datum = If(DatumTmp, Now)
myVermerk.VermerkArt = "S"
myVermerk.VorauskasseId = VorauskasseId
myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
Else
myVermerk.Mitarbeiter = If(If(VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, "") <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) & " (AUTO)"
End If
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Dim betragTXT = If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
Dim betragTXT2 = If(CDbl(vk_Betrag) > 0, ": " & CDbl(vk_Betrag).ToString("C2") & "", "")