27 lines
438 B
Plaintext
27 lines
438 B
Plaintext
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
|
|
|