' 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