105 lines
4.0 KiB
Plaintext
105 lines
4.0 KiB
Plaintext
' EnableExportWinLineDoc_InputControls
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine aktiviert sämtliche Eingabefelder auf einem Level.
|
|
' Parameter 1 (LEVEL) = Das aktuelle Showlevel übergeben.
|
|
' Parameter 2 (CTRLType)= "Static" aktiviert pauschal, "dynamic" aktiviert anhand anderer Laufzeitvariablen.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 17.06.2021 / MD
|
|
' Version Date / Editor: 17.06.2021 / MD
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub EnableExportWinLineDoc_InputControls(LEVEL,CTRLType)
|
|
|
|
If ((LEVEL = 1) or (LEVEL = "1")) and ((CTRLType = "dynamic") or (CTRLType = "static")) Then
|
|
|
|
LEVEL1_CHK_Aktiv.Active = true
|
|
LEVEL1_TXT_Beschreibung.Active = true
|
|
LEVEL1_TXT_Mandant.Active = true
|
|
|
|
LEVEL1_TXT_WinLineVariable1.Active = true
|
|
LEVEL1_TXT_WinLineVariable2.Active = true
|
|
LEVEL1_TXT_WinLineVariable3.Active = true
|
|
LEVEL1_TXT_WinLineVariable4.Active = true
|
|
LEVEL1_TXT_WinLineVariable5.Active = true
|
|
LEVEL1_TXT_WinLineVariable6.Active = true
|
|
LEVEL1_TXT_WinLineVariable7.Active = true
|
|
LEVEL1_TXT_WinLineVariable8.Active = true
|
|
LEVEL1_TXT_WinLineVariable9.Active = true
|
|
LEVEL1_TXT_WinLineVariable10.Active = true
|
|
|
|
LEVEL1_TXT_CallMakroPreExport1.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport2.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport3.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport4.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport5.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport6.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport7.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport8.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport9.Active = true
|
|
LEVEL1_TXT_CallMakroPreExport10.Active = true
|
|
|
|
LEVEL1_TXT_ExportPfad.Active = true
|
|
LEVEL1_TXT_ExportDateiname.Active = true
|
|
LEVEL1_TXT_ExportDateinameVorschau.Active = true
|
|
LEVEL1_TXT_ExportDateiendung.Active = true
|
|
LEVEL1_TXT_ExportVersionierung.Active = true
|
|
LEVEL1_BTN_VariableEinfuegen1.Active = true
|
|
LEVEL1_BTN_VariableEinfuegen2.Active = true
|
|
LEVEL1_BTN_VariableEinfuegen3.Active = true
|
|
|
|
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then
|
|
|
|
LEVEL2_CHK_Aktiv.Active = True
|
|
LEVEL2_TXT_Beschreibung.Active = True
|
|
LEVEL2_TXT_Mandant.Active = True
|
|
|
|
LEVEL2_TXT_Eintragstyp.Active = True
|
|
LEVEL2_TXT_Platzhalter.Active = True
|
|
LEVEL2_TXT_Datentyp.Active = True
|
|
|
|
LEVEL2_TXT_Text_Wert.Active = True
|
|
LEVEL2_TXT_Integer_Wert.Active = True
|
|
LEVEL2_TXT_Double_Wert.Active = True
|
|
LEVEL2_TXT_Date_Wert.Active = True
|
|
|
|
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "dynamic") Then
|
|
|
|
IF (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Text", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Text_Wert.Active = True
|
|
LEVEL2_TXT_Integer_Wert.Active = False
|
|
LEVEL2_TXT_Double_Wert.Active = False
|
|
LEVEL2_TXT_Date_Wert.Active = False
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Integer", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Text_Wert.Active = False
|
|
LEVEL2_TXT_Integer_Wert.Active = True
|
|
LEVEL2_TXT_Double_Wert.Active = False
|
|
LEVEL2_TXT_Date_Wert.Active = False
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Double", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Text_Wert.Active = False
|
|
LEVEL2_TXT_Integer_Wert.Active = False
|
|
LEVEL2_TXT_Double_Wert.Active = True
|
|
LEVEL2_TXT_Date_Wert.Active = False
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Date", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Text_Wert.Active = False
|
|
LEVEL2_TXT_Integer_Wert.Active = False
|
|
LEVEL2_TXT_Double_Wert.Active = False
|
|
LEVEL2_TXT_Date_Wert.Active = True
|
|
|
|
End if
|
|
|
|
End if
|
|
|
|
End Sub |