42 lines
1.6 KiB
Plaintext
42 lines
1.6 KiB
Plaintext
' TransferMacroData()
|
|
' ----------------------------------------------------------------------------
|
|
' Überführt die Daten aus dem Macro-Array zurück ins Grid
|
|
'
|
|
' Returns: -
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 08.03.2021 / MP
|
|
' Version Date / Editor: 08.03.2021 / MP
|
|
' Version Number: 4.0.0.0
|
|
|
|
Sub TransferMacroData()
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = mywin.Controls.Item(GRID_ID).Grid
|
|
|
|
For GridIndex = 1 To Grid.LineCount: Do
|
|
MacroFlag = Cint(Grid.GetCellValue(GridIndex, COLUMN_MACRO_FLAG))
|
|
|
|
If MacroFlag = 1 Then
|
|
LineNumber = Cint(Grid.GetCellValue(GridIndex, COLUMN_LINE_NUMBER))
|
|
|
|
For MacroArrayIndex = 0 To UBound(MACRO_ARTICLE_LIST, 2)
|
|
' Wenn die Menge in COLUMN_MACRO_ARTICLE_AMOUNT_COMPLETED > 0 ist,
|
|
' dann muss dieser Wert ins Grid zurück geschrieben werden.
|
|
If (MACRO_ARTICLE_LIST(COLUMN_MACRO_ARTICLE_LINE_NUMBER, MacroArrayIndex) = LineNumber) And _
|
|
(MACRO_ARTICLE_LIST(COLUMN_MACRO_ARTICLE_AMOUNT_COMPLETED, MacroArrayIndex) > 0) Then
|
|
Grid.SetCellValue GridIndex, COLUMN_SCANNED, MACRO_ARTICLE_LIST(COLUMN_MACRO_ARTICLE_AMOUNT_COMPLETED, MacroArrayIndex)
|
|
Exit For
|
|
End If
|
|
Next
|
|
Else
|
|
' Continue
|
|
Exit Do
|
|
End If
|
|
|
|
Loop While False: Next
|
|
|
|
End Sub |