Ktm Script 4

Private Sub RenumberDocs(ByVal pXDoc As CASCADELib.CscXDocument )
   Dim BatchID As String
   Dim DocNumber As String
   Dim parent As CASCADELib.CscXFolder
   Dim counter As Integer
   Dim docinfo As CASCADELib.CscXDocInfo
   Dim pfield As CASCADELib.CscXDocField

   BatchID = BatchPropertyValue(pXDoc, "EXTERNAL_BATCHID", "000000")

   DocNumber = CStr(DatePart("yyyy",Date)) + Format$(CInt(BatchID),"00000")

   Set parent = GetRootFolder(pXDoc.ParentFolder)

   For counter = 0 To parent.DocInfos.Count-1
     Set docinfo = parent.DocInfos.ItemByIndex(counter)
     Set pfield = docinfo.XDocument.Fields.ItemByName("DocumentName")
     If pfield.Text = "" Then
       pfield.Text = DocNumber+Format(counter,"00")
     End If
   Next
End Sub