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

db

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-10 16:41:29 +01:00
parent d4ccf64bf9
commit 7eff2d8925
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb
View File

@@ -2021,13 +2021,13 @@ Public Class cVermerkeDAL
End Function End Function
Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) As Integer Shared Function insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False, Optional useMitarbeiterTxt As String = "") As Integer
'Daten zuweisen und speichern 'Daten zuweisen und speichern
Dim myVermerk As New cVermerk Dim myVermerk As New cVermerk
myVermerk.VermerkID = 0 myVermerk.VermerkID = 0
myVermerk.AvisoID = AvisoID myVermerk.AvisoID = AvisoID
myVermerk.Datum = Now myVermerk.Datum = Now
myVermerk.Mitarbeiter = cGlobal.AktiverMitarbeiter.Mitarbeiter & If(addAuto, " (AUTO)", "") myVermerk.Mitarbeiter = If(vbDefaultButton1 <> "", useMitarbeiterTxt, cGlobal.AktiverMitarbeiter.Mitarbeiter) & If(addAuto, " (AUTO)", "")
myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID myVermerk.MitarbeiterId = cGlobal.AktiverMitarbeiter.MitarbeiterID
myVermerk.Hinweis_Vermerk = Text myVermerk.Hinweis_Vermerk = Text
myVermerk.VermerkCodeId = VermerkCodeId myVermerk.VermerkCodeId = VermerkCodeId