113 lines
3.5 KiB
Plaintext
113 lines
3.5 KiB
Plaintext
' ResetValuesByLineIndex(LineIndex : INT)
|
|
' ----------------------------------------------------------------------------
|
|
' Setzt die Werte in einer bestimmten Zeile auf ihre
|
|
' Ausgangswerte zurück.
|
|
'
|
|
' 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: 15.03.2021 / MP
|
|
' Version Date / Editor: 15.03.2021 / MP
|
|
' Version Number: 4.0.0.0
|
|
|
|
Sub ResetValues(GridLineIndexToReset)
|
|
Set myWin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = myWin.Controls.Item(GRID_ID).Grid
|
|
|
|
For GridIndex = 1 To Grid.LineCount
|
|
If GridIndex = GridLineIndexToReset Then
|
|
Grid.SetCellValue GridIndex, COLUMN_SCANNED, 0
|
|
Grid.SetCellValue GridIndex, COLUMN_SERIALNUMBER, ""
|
|
|
|
If (Grid.GetCellValue(GridIndex, COLUMN_MACRO_FLAG) = 2) Then
|
|
Grid.SetLineColor GridIndex, COLOR_PACKAGE_RED
|
|
Else
|
|
Grid.SetLineColor GridIndex, COLOR_RED
|
|
End If
|
|
|
|
Exit For
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Sub ResetValuesByMacroLineNumber(MacroArticleLineNumber)
|
|
Set myWin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = myWin.Controls.Item(GRID_ID).Grid
|
|
|
|
For GridIndex = 1 To Grid.LineCount
|
|
|
|
MacroLineNumber = Cint(Grid.GetCellValue(GridIndex, COLUMN_MACRO_LINE_NUMBER))
|
|
|
|
If MacroLineNumber = MacroArticleLineNumber Then
|
|
Grid.SetCellValue GridIndex, COLUMN_SCANNED, 0
|
|
Grid.SetCellValue GridIndex, COLUMN_SERIALNUMBER, ""
|
|
Grid.SetLineColor GridIndex, COLOR_PACKAGE_RED
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Sub ResetValuesByLineIndex(LineIndex)
|
|
Set myWin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = myWin.Controls.Item(GRID_ID).Grid
|
|
|
|
If (Grid.LineCount <= 0) Then
|
|
MsgBox "Bitte scannen Sie zuerst eine Auftragsnummer!", vbOKOnly + vbInformation, DEFAULT_TITLE
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim LineIndexToReset : LineIndexToReset = 0
|
|
|
|
If (LineIndex = -1) Then
|
|
InputBoxHeaderText = "Zeile zurücksetzen"
|
|
|
|
If (Grid.LineCount = 1) Then
|
|
InputBoxText = "Zeilennummer:"
|
|
InputBoxDefault = "1"
|
|
Else
|
|
InputBoxText = "Zeilennummer (Zeile [1 - " & Grid.LineCount & "]):"
|
|
InputBoxDefault = "0"
|
|
End If
|
|
|
|
LineIndexInputBox = InputBox(InputBoxText, InputBoxHeaderText, InputBoxDefault)
|
|
|
|
Select Case True
|
|
Case IsEmpty(LineIndexInputBox)
|
|
' Abbruch der Box
|
|
Exit Sub
|
|
Case "" = Trim(LineIndexInputBox)
|
|
' Kein Wert eingegeben = Abbruch
|
|
Exit Sub
|
|
Case Else
|
|
' Wert eingegeben und OK geklickt
|
|
If Len(LineIndexInputBox) > 0 Then
|
|
LineIndexToReset = Cint(LineIndexInputBox)
|
|
Else
|
|
LineIndexToReset = 0
|
|
End If
|
|
End Select
|
|
Else
|
|
LineIndexToReset = LineIndex
|
|
End If
|
|
|
|
If (LineIndexToReset <= 0 OR LineIndexToReset > Grid.LineCount) Then
|
|
MsgBox "Keine gültige Zeile ausgewählt!", vbOKOnly + vbInformation, DEFAULT_TITLE
|
|
|
|
ElseIf (Grid.GetCellValue(LineIndexToReset, COLUMN_RESETABLE_FLAG) = 0) Then
|
|
MsgBox "Die Zeile [" & LineIndexToReset & "] ist nicht änderbar!", vbOKOnly + vbInformation, DEFAULT_TITLE
|
|
|
|
ElseIf (LineIndexToReset > 0 And LineIndexToReset <= Grid.LineCount) Then
|
|
Answer = MsgBox("Sollen die Werte in Zeile [" & LineIndexToReset & "] zurückgesetzt werden?", vbYesno + vbQuestion, DEFAULT_TITLE)
|
|
If Answer = vbYes Then
|
|
ResetValues LineIndexToReset
|
|
CURRENT_GRID_LINE_INDEX = 0
|
|
End If
|
|
Else
|
|
MsgBox "Diese Zeilennummer gibt es nicht!"
|
|
End If
|
|
|
|
End Sub
|