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