romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

achizitie import: linia de diferenta 6xx fara cod de taxa SAFT

Browse Source
This commit is contained in:
Marius Mutu
2026-08-05 23:36:20 +03:00
parent 54d97c0349
commit b35e62c880
2 changed files with 35 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
utile/Teste/achizitie_import/test_runda7_diferente.prg
View File

@@ -245,11 +245,11 @@ TRY
DO CreeazaIntrodc WITH 'introdc'
DO CreeazaIntrodc WITH 'introdc_sablon'
INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
id_jtva_coloana, ptva, explicatie_tva) ;
VALUES ('371', '401', 1, 1, 1, .T., 'B', 208, 21, 'ACH. INT. 21%')
id_jtva_coloana, ptva, explicatie_tva, taxcode) ;
VALUES ('371', '401', 1, 1, 1, .T., 'B', 208, 21, 'ACH. INT. 21%', 301204)
INSERT INTO introdc_sablon (scd, scc, cu_tva, ordine, id_set, participa_valuta, tip_rand, ;
id_jtva_coloana, ptva, explicatie_tva) ;
VALUES ('4426', '401', 1, 2, 1, .T., 'T', 209, 21, 'TVA ACH. INT. 21%')
id_jtva_coloana, ptva, explicatie_tva, taxcode) ;
VALUES ('4426', '401', 1, 2, 1, .T., 'T', 209, 21, 'TVA ACH. INT. 21%', 301204)
GO TOP IN introdc_sablon
DO CreeazaRulTemp
@@ -735,6 +735,34 @@ PROCEDURE VerificaRandD
lcMsg = 'FAIL ' + tcLabel + '-randD: nu exista rand tip_rand=D in introdc dupa sincronizeaza() (diferenta asteptata=' + TRANSFORM(lnSumaAsteptata) + ')'
ENDIF
DO R7Log WITH lcMsg
DO VerificaTaxCodeRandD WITH tcLabel
SELECT (lnSel)
ENDPROC
PROCEDURE VerificaTaxCodeRandD
*-- randul D (diferenta 6xx) nu are cod de taxa SAFT; randurile de baza si TVA il pastreaza.
LPARAMETERS tcLabel
LOCAL lnSel, lcMsg, lnTaxD, lnFaraTax
lnSel = SELECT()
SELECT introdc
LOCATE FOR tip_rand == 'D'
IF !FOUND()
DO R7Log WITH 'FAIL ' + tcLabel + '-randD-taxcode: nu exista rand tip_rand=D'
SELECT (lnSel)
RETURN
ENDIF
lnTaxD = NVL(taxcode, 0)
lnFaraTax = 0
SCAN FOR INLIST(tip_rand, 'B', 'S', 'T', 'G') AND EMPTY(NVL(taxcode, 0))
lnFaraTax = lnFaraTax + 1
ENDSCAN
IF EMPTY(lnTaxD) AND lnFaraTax = 0
lcMsg = 'PASS ' + tcLabel + '-randD-taxcode: randul D are taxcode gol, iar randurile B/S/T/G il pastreaza'
ELSE
lcMsg = 'FAIL ' + tcLabel + '-randD-taxcode: taxcode pe randul D=' + TRANSFORM(lnTaxD) + ;
' (astept 0), randuri B/S/T/G fara taxcode=' + TRANSFORM(lnFaraTax) + ' (astept 0)'
ENDIF
DO R7Log WITH lcMsg
SELECT (lnSel)
ENDPROC