llFirstTime = .T. Select CurCli SCAN FOR CurCli.Selecciona AND Upper(CurCli.origem) = "FACTDOC" SELECT * FROM LinhaFac ; WHERE NumDoc = CurCli.NumDoc ; INTO CURSOR crsTemp IF llFirstTime llFirstTime = .F. COPY STRUCTURE TO TmpLinFacX USE TmpLinFacX IN 0 ENDIF SELECT TmpLinFacX APPEND FROM ( DBF("crsTemp")) ENDSCANHowever, you can get the same result with single query.
SELECT LinhaFac.* FROM LinhaFac ; JOIN CurCli ON LinhaFac.NumDoc = CurCli.NumDoc; WHERE CurCli.Selecciona AND Upper(CurCli.origem) = "FACTDOC"; INTO TABLE TmpLinFacX>Hi ,
>Select CurCli >GO TOP >SET FILTER TO CurCli.Selecciona = .T. >GO TOP > >DO WHILE .NOT. Eof() > IF Upper(AllTrim(CurCli.origem)) = "FACTDOC" && FACTURA > > nNumDoc = CurCli.NumDoc > Select LinhaFac > GO TOP > SELECT * FROM LinhaFac INTO TABLE TmpLinFacX WHERE NumDoc = nNumDoc > >&& I don´t want a new TmpLinFacX , i need write in end TmpLinFacX ( additive) > > ENDIF > > Select CurCli > SKIP > IF Eof() > EXIT > ELSE > LOOP > ENDIF > >ENDDO > > >Selec TmpLinFac >DELETE ALL >APPEND FROM TmpLinFacX >>