Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Dim Global_WinUser
- DIM GVZNummerGlobal
- DIM parentBatch
- Function DPM_OnCreate(DCRoot)
- Global_WinUser = DCRoot.GetUser()
- End Function
- Function DPM_OnOpenBatch(DCBatch)
- End Function
- Function DPM_OnProcessDocument(DCDocument)
- '1. Anzahl Seiten auslesen und setzten
- DIM nPage
- nPage = "Anzahl Seiten: " & DCDocument.GetPageCount()
- DCDocument.SetAttribute "doc_text_1", nPage
- 'Scanuser voransetzten
- DIM ScanUser
- ScanUser = "Scan User: " & Global_WinUser
- DCDocument.SetAttribute "doc_text_2", ScanUser
- '4. Prüfe ob die bestehende GVZ-Nr ungleich der eingegebene ist
- DIM GVZNr, firstDocument, firstGVZNr 'aktuelle GVZ-Nummer welche im Feld GVZ-Nummer steht
- GVZNr = DCDocument.GetAttribute("doc_field_1")
- Set parentBatch = DCDocument.GetParent()
- Set firstDocument = parentBatch.GetDocument(0)
- firstGVZNr = firstDocument.GetAttribute("doc_field_1")
- IF(GVZNummerGlobal = "") THEN
- IF(GVZNr <> "") THEN
- GVZNummerGlobal = GVZNr
- DCDocument.SetAttribute "doc_field_1", GVZNummerGlobal
- ELSEIF(GVZNr = "") THEN
- GVZNummerGlobal = ""
- END IF
- END IF
- IF(GVZNummerGlobal <> "") THEN
- IF(GVZNummerGlobal = firstGVZNr) THEN
- DCDocument.SetAttribute "doc_field_1", GVZNummerGlobal
- ELSEIF(GVZNummerGlobal <> firstGVZNr) THEN
- GVZNummerGlobal = firstGVZNr
- DCDocument.SetAttribute "doc_field_1", GVZNummerGlobal
- END IF
- END IF
- 'Dokument wieder validieren
- DCDocument.SetValidate(1)
- End Function
- Function DPM_OnCloseBatch()
- End Function
- Function DPM_OnDestroy()
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement