' UpdateArticleRow(RowNumber: Integer)
' ---------------------------------------------------------
' Trägt die gescannte Menge eines Artikel in das Grid ein
' - Ändert die Farbe, abhängig von Gesamtmenge und Gescannte Menge
' 
' Rückgabewert: Keiner
' ---------------------------------------------------------
Sub UpdateArticleRow(RowNumber)
	Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
	Set Grid = mywin.Controls.Item(GRID_ID).Grid
	Set amountBox = mywin.Controls.Item(AMOUNT_INPUT)
	DebugMessage = ""
	
	' Bereits gescannte, Gesamt und Anzahl zu Scannen auslesen
	Total = Cint(Grid.GetCellValue(RowNumber, COLUMN_TOTAL))
	Scanned = Cint(Grid.GetCellValue(RowNumber, COLUMN_SCANNED))
	ScannedAmount = Cint(amountBox.Contents)
	
	' Neue bereits gescannte berechnen
	NewScanned = Scanned + ScannedAmount
	
	If DEBUG_ON = True Then
		AddDebugLine "Total " & Total & vbNewline
		AddDebugLine "Scanned: " & Scanned & vbNewline
		AddDebugLine "NewScanned: " & NewScanned & vbNewline
		
		ShowDebugBox "UpdateArticleRow"
	End If
	
	' Zeilenfarbe anpassen:
	' GRÜN: Komplett gescannt
	' GELB: Teilweise gescannt
	If NewScanned = Total Then
		Grid.SetLineColor RowNumber, COLOR_GREEN
		Grid.SetCellValue RowNumber, COLUMN_SCANNED, NewScanned
	Elseif NewScanned < Total Then
		Grid.SetLineColor RowNumber, COLOR_YELLOW
		Grid.SetCellValue RowNumber, COLUMN_SCANNED, NewScanned
	Else
		Message = ""
		Message = Message & "Eingegebene Menge überschreitet die Gesamt-Anzahl oder" & vbNewline
		Message = Message & "Artikel wurde bereits vollständig gescannt!"	 
		Msgbox Message, vbExclamation, DEFAULT_TITLE
	End If
End Sub