Sub main
Dim batchNum
Dim docType
Dim OrderNum
Dim strCurrentFile
Dim Truck
Dim Trailer
Dim Driver
Dim Invoice
Dim Billto
Dim BOL
Dim scandate
dim k
dim curdate
dim objTif
dim intPages
dim D
dim fs

    Set objTif = CreateObject("BITIFF.BITiffCtrl.1")
	batchNum = NextSeqValue("ShipsAway")


	for i = 1 to Job.Documents.count
       Set fs = CreateObject("Scripting.FileSystemObject")
       strOriginalFile = Job.Documents.item(i).Directory &  Job.Documents.item(i).Filename

       intPages = objTif.GetNumberOfImagesInTiffFile(strOriginalFile)

           If intPages = 1 Then
                docType = job.documents.item(i).parameters.item(1).value
                OrderNum = job.documents.item(i).parameters.item(2).value
                Truck = job.documents.item(i).parameters.item(3).value
                Trailer = job.documents.item(i).parameters.item(4).value
                BOL = job.documents.item(i).parameters.item(5).value
                Billto = job.documents.item(i).parameters.item(6).value
                Driver = job.documents.item(i).parameters.item(7).value
                Invoice = job.documents.item(i).parameters.item(8).value
                CurDate = formatdatetime(now(), 2)
                D = Trim(curdate)
                ScanDate = D
                'msgbox(scandate)
         		strNewFilename = strDateNow & NextSeqValue("ShipsAway") & ".tif"
         		strNewFile = Job.Documents.item(i).Directory & strNewFilename
                               ' Call objTif.CopyTiffImageInFile(strOriginalFile, k, strNewFile, 3)
                                fs.CopyFile strOriginalFile, strNewFile
         		Call createIDX(batchNum, strNewFileName, docType, OrderNum, Truck, Trailer, BOL, Billto, Driver, Invoice)

      	   Else
            For k = 0 To intPages - 1
                docType = job.documents.item(i).parameters.item(1).value
                OrderNum = job.documents.item(i).parameters.item(2).value
                Truck = job.documents.item(i).parameters.item(3).value
                Trailer = job.documents.item(i).parameters.item(4).value
                BOL = job.documents.item(i).parameters.item(5).value
                Billto = job.documents.item(i).parameters.item(6).value
                Driver = job.documents.item(i).parameters.item(7).value
                Invoice = job.documents.item(i).parameters.item(8).value
                CurDate = formatdatetime(now(), 2)
                D = Trim(curdate)
                ScanDate = D
                'msgbox(scandate)

             strNewFilename = strDateNow & NextSeqValue("ShipsAway") & ".tif"
             strNewFile = Job.Documents.item(i).Directory & strNewFilename

             Call objTif.CopyTiffImageInFile(strOriginalFile, k, strNewFile, 3)
             'fs.CopyFile strOriginalFile, strNewFile
           Call createIDX(batchNum, strNewFileName, docType, OrderNum, Truck, Trailer, BOL, Billto, Driver, Invoice)
        ' fs.DeleteFile (strOriginalFile)

         	Next

           End if
        fs.DeleteFile (strOriginalFile)
     'strCurrentFile = Job.Documents.item(i).Filename
      set strCurrentFile = nothing
       set fs = nothing
   Next

  	Call createINF(batchNum, scanDate)
  	Call createBatch(batchNum)

   filesystem.Attachments.Add CStr(Job.Documents.item(1).Directory & batchNum & "_" & job.jobid & ".zip")

End Sub

Public Sub createBatch(batchNum)
Dim imageDir
Dim importDir
Dim PZ

    imageDir = Job.Documents.item(1).Directory


    Set PZ = CreateObject("PolarZipLight.ZipLight")
    PZ.SourceDirectory = imageDir
    PZ.ZipFileName = imageDir & batchNum & ".zip "
    PZ.Add


End Sub

Private Function NextSeqValue(strSeqName)

   Dim objSeq
   Dim strValue
   Dim bRet
   dim strReturnMessage

   set objSeq = CreateObject("SeqValueLib.SequenceValue")

   bRet = objSeq.GetNextValue(strSeqName, strValue, strReturnMessage)

   If bRet = True then
      NextSeqValue = strValue
   Else
      NextSeqValue = ""
      FileSystem.ScriptMessage = cstr(strReturnMessage)
   End If

   set objSeq = nothing
end Function


Public Sub createINF(batchNum, scanDate)
Dim output
Dim myFSO
Dim outputFile
Dim writeINF

output = "ScanComputer: Titan IDE" & vbCrLf & _
"User: admin" & vbCrLf & _
"ScanDate: " & scanDate

Set myFSO = CreateObject("Scripting.FileSystemObject")
outputFile = Job.Documents.item(1).Directory & batchNum & ".inf"
Set writeINF = myFSO.OpenTextFile(outputFile, 8, True)
writeINF.WriteLine (output)
writeINF.Close

End Sub

Public Sub createIDX(batchNum, fileName, docType, OrderNum, Truck, Trailer, BOL, Billto, Driver, Invoice)

Dim output
Dim myFSO
Dim outputFile
Dim writeINF


output = fileName & "|" & docType & "|*|" & orderNum & "|" & Truck & "|" & Trailer & "|" & BOL & "|" & Billto & "|" & Driver & "|" & Invoice

Set myFSO = CreateObject("Scripting.FileSystemObject")
outputFile = Job.Documents.item(1).Directory & batchNum & ".idx"
Set writeINF = myFSO.OpenTextFile(outputFile, 8, True)
writeINF.WriteLine (output)
writeINF.Close



End Sub