' 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("") LEVEL1_TXT_CallMakroPreExport2.contents = cstr("") LEVEL1_TXT_CallMakroPreExport3.contents = cstr("") LEVEL1_TXT_CallMakroPreExport4.contents = cstr("") LEVEL1_TXT_CallMakroPreExport5.contents = cstr("") LEVEL1_TXT_CallMakroPreExport6.contents = cstr("") LEVEL1_TXT_CallMakroPreExport7.contents = cstr("") LEVEL1_TXT_CallMakroPreExport8.contents = cstr("") LEVEL1_TXT_CallMakroPreExport9.contents = cstr("") LEVEL1_TXT_CallMakroPreExport10.contents = cstr("") 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