Marius Mutu
7cc3bff358
Inrolare ROACONTRACTE conform COMUN\docs\inrolare-proiect-git-text.md: - .gitignore/.gitattributes dupa modelul ROACONT (COMUN/ exclus, are repo propriu) - 439 texte FoxBin2Prg generate in arbore (vc2/sc2/fr2/mn2/pj2/db2) - Clase\registry.vcx ramane binar: memo .vct corupt (Error 41), nu se poate converti - Clase\ferestre_contracte.vcx: text generat, roundtrip scutit (fara write-back) - CLAUDE.md, docs/README.md, roa_sync.bat Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01RYbiinqXxdEqXi53x4Ro7K
57 lines
1.7 KiB
Plaintext
57 lines
1.7 KiB
Plaintext
******************************************************************
|
|
PROCEDURE listare_registru_tva
|
|
LPARAMETERS tcRegistru
|
|
|
|
pcRegistru = UPPER(ALLTRIM(tcRegistru))
|
|
DO CASE
|
|
CASE 'VANZ'$pcRegistru
|
|
pcContTVA = [4427]
|
|
pcListaContTVA = [411,4111,4112,4113,4114,4115,4116,4117,461,635,5311,5121,428,4281,4282,4426,4428]
|
|
pcListaContBaza = [411,4111,4112,4113,4114,4115,4116,4117,461,428,4281,4282]
|
|
pcListaContExceptii = [667,419]
|
|
OTHERWISE
|
|
pcContTVA = [4426]
|
|
pcListaContTVA = [401,404,5121,5124,542,4427,4428]
|
|
pcListaContBaza = [401,404]
|
|
pcListaContExceptii = [767]
|
|
ENDCASE
|
|
|
|
|
|
lcSql = [{call PACK_REGISTRE_TVA.REGISTRUTVA(?gcS, ?gnAn, ?gnLuna, ] + ;
|
|
[?pcRegistru, ?pcContTVA, ?pcListaContTVA, ?pcListaContBaza, ?pcListaContExceptii )}]
|
|
lcCursor = 'crsRegistruTemp'
|
|
lnSucces = goExecutor.oExecute(lcSql,lcCursor)
|
|
IF lnSucces < 0
|
|
AMESSAGE(goExecutor.cEroare,0+16,"Eroare")
|
|
ELSE
|
|
|
|
SELECT nract, dataact, PART AS nume, cod_fiscal, fdoc, baza, proc_tva, tva, baza + tva as totctva, 00000000000.0000 as total ;
|
|
FROM crsRegistruTemp ;
|
|
INTO CURSOR crsRegistru ;
|
|
READWRITE ORDER BY nract, dataact, nume
|
|
USE IN crsRegistruTemp
|
|
|
|
SELECT nract, dataact, nume,sum(totctva) as total ;
|
|
from crsRegistru ;
|
|
INTO CURSOR tgrup ;
|
|
GROUP BY nract, dataact, nume
|
|
|
|
SELECT tgrup
|
|
SCAN
|
|
SCATTER NAME ot
|
|
SELECT crsRegistru
|
|
LOCATE FOR nume = ot.nume AND nract = ot.nract AND dataact = ot.dataact
|
|
IF FOUND()
|
|
REPLACE total WITH ot.total
|
|
ENDIF
|
|
SELECT tgrup
|
|
ENDSCAN
|
|
USE IN tgrup
|
|
|
|
SELECT crsRegistru
|
|
REPORT FORM registru_tva_simplu TO PRINTER PROMPT PREVIEW
|
|
USE IN crsRegistru
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
****************************************************************** |