>>LOCAL lnSlash, lcDivider, lnDivider, lcAmount, lnAmount >> >>_SCREEN.Show >>SET STEP ON >> >>lnSlash = 0 >>lcDivider = '' >>lnDivider = 0 >>lcAmount = '' >>lnAmount = 0 >> >>CLOSE DATABASES >>USE "c:\windmill 12-7-10-1" EXCLUSIVE >>GO top >>DO WHILE NOT EOF() >> IF '/' $ retail >> lnSlash = ATC('/',retail) >> IF lnSlash > 0 >> lcDivider = LEFT(retail,lnSlash -1) >> lnDivider = VAL(lcDivider) >> lcAmount = SUBSTR(retail,lnSlash + 1) >> lnAmount = VAL(lcAmount) >> IF lnDivider <> 0 >> lnAmount = lnAmount / lnDivider >> ENDIF >> lcAmount = ALLTRIM(STR(lnAmount,15,2)) >> REPLACE retail WITH lcAmount >> ENDIF >> ENDIF >> SKIP >>ENDDO >>>>
>lcAmount = LTRIM(LEFT(STR(lnAmount,15,3),14)) >Thanks.... I'm waiting on info from the people who supplied the data to us.