Anlage des Repos

archive/Packtisch Modul/Packtisch 3.0.0.5 - Setup/Modules/Packtisch_3_0/CheckOrderIsLocked.vbm

@@ -0,0 +1,51 @@
+' 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: 			3.0.0.2
+
+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