>for x = 1 to 10 > if laTemp[m.x,5] = 'test' > ?'test' > endif >endfor x >>
>select invoices >scan for invno = 'test' > ?'test' >endscan >>
>>*****************Extract Usage Charges From PS File****************** >>cExit='N' >>lnRowposition=10000 >> >>FOR I= 1 TO nU1 && nU1 is the Length of Array >>IF 'Usage Charges' $ laArray(I)=.T. >>lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >>lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >>EXIT >>ENDIF >>ENDFOR >> >>FOR nFor=-1 TO 1 >>lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >>FOR I= 1 TO nU1 >>IF lcRowposition $ laArray(I)=.T. >>lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >>IF lnRightColumnposition>lnLeftColumnposition >>IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >>nUsagecharges=VAL(STREXTRACT(laArray(I),'(',')')) >>cEXit='Y' >>EXIT >>ENDIF >>ENDIF >>ENDIF >>IF cExit='Y' >>EXIT >>ENDIF >>ENDFOR >>ENDFOR >>************************************************************************ >>*****************Extract Balance Minimum Guarantee PS File****************** >>cExit='N' >>lnRowposition=10000 >> >>FOR I= 1 TO nU1 >>IF 'Minimum Guarantee' $ laArray(I)=.T. >>lnRowposition = VAL(GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 1)) && The second last word >>lnLeftColumnposition = GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>lnLeftColumnposition=VAL(STREXTRACT(lnLeftColumnposition,')','')) >>EXIT >>ENDIF >>ENDFOR >> >>FOR nFor=-1 TO 1 >>lcRowposition=ALLTRIM(STR(lnRowposition+nFor))+' x' >>FOR I= 1 TO nU1 >>IF lcRowposition $ laArray(I)=.T. >>lnRightColumnposition=GETWORDNUM(laArray(I), GETWORDCOUNT(laArray(I)) - 2) && The Third last word >>lnRightColumnposition=VAL(STREXTRACT(lnRightColumnposition,')','')) >>IF lnRightColumnposition>lnLeftColumnposition >>IF TYPE(STREXTRACT(laArray(I),'(',')'))='N' >>nBalMinimumGuarantee=VAL(STREXTRACT(laArray(I),'(',')')) >>cEXit='Y' >>EXIT >>ENDIF >>ENDIF >>ENDIF >>IF cExit='Y' >>EXIT >>ENDIF >>ENDFOR >>ENDFOR >>************************************************************************ >> >>