romfast/comun
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
09ddeabb1caf782376d3becb519fe03438c53883
comun/utile/Teste/editare_factura/test_s4b_sincronizare.prg
Marius Mutu 40a112a42d #6 editare factura emisa: S4b etapa 2 - butonul, dialogul si tipul lui id_articol 
Enumerarea diferentelor dintre rulaje si articole capata interfata: buton pe
pagina de articole, dialog cu grid si comutator de directie, plus verificarea la
salvare. Dialogul propune, nu decide - aplicarea ramane o apasare explicita.

- omodificari.vc2: cmdSincronizeazaArticole pe PAGE3, dezactivat odata cu restul
  paginii cand documentul e blocat in eFactura; frm_sincronizare_articole,
  derivata din frm_termin_renunt. Gridul e legat de propunere_afisata, cursor
  stabil creat in Load si doar golit si reumplut - propunere_sincronizare se
  recreeaza la fiecare apel, deci o legare directa s-ar rupe la prima comutare
  de directie.
- id_articol trece de la I la N(20), in toate cele 6 locuri scrise pentru acest
  punct. Restul codebase-ului foloseste dintotdeauna N(20): valorile reale trec
  de 2^31 pe 89.8% din NOM_ARTICOLE, iar un camp I le trunchia tacit, asa incat
  potrivirea pe id_articol cadea si iesea perechea Adaugare+Semnalare in locul
  unei Modificari. Nu e o schimbare de design, e revenire la conventia casei.
- doua accesari This. in loc de Thisform. in Click-ul butonului de adaugare
  articol: proprietatile sunt ale formularului, iar scurtcircuitul OR le
  evalua exact cand documentul avea articole - orice click real dadea eroare.
- teste: test_s4b_dialog (35/0) acopera instantierea, comutarea directiei si
  aplicarea la salvare; test_s4b_sincronizare (42/0) capata cazul id_articol
  3598545102, care ar fi picat inainte de schimbarea de tip.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01SN8snvkk94KuhWwoXUUey3
2026-08-11 20:05:14 +03:00

496 lines
22 KiB
Plaintext
Raw Blame History

* test_s4b_sincronizare.prg
* Acopera S4b etapa 1 (ConstruiestePropunereSincronizare/AplicaSincronizareArticole, ofacturare_editare.prg):
* compararea si aplicarea sincronizarii cantitate/pret intre rulaje (trul) si articolele facturii (tvd),
* agregate pe id_articol. Complet headless, FARA Oracle - niciuna din cele doua functii testate atinge
* goExecutor; tvd/trul sunt construite direct in test (CreeazaCursorArticoleGol pentru tvd, structura
* minimala relevanta pentru trul), nu vin din documente reale.
*
* Cazuri acoperite, pe fiecare directie (RUL_SURSA/ARTICOLE_SURSA) unde se aplica: identic (nu apare in
* cursor), modificare, adaugare, semnalare, articol nestocat (N-A), mai multe randuri RUL active pe
* acelasi articol (N-A, chiar daca agregatul ar fi identic), randuri STERS excluse din agregare, document
* in valuta (N-A pe tot documentul), aplicarea efectiva (REPLACE pe tvd/trul, pastrarea conventiei
* pret_cu_tva la Modificare, alegerea cant/cante dupa care era populat, Adaugare in ARTICOLE_SURSA
* niciodata scrisa), toForm absent (Adaugare pe tvd se sare, fara eroare).
*
* dummyform (DEFINE CLASS la finalul fisierului) e un test-double care oglindeste EXACT
* calculeaza_valori_articol/AdaugaLinieTvdDinArticol/ActualizeazaBaraTotaluri din omodificari.vc2 -
* tipar identic cu dummyexecutor din test_s5_validari_articole.prg (acelasi folder): scop de verificare
* ca AplicaSincronizareArticole apeleaza metodele corecte, cu argumentele corecte, fara sa deschida
* formularul real sau sa atinga vreun .vc2.
*
* Nu scrie in Oracle. Nu da COMMIT. QUIT la final.
SET SAFETY OFF
SET TALK OFF
LOCAL lcLog
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_s4b_sincronizare_log.txt'
STRTOFILE('start ' + TTOC(DATETIME()) + CHR(13) + CHR(10), lcLog)
PUBLIC gcErrLog, gnPass, gnFail
gcErrLog = lcLog
gnPass = 0
gnFail = 0
ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
IF Type('gnPC') <> 'N'
PUBLIC gnPC
gnPC = 2
ENDIF
SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE
*============================================================================================
* SECTIUNEA A - ConstruiestePropunereSincronizare, caz cu caz
*============================================================================================
*!* --- A1: identic - nu apare in cursor ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(100, 5, 10, 1, 1, 'ARTICOL 100', 'COD100', 50)
AdaugaTrul(100, 5, 0, 10, 0, 1, '371', 1)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 100
DO asserteaza WITH 'A1 identic RUL_SURSA: articolul nu apare in propunere', !Found(), TRANSFORM(Reccount())
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 100
DO asserteaza WITH 'A1 identic ARTICOLE_SURSA: articolul nu apare in propunere', !Found(), TRANSFORM(Reccount())
*!* --- A2: modificare, ambele directii pe acelasi cursor ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(200, 3, 10, 1, 1, 'ARTICOL 200', 'COD200', 30)
AdaugaTrul(200, 5, 0, 12, 0, 1, '371', 1)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 200
DO asserteaza WITH 'A2 modificare RUL_SURSA: gasit', Found(), ''
IF Found()
DO asserteaza WITH 'A2 modificare RUL_SURSA: actiune', Alltrim(actiune) == 'Modificare', actiune
DO asserteaza WITH 'A2 modificare RUL_SURSA: cant veche=tvd(3)/noua=rul(5)', cantitate_veche == 3 AND cantitate_noua == 5, ;
TRANSFORM(cantitate_veche) + '/' + TRANSFORM(cantitate_noua)
DO asserteaza WITH 'A2 modificare RUL_SURSA: pret vechi=10/nou=12', pret_vechi == 10 AND pret_nou == 12, ;
TRANSFORM(pret_vechi) + '/' + TRANSFORM(pret_nou)
ENDIF
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 200
DO asserteaza WITH 'A2 modificare ARTICOLE_SURSA: actiune si valori inversate (veche=rul(5)/noua=tvd(3))', ;
Found() AND Alltrim(actiune) == 'Modificare' AND cantitate_veche == 5 AND cantitate_noua == 3 AND pret_vechi == 12 AND pret_nou == 10, ;
'gasit=' + TRANSFORM(Found())
*!* --- A3: doar in trul -> Adaugare (RUL_SURSA) / Semnalare (ARTICOLE_SURSA) ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTrul(300, 2, 0, 25, 0, 50, '371', 1.19)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 300
DO asserteaza WITH 'A3 doar in trul, RUL_SURSA: Adaugare, cant 0->2, pret 0->25', ;
Found() AND Alltrim(actiune) == 'Adaugare' AND cantitate_veche == 0 AND cantitate_noua == 2 AND pret_vechi == 0 AND pret_nou == 25, ''
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 300
DO asserteaza WITH 'A3 doar in trul, ARTICOLE_SURSA: Semnalare, cant veche=2/noua=0', ;
Found() AND Alltrim(actiune) == 'Semnalare' AND cantitate_veche == 2 AND cantitate_noua == 0, ''
*!* --- A4: doar in tvd (stocat) -> Semnalare (RUL_SURSA) / Adaugare (ARTICOLE_SURSA) ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(400, 4, 8, 1, 1, 'ARTICOL 400', 'COD400', 32)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 400
DO asserteaza WITH 'A4 doar in tvd, RUL_SURSA: Semnalare, cant veche=4/noua=0', ;
Found() AND Alltrim(actiune) == 'Semnalare' AND cantitate_veche == 4 AND cantitate_noua == 0, ''
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 400
DO asserteaza WITH 'A4 doar in tvd, ARTICOLE_SURSA: Adaugare, cant veche=0/noua=4, pret nou=8, motiv nemarcat', ;
Found() AND Alltrim(actiune) == 'Adaugare' AND cantitate_veche == 0 AND cantitate_noua == 4 AND pret_nou == 8 AND 'rulaje' $ Lower(motiv), motiv
*!* --- A5: articol nestocat -> N-A, ambele directii ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(500, 1, 99, 1, 0, 'ARTICOL 500 SERVICIU', 'COD500', 99)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 500
DO asserteaza WITH 'A5 nestocat RUL_SURSA: N-A', Found() AND Alltrim(actiune) == 'N-A' AND 'nestocat' $ Lower(motiv), ''
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 500
DO asserteaza WITH 'A5 nestocat ARTICOLE_SURSA: N-A', Found() AND Alltrim(actiune) == 'N-A' AND 'nestocat' $ Lower(motiv), ''
*!* --- A6: mai multe randuri RUL active (pereche diferenta de pret) -> N-A, chiar daca agregatul ar fi identic cu tvd ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(600, 2, 110, 1, 1, 'ARTICOL 600', 'COD600', 220)
AdaugaTrul(600, 0, 2, 100, 3, 1, '371', 1)
AdaugaTrul(600, 2, 0, 110, 3, 1, '371', 1)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 600
DO asserteaza WITH 'A6 mai multe randuri RUL: N-A, nu identic, chiar daca agregatul (2*110=220) egaleaza tvd', ;
Found() AND Alltrim(actiune) == 'N-A' AND 'mai multe randuri' $ Lower(motiv), ''
ConstruiestePropunereSincronizare('ARTICOLE_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 600
DO asserteaza WITH 'A6 mai multe randuri RUL: N-A si in ARTICOLE_SURSA', ;
Found() AND Alltrim(actiune) == 'N-A' AND 'mai multe randuri' $ Lower(motiv), ''
*!* --- A7: randurile STERS nu intra in agregare (nici pe trul, nici pe tvd) ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(700, 3, 15, 1, 1, 'ARTICOL 700', 'COD700', 45)
AdaugaTvd(700, 999, 999, 1, 1, 'ARTICOL 700 STEARSA', 'COD700', 999999)
SELECT tvd
GO Bottom
REPLACE sters WITH 1 IN tvd
AdaugaTrul(700, 3, 0, 15, 0, 1, '371', 1)
AdaugaTrul(700, 999, 0, 999, 0, 1, '371', 1)
SELECT trul
GO Bottom
REPLACE sters WITH 1 IN trul
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 700
DO asserteaza WITH 'A7 randuri sters excluse din agregare: articolul 700 e identic (nu apare in propunere)', !Found(), TRANSFORM(Reccount())
*!* --- A8: document in valuta -> N-A pe tot, chiar pe un caz care ar fi fost Modificare ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(200, 3, 10, 1, 1, 'ARTICOL 200', 'COD200', 30)
AdaugaTrul(200, 5, 0, 12, 0, 1, '371', 1)
IF Used('tvanz')
Use In tvanz
ENDIF
CreeazaCursorTvanzGol()
INSERT INTO tvanz (id_vanzare, discount, total_fara_tva, total_tva, total_cu_tva, curs, multiplicator, in_valuta, id_valuta, nume_val, id_fact) ;
VALUES (1, 0, 0, 0, 0, 4.97, 1, 1, 999, 'EUR', 1)
ConstruiestePropunereSincronizare('RUL_SURSA')
SELECT propunere_sincronizare
LOCATE FOR id_articol = 200
DO asserteaza WITH 'A8 document in valuta: N-A, motiv mentioneaza valuta', ;
Found() AND Alltrim(actiune) == 'N-A' AND 'valuta' $ Lower(motiv), ''
IF Used('tvanz')
Use In tvanz
ENDIF
*!* --- A10: id_articol peste 2^31 (3598545102 = IV93900901, din documentele 1140895/1140921) ---
*!* cu id_articol I in tvd valoarea se trunchia tacit si potrivirea cadea: iesea Adaugare+Semnalare
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(3598545102, 3, 10, 1, 1, 'IV93900901', 'IV93900901', 30)
AdaugaTrul(3598545102, 5, 0, 12, 0, 1, '371', 1)
SELECT tvd
LOCATE FOR id_articol = 3598545102
DO asserteaza WITH 'A10 tvd pastreaza id_articol 3598545102 nealterat (campul nu mai e I)', ;
Found() AND id_articol == 3598545102, 'citit=' + TRANSFORM(id_articol)
ConstruiestePropunereSincronizare('RUL_SURSA')
DO asserteaza WITH 'A10 o singura linie in propunere, nu perechea Adaugare+Semnalare', ;
Reccount('propunere_sincronizare') == 1, 'randuri=' + TRANSFORM(Reccount('propunere_sincronizare'))
SELECT propunere_sincronizare
LOCATE FOR id_articol = 3598545102
DO asserteaza WITH 'A10 potrivire reusita: Modificare, cant 3->5, pret 10->12', ;
Found() AND Alltrim(actiune) == 'Modificare' AND cantitate_veche == 3 AND cantitate_noua == 5 ;
AND pret_vechi == 10 AND pret_nou == 12, 'gasit=' + TRANSFORM(Found())
*!* --- A9: retur .F. cand tvd/trul nu sunt deschise, cursorul iese oricum creat ---
IF Used('tvd')
Use In tvd
ENDIF
IF Used('trul')
Use In trul
ENDIF
LOCAL llRetA9
llRetA9 = ConstruiestePropunereSincronizare('RUL_SURSA')
DO asserteaza WITH 'A9 fara tvd/trul deschise: retur .F., cursor gol dar deschis', ;
llRetA9 == .F. AND Used('propunere_sincronizare') AND Reccount('propunere_sincronizare') == 0, TRANSFORM(llRetA9)
*============================================================================================
* SECTIUNEA B - AplicaSincronizareArticole, directia RUL_SURSA (scrie in tvd)
*============================================================================================
LOCAL loForm
loForm = Createobject('dummyform')
CreeazaTvdTest()
CreeazaTrulTest()
*!* 800: modificare - pastreaza pret_cu_tva=1 existent, discount resetat
AdaugaTvd(800, 2, 10, 1, 1, 'ARTICOL 800', 'COD800', 20)
AdaugaTrul(800, 4, 0, 16, 0, 1, '371', 1.19)
*!* 900: adaugare - doar in trul
AdaugaTrul(900, 1, 0, 50, 0, 2, '371', 1.19)
*!* 1000: semnalare - doar in tvd, stocat -> nu se aplica nimic
AdaugaTvd(1000, 1, 1, 1, 1, 'ARTICOL 1000', 'COD1000', 1)
*!* 1100: N-A - nestocat -> nu se aplica nimic
AdaugaTvd(1100, 1, 1, 1, 0, 'ARTICOL 1100', 'COD1100', 1)
LOCAL lnReccountTvdInainte
lnReccountTvdInainte = Reccount('tvd')
LOCAL lnAplicateB1
lnAplicateB1 = AplicaSincronizareArticole('RUL_SURSA', loForm)
DO asserteaza WITH 'B1 RUL_SURSA: 2 linii aplicate (modificare 800 + adaugare 900), semnalare/N-A sarite', lnAplicateB1 == 2, TRANSFORM(lnAplicateB1)
DO asserteaza WITH 'B1: tvd a crescut cu exact o linie (doar Adaugarea 900)', Reccount('tvd') == m.lnReccountTvdInainte + 1, TRANSFORM(Reccount('tvd'))
SELECT tvd
LOCATE FOR id_articol = 800
DO asserteaza WITH 'B1 modificare 800: cantitate=4, pret=16 (pret_cu_tva era 1, scris direct), discount=0', ;
Found() AND cantitate == 4 AND pret == 16 AND discount_unitar == 0, TRANSFORM(cantitate) + '/' + TRANSFORM(pret)
DO asserteaza WITH 'B1 modificare 800: valoare recalculata prin dummyform (4*16=64)', valoare == 64, TRANSFORM(valoare)
LOCATE FOR id_articol = 900
DO asserteaza WITH 'B1 adaugare 900: linie noua in tvd, cantitate=1, pret=50, pret_cu_tva=1, cont/gestiune din trul', ;
Found() AND cantitate == 1 AND pret == 50 AND pret_cu_tva == 1 AND Alltrim(cont) == '371' AND id_gestiune == 2, ''
DO asserteaza WITH 'B1: dummyform.AdaugaLinieTvdDinArticol apelat o singura data', loForm.nAdaugaCalls == 1, TRANSFORM(loForm.nAdaugaCalls)
DO asserteaza WITH 'B1: dummyform.calculeaza_valori_articol apelat (direct pe 800 + indirect din AdaugaLinieTvdDinArticol pe 900)', loForm.nCalcCalls == 2, TRANSFORM(loForm.nCalcCalls)
SELECT tvd
LOCATE FOR id_articol = 1000
DO asserteaza WITH 'B1: articolul 1000 (semnalare) neatins', Found() AND cantitate == 1 AND pret == 1, ''
LOCATE FOR id_articol = 1100
DO asserteaza WITH 'B1: articolul 1100 (nestocat, N-A) neatins', Found() AND cantitate == 1 AND pret == 1, ''
*!* --- B2: fara toForm - Modificare pe tvd tot se aplica (REPLACE simplu), Adaugare se sare fara eroare ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(800, 2, 10, 1, 1, 'ARTICOL 800', 'COD800', 20)
AdaugaTrul(800, 4, 0, 16, 0, 1, '371', 1.19)
AdaugaTrul(900, 1, 0, 50, 0, 2, '371', 1.19)
LOCAL lnReccountTvdB2, lnAplicateB2
lnReccountTvdB2 = Reccount('tvd')
lnAplicateB2 = AplicaSincronizareArticole('RUL_SURSA')
DO asserteaza WITH 'B2 fara toForm: doar 1 linie aplicata (modificarea 800; adaugarea 900 nu are cum, fara toForm)', lnAplicateB2 == 1, TRANSFORM(lnAplicateB2)
DO asserteaza WITH 'B2 fara toForm: tvd nu a crescut (adaugarea 900 s-a sarit)', Reccount('tvd') == m.lnReccountTvdB2, TRANSFORM(Reccount('tvd'))
SELECT tvd
LOCATE FOR id_articol = 800
DO asserteaza WITH 'B2 fara toForm: REPLACE-ul de baza tot s-a facut pe 800 (cantitate=4, pret=16)', Found() AND cantitate == 4 AND pret == 16, ''
*!* --- B3: pret_cu_tva=0 pe randul tinta - pretul propus (mereu cu TVA) se converteste inainte de scriere ---
CreeazaTvdTest()
CreeazaTrulTest()
*!* proc_tvav=1.19, pret fara tva=10 -> valoare = 10*1.19 = 11.9 la incarcare; RUL propune pret cu tva 23.8 -> se scrie pret fara tva 20 (23.8/1.19)
AdaugaTvd(1200, 1, 10, 0, 1, 'ARTICOL 1200', 'COD1200', 11.9)
SELECT tvd
REPLACE proc_tvav WITH 1.19 IN tvd
AdaugaTrul(1200, 2, 0, 23.8, 0, 1, '371', 1.19)
AplicaSincronizareArticole('RUL_SURSA', loForm)
SELECT tvd
LOCATE FOR id_articol = 1200
DO asserteaza WITH 'B3 pret_cu_tva=0 pastrat: pret scris = pret_nou_cu_tva / proc_tvav = 23.8/1.19 = 20', ;
Found() AND pret_cu_tva == 0 AND Round(pret,4) == 20.0000, TRANSFORM(pret)
*!* --- B4: aplicarea pe id_articol peste 2^31 nimereste randul corect, nu creeaza linie noua ---
CreeazaTvdTest()
CreeazaTrulTest()
AdaugaTvd(3598545102, 3, 10, 1, 1, 'IV93900901', 'IV93900901', 30)
AdaugaTvd(700, 1, 5, 1, 1, 'ARTICOL 700', 'COD700', 5)
AdaugaTrul(3598545102, 5, 0, 12, 0, 1, '371', 1)
LOCAL lnTvdInainteB4, lnAplicateB4
lnTvdInainteB4 = Reccount('tvd')
lnAplicateB4 = AplicaSincronizareArticole('RUL_SURSA', loForm)
DO asserteaza WITH 'B4 id mare: o singura linie aplicata', lnAplicateB4 == 1, TRANSFORM(lnAplicateB4)
DO asserteaza WITH 'B4 id mare: tvd nu a crescut (modificare, nu adaugare)', ;
Reccount('tvd') == m.lnTvdInainteB4, TRANSFORM(Reccount('tvd'))
SELECT tvd
LOCATE FOR id_articol = 3598545102
DO asserteaza WITH 'B4 id mare: randul corect actualizat (cantitate=5, pret=12)', ;
Found() AND cantitate == 5 AND pret == 12, TRANSFORM(cantitate) + '/' + TRANSFORM(pret)
LOCATE FOR id_articol = 700
DO asserteaza WITH 'B4 id mare: articolul vecin 700 neatins', ;
Found() AND cantitate == 1 AND pret == 5, ''
*============================================================================================
* SECTIUNEA C - AplicaSincronizareArticole, directia ARTICOLE_SURSA (scrie in trul)
*============================================================================================
CreeazaTvdTest()
CreeazaTrulTest()
*!* 1300: modificare, campul cu cantitate era 'cant' -> ramane 'cant' dupa aplicare
AdaugaTvd(1300, 5, 12, 1, 1, 'ARTICOL 1300', 'COD1300', 60)
AdaugaTrul(1300, 3, 0, 9, 0, 1, '371', 1)
*!* 1400: modificare, campul cu cantitate era 'cante' -> ramane 'cante' dupa aplicare
AdaugaTvd(1400, 5, 12, 1, 1, 'ARTICOL 1400', 'COD1400', 60)
AdaugaTrul(1400, 0, 3, 9, 0, 1, '371', 1)
*!* 1500: adaugare in ARTICOLE_SURSA (doar in tvd) - nu se aplica niciodata, trul nu primeste rand nou
AdaugaTvd(1500, 1, 1, 1, 1, 'ARTICOL 1500', 'COD1500', 1)
LOCAL lnReccountTrulInainte, lnAplicateC1
lnReccountTrulInainte = Reccount('trul')
lnAplicateC1 = AplicaSincronizareArticole('ARTICOLE_SURSA')
DO asserteaza WITH 'C1 ARTICOLE_SURSA: 2 linii aplicate (modificarile 1300 si 1400; adaugarea 1500 sarita)', lnAplicateC1 == 2, TRANSFORM(lnAplicateC1)
DO asserteaza WITH 'C1: trul nu a crescut (adaugarea 1500 nu creeaza rand RUL nou)', Reccount('trul') == m.lnReccountTrulInainte, TRANSFORM(Reccount('trul'))
SELECT trul
LOCATE FOR id_articol = 1300
DO asserteaza WITH 'C1 1300: cant (campul folosit initial) actualizat la 5, pretvtva la 12, id_tip_rulaj neatins', ;
Found() AND cant == 5 AND cante == 0 AND pretvtva == 12 AND id_tip_rulaj == 0, TRANSFORM(cant) + '/' + TRANSFORM(cante)
LOCATE FOR id_articol = 1400
DO asserteaza WITH 'C1 1400: cante (campul folosit initial) actualizat la 5, cant ramane 0', ;
Found() AND cante == 5 AND cant == 0 AND pretvtva == 12, TRANSFORM(cant) + '/' + TRANSFORM(cante)
STRTOFILE('REZULTAT: ' + TRANSFORM(gnPass) + ' PASS / ' + TRANSFORM(gnFail) + ' FAIL' + CHR(13) + CHR(10), lcLog, 1)
IF Used('tvd')
Use In tvd
ENDIF
IF Used('trul')
Use In trul
ENDIF
IF Used('tvanz')
Use In tvanz
ENDIF
IF Used('propunere_sincronizare')
Use In propunere_sincronizare
ENDIF
QUIT
*!* --- helpere de constructie a cursoarelor de test ---
PROCEDURE CreeazaTvdTest
CreeazaCursorArticoleGol('tvd')
ENDPROC
PROCEDURE CreeazaTrulTest
IF Used('trul')
Use In trul
ENDIF
CREATE CURSOR trul (id_articol N(20), denumire C(100), codmat C(30), um C(10), cant N(12,3), cante N(12,3), ;
pretvtva N(14,4), id_tip_rulaj I, sters I, id_gestiune I, cont C(20), proc_tvav N(6,4))
ENDPROC
*!* adauga o linie in tvd, cu valoarea data explicit (nu recalculata aici - fixture, nu logica de productie)
PROCEDURE AdaugaTvd
LPARAMETERS tnIdArticol, tnCantitate, tnPret, tnPretCuTva, tnInStoc, tcDenumire, tcCodmat, tnValoare
SELECT tvd
APPEND BLANK
REPLACE id_vanzare WITH 1, id_vanzare_det WITH Recno('tvd'), id_articol WITH m.tnIdArticol, ;
cantitate WITH m.tnCantitate, pret WITH m.tnPret, pret_cu_tva WITH m.tnPretCuTva, proc_tvav WITH 1, ;
discount_unitar WITH 0, sters WITH 0, denumire WITH m.tcDenumire, codmat WITH m.tcCodmat, ;
in_stoc WITH m.tnInStoc, valoare WITH m.tnValoare, lmodificat WITH .F. IN tvd
ENDPROC
*!* adauga o linie in trul: id_articol, cant, cante, pretvtva, id_tip_rulaj, id_gestiune, cont, proc_tvav
*!* (denumire/codmat generate automat, neverificate individual in teste)
PROCEDURE AdaugaTrul
LPARAMETERS tnIdArticol, tnCant, tnCante, tnPretvtva, tnIdTipRulaj, tnIdGestiune, tcCont, tnProcTvav
SELECT trul
APPEND BLANK
REPLACE id_articol WITH m.tnIdArticol, cant WITH m.tnCant, cante WITH m.tnCante, pretvtva WITH m.tnPretvtva, ;
id_tip_rulaj WITH m.tnIdTipRulaj, sters WITH 0, um WITH 'BUC', id_gestiune WITH m.tnIdGestiune, ;
cont WITH m.tcCont, proc_tvav WITH m.tnProcTvav, denumire WITH 'ARTICOL ' + Transform(m.tnIdArticol), ;
codmat WITH 'COD' + Transform(m.tnIdArticol) IN trul
ENDPROC
PROCEDURE asserteaza
LPARAMETERS tcNume, tlConditie, tcValoare
IF m.tlConditie
gnPass = gnPass + 1
STRTOFILE('PASS ' + m.tcNume + CHR(13) + CHR(10), gcErrLog, 1)
ELSE
gnFail = gnFail + 1
STRTOFILE('FAIL ' + m.tcNume + ' (valoare: ' + m.tcValoare + ')' + CHR(13) + CHR(10), gcErrLog, 1)
ENDIF
ENDPROC
PROCEDURE test_error_handler
LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
STRTOFILE('EROARE ' + TRANSFORM(tnError) + ' [' + tcProgram + ':' + TRANSFORM(tnLineNo) + '] ' + tcMessage + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC
*!* test-double pentru frm_modific2024 - oglindeste EXACT calculeaza_valori_articol/AdaugaLinieTvdDinArticol/
*!* ActualizeazaBaraTotaluri din omodificari.vc2 (13130+/13447+), ca sa verifice ca AplicaSincronizareArticole
*!* apeleaza metodele corecte cu argumentele corecte, fara sa deschida formularul real. Document RON in toate
*!* testele (tip_valuta=0, curs=1, multiplicator=1) - documentele in valuta sunt N-A la nivelul propunerii
DEFINE CLASS dummyform AS Custom
nCalcCalls = 0
nAdaugaCalls = 0
nBaraCalls = 0
PROCEDURE calculeaza_valori_articol
LOCAL lnCantitate, lnPretNet, lnProcTvav, lnValoare
This.nCalcCalls = This.nCalcCalls + 1
SELECT tvd
lnCantitate = Nvl(cantitate,0)
lnPretNet = Nvl(pret,0) - Nvl(discount_unitar,0)
lnProcTvav = Nvl(proc_tvav,1)
lnValoare = Round(m.lnCantitate * Iif(Nvl(pret_cu_tva,0) = 0, m.lnPretNet * m.lnProcTvav, m.lnPretNet), gnPC)
REPLACE lmodificat WITH .T., valoare WITH m.lnValoare IN tvd
This.ActualizeazaBaraTotaluri()
ENDPROC
PROCEDURE AdaugaLinieTvdDinArticol
LPARAMETERS toArticol
LOCAL lnPretRon, lnDiscountRon, lnPret, lnDiscount
This.nAdaugaCalls = This.nAdaugaCalls + 1
lnPretRon = Iif(toArticol.preturi_cu_tva = 0, toArticol.pretftva, toArticol.pretctva)
lnDiscountRon = Iif(toArticol.preturi_cu_tva = 0, toArticol.discount_unitar, toArticol.discount_unitar_ctva)
lnPret = m.lnPretRon * 1 / 1
lnDiscount = m.lnDiscountRon * 1 / 1
SELECT tvd
APPEND BLANK
REPLACE id_vanzare WITH 1, id_vanzare_det WITH 0, id_articol WITH toArticol.id_articol, ;
cantitate WITH toArticol.cantitate, pret WITH m.lnPret, pret_cu_tva WITH toArticol.preturi_cu_tva, ;
proc_tvav WITH toArticol.proc_tvav, discount_unitar WITH m.lnDiscount, ;
id_gestiune WITH toArticol.id_gestiune, cont WITH toArticol.Cont, sters WITH 0, ;
denumire WITH toArticol.denumire, codmat WITH toArticol.codmat, ;
pret_achizitie WITH Nvl(toArticol.pret_achizitie,0), lmodificat WITH .T. IN tvd
This.calculeaza_valori_articol()
ENDPROC
PROCEDURE ActualizeazaBaraTotaluri
This.nBaraCalls = This.nBaraCalls + 1
ENDPROC
ENDDEFINE
Reference in New Issue View Git Blame Copy Permalink