166 lines
4.9 KiB
Plaintext
166 lines
4.9 KiB
Plaintext
' SetExportWinLineDoc_ComboBoxControls
|
|
' ----------------------------------------------------------------------------
|
|
' Diese Funktion liefert Werte, um Auswahlboxen zu füllen.
|
|
' Parameter 1 (CTRLType)= Name oder Typ des Controls welches gefüllt werden soll.
|
|
'
|
|
' ----------------------------------------------------------------------------
|
|
' 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.07.2021 / MK
|
|
' Version Date / Editor: 16.07.2021 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Function SetExportWinLineDoc_ComboBoxControls(CMBType)
|
|
|
|
if (CMBType = "Mandant") Then
|
|
|
|
Set SQLResult_Mandators = Conn.Select(SQLQuery_Mandators)
|
|
If (SQLResult_Mandators.RowCount) > 0 Then
|
|
|
|
Mandators = 0
|
|
Mandators = "ALL :Alle Mandanten;"
|
|
|
|
'----------------------------------------------------
|
|
'Inital Value before "NextRecord"
|
|
Mandators = Mandators & SQLResult_Mandators.value("c000")
|
|
|
|
For Loop1 = Len(SQLResult_Mandators.value("c000"))+1 To 3
|
|
|
|
Mandators = Mandators & " "
|
|
|
|
Next
|
|
|
|
Mandators = Mandators & ":" & SQLResult_Mandators.value("c003") & ";"
|
|
'----------------------------------------------------
|
|
|
|
Do
|
|
'Loop for every combobox value
|
|
If (SQLResult_Mandators.NextRecord = True) Then
|
|
Mandators = Mandators & SQLResult_Mandators.value("c000")
|
|
|
|
'Inital Value before "NextRecord"
|
|
For Loop2 = Len(SQLResult_Mandators.value("c000"))+1 To 3
|
|
Mandators = Mandators & " "
|
|
|
|
Next
|
|
|
|
Mandators = Mandators & ":" & SQLResult_Mandators.value("c003") & ";"
|
|
Else
|
|
'To remove last ";"
|
|
Mandators = LEFT(Mandators, Len(Mandators)-1)
|
|
Exit Do
|
|
|
|
End If
|
|
Loop
|
|
|
|
Else
|
|
Mandators = "ALL :Alle Mandanten"
|
|
|
|
End If
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = Mandators
|
|
|
|
ElseIf (CMBType = "ProgramMakros") Then
|
|
|
|
Set SQLResult_ProgramMakros = Conn.Select(SQLQuery_ProgramMakros)
|
|
If (SQLResult_ProgramMakros.RowCount) > 0 Then
|
|
|
|
ProgramMakros = ""
|
|
|
|
'----------------------------------------------------
|
|
'Inital Value before "NextRecord"
|
|
|
|
ProgramMakro = ""
|
|
ProgramMakro = SQLResult_ProgramMakros.value("c000")
|
|
ProgramMakro = Split(ProgramMakro,"@")
|
|
|
|
ProgramMakros = ProgramMakros & ProgramMakro(0)
|
|
|
|
For Loop1 = Len(SQLResult_ProgramMakros.value("c000"))+1 To 3
|
|
|
|
ProgramMakros = ProgramMakros & " "
|
|
|
|
Next
|
|
|
|
ProgramMakros = ProgramMakros & ":;"
|
|
'----------------------------------------------------
|
|
|
|
Do
|
|
'Loop for every combobox value
|
|
If (SQLResult_ProgramMakros.NextRecord = True) Then
|
|
ProgramMakro = ""
|
|
ProgramMakro = SQLResult_ProgramMakros.value("c000")
|
|
ProgramMakro = Split(ProgramMakro,"@")
|
|
|
|
ProgramMakros = ProgramMakros & ProgramMakro(0)
|
|
|
|
'Inital Value before "NextRecord"
|
|
For Loop2 = Len(SQLResult_ProgramMakros.value("c000"))+1 To 3
|
|
ProgramMakros = ProgramMakros & " "
|
|
|
|
Next
|
|
|
|
ProgramMakros = ProgramMakros & ":;"
|
|
Else
|
|
'To remove last ";"
|
|
ProgramMakros = LEFT(ProgramMakros, Len(ProgramMakros)-1)
|
|
Exit Do
|
|
|
|
End If
|
|
Loop
|
|
|
|
Else
|
|
ProgramMakros = "<KEIN MAKRO>:"
|
|
|
|
End If
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = ProgramMakros
|
|
|
|
ElseIf (CMBType = "Dateiendung") Then
|
|
|
|
Dateiendungen = ""
|
|
Dateiendungen = Dateiendungen & "0:Export als SPL - WinLine SPOOL-Format;"
|
|
Dateiendungen = Dateiendungen & "1:Export als MHT - Multipurpose Internet Mail Extension HTML Datei;"
|
|
Dateiendungen = Dateiendungen & "4:Export als SPL - WinLine SPOOL-Format Version 2.0 (altes Format);"
|
|
Dateiendungen = Dateiendungen & "5:Export als PDF - Portable Document Format - Adobe PDF;"
|
|
Dateiendungen = Dateiendungen & "6:Export als rtf/doc - WordRTF"
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = Dateiendungen
|
|
|
|
ElseIf (CMBType = "Versionierung") Then
|
|
|
|
Versionierung = ""
|
|
Versionierung = Versionierung & "0:Abbruch, wenn Datei bereits vorhanden;"
|
|
Versionierung = Versionierung & "1:Überschreibe, wenn Datei bereits vorhanden;"
|
|
Versionierung = Versionierung & "2:Zusammenführen, wenn Datei bereits vorhanden (nur PDF);"
|
|
Versionierung = Versionierung & "9:Versioniere, wenn Datei bereits vorhanden;"
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = Versionierung
|
|
|
|
ElseIf (CMBType = "Eintragstyp") Then
|
|
|
|
Eintragstyp = ""
|
|
Eintragstyp = Eintragstyp & "CUSTOM_VARIABLE:"
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = Eintragstyp
|
|
|
|
ElseIf (CMBType = "Datentyp") Then
|
|
|
|
Datentyp = ""
|
|
Datentyp = Datentyp & "TEXT:;"
|
|
Datentyp = Datentyp & "INTEGER:;"
|
|
Datentyp = Datentyp & "DOUBLE:;"
|
|
Datentyp = Datentyp & "DATE:"
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = Datentyp
|
|
|
|
Else
|
|
|
|
SetExportWinLineDoc_ComboBoxControls = "<ERROR>"
|
|
|
|
End if
|
|
|
|
End Function |