Anlage des Repos

2024-01-24 16:42:38 +01:00
commit 38d6a271c4
1785 changed files with 3051496 additions and 0 deletions
--- a/archive/Export-WinLineDoc/Modules/SetExportWinLineDoc_ComboBoxControls.vbm
+++ b/archive/Export-WinLineDoc/Modules/SetExportWinLineDoc_ComboBoxControls.vbm
@@ -0,0 +1,166 @@
+' 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