86 lines
4.4 KiB
Plaintext
86 lines
4.4 KiB
Plaintext
' InitializeDuplicateChecker_CreateVar
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine initialisiert die nötigen Variablen.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow@digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 01.11.2021 / MK
|
|
' Version Date / Editor: 01.11.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub InitializeDuplicateChecker_CreateVar()
|
|
|
|
''Plan/layout for 495 vars
|
|
'Vars 0- 9 Level 0 General Controls
|
|
'
|
|
'Vars 10-19 Level 1 Grid1 cols & Controls
|
|
'Vars 20-39 Level 1 Grid2 cols
|
|
'
|
|
'Vars 40-49 Level 2 Grid1 cols & Controls
|
|
'Vars 50-69 Level 2 Grid2 cols
|
|
'
|
|
'Vars 70-79 Level 3 Grid1 cols & Controls (future use)
|
|
'Vars 80-99 Level 3 Grid2 cols (future use)
|
|
|
|
'----------------------------------------------------------------------------------------------------------
|
|
|
|
'Storage for custom fields on LEVEL 0
|
|
|
|
'----------------------------------------------------------------------------------------------------------
|
|
|
|
'Storage for custom fields on LEVEL 1
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 10, "1", 50 'Grid1: Footer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 11, "2", 15 'Grid1: GUID
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 12, "2", 15 'Grid1: Anzahl
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 13, "1", 255 'Grid1: Wert
|
|
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 18, "31", 4 'SQL Spalten aus v021
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 19, "2", 3 'Checkbox ob Ident und Chargenartikel berücksichtigt werden sollen
|
|
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 20, "1", 50 'Grid2: Footer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 21, "2", 3 'Grid2: Aktiv
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 22, "2", 3 'Grid2: Hauptartikelflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 23, "2", 3 'Grid2: Ausprägungsartikelflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 24, "2", 3 'Grid2: Identartikelflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 25, "2", 3 'Grid2: Chargenartikelflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 26, "1", 25 'Grid2: Hauptartikelnummer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 27, "1", 25 'Grid2: Artikelnummer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 28, "1", 255 'Grid2: Artikelbezeichnung
|
|
|
|
'----------------------------------------------------------------------------------------------------------
|
|
|
|
'Storage for custom fields on LEVEL 2
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 40, "1", 50 'Grid1: Footer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 41, "2", 15 'Grid1: GUID
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 42, "2", 15 'Grid1: Anzahl
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 43, "1", 255 'Grid1: Wert
|
|
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 48, "31", 4 'SQL Spalten aus v050
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 49, "2", 3 'Checkbox ob nur Kundenkonten berücksichtigt werden sollen
|
|
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 50, "1", 50 'Grid2: Footer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 51, "2", 3 'Grid2: Aktiv
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 52, "2", 3 'Grid2: Kundeflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 53, "2", 3 'Grid2: Lieferantflag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 54, "2", 3 'Grid2: Kunde (Interessent) flag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 55, "2", 3 'Grid2: Lieferant (Interessent) flag
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 56, "1", 25 'Grid2: FAKT Kontonummer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 57, "1", 25 'Grid2: FIBU Kontonummer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 58, "1", 25 'Grid2: Kontonummer
|
|
CWLCurrentWindow.ActiveWindow.Vars.CreateVar 495, 59, "1", 255 'Grid2: Kontobeschreibung
|
|
|
|
'----------------------------------------------------------------------------------------------------------
|
|
|
|
End Sub
|
|
|
|
'Create Var
|
|
'Type Bedeutung
|
|
'1 Textvariable (Länge wählbar)
|
|
'2 Zahl ohne Nachkommastellen (Integer)
|
|
'4 Zahl mit Nachkommastellen (Double)
|
|
'6 Datum mit Zeit
|