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