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

MDM Plaose Anpassung, div. USTV Anpassungen

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-27 22:18:10 +01:00
parent 2bd9f595fd
commit ff705db787
7 changed files with 559 additions and 493 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -672,15 +672,9 @@ Public Class cVorauskasseOptions
End If
End If
'Wenn Benutzer der Sendung nicht online, dann Benutzer der Sendung ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn Benutzer des LKWs nicht online, Team...
'Wenn Benutzer der Sendung nicht online, Team...
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' --> Bezieht sich auf BU MA
Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später
' Case "IMEX" ' Bie IMEX kommen die MA durhc verschobene Dienstzeiten oft später
Case Else
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungID & "'", "AVISO")
@@ -688,6 +682,12 @@ Public Class cVorauskasseOptions
End If
End Select
'Wenn nicht Team, dann Benutzer des LKW ..
If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO")
art = "B"
End If
'Wenn gefunden
If sendToID >= 0 Then