' VB Script Document
'
' Export Script for WinLine documents.
' Configuration has to be done in SQL Tables TBDD_DOCEXPORT_CONFIG and TBDD_DOCEXPORT_PROFILE
'
' Digital Data
' Ludwig-Rinn-Straße 16
' 35452 Heuchelheim
' Tel.: 0641 / 202360
' E-Mail: info-flow(at)digitaldata.works
'
' Version Number: 2.0.0.0
' Version Date: 09.02.2020

On Error Resume Next

'########## set variables ##########

DIM MacroParameter(11), RUN_MACRO_GUID, RUN_APP_GUID, ReplaceItems, ReplaceKeys, LoopCounter, LoopCounter2

DocVersion			= 1
DocVersionSeparator	= "~"
ReplaceSpecialChar	= ""
DebugMode			= "Enabled"
MandatorNr			= Value (0,11)
RecordNumber		= Value (25,22)
HeadDocType			= Value (25,139)
ProgramDocType		= Value (0,20)
PostingType			= Value (357,6)
DocFinalAmount		= Value (25,100)

DOCEXPORT_MACRO		= "DD_DOCEXPORT_WINLINE_PROGRAM_MACRO"
DOCEXPORT_MACROTRYS = 5
DOCEXPORT_PATH_AND_FILENAME		= Value (500,354) ' <-- MOST Important Var in Script, depends on the output var of the DOCEXPORT Head-Formel

TBDD_DOCEXPORT_PROFILE			= "T651"
TBDD_DOCEXPORT_PROFILE_SQL		= "[U001] = 1 AND [u003] IN ('ALL','"& MandatorNr &"') AND [U004] = '"& ProgramDocType &"' AND [U005] = '"& HeadDocType &"' AND [U006] = '"& PostingType &"' AND [U011] IS NOT NULL AND [U012] IS NOT NULL"
TBDD_DOCEXPORT_CONFIG			= "T650"
TBDD_DOCEXPORT_CONFIG_VARSQL	= "[U001] = 1 AND [u003] IN ('ALL','"& MandatorNr &"') AND [U004] LIKE '%Variable%' AND [U005] IS NOT NULL AND [U006] IS NOT NULL AND [U007] IS NOT NULL AND [U008] IS NULL AND [U012] IS NULL"
TBDD_DOCEXPORT_CONFIG_MACROSQL	= "[U001] = 1 AND [U004] LIKE '%Macro%' AND [U005] IS NULL AND [U006] IS NULL AND [U007] IS NULL AND [U008] IS NOT NULL AND [U012] IS NULL"
TBDD_DOCEXPORT_CONFIG_APPSQL	= "[U001] = 1 AND [U004] LIKE '%APP%'  AND [U005] IS NULL AND [U006] IS NULL AND [U007] IS NULL AND [U008] IS NULL AND [U012] IS NOT NULL"
TBDD_DOCEXPORT_HISTORY			= "T652"
TBDD_DOCEXPORT_HISTORY_SQL		= "INSERT INTO " & TBDD_DOCEXPORT_HISTORY & "(c000,c001,c002,c003,c004,c005,c006) Values ('%SQLCounter%','%DOCEXPORT_PATH%','%DOCEXPORT_FILENAME%','" & DOCEXPORT_PATH_AND_FILENAME & "','%Result%','%Username%','"& (Cstr(Now()) & "," & Right(Cstr(Timer() * 100),2)) &"')"

SET FileSystemObject            = CreateObject("Scripting.FileSystemObject")
SET TBDD_DOCEXPORT_CONFIG_MACRO = CreateObject("Scripting.Dictionary")
SET TBDD_DOCEXPORT_CONFIG_APP   = CreateObject("Scripting.Dictionary")
SET ReplaceItems                = CreateObject("Scripting.Dictionary")
ReplaceItems.CompareMode        = vbTextCompare

'########## preparing part ##########

'Reset Error Var
Err.Clear

'Display debug infos, if enabled
IF DebugMode = "Enabled" THEN
	MSGBOX	"ProgramDocType: "& ProgramDocType & vbCrLf & _
			"HeadDocType: "   & HeadDocType & vbCrLf & _
			"RecordNumber: "  & RecordNumber & vbCrLf & _
			"PostingType: "   & PostingType & vbCrLf & vbCrLf & _
			"DOCEXPORT_MACRO: "   & DOCEXPORT_MACRO & vbCrLf & _
			"DOCEXPORT_PATH_AND_FILENAME: " & DOCEXPORT_PATH_AND_FILENAME,,"DEBUG - Info: WinLine Runtime Variables"

	MSGBOX	"Profile SQL:" & vbCrLf & TBDD_DOCEXPORT_PROFILE_SQL & vbCrLf & vbCrLf & _
			"Var SQL: "    & vbCrLf & TBDD_DOCEXPORT_CONFIG_VARSQL & vbCrLf & vbCrLf & _
			"Macro SQL: "  & vbCrLf & TBDD_DOCEXPORT_CONFIG_MACROSQL & vbCrLf & vbCrLf & _
			"App SQL: "    & vbCrLf & TBDD_DOCEXPORT_CONFIG_APPSQL & vbCrLf & vbCrLf & _
			"History SQL: "& vbCrLf & TBDD_DOCEXPORT_HISTORY_SQL,,"DEBUG - Info: SQL Commands (not final!)"
END IF

IF (DOCEXPORT_PATH_AND_FILENAME <> "") Then

	'Replace Object, because functions are not available
	ReplaceItems.ADD "%MandantenNr%",MandatorNr
	ReplaceItems.ADD "%Laufnummer%",RecordNumber

	ReplaceItems.ADD "%UserName%",TRIM(CSTR(Value (0,14)))
	ReplaceItems.ADD "%KontoNr%",TRIM(CSTR(Value (0,30)))
	ReplaceItems.ADD "%KontoName%",TRIM(CSTR(Value (50,3)))
	ReplaceItems.ADD "%ProjektNr%",TRIM(CSTR(Value (25,136)))
	ReplaceItems.ADD "%AngebotsNr%",TRIM(CSTR(Value (0,34)))
	ReplaceItems.ADD "%AuftragsNr%",TRIM(CSTR(Value (0,35)))
	ReplaceItems.ADD "%LieferscheinNr%",TRIM(CSTR(Value (0,36)))
	ReplaceItems.ADD "%RechnungsNr%",TRIM(CSTR(Value (0,37)))
	ReplaceItems.ADD "%AnfragenNr%",TRIM(CSTR(Value (0,34)))
	ReplaceItems.ADD "%BestellNr%",TRIM(CSTR(Value (0,35)))
	ReplaceItems.ADD "%Textzeile1%",TRIM(CSTR(Value (25,63)))
	ReplaceItems.ADD "%Textzeile2%",TRIM(CSTR(Value (25,64)))
	ReplaceItems.ADD "%Textzeile3%",TRIM(CSTR(Value (25,65)))
	ReplaceItems.ADD "%Textzeile4%",TRIM(CSTR(Value (25,66)))
	ReplaceItems.ADD "%Textzeile5%",TRIM(CSTR(Value (25,67)))
	ReplaceItems.ADD "%Textzeile6%",TRIM(CSTR(Value (25,68)))
	ReplaceItems.ADD "%Textzeile7%",TRIM(CSTR(Value (25,69)))
	ReplaceItems.ADD "%Textzeile8%",TRIM(CSTR(Value (25,70)))
	ReplaceItems.ADD "%Textzeile9%",TRIM(CSTR(Value (25,71)))
	ReplaceItems.ADD "%Textzeile10%",TRIM(CSTR(Value (25,72)))

	ReplaceItems.ADD "%Tag%",(day(date))
	ReplaceItems.ADD "%Monat%",(month(date))
	ReplaceItems.ADD "%Monatsname%",MonthName((month(date)))
	ReplaceItems.ADD "%Jahr%",(Year(date))

	'Code block to get document profile from table
	IF (Mid(DocFinalAmount,1,1)) = "-" THEN
		TBDD_DOCEXPORT_PROFILE_SQL = TBDD_DOCEXPORT_PROFILE_SQL & " AND [U007] = 'NegativAmount'"
	END IF

	SET TBDD_DOCEXPORT_PROFILE_RESULT = CWLStart.CurrentCompany.SearchRecord(TBDD_DOCEXPORT_PROFILE, TBDD_DOCEXPORT_PROFILE_SQL)

	IF Err.Number <> 0 THEN
		MSGBOX 	"Error Code: "& Err.Number & vbCrLf & _
				"Error Description: "& Err.Description,,"ERROR: Getting Variables from DB Table "& TBDD_DOCEXPORT_PROFILE
		Err.Clear
	ELSE

		IF  TBDD_DOCEXPORT_PROFILE_RESULT = -1 Then

			IF DebugMode = "Enabled" THEN
				MSGBOX "No Rows found, SQL: "& vbCrLf & TBDD_DOCEXPORT_PROFILE_SQL,,"DEBUG - Info: Profiles from Database table "& TBDD_DOCEXPORT_PROFILE
			END IF

		ELSE

			IF DebugMode = "Enabled" THEN
				MSGBOX	"RUN_MACRO_GUID: "            & TBDD_DOCEXPORT_PROFILE_RESULT.Value(16) & vbCrLf & _
						"RUN_MACRO: "                 & TBDD_DOCEXPORT_PROFILE_RESULT.Value(17) & vbCrLf & _
						"RUN_MACRO_PARAMETER1: "      & TBDD_DOCEXPORT_PROFILE_RESULT.Value(18) & vbCrLf & _
						"RUN_MACRO_PARAMETER2: "      & TBDD_DOCEXPORT_PROFILE_RESULT.Value(19) & vbCrLf & _
						"RUN_MACRO_PARAMETER3: "      & TBDD_DOCEXPORT_PROFILE_RESULT.Value(20) & vbCrLf & vbCrLf & _
						"RUN_APP_GUID: "              & TBDD_DOCEXPORT_PROFILE_RESULT.Value(21) & vbCrLf & _
						"RUN_APP: "                   & TBDD_DOCEXPORT_PROFILE_RESULT.Value(22) & vbCrLf & _
						"RUN_APP_PARAMETER1: "        & TBDD_DOCEXPORT_PROFILE_RESULT.Value(23) & vbCrLf & _
						"RUN_APP_PARAMETER2: "        & TBDD_DOCEXPORT_PROFILE_RESULT.Value(24) & vbCrLf & _
						"RUN_APP_PARAMETER3: "        & TBDD_DOCEXPORT_PROFILE_RESULT.Value(25) & vbCrLf & vbCrLf & _
						"OPEN_FILE_AFTER_EXPORT: "    & TBDD_DOCEXPORT_PROFILE_RESULT.Value(26) & vbCrLf & _
						"VERIFY_EXPORT_AND_LOG2DB: "  & TBDD_DOCEXPORT_PROFILE_RESULT.Value(27) & vbCrLf & _
						"VERIFY_EXPORT_AND_LOG2FILE: "& TBDD_DOCEXPORT_PROFILE_RESULT.Value(28) & vbCrLf & _
						"VERIFY_EXPORT_AND_MSGBOX: "  & TBDD_DOCEXPORT_PROFILE_RESULT.Value(29),,"DEBUG - Info: document profile from Database table "& TBDD_DOCEXPORT_PROFILE
			END IF

			RUN_MACRO_GUID				= TBDD_DOCEXPORT_PROFILE_RESULT.Value(16)
			RUN_MACRO					= TBDD_DOCEXPORT_PROFILE_RESULT.Value(17)
			RUN_MACRO_PARAMETER1		= TBDD_DOCEXPORT_PROFILE_RESULT.Value(18)
			RUN_MACRO_PARAMETER2		= TBDD_DOCEXPORT_PROFILE_RESULT.Value(19)
			RUN_MACRO_PARAMETER3		= TBDD_DOCEXPORT_PROFILE_RESULT.Value(20)

			RUN_APP_GUID				= TBDD_DOCEXPORT_PROFILE_RESULT.Value(21)
			RUN_APP						= TBDD_DOCEXPORT_PROFILE_RESULT.Value(22)
			RUN_APP_PARAMETER1			= TBDD_DOCEXPORT_PROFILE_RESULT.Value(23)
			RUN_APP_PARAMETER2			= TBDD_DOCEXPORT_PROFILE_RESULT.Value(24)
			RUN_APP_PARAMETER3			= TBDD_DOCEXPORT_PROFILE_RESULT.Value(25)

			OPEN_FILE_AFTER_EXPORT		= TBDD_DOCEXPORT_PROFILE_RESULT.Value(26)
			VERIFY_EXPORT_AND_LOG2DB	= TBDD_DOCEXPORT_PROFILE_RESULT.Value(27)
			VERIFY_EXPORT_AND_LOG2FILE	= TBDD_DOCEXPORT_PROFILE_RESULT.Value(28)
			VERIFY_EXPORT_AND_MSGBOX	= TBDD_DOCEXPORT_PROFILE_RESULT.Value(29)

			'Code block to get variables from table
			SET TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT = CWLStart.CurrentCompany.SearchRecord(TBDD_DOCEXPORT_CONFIG, TBDD_DOCEXPORT_CONFIG_VARSQL)

			IF Err.Number <> 0 THEN
				MSGBOX 	"Error Code: "& Err.Number & vbCrLf & _
						"Error Description: "& Err.Description,,"ERROR: Variables from Database table "& TBDD_DOCEXPORT_CONFIG &" !"
				Err.Clear
			ELSE

				IF  TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT = -1 Then

					IF DebugMode = "Enabled" THEN
						MSGBOX "No Rows found, SQL: "& TBDD_DOCEXPORT_CONFIG_VARSQL,,"DEBUG - Info: Variables from Database table "& TBDD_DOCEXPORT_CONFIG
					END IF

				ELSE

					FOR LoopCounter = 1 TO TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.RowCount
						IF DebugMode = "Enabled" THEN
							MSGBOX 	"Name: " & TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.Value(5) & vbCrLf & _
									"Type: " & TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.Value(6) & vbCrLf & _
									"Value: "& TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.Value(7),,"DEBUG - Info: "& LoopCounter &" of "& TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.RowCount &" Variables from Database table "& TBDD_DOCEXPORT_CONFIG
						END IF

						ReplaceItems.ADD TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.Value(5),TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.Value(7)
						TBDD_DOCEXPORT_CONFIG_VARSQL_RESULT.NextRecord

					NEXT
				END IF
			END IF

			'Code 4 getting macros
			IF RUN_MACRO_GUID <> "" THEN
				TBDD_DOCEXPORT_CONFIG_MACROSQL = TBDD_DOCEXPORT_CONFIG_MACROSQL & " AND [u000] IN (" & RUN_MACRO_GUID & ")"
			END IF	
			
			SET TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT = CWLStart.CurrentCompany.SearchRecord(TBDD_DOCEXPORT_CONFIG, TBDD_DOCEXPORT_CONFIG_MACROSQL)

			IF Err.Number <> 0 THEN
				MSGBOX 	"Error Code: "& Err.Number & vbCrLf & _
						"Error Description: "& Err.Description,,"ERROR: Macro(s) from Database table "& TBDD_DOCEXPORT_CONFIG
				Err.Clear

			ELSE
				IF TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT = -1 Then

					IF DebugMode = "Enabled" THEN
						MSGBOX "No Rows found, SQL: "& TBDD_DOCEXPORT_CONFIG_MACROSQL,,"DEBUG - Info: Macros(s) from Database table "& TBDD_DOCEXPORT_CONFIG
					END IF

				ELSE
					FOR LoopCounter = 1 To TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.RowCount

						IF DebugMode = "Enabled" THEN
							MSGBOX 	"Macro: "  & TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(8) & vbCrLf & _
									"Parameter1: "& TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(9) & vbCrLf & _
									"Parameter2: "& TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(10) & vbCrLf & _
									"Parameter3: "& TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(11),,"DEBUG - Info: "& LoopCounter &" of "& TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.RowCount &" Functions from Database table "& TBDD_DOCEXPORT_CONFIG
						END IF

						TBDD_DOCEXPORT_CONFIG_MACRO(LoopCounter) = Array(TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(8),TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(9),TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(10),TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.Value(11))
						TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.NextRecord

					NEXT
				END IF
			END IF

			'Code 4 getting Apps
			IF RUN_APP_GUID <> "" THEN
				TBDD_DOCEXPORT_CONFIG_APPSQL = TBDD_DOCEXPORT_CONFIG_APPSQL & " AND [u000] IN (" & RUN_APP_GUID & ")"
			END IF

			SET TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT = CWLStart.CurrentCompany.SearchRecord(TBDD_DOCEXPORT_CONFIG, TBDD_DOCEXPORT_CONFIG_APPSQL)

			IF Err.Number <> 0 THEN
				MSGBOX 	"Error Code: "& Err.Number & vbCrLf & _
						"Error Description: "& Err.Description,,"ERROR: App(s) from Database table "& TBDD_DOCEXPORT_CONFIG
				Err.Clear

			ELSE

				IF  TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT = -1 Then

					IF DebugMode = "Enabled" THEN
						MSGBOX "No Rows found, SQL: "& TBDD_DOCEXPORT_CONFIG_APPSQL,,"DEBUG - Info: App(s) from Database table "& TBDD_DOCEXPORT_CONFIG
					END IF

				ELSE
					FOR LoopCounter = 1 To TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.RowCount

						IF DebugMode = "Enabled" THEN
							MSGBOX	"App: "       & TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(12) & vbCrLf & _
									"Parameter1: "& TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(13) & vbCrLf & _
									"Parameter2: "& TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(14) & vbCrLf & _
									"Parameter3: "& TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(15),,"DEBUG - Info: "& LoopCounter &" of "& TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.RowCount &" App(s) from Database table "& TBDD_DOCEXPORT_CONFIG
						END IF

						TBDD_DOCEXPORT_CONFIG_APP(LoopCounter) = Array(TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(12),TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(13),TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(14),TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.Value(15))
						TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.NextRecord
					NEXT
				END IF
			END IF
		END IF
	END IF		

	'########## main part ##########
	IF (TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT > 0) OR (TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT > 0) OR (RUN_MACRO <> "") OR (RUN_APP <> "") OR (OPEN_FILE_AFTER_EXPORT = 1) OR (VERIFY_EXPORT_AND_LOG2DB > 0) OR (VERIFY_EXPORT_AND_LOG2FILE > 0) OR (VERIFY_EXPORT_AND_MSGBOX > 0) THEN

		IF DebugMode = "Enabled" THEN
			MSGBOX "Calling Macro: "& DocExport_Macro,,"DEBUG - Info: Post processing..."
		END IF

		'= MParameter 20...
		MacroParameter(0) = DebugMode
		MacroParameter(1) = TBDD_DOCEXPORT_PROFILE
		MacroParameter(2) = TBDD_DOCEXPORT_PROFILE_SQL
		MacroParameter(3) = "SET-LATER"
		MacroParameter(4) = DOCEXPORT_PATH_AND_FILENAME
		MacroParameter(5) = DOCEXPORT_MACROTRYS
		MacroParameter(6) = ""

		'Multiple macros from config SQLTB
		IF TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT > 0 Then

			FOR LoopCounter = 1 To TBDD_DOCEXPORT_CONFIG_MACROSQL_RESULT.RowCount

				RUN_MACROS            = TBDD_DOCEXPORT_CONFIG_MACRO(LoopCounter)(0)
				RUN_MACROS_PARAMETER1 = TBDD_DOCEXPORT_CONFIG_MACRO(LoopCounter)(1)
				RUN_MACROS_PARAMETER2 = TBDD_DOCEXPORT_CONFIG_MACRO(LoopCounter)(2)
				RUN_MACROS_PARAMETER3 = TBDD_DOCEXPORT_CONFIG_MACRO(LoopCounter)(3)

				ReplaceKeys = ReplaceItems.keys
				For LoopCounter2 = 0 To ReplaceItems.Count -1

					IF InStr(RUN_MACROS,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_MACROS = Replace(RUN_MACROS,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_MACROS_PARAMETER1,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_MACROS_PARAMETER1 = Replace(RUN_MACROS_PARAMETER1,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_MACROS_PARAMETER2,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_MACROS_PARAMETER2 = Replace(RUN_MACROS_PARAMETER2,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_MACROS_PARAMETER3,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_MACROS_PARAMETER3 = Replace(RUN_MACROS_PARAMETER3,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

				Next

				IF DebugMode = "Enabled" THEN
					MSGBOX	"RUN_MACROS: "& RUN_MACROS & vbCrLf & _
							"RUN_MACROS_PARAMETER1: "& RUN_MACROS_PARAMETER1 & vbCrLf & _
							"RUN_MACROS_PARAMETER2: "& RUN_MACROS_PARAMETER2 & vbCrLf & _
							"RUN_MACROS_PARAMETER3: "& RUN_MACROS_PARAMETER3 & vbCrLf & vbCrLf & _
							"ReplaceItems includes "& ReplaceItems.count &" Items.",,"DEBUG - Info: RUN_MACROS Call AFTER replace routine"
				END IF

				MacroParameter(3) ="RUN_MACRO"
				MacroParameter(7) = RUN_MACROS
				MacroParameter(8) = RUN_MACROS_PARAMETER1
				MacroParameter(9) = RUN_MACROS_PARAMETER2
				MacroParameter(10)= RUN_MACROS_PARAMETER3

				pParams = MacroParameter 
				CWLStart.MacroCommands.MRunMacroSuspended RUN_MACROS, pParams
				CWLStart.MacroCommands.MWait 500

			NEXT

		END IF

		'Multiple apps from config SQLTB
		IF TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT > 0 Then

			FOR LoopCounter = 1 To TBDD_DOCEXPORT_CONFIG_APPSQL_RESULT.RowCount

				RUN_APPS            = TBDD_DOCEXPORT_CONFIG_APP(LoopCounter)(0)
				RUN_APPS_PARAMETER1 = TBDD_DOCEXPORT_CONFIG_APP(LoopCounter)(1)
				RUN_APPS_PARAMETER2 = TBDD_DOCEXPORT_CONFIG_APP(LoopCounter)(2)
				RUN_APPS_PARAMETER3 = TBDD_DOCEXPORT_CONFIG_APP(LoopCounter)(3)

				ReplaceKeys = ReplaceItems.keys
				For LoopCounter2 = 0 To ReplaceItems.Count -1

					IF InStr(RUN_APPS,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_APPS = Replace(RUN_APPS,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_APPS_PARAMETER1,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_APPS_PARAMETER1 = Replace(RUN_APPS_PARAMETER1,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_APPS_PARAMETER2,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_APPS_PARAMETER2 = Replace(RUN_APPS_PARAMETER2,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

					IF InStr(RUN_APPS_PARAMETER3,ReplaceKeys(LoopCounter2)) > 0 Then
					   RUN_APPS_PARAMETER3 = Replace(RUN_APPS_PARAMETER3,ReplaceKeys(LoopCounter2),ReplaceItems(ReplaceKeys(LoopCounter2)))
					END IF

				Next

				IF DebugMode = "Enabled" THEN
					MSGBOX	"RUN_APPS: "& RUN_APPS & vbCrLf & _
							"RUN_APPS_PARAMETER1: "& RUN_APPS_PARAMETER1 & vbCrLf & _
							"RUN_APPS_PARAMETER2: "& RUN_APPS_PARAMETER2 & vbCrLf & _
							"RUN_APPS_PARAMETER3: "& RUN_APPS_PARAMETER3 & vbCrLf & vbCrLf & _
							"ReplaceItems includes "& ReplaceItems.count &" Items.",,"DEBUG - Info: RUN_APPS Call AFTER replace routine"
				END IF

				MacroParameter(3) ="RUN_APP"
				MacroParameter(7) = RUN_APPS
				MacroParameter(8) = RUN_APPS_PARAMETER1
				MacroParameter(9) = RUN_APPS_PARAMETER2
				MacroParameter(10)= RUN_APPS_PARAMETER3

				pParams = MacroParameter 
				CWLStart.MacroCommands.MRunMacroSuspended RUN_APP, pParams
				CWLStart.MacroCommands.MWait 500

			NEXT

		END IF

		'ONE macro from profile SQLTB
		IF RUN_MACRO <> "" THEN

			ReplaceKeys = ReplaceItems.keys
			For LoopCounter = 0 To ReplaceItems.Count -1

				IF InStr(RUN_MACRO,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_MACRO = Replace(RUN_MACRO,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_MACRO_PARAMETER1,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_MACRO_PARAMETER1 = Replace(RUN_MACRO_PARAMETER1,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_MACRO_PARAMETER2,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_MACRO_PARAMETER2 = Replace(RUN_MACRO_PARAMETER2,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_MACRO_PARAMETER3,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_MACRO_PARAMETER3 = Replace(RUN_MACRO_PARAMETER3,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

			Next

			IF DebugMode = "Enabled" THEN
				MSGBOX	"RUN_MACRO: "& RUN_MACRO & vbCrLf & _
						"RUN_MACRO_PARAMETER1: "& RUN_MACRO_PARAMETER1 & vbCrLf & _
						"RUN_MACRO_PARAMETER2: "& RUN_MACRO_PARAMETER2 & vbCrLf & _
						"RUN_MACRO_PARAMETER3: "& RUN_MACRO_PARAMETER3 & vbCrLf & vbCrLf & _
						"ReplaceItems includes "& ReplaceItems.count &" Items.",,"DEBUG - Info: RUN_MACRO Call AFTER replace routine"
			END IF

			MacroParameter(3) ="RUN_MACRO"
			MacroParameter(7) = RUN_MACRO 
			MacroParameter(8) = RUN_MACRO_PARAMETER1
			MacroParameter(9) = RUN_MACRO_PARAMETER2
			MacroParameter(10)= RUN_MACRO_PARAMETER3

			pParams = MacroParameter 
			CWLStart.MacroCommands.MRunMacroSuspended RUN_MACRO, pParams
			CWLStart.MacroCommands.MWait 500

		END IF

		'ONE app from profile SQLTB
		IF RUN_APP <> "" Then

			ReplaceKeys = ReplaceItems.keys
			For LoopCounter = 0 To ReplaceItems.Count -1

				IF InStr(RUN_APP,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_APP = Replace(RUN_APP,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_APP_PARAMETER1,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_APP_PARAMETER1 = Replace(RUN_APP_PARAMETER1,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_APP_PARAMETER2,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_APP_PARAMETER2 = Replace(RUN_APP_PARAMETER2,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

				IF InStr(RUN_APP_PARAMETER3,ReplaceKeys(LoopCounter)) > 0 Then
				   RUN_APP_PARAMETER3 = Replace(RUN_APP_PARAMETER3,ReplaceKeys(LoopCounter),ReplaceItems(ReplaceKeys(LoopCounter)))
				END IF

			Next

			IF DebugMode = "Enabled" THEN
				MSGBOX	"RUN_APP: "& RUN_APP & vbCrLf & _
						"RUN_APP_PARAMETER1: "& RUN_APP_PARAMETER1 & vbCrLf & _
						"RUN_APP_PARAMETER2: "& RUN_APP_PARAMETER2 & vbCrLf & _
						"RUN_APP_PARAMETER3: "& RUN_APP_PARAMETER3 & vbCrLf & vbCrLf & _
						"ReplaceItems includes "& ReplaceItems.count &" Items.",,"DEBUG - Info: RUN_APP Call AFTER replace routine"
			END IF

			MacroParameter(3) ="RUN_APP"
			MacroParameter(7) = RUN_APP 
			MacroParameter(8) = RUN_APP_PARAMETER1
			MacroParameter(9) = RUN_APP_PARAMETER2
			MacroParameter(10)= RUN_APP_PARAMETER3

			pParams = MacroParameter 
			CWLStart.MacroCommands.MRunMacroSuspended DocExport_Macro, pParams
			CWLStart.MacroCommands.MWait 500

		END IF

		IF OPEN_FILE_AFTER_EXPORT = 1 Then

			MacroParameter(3)  = "OPEN_FILE_AFTER_EXPORT"

			pParams = MacroParameter 
			Cwlstart.MacroCommands.MRunMacroSuspended DocExport_Macro, pParams
			CWLStart.MacroCommands.MWait 500

		End IF

		IF VERIFY_EXPORT_AND_LOG2DB = 1 Then
		
			MacroParameter(3)  = "VERIFY_EXPORT_AND_LOG2DB"
			MacroParameter(7) = TBDD_DOCEXPORT_HISTORY
			MacroParameter(8) = TBDD_DOCEXPORT_HISTORY_SQL

			pParams = MacroParameter 
			Cwlstart.MacroCommands.MRunMacroSuspended DocExport_Macro, pParams
			CWLStart.MacroCommands.MWait 500

		End IF

		IF VERIFY_EXPORT_AND_LOG2FILE = 1 Then

			MacroParameter(3)  = "VERIFY_EXPORT_AND_LOG2FILE"

			pParams = MacroParameter 
			Cwlstart.MacroCommands.MRunMacroSuspended DocExport_Macro, pParams
			CWLStart.MacroCommands.MWait 500

		End IF

		IF VERIFY_EXPORT_AND_MSGBOX = 1 Then

			MacroParameter(3)  = "VERIFY_EXPORT_AND_MSGBOX"

			pParams = MacroParameter 
			Cwlstart.MacroCommands.MRunMacroSuspended DocExport_Macro, pParams
			CWLStart.MacroCommands.MWait 500

		End IF

	End IF

Else

	IF DebugMode = "Enabled" THEN
		MSGBOX	"No post processing, DOCEXPORT_PATH_AND_FILENAME ist empty",,"DEBUG - Info: DOCEXPORT PDFE Footer Formel"
	End IF

END IF

ResultValue = ""