DO WHILE NOT EOF() m.divi = curbilldata.divi DO WHILE m.divi = curbilldata.divi AND NOT EOF() SKIP ENDDO IF NOT EOF() m.lnCurRec = RECNO() INSERT BEFORE BLANK <pre> &&&i mean instead this part m.dae=SecondToHour( TimeToSeconds('34:20') + TimeToSeconds('36:40') + TimeToSeconds('71:10') + TimeToSeconds('66:10')) ***************************************************************** SUM TimeToSeconds(m1_m)TO lnSec for m.divi = curbilldata.divi m.dae=SecondToHour(lnSec) * * I hope you see how much readable this is * ************************************************************** GOTO m.lnCurRec replace m1_m WITH m.dae SKIP &&& i get error ENDIF ENDDO>hi ,
>DO WHILE NOT EOF() > m.divi = curbilldata.divi > DO WHILE m.divi = curbilldata.divi AND NOT EOF() > SKIP > ENDDO > > > IF NOT EOF() > m.lnCurRec = RECNO() > INSERT BEFORE BLANK ><pre> >&&&i mean instead this part >m.dae=SecondToHour( TimeToSeconds('34:20') + TimeToSeconds('36:40') + TimeToSeconds('71:10') + TimeToSeconds('66:10')) > > >***************************************************************** > SUM VAL(LEFT(m1_m,2))*3600 + ; > VAL(SUBSTR(m1_m,4,2))*60 + ; > VAL(RIGHT(m1_m,2)) TO lnSec for m.divi = curbilldata.divi >m.dae= PADL(INT(lnSec/3600), 6, "0") + ":" + ; > PADL(INT((lnSec%3600)/60),2, "0") && >************************************************************** > > > > GOTO m.lnCurRec > replace m1_m WITH m.dae > SKIP &&& i get error > ENDIF >ENDDO >