Call FillDebitRecord(strBookBatch, strBookDeploy, intDebitCounter, intDeployCounter)
Call FillCreditRecord(strBookBatch, strBookDeploy, intCreditCounter, intDeployCounter)
Call FillDescriptionRecord(strBookBatch, strBookDeploy, intDescriptionCounter, intDeployCounter)
intDebitCounter = intDebitCounter + 2
intCreditCounter = intCreditCounter + 2
intDescriptionCounter = intDescriptionCounter + 2
intDeployCounter = intDeployCounter + 1
Wend
' fill the last line with a credit record plus the total amount
Call FillLastRecord(strBookBatch, strBookDeploy, intDescriptionCounter, intDeployCounter)