87 lines
4.1 KiB
Plaintext
87 lines
4.1 KiB
Plaintext
' SetupWindow()
|
|
' ----------------------------------------------------------------------------
|
|
' Definiert die Spalten des Grids und initialisiert Felder
|
|
'
|
|
' 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: 01.09.2020 / JJ
|
|
' Version Date / Editor: 30.03.2021 / MP
|
|
' Version Number: 4.0.0.0
|
|
|
|
Sub SetupWindow()
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set Grid = mywin.Controls.Item(GRID_ID).Grid
|
|
|
|
' Speicher für benutzerdefinierte Felder
|
|
' (495,0) - Menge Gesamt
|
|
' (495,1) - Menge Gescannt
|
|
' (495,2) - Seriennummer
|
|
' (495,3) - Artikelnummer
|
|
' (495,4) - Bezeichnung
|
|
' (495,5) - Chargen-/Identflag
|
|
' (495,6) - Spät ausgeprägt bzw. Regex vorhanden
|
|
' (495,7) - Interne Zeilennummer aus Auftrag
|
|
' (495,8) - Sichtbare Zeilennummer im Grid
|
|
' (495,9) - Zeile darf resettet werden (J/N)
|
|
' (495,10) - Makro Flag (0 - Default / 1 = Macro-Artikel / 2 = Sub-Macro-Artikel)
|
|
' (495,11) - Makro Index, Zeilennummer des übergeordneten Makro-Artikels
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 0, "2", 10
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 1, "2", 10
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 2, "1", 20
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 3, "1", 20
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 4, "1", 60
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 5, "2", 3
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 6, "2", 3
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 7, "2", 3
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 8, "2", 4
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 9, "2", 3
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 10, "2", 3
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 11, "2", 3
|
|
|
|
Grid.InitUserGrid
|
|
Grid.IsRedraw = False
|
|
Grid.Header
|
|
|
|
If COLUMNS_CREATED = False Then
|
|
COLUMN_GRID_LINE_INDEX = Grid.AddColumn("#", "T22,Zeilenindex", "z", "V", 0, 495, 8, 4, sizeflag+hideflag)
|
|
COLUMN_ARTICLENUMBER = Grid.AddColumn("Artikelnummer", "T21,Artikelnummer", "l", "V", 0, 495, 3, 15, sizeflag+hideflag)
|
|
COLUMN_DESCRIPTION = Grid.AddColumn("Bezeichnung", "T21,Bezeichnung", "l", "V", 0, 495, 4, 37, sizeflag+hideflag)
|
|
COLUMN_TOTAL = Grid.AddColumn("Gesamt", "T22,Gesamt", "z", "V", 0, 495, 0, 10, sizeflag+hideflag)
|
|
COLUMN_SCANNED = Grid.AddColumn("Gescannt", "T22,Gescannt", "z", "V", 0, 495, 1, 10, sizeflag+hideflag)
|
|
COLUMN_SERIALNUMBER = Grid.AddColumn("Seriennummer", "T21,Seriennummer", "l", "V", 0, 495, 2, 20, sizeflag+hideflag)
|
|
COLUMN_CHARGE_FLAG = Grid.AddColumn("S/N?", "T17,Seriennummer", "l", "V", 0, 495, 5, 6, sizeflag+hideflag)
|
|
COLUMN_LATE_SHAPE = Grid.AddColumn("Auspr?", "T17,Spaetausgepr.", "l", "V", 0, 495, 6, 6, sizeflag+hideflag)
|
|
COLUMN_LINE_NUMBER = Grid.AddColumn("LN", "T22,Zeilennummer", "r", "V", 0, 495, 7, 0, 0) ' nicht sichtbar
|
|
COLUMN_RESETABLE_FLAG = Grid.AddColumn("RF", "T22,ResetableFlag", "r", "V", 0, 495, 9, 0, 0) ' nicht sichtbar
|
|
COLUMN_MACRO_FLAG = Grid.AddColumn("MF", "T22,MacroFlag", "r", "V", 0, 495, 10, 0, 0) ' nicht sichtbar
|
|
COLUMN_MACRO_LINE_NUMBER = Grid.AddColumn("MLN", "T22,MacroZeilenr", "r", "V", 0, 495, 11, 0, 0) ' nicht sichtbar
|
|
COLUMNS_CREATED = True
|
|
End If
|
|
|
|
Grid.IsRedraw = True
|
|
|
|
Set amountBox = mywin.Controls.Item(AMOUNT_INPUT)
|
|
amountBox.Contents = AMOUNT_PLACEHOLDER
|
|
|
|
Set articleBox = mywin.Controls.Item(ARTICLE_INPUT)
|
|
articleBox.Contents = ""
|
|
|
|
' Merker für Resetbutton
|
|
CURRENT_GRID_LINE_INDEX = 0
|
|
PRINT_DOCUMENT_AFTER_COMPLETION = True
|
|
|
|
SetLabelText TEXT_CONFIG_INFO, 495, 71, ""
|
|
|
|
' Arrays reinitialisieren
|
|
Redim ORDER_ARTICLE_DATA(MAX_ORDER_COLUMN_COUNT, -1)
|
|
Redim MACRO_ARTICLE_LIST(MAX_MACRO_COLUMN_COUNT, -1)
|
|
Redim DUPL_ARTICLE_LIST(MAX_DUPL_COLUMN_COUNT, -1)
|
|
|
|
MacroCommands.MSetFieldFocus WINDOW_ID, ORDER_INPUT
|
|
|
|
End Sub |