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

Benachrichtigungen AAS , vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-09-17 15:22:55 +02:00
parent 0bbf26e855
commit 4924712452
3 changed files with 25 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
VERAG_PROG_ALLGEMEIN/Classes/cAvisoBenachrichtigungen.vb
View File

@@ -27,6 +27,7 @@ Public Class cAvisoBenachrichtigungen
Property ab_Vermerk As Object = Nothing
Property ab_ReminderVermerkID As Object = Nothing
Property ab_ReminderVermerkCode As Object = Nothing
Property ab_VermerkID As Object = Nothing
@@ -47,7 +48,7 @@ Public Class cAvisoBenachrichtigungen
LOAD()
End Sub
Public Shared Function INSERT_BENACHRICHTIGUNG(ab_AvisoID As Integer, ab_SendungID As Object, ab_BenachrichtigungCode As Integer, Optional ab_TO_Art As Object = Nothing, Optional ab_TO_Code As Object = Nothing, Optional ab_Beschreibung As String = "", Optional ab_Prioritaet As Integer = 0, Optional ab_collAnhId As String = "", Optional ab_Vermerk As String = "", Optional [ab_ReminderVermerkID] As Object = Nothing, Optional [ab_ReminderVermerkCode] As Object = Nothing, Optional FirmaTmp As Object = Nothing) As Boolean
Public Shared Function INSERT_BENACHRICHTIGUNG(ab_AvisoID As Integer, ab_SendungID As Object, ab_BenachrichtigungCode As Integer, Optional ab_TO_Art As Object = Nothing, Optional ab_TO_Code As Object = Nothing, Optional ab_Beschreibung As String = "", Optional ab_Prioritaet As Integer = 0, Optional ab_collAnhId As String = "", Optional ab_Vermerk As String = "", Optional [ab_ReminderVermerkID] As Object = Nothing, Optional [ab_ReminderVermerkCode] As Object = Nothing, Optional FirmaTmp As Object = Nothing, Optional ab_VermerkID As Object = Nothing) As Boolean
Dim AB As New cAvisoBenachrichtigungen
@@ -74,6 +75,7 @@ Public Class cAvisoBenachrichtigungen
AB.ab_MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
AB.ab_ReminderVermerkID = ab_ReminderVermerkID
AB.ab_ReminderVermerkCode = ab_ReminderVermerkCode
AB.ab_VermerkID = ab_VermerkID
AB.ab_Firma = If(FirmaTmp, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
@@ -137,6 +139,7 @@ Public Class cAvisoBenachrichtigungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_Vermerk", ab_Vermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_ReminderVermerkCode", ab_ReminderVermerkCode))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_ReminderVermerkID", ab_ReminderVermerkID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ab_VermerkID", ab_VermerkID))
Return list