for x = 1 to 10 if laTemp[m.x,5] = 'test' ?'test' endif endfor xWhat is the above testing?
select invoices scan for invno = 'test' ?'test' endscanSeems clearer that we're looking for an invoice # = 'test'. You need to remember that to use seek you need to index the cursor. If you use locate without indexes it will scan the entire cursor, just like an array. Personally, in FoxPro, I avoid arrays at all costs, only using them when I have no choice.
>*****************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 >************************************************************************ > >