45 lines
2.3 KiB
Plaintext
45 lines
2.3 KiB
Plaintext
' SetExportWinLineDoc_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: 05.07.2021 / MK
|
|
' Version Date / Editor: 05.07.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub SetExportWinLineDoc_TableLayout(LEVEL,GRID)
|
|
|
|
If (LEVEL = 1) or (LEVEL = "1") Then
|
|
|
|
If (GRID = LEVEL1_GRID_ID) Then
|
|
|
|
LEVEL1_GRID_COLUMN_GUID = LEVEL1_Grid.AddColumn("GUID", "T21,GUID", "1","V",0,495,0, 0,scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID_COLUMN_AKTIV = LEVEL1_Grid.AddColumn("Aktiv", "T17,Aktiv", "l","V",0,495,1, 5,scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID_COLUMN_BESCHREIBUNG = LEVEL1_Grid.AddColumn("Beschreibung", "T21,Beschreibung", "1","V",0,495,2,40,scrtflag+sizeflag+hideflag)
|
|
LEVEL1_GRID_COLUMN_MANDANT = LEVEL1_Grid.AddColumn("Mandant", "T21,Mandant", "1","V",0,495,3, 8,scrtflag+sizeflag+hideflag)
|
|
|
|
End If
|
|
|
|
'------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
|
|
|
ElseIf (LEVEL = 2) or (LEVEL = "2") Then
|
|
|
|
If (GRID = LEVEL2_GRID_ID) Then
|
|
|
|
LEVEL2_GRID_COLUMN_GUID = LEVEL2_Grid.AddColumn("GUID", "T21,GUID", "1","V",0,495,50, 0,scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID_COLUMN_AKTIV = LEVEL2_Grid.AddColumn("Aktiv", "T17,Aktiv", "l","V",0,495,51, 5,scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID_COLUMN_BESCHREIBUNG = LEVEL2_Grid.AddColumn("Beschreibung", "T21,Beschreibung", "1","V",0,495,52,40,scrtflag+sizeflag+hideflag)
|
|
LEVEL2_GRID_COLUMN_MANDANT = LEVEL2_Grid.AddColumn("Mandant", "T21,Mandant", "1","V",0,495,53, 8,scrtflag+sizeflag+hideflag)
|
|
|
|
End If
|
|
|
|
End if
|
|
|
|
End Sub |