set deleted on
sele cumplun
*dele all
set order to tag nume
sele furnizor
DELE ALL
set order to tag nume




SELE DISTINCT ALLT(NUME) AS NUME,COD_FISCAL FROM CUMPLUN INTO CURSOR TT
SELE FURNIZOR
APPE FROM DBF('TT')
USE IN TT

sele furnizor
scan
	scat memv
	sele cumplun
	sum achitat to m.platit for ALLT(nume)=ALLT(m.nume)
	sum totctva to m.achizit for ALLT(nume)=ALLT(m.nume)
	sele furnizor
	gath memv
endscan