From 7eff2d8925142ab7d53e09efd7fb30c4ed6c3280 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 10 Mar 2026 16:41:29 +0100 Subject: [PATCH] db --- VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb index 87fda72b..bee7dcf0 100644 --- a/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb +++ b/VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb @@ -2021,13 +2021,13 @@ Public Class cVermerkeDAL 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 Dim myVermerk As New cVermerk myVermerk.VermerkID = 0 myVermerk.AvisoID = AvisoID 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.Hinweis_Vermerk = Text myVermerk.VermerkCodeId = VermerkCodeId