AppStd/Skriptentwickung
8
0
Fork 0
Code
Skriptentwickung/archive/Export-WinLineDoc/Archiv/DOCEXPORT_PDFE_Footer-Formel.txt
KammM 38d6a271c4 Anlage des Repos
2024-01-24 16:42:38 +01:00

526 lines
22 KiB
Plaintext
Raw Blame History

' 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 = ""
View Git Blame Copy Permalink