22 lines
635 B
Plaintext
22 lines
635 B
Plaintext
' IsOrderComplete()
|
|
' ---------------------------------------------------------
|
|
' Überprüft, ob alle Zeilen vollständig gescannt wurden
|
|
'
|
|
' Rückgabewert: OrderComplete: Boolean
|
|
' ---------------------------------------------------------
|
|
Function IsOrderComplete()
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = mywin.Controls.Item(GRID_ID).Grid
|
|
|
|
IsOrderComplete = True
|
|
|
|
For Row = 1 To Grid.LineCount
|
|
Total = Cint(Grid.GetCellValue(Row, COLUMN_TOTAL))
|
|
Scanned = Cint(Grid.GetCellValue(Row, COLUMN_SCANNED))
|
|
|
|
If Scanned < Total Then
|
|
IsOrderComplete = False
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Function |