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 TmpLinFacXThanks