' 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