>SELECT QPDATA >USE IN 0 >GOTO TOP >SET STEP ON >SCAN WHILE !EOF() >QFLD =QPDATA.FIELD &&FIELD MARKER TO FIND >XDATA =LXPOS.INPUT &&FIELD TO MATCH TO >ORPL =LXPOS.DATA &&DATA INTO THE LX FILE >QPLACE = QPDATA.DATA &&DATA FROM THE QP FILE >SET ORDER TO FIELD && FIELD >SEEK QFLD > IF FOUND() > REPLACE &ORPL WITH &QPLACE WHERE &XDATA = &QFLD >ENDIF >ENDSCAN
USE IN 0 >SET STEP ON >SCAN >QFLD =QPDATA.FIELD &&FIELD MARKER TO FIND >XDATA =LXPOS.INPUT &&FIELD TO MATCH TO >ORPL =LXPOS.DATA &&DATA INTO THE LX FILE >QPLACE = QPDATA.DATA &&DATA FROM THE QP FILE *>SET ORDER TO FIELD && FIELD *>SEEK QFLD if seek(Qfld,'myTable','Field') > REPLACE &ORPL WITH QPLACE FOR &XDATA = &QFLD && Not sure about last macro and why do we need to replace multiple records? Which file we're sitting on? >ENDIF >ENDSCAN