Anlage des Repos

current/Modules/Archiv/Packtisch/UpdateArticleRow.vbs

@@ -0,0 +1,45 @@
+' 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