52 lines
1.7 KiB
Plaintext
52 lines
1.7 KiB
Plaintext
' CheckOrderIsLocked(OrderNumber : String)
|
|
' ----------------------------------------------------------------------------
|
|
' Prüft, ob der Auftrag gesperrt ist.
|
|
' Wenn der Auftrag gesperrt ist, wird der Anwender informiert,
|
|
' wer die Sperre hält, und ob man es erneut versuchen möchte,
|
|
' oder Abbrechen will. Das Verhalten orientiert sich an der
|
|
' Vorlage, wie die Winline auf solche Sperrren reagiert.
|
|
'
|
|
' Returns: CheckOrderIsLocked : Boolean
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 07.04.2021 / MP
|
|
' Version Date / Editor: 07.04.2021 / MP
|
|
' Version Number: 4.0.0.0
|
|
|
|
Function CheckOrderIsLocked(OrderNumber)
|
|
|
|
CheckOrderIsLocked = False
|
|
|
|
If Len(OrderNumber) <= 0 Then
|
|
' Ohne Auftrag geht gar nichts
|
|
Exit Function
|
|
End If
|
|
|
|
Dim ContinueFlag : ContinueFlag = True
|
|
|
|
Do
|
|
UserId = IsOrderLocked(OrderNumber)
|
|
If UserId > 0 Then
|
|
CheckOrderIsLocked = True ' Rückgabewert
|
|
|
|
QuestionText = "Der Auftrag [" & OrderNumber & "] wird von Benutzr [" & GetWinLineUserData(UserID) & "] bearbeitet! " & vbNewLine & vbNewLine
|
|
Answer = MsgBox(QuestionText & "Wollen Sie abbrechen?", vbYesno + vbQuestion, DEFAULT_TITLE & " - CheckOrderIsLocked")
|
|
If Answer = vbYes Then
|
|
ContinueFlag = False ' Abbrechen
|
|
Else
|
|
ContinueFlag = True ' Weiter prüfen
|
|
End If
|
|
Else
|
|
CheckOrderIsLocked = False ' Rückgabewert
|
|
|
|
ContinueFlag = False
|
|
End If
|
|
|
|
Loop While ContinueFlag = true
|
|
|
|
End Function
|