>SCAN FOR BatchNo # 0 > > nRow = nRow + 1 > > cRecordId = TRANSFORM(Id) > cEntryDate = SUBSTR(TRANSFORM(EntryDate), 1, 10) > cTranDate = SUBSTR(TRANSFORM(TranDate), 1, 10) > cBatchId = TRANSFORM(BatchId) > cCount = TRANSFORM(Cnt) > cEntity = EntityId >**** nRow = nRow + 1 ?????????????? > .lstBatches.AddListItem("\" + cRecordId, nRow, 1) > .lstBatches.AddListItem("\" + cEntryDate, nRow, 2) > .lstBatches.AddListItem("\" + cTranDate, nRow, 3) > .lstBatches.AddListItem("\" + cBatchId, nRow, 4) > .lstBatches.AddListItem("\" + cCount, nRow, 5) > .lstBatches.AddListItem("\" + cEntity, nRow, 6) >ENDSCAN >