38 lines
1.3 KiB
Plaintext
38 lines
1.3 KiB
Plaintext
' 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 |