cDatenbank, StartOptions, etc.

This commit is contained in:
2026-03-20 14:57:09 +01:00
parent 6281733780
commit f982738e2a

View File

@@ -2037,7 +2037,7 @@ Public Class cVermerkeDAL
myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now
myVermerk.Mitarbeiter = If(vbDefaultButton1 <> "", useMitarbeiterTxt, cGlobal.AktiverMitarbeiter.Mitarbeiter) & If(addAuto, " (AUTO)", "")
myVermerk.Mitarbeiter = If(useMitarbeiterTxt <> "", useMitarbeiterTxt, cGlobal.AktiverMitarbeiter.Mitarbeiter) & If(addAuto, " (AUTO)", "")
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId