Dim gPID Function BPM_OnCreate(DCRoot) gPID = InputBox("Welche Prozess-ID?", "Frage", "XX") End Function Function BPM_OnProcessBatch(DCBatch) 'eine ID setzen iDocCount = DCBatch.GetDocumentCount For i = 0 To iDocCount - 1 Set DCTempDocument…
Dim g_DirToHoldFiles Function DPM_OnCreate(DCRoot) g_DirToHoldFiles = "E:\temp\referenz" End Function Function DPM_OnProcessDocument(DCDocument) SaveTifAndAddx(DCDocument) End Function Function SaveTifAndAddx(DCDocument) 'FileSystem-Objekt öffnen set fso = CreateObject("Scripting.FileSystemObject") 'Verzeichnis If not fso.FolderExists(g_DirToHoldFiles) Then f = fso.CreateFolder(g_DirToHoldFiles)…
Function DPM_OnOpenBatch(DCBatch) nDocument = DCBatch.GetDocumentCount For i = 0 To nDocument - 1 Set DCDoc = DCBatch.GetDocument(i) nAttribute = DCDoc.GetAttributecount For a = 0 To nAttribute - 1 Attribute =…