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

Parkplatz Abrechnung, Fakt div, etc

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-12 14:00:27 +01:00
parent 5e26c9cf22
commit 6b58e32397
12 changed files with 737 additions and 308 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -612,11 +612,9 @@ Public Class cVorauskasseOptions
myVermerk.Datum = If(DatumTmp, Now)
myVermerk.VermerkArt = "S"
myVermerk.VorauskasseId = VorauskasseId
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.Mitarbeiter = If(If(VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, "") <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.ABW_USRNAME, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) & " (AUTO)"
myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
Dim betragTXT = If(CDbl(vk_Betrag) > 0, " (" & CDbl(vk_Betrag).ToString("C2") & ")", "")
@@ -624,7 +622,9 @@ Public Class cVorauskasseOptions
Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert" & betragTXT
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben" : insertBenachrichtigung(myVermerk.Hinweis_Vermerk & betragTXT2, myVermerk.AvisoID, myVermerk.SendungID, vk_QS_SachbearbeiterId)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And (VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ORDU" Or Array.IndexOf(New String() {"VRR", "BH", "GF"}, VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG) > -1) Then myVermerk.Mitarbeiter = "VERRECHNUNG (AUTO)"
Case Else : Exit Sub
End Select
If VermerkCodeId IsNot Nothing Then myVermerk.VermerkCodeId = VermerkCodeId