47 lines
2.0 KiB
Plaintext
47 lines
2.0 KiB
Plaintext
' Version Date: 01.10.2020
|
|
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 Gescannt
|
|
' (495,1) - Menge Gesamt
|
|
' (495,2) - Seriennummer
|
|
' (495,3) - Artikelnummer
|
|
' (495,4) - Bezeichnung
|
|
' (495,5) - Chargen-/Identflag
|
|
' (495,5) - Spät ausgeprägt bzw. Regex vorhanden
|
|
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
|
|
|
|
|
|
Grid.InitUserGrid
|
|
Grid.IsRedraw = False
|
|
Grid.Header
|
|
|
|
If COLUMNS_CREATED = False Then
|
|
COLUMN_ARTICLENUMBER = Grid.AddColumn("Artikelnummer", "T21,Artikelnummer", "1","V",0,495,3,20,scrtflag+sizeflag+hideflag)
|
|
COLUMN_DESCRIPTION = Grid.AddColumn("Bezeichnung", "T21,Bezeichnung", "1","V",0,495,4,30,scrtflag+sizeflag+hideflag)
|
|
COLUMN_TOTAL = Grid.AddColumn("Gesamt", "T22,Gesamt", "1","V",0,495,0,10,scrtflag+sizeflag+hideflag)
|
|
COLUMN_SCANNED = Grid.AddColumn("Gescannt", "T22,Gescannt", "1","V",0,495,1,10,scrtflag+sizeflag+hideflag)
|
|
COLUMN_SERIALNUMBER = Grid.AddColumn("Seriennummer", "T21,Seriennummer", "l","V",0,495,2,20,scrtflag+sizeflag+hideflag)
|
|
COLUMN_TYPE = Grid.AddColumn("S/N?", "T17,Seriennummer", "l","V",0,495,5,6,scrtflag+sizeflag+hideflag)
|
|
COLUMN_LATE_SHAPE = Grid.AddColumn("Auspr?", "T17,Spaetausgepr.", "l","V",0,495,6,6,scrtflag+sizeflag+hideflag)
|
|
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 = ""
|
|
|
|
MacroCommands.MSetFieldFocus WINDOW_ID, ORDER_INPUT
|
|
End Sub |