129 lines
7.5 KiB
Plaintext
129 lines
7.5 KiB
Plaintext
' SetDuplicateChecker_TableLayout
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine bereitet das Layout / die Spalten einer Tabelle (Grid) vor.
|
|
' Parameter 1 (LEVEL) = Das aktuelle Showlevel übergeben.
|
|
' Parameter 2 (GRID) = Falls mehrere Grids auf einem Level vorkommen, kann über diesen Parameter nochmals unterscheiden werden.
|
|
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' 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 SetDuplicateChecker_TableLayout(LEVEL,GRID,LAYOUT)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
If (GRID = LEVEL1_GRID1_ID) Then
|
|
|
|
LEVEL1_GRID1_COLUMN_GUID = LEVEL1_Grid1.AddColumn("GUID", "T23,GUID", "1","V",0,495,11,0, SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID1_COLUMN_COUNT = LEVEL1_Grid1.AddColumn("Anzahl", "T23,Anzahl", "1","V",0,495,12,6, SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID1_COLUMN_FIELD_OR_ATTRIBUTE = LEVEL1_Grid1.AddColumn("Duplizierter Wert", "T21,Duplizierter Wert", "1","V",0,495,13,29,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
|
|
'Set Footer in col of LEVEL1_GRID1_COLUMN_FIELD_OR_ATTRIBUTE
|
|
LEVEL1_GRID1.SetFooterColumn LEVEL1_GRID1_COLUMN_FIELD_OR_ATTRIBUTE,"<Zeilenzähler>","l","V",0,495,10
|
|
|
|
ElseIf (GRID = LEVEL1_GRID2_ID) Then
|
|
|
|
IF (LAYOUT = "Initial") Then
|
|
|
|
LEVEL1_GRID2_COLUMN_ACTIVE = LEVEL1_Grid2.AddColumn("Aktiv", "T17,Aktiv", "l","V",0,495,21, 5,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_MAIN_PRODUCT = LEVEL1_Grid2.AddColumn("Hauptartikel", "T17,Hauptartikel", "l","V",0,495,22, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_SHAPE_PRODUCT = LEVEL1_Grid2.AddColumn("Ausprägungsartikel", "T17,Ausprägungsartikel", "l","V",0,495,23, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_IDENT_PRODUCT = LEVEL1_Grid2.AddColumn("Identartikel", "T17,Identartikel", "l","V",0,495,24, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_CHARGE_PRODUCT = LEVEL1_Grid2.AddColumn("Chargenartikel", "T17,Chargenartikel", "l","V",0,495,25, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_MAIN_PRODUCT_NUMBER = LEVEL1_Grid2.AddColumn("Hauptartikelnummer", "T21,Hauptartikelnummer", "1","V",0,495,26, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_PRODUCT_NUMBER = LEVEL1_Grid2.AddColumn("Artikelnummer", "T21,Artikelnummer", "1","V",0,495,27,15,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID2_COLUMN_PRODUCT_DESCRIPTION = LEVEL1_Grid2.AddColumn("Artikelbezeichnung", "T21,Beschreibung", "1","V",0,495,28,80,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
|
|
ElseIf (LAYOUT = "Extended") Then
|
|
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_MAIN_PRODUCT, 5
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_SHAPE_PRODUCT, 5
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_IDENT_PRODUCT, 5
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_CHARGE_PRODUCT, 5
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_MAIN_PRODUCT_NUMBER, 15
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_PRODUCT_DESCRIPTION, 45
|
|
|
|
LEVEL1_GRID2_Layout = "Small"
|
|
|
|
ElseIf (LAYOUT = "Small") Then
|
|
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_MAIN_PRODUCT, 0
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_SHAPE_PRODUCT, 0
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_IDENT_PRODUCT, 0
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_CHARGE_PRODUCT, 0
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_MAIN_PRODUCT_NUMBER, 0
|
|
LEVEL1_Grid2.SetColumnWidth LEVEL1_GRID2_COLUMN_PRODUCT_DESCRIPTION, 80
|
|
|
|
LEVEL1_GRID2_Layout = "Extended"
|
|
|
|
End IF
|
|
|
|
'Set Footer in col of LEVEL1_GRID2_COLUMN_PRODUCT_DESCRIPTION
|
|
LEVEL1_Grid2.SetFooterColumn LEVEL1_GRID2_COLUMN_PRODUCT_DESCRIPTION,"<Zeilenzähler>","l","V",0,495,20
|
|
|
|
End If
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
If (GRID = LEVEL2_GRID1_ID) Then
|
|
|
|
LEVEL2_GRID1_COLUMN_GUID = LEVEL2_Grid1.AddColumn("GUID", "T23,GUID", "1","V",0,495,41,0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID1_COLUMN_COUNT = LEVEL2_Grid1.AddColumn("Anzahl", "T23,Anzahl", "1","V",0,495,42,6,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID1_COLUMN_FIELD_OR_ATTRIBUTE = LEVEL2_Grid1.AddColumn("Duplizierter Wert", "T21,Duplizierter Wert", "1","V",0,495,43,29,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
|
|
'Set Footer in col of LEVEL2_GRID1_COLUMN_FIELD_OR_ATTRIBUTE
|
|
LEVEL2_GRID1.SetFooterColumn LEVEL2_GRID1_COLUMN_FIELD_OR_ATTRIBUTE,"<Zeilenzähler>","l","V",0,495,40
|
|
|
|
ElseIf (GRID = LEVEL2_GRID2_ID) Then
|
|
|
|
IF (LAYOUT = "Initial") Then
|
|
|
|
LEVEL2_GRID2_COLUMN_ACTIVE = LEVEL2_Grid2.AddColumn("Aktiv", "T17,Aktiv", "l","V",0,495,51, 5,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_CUSTOMER = LEVEL2_Grid2.AddColumn("Kunde", "T17,Kunde", "l","V",0,495,52, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_VENDOR = LEVEL2_Grid2.AddColumn("Lieferant", "T17,Lieferant", "l","V",0,495,53, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_ADVICE_CUSTOMER = LEVEL2_Grid2.AddColumn("Kunde (Interessent)", "T17,Kunde (Interessent)", "l","V",0,495,54, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_ADVICE_VENDOR = LEVEL2_Grid2.AddColumn("Lieferant (Interessent)", "T17,Lieferant (Interessent)", "l","V",0,495,55, 0,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_FAKTSUBACCOUNTNR = LEVEL2_Grid2.AddColumn("FAKT Kontonummer", "T21,FAKT Kontonummer", "1","V",0,495,56,15,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_FIBUSUBACCOUNTNR = LEVEL2_Grid2.AddColumn("FIBU Kontonummer", "T21,FIBU Kontonummer", "1","V",0,495,57,15,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_ACCOUNT_NUMBER = LEVEL2_Grid2.AddColumn("Kontonummer", "T21,Kontonummer", "1","V",0,495,58,15,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID2_COLUMN_ACCOUNT_DESCRIPTION = LEVEL2_Grid2.AddColumn("Kontobeschreibung", "T21,Kontobeschreibung", "1","V",0,495,59,50,SORTFLAG+scrtflag+sizeflag+hideflag)
|
|
|
|
ElseIf (LAYOUT = "Extended") Then
|
|
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_CUSTOMER, 5
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_VENDOR, 5
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ADVICE_CUSTOMER, 5
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ADVICE_VENDOR, 5
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ACCOUNT_DESCRIPTION, 30
|
|
|
|
LEVEL2_GRID2_Layout = "Small"
|
|
|
|
ElseIf (LAYOUT = "Small") Then
|
|
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_CUSTOMER, 0
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_VENDOR, 0
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ADVICE_CUSTOMER, 0
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ADVICE_VENDOR, 0
|
|
LEVEL2_Grid2.SetColumnWidth LEVEL2_GRID2_COLUMN_ACCOUNT_DESCRIPTION, 50
|
|
|
|
LEVEL2_GRID2_Layout = "Extended"
|
|
|
|
End IF
|
|
|
|
'Set Footer in col of LEVEL2_GRID2_COLUMN_ACCOUNT_DESCRIPTION
|
|
LEVEL2_Grid2.SetFooterColumn LEVEL2_GRID2_COLUMN_ACCOUNT_DESCRIPTION,"<Zeilenzähler>","l","V",0,495,50
|
|
|
|
End If
|
|
|
|
End if
|
|
|
|
End Sub |