' 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