166 lines
8.4 KiB
Plaintext
166 lines
8.4 KiB
Plaintext
' SetExportWinLineDoc_InputControls
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Subroutine füllt Controls in der GUI (anhand zuvor gesetzter Zwischenvariablen):
|
|
' Parameter 1 (LEVEL) = Das aktuelle Showlevel übergeben.
|
|
' Parameter 2 (CTRLType)= "Static" setzt pauschal, "dynamic" setzt anhand anderer Laufzeitvariablen, oder "clear" leert die Felder.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' 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: 16.06.2021 / MK
|
|
' Version Date / Editor: 16.06.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Sub SetExportWinLineDoc_InputControls(LEVEL,CTRLType)
|
|
|
|
If ((LEVEL = 1) or (LEVEL = "1")) and ((CTRLType = "dynamic") or (CTRLType = "static")) Then
|
|
|
|
'Very important to set a checkbox by "" at first
|
|
LEVEL1_CHK_Aktiv.Contents = ""
|
|
LEVEL1_CHK_Aktiv.Contents = cstr(LEVEL1_CHK_Aktiv_DBValue)
|
|
LEVEL1_TXT_Beschreibung.Contents = cstr(LEVEL1_TXT_Beschreibung_DBValue)
|
|
LEVEL1_TXT_Mandant.Contents = cstr(LEVEL1_TXT_Mandant_DBValue)
|
|
|
|
LEVEL1_TXT_WinLineVariable1.Contents = cstr(LEVEL1_TXT_WinLineVariable1_DBValue)
|
|
LEVEL1_TXT_WinLineVariable2.Contents = cstr(LEVEL1_TXT_WinLineVariable2_DBValue)
|
|
LEVEL1_TXT_WinLineVariable3.Contents = cstr(LEVEL1_TXT_WinLineVariable3_DBValue)
|
|
LEVEL1_TXT_WinLineVariable4.Contents = cstr(LEVEL1_TXT_WinLineVariable4_DBValue)
|
|
LEVEL1_TXT_WinLineVariable5.Contents = cstr(LEVEL1_TXT_WinLineVariable5_DBValue)
|
|
LEVEL1_TXT_WinLineVariable6.Contents = cstr(LEVEL1_TXT_WinLineVariable6_DBValue)
|
|
LEVEL1_TXT_WinLineVariable7.Contents = cstr(LEVEL1_TXT_WinLineVariable7_DBValue)
|
|
LEVEL1_TXT_WinLineVariable8.Contents = cstr(LEVEL1_TXT_WinLineVariable8_DBValue)
|
|
LEVEL1_TXT_WinLineVariable9.Contents = cstr(LEVEL1_TXT_WinLineVariable9_DBValue)
|
|
LEVEL1_TXT_WinLineVariable10.Contents = cstr(LEVEL1_TXT_WinLineVariable10_DBValue)
|
|
|
|
LEVEL1_TXT_CallMakroPreExport1.contents = cstr(LEVEL1_TXT_CallMakroPreExport1_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport2.contents = cstr(LEVEL1_TXT_CallMakroPreExport2_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport3.contents = cstr(LEVEL1_TXT_CallMakroPreExport3_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport4.contents = cstr(LEVEL1_TXT_CallMakroPreExport4_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport5.contents = cstr(LEVEL1_TXT_CallMakroPreExport5_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport6.contents = cstr(LEVEL1_TXT_CallMakroPreExport6_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport7.contents = cstr(LEVEL1_TXT_CallMakroPreExport7_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport8.contents = cstr(LEVEL1_TXT_CallMakroPreExport8_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport9.contents = cstr(LEVEL1_TXT_CallMakroPreExport9_DBValue)
|
|
LEVEL1_TXT_CallMakroPreExport10.contents = cstr(LEVEL1_TXT_CallMakroPreExport10_DBValue)
|
|
|
|
LEVEL1_TXT_ExportPfad.Contents = cstr(LEVEL1_TXT_ExportPfad_DBValue)
|
|
LEVEL1_TXT_ExportDateiname.Contents = cstr(LEVEL1_TXT_ExportDateiname_DBValue)
|
|
LEVEL1_TXT_ExportDateinameVorschau.Contents = cstr(LEVEL1_TXT_ExportDateinameVorschau_DBValue)
|
|
LEVEL1_TXT_ExportDateiendung.Contents = cstr(LEVEL1_TXT_ExportDateiendung_DBValue)
|
|
LEVEL1_TXT_ExportVersionierung.Contents = cstr(LEVEL1_TXT_ExportVersionierung_DBValue)
|
|
|
|
ElseIf ((LEVEL = 1) or (LEVEL = "1")) and (CTRLType = "clear") Then
|
|
|
|
'Very important to set a checkbox by "" at first
|
|
LEVEL1_CHK_Aktiv.Contents = ""
|
|
LEVEL1_CHK_Aktiv.Contents = cstr(0)
|
|
LEVEL1_TXT_Beschreibung.Contents = cstr("")
|
|
LEVEL1_TXT_Mandant.Contents = cstr("ALL")
|
|
|
|
LEVEL1_TXT_WinLineVariable1.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable2.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable3.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable4.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable5.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable6.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable7.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable8.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable9.Contents = cstr("")
|
|
LEVEL1_TXT_WinLineVariable10.Contents = cstr("")
|
|
|
|
LEVEL1_TXT_CallMakroPreExport1.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport2.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport3.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport4.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport5.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport6.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport7.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport8.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport9.contents = cstr("<KEIN MAKRO>")
|
|
LEVEL1_TXT_CallMakroPreExport10.contents = cstr("<KEIN MAKRO>")
|
|
|
|
LEVEL1_TXT_ExportPfad.Contents = cstr("")
|
|
LEVEL1_TXT_ExportDateiname.Contents = cstr("")
|
|
LEVEL1_TXT_ExportDateinameVorschau.Contents = cstr("")
|
|
LEVEL1_TXT_ExportDateiendung.Contents = cstr("5")
|
|
LEVEL1_TXT_ExportVersionierung.Contents = cstr("9")
|
|
|
|
'-------------------------------------------------------------------------------------------
|
|
|
|
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "static") Then
|
|
|
|
'Very important to set a checkbox by "" at first
|
|
LEVEL2_CHK_Aktiv.Contents = ""
|
|
LEVEL2_CHK_Aktiv.Contents = cstr(LEVEL2_CHK_Aktiv_DBValue)
|
|
LEVEL2_TXT_Beschreibung.Contents = cstr(LEVEL2_TXT_Beschreibung_DBValue)
|
|
LEVEL2_TXT_Mandant.Contents = cstr(LEVEL2_TXT_Mandant_DBValue)
|
|
|
|
LEVEL2_TXT_Eintragstyp.Contents = cstr(LEVEL2_TXT_Eintragstyp_DBValue)
|
|
LEVEL2_TXT_Platzhalter.Contents = cstr(LEVEL2_TXT_Platzhalter_DBValue)
|
|
LEVEL2_TXT_Datentyp.Contents = cstr(LEVEL2_TXT_Datentyp_DBValue)
|
|
|
|
LEVEL2_TXT_Text_Wert.Contents = cstr(LEVEL2_TXT_Text_Wert_DBValue)
|
|
LEVEL2_TXT_Integer_Wert.Contents = CLng(LEVEL2_TXT_Integer_Wert_DBValue)
|
|
LEVEL2_TXT_Double_Wert.Contents = cdbl(LEVEL2_TXT_Double_Wert_DBValue)
|
|
|
|
IF (LEVEL2_TXT_Date_Wert_DBValue <> "") Then
|
|
LEVEL2_TXT_Date_Wert.Contents = cdate(LEVEL2_TXT_Date_Wert_DBValue)
|
|
else
|
|
LEVEL2_TXT_Date_Wert.Contents = "01.01.1970"
|
|
end if
|
|
|
|
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "clear") Then
|
|
|
|
LEVEL2_CHK_Aktiv.Contents = ""
|
|
LEVEL2_CHK_Aktiv.Contents = cstr(0)
|
|
LEVEL2_TXT_Beschreibung.Contents = cstr("")
|
|
LEVEL2_TXT_Mandant.Contents = cstr("ALL")
|
|
|
|
LEVEL2_TXT_Eintragstyp.Contents = cstr("CUSTOM_VARIABLE")
|
|
LEVEL2_TXT_Platzhalter.Contents = cstr("")
|
|
LEVEL2_TXT_Datentyp.Contents = cstr("TEXT")
|
|
|
|
LEVEL2_TXT_Text_Wert.Contents = cstr("")
|
|
LEVEL2_TXT_Integer_Wert.Contents = CLng(0)
|
|
LEVEL2_TXT_Double_Wert.Contents = cdbl(0.0)
|
|
LEVEL2_TXT_Date_Wert.Contents = cdate("01.01.1970")
|
|
|
|
ElseIf ((LEVEL = 2) or (LEVEL = "2")) and (CTRLType = "dynamic") Then
|
|
|
|
LEVEL2_CHK_Aktiv.Contents = ""
|
|
LEVEL2_CHK_Aktiv.Contents = cstr(LEVEL2_CHK_Aktiv_DBValue)
|
|
LEVEL2_TXT_Beschreibung.Contents = cstr(LEVEL2_TXT_Beschreibung_DBValue)
|
|
LEVEL2_TXT_Mandant.Contents = cstr(LEVEL2_TXT_Mandant_DBValue)
|
|
|
|
LEVEL2_TXT_Eintragstyp.Contents = cstr(LEVEL2_TXT_Eintragstyp_DBValue)
|
|
LEVEL2_TXT_Platzhalter.Contents = cstr(LEVEL2_TXT_Platzhalter_DBValue)
|
|
LEVEL2_TXT_Datentyp.Contents = cstr(LEVEL2_TXT_Datentyp_DBValue)
|
|
|
|
IF (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Text", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Text_Wert.Contents = cstr(LEVEL2_TXT_Text_Wert_DBValue)
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Integer", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Integer_Wert.Contents = CLng(LEVEL2_TXT_Integer_Wert_DBValue)
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Double", vbTextCompare ) > 0) Then
|
|
|
|
LEVEL2_TXT_Double_Wert.Contents = cdbl(LEVEL2_TXT_Double_Wert_DBValue)
|
|
|
|
ElseIf (Instr( 1, LEVEL2_TXT_Datentyp.screencontents, "Date", vbTextCompare ) > 0) Then
|
|
|
|
IF (LEVEL2_TXT_Date_Wert_DBValue <> "") Then
|
|
LEVEL2_TXT_Date_Wert.Contents = cdate(LEVEL2_TXT_Date_Wert_DBValue)
|
|
else
|
|
LEVEL2_TXT_Date_Wert.Contents = "01.01.1970"
|
|
end if
|
|
|
|
End if
|
|
|
|
End if
|
|
|
|
End Sub |