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