' 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