' IsOrderComplete()
' ----------------------------------------------------------------------------
' Überprüft, ob alle Zeilen vollständig gescannt wurden
' 
' Returns: OrderComplete: 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:   25.09.2020 / JJ
' Version Date / Editor:    01.04.2020 / MP
' Version Number: 			4.0.0.0

Function IsOrderComplete()
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set Grid = mywin.Controls.Item(GRID_ID).Grid
	
	IsOrderComplete = True
	
	For GridIndex = 1 To Grid.LineCount: Do
		Total = Cint(Grid.GetCellValue(GridIndex, COLUMN_TOTAL))
		Scanned = Cint(Grid.GetCellValue(GridIndex, COLUMN_SCANNED))
		MacroFlag = Cint(Grid.GetCellValue(GridIndex, COLUMN_MACRO_FLAG))
		
		If MacroFlag = 1 Then
			' Continue weil Makro-Haupt-Artikel nicht geprüft werden
			' Sonstige Artikel, wie z.B. Versandkosten, werden bereits als komplett ins Grid geladen
			Exit Do
		End If 
		
		If Scanned < Total Then
			IsOrderComplete = False
			Exit For
		End If
	Loop While False: Next
End Function