@ 11, 39 SAY FDATE1 COLOR W+/RBBut now I want to use progressbar instead of above line.
DO WHILE FDATE1<=T_DATE1 @ 11, 39 SAY FDATE1 COLOR W+/RB STORE 0 TO DR1, DR2, DR3, CR1, CR2, CR3 SELECT VOUCHERS SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) DR_AMOUNT TO DR1 SUM FOR (ACC_CODE=ACC_CODE1) .AND. (DATE=FDATE1) CR_AMOUNT TO CR1 IF DR1>0 .OR. CR1>0 SELECT CASH_F APPEND BLANK REPLACE DATE WITH FDATE1, DEBIT WITH DR1, CREDIT WITH CR1 ENDIF FDATE1 = FDATE1+1 ENDDO