Hallo zusammen,
ich benutze die Funktion ConvertDocument um Dateien in PDFs umzuwandeln. Laut Server-Api soll man damit aber auch PDFs mergen können. Leider fehlt hier die Doku, wie man die Aufrufe dazu macht.
Vielen Dank im Voraus!
`function createPDF_Merge()
Log 5, „Start createPDF_Merge“
Dim RC : Set RC = RunningContext
Dim PrmIn : Set PrmIn = RC.NewJobsParams
Dim PrmOut : Set PrmOut = RC.NewJobsParams
PrmOut.Clear()
With PrmIn
.Clear()
.Value(„Flags“) = 0
.Value(„SourceFormat“) = „pdf“
.Value(„DestinationFormat“) = „pdf“
.Value(„TimeOut“) = 120000
.Value(„ConvertEqualFormat“) = 1
’ .Value(„Watermark“) = 1
.Value(„$Job$Files$“) = „E:\Export\XMLExport\test.pdf“
.Value(„$Job$Files$“) = „E:\Export\XMLExport\test1.pdf“
.Value(„$$$SwitchContextUserGUID$$$“) = wforganisation.GetOrgObjectById(wforganisation.GetOrgObjectsByName(C_USER).Item(0).Id).GetAttributeValueByName(„UserId“)
End With
iRet = RC.Jobs.cnv.ConvertDocument(PrmIn, PrmOut)
if iRet <> 0 then
createPDF_Merge = „ERROR: " & iRet
Log 5, „Error " & iRet
else
sFileName = PrmOut.Value(“$Job$Files$“)
sFileName = mid(sFileName, 2, len(sFileName) -2)
createPDF_Merge = sFileName
Log 5, "sFileName: " & sFileName
end if
Set PrmOut = Nothing
Set PrmIn = Nothing
Set RC = Nothing
'Log "sFileName: " & sFileName
end function`