45 lines
1.6 KiB
Plaintext
45 lines
1.6 KiB
Plaintext
' 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 |