romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
6d339c932e4fed5832845644f0d559b61c4a4eab
comun/utile/Teste/editare_factura/test_id_part_rez.prg
Marius Mutu 8e022d332e #13: formular de facturare unificat - etapa curenta 
Squash al branch-ului de lucru plan13-s2.

Clase: ofacturare (nucleul formularului unificat), ofacturare_comun,
ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de
cautare), omodificari.

Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si
ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie
si cota standard de TVA cand articolul nu are cota pe politica.

Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea
testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte
proiecte sunt rezolvate pastrand ambele parti.

Loguri de rulare a testelor scoase din versionare; testele raman.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
2026-09-09 21:38:25 +03:00

234 lines
10 KiB
Plaintext
Raw Blame History

* test_id_part_rez.prg
* Proba tintita pentru reparatia sectiunii 3.3 din docs\propunere_comparatie_coloane_crsfactura.md:
* id_part_rez / id_lucrare_rez trebuie sa fie refacute la editare din rulajul original (RUL), nu sa
* ramana NULL. Sursa propusa in document (VANZARI_DETALII) NU are aceste coloane - se probeaza si
* asta, plus faptul ca VVANZARI_ARTICOLE nu le expune, deci valoarea gasita in crsfactura nu poate
* veni din alta parte. Nimic nu se scrie in Oracle: doar SELECT si incarcarea in cursoare.
*
* Caz 1 (doc 872, rezervare reala): RUL are un rand cu id_part_rez = 742 si id_lucrare_rez NULL.
* Caz 2 (doc 951, rezervare absenta scrisa ca 0): randul RUL are 0 pe ambele; 0 trebuie pastrat ca 0,
* nu convertit in NULL si nici NULL convertit in 0.
* Caz 3 (premisele): VANZARI_DETALII fara coloane, VVANZARI_ARTICOLE fara coloane, RUL cu ambele.
SET SAFETY OFF
SET TALK OFF
PUBLIC gcErrLog, gnPass, gnFail
PUBLIC poDate
gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_id_part_rez_log.txt'
STRTOFILE('start ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), gcErrLog)
ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
ON SHUTDOWN QUIT
DO ('D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto_roafacturare.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
IF gnHandle <= 0
STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), gcErrLog, 1)
QUIT
ENDIF
gnIdUtil = 8
SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE
*!* la nume duplicat de procedura castiga PRIMUL fisier din lista SET PROCEDURE, nu ultimul
LOCAL lcProcExistent
lcProcExistent = SET("PROCEDURE")
SET PROCEDURE TO "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\mock_amessagebox.prg", &lcProcExistent
PUBLIC gnMockRaspuns, gcMockUltimMesaj, gnMockUltimTip
gnMockRaspuns = 7
gcMockUltimMesaj = ''
gnMockUltimTip = 0
gnPass = 0
gnFail = 0
DO Premise
DO CazDocument WITH 872, 742, .T.
DO CazDocument WITH 951, 0, .F.
STRTOFILE(CHR(13) + CHR(10) + 'REZULTAT: ' + TRANSFORM(gnPass) + ' PASS / ' + TRANSFORM(gnFail) + ' FAIL' + CHR(13) + CHR(10), gcErrLog, 1)
STRTOFILE('end ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), gcErrLog, 1)
QUIT
*==============================================================================================
* Premise: nici tabela propusa in document, nici view-ul sursa nu au coloanele; RUL le are.
*==============================================================================================
PROCEDURE Premise
LOCAL lcSql
STRTOFILE(CHR(13) + CHR(10) + '--- PREMISE ---' + CHR(13) + CHR(10), gcErrLog, 1)
lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
[and table_name = 'VANZARI_DETALII' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
DO AssertaSql WITH 'VANZARI_DETALII NU are coloanele (varianta (a) din propunere e imposibila)', lcSql, 0
lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
[and table_name = 'VVANZARI_ARTICOLE' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
DO AssertaSql WITH 'VVANZARI_ARTICOLE NU expune coloanele', lcSql, 0
lcSql = [select count(*) as nr from all_tab_columns where owner = 'MARIUSM_AUTO' ] + ;
[and table_name = 'RUL' and column_name in ('ID_PART_REZ','ID_LUCRARE_REZ')]
DO AssertaSql WITH 'RUL are ambele coloane (singura sursa la editare)', lcSql, 2
ENDPROC
*==============================================================================================
* CazDocument: incarca documentul si compara crsfactura cu RUL, rand cu rand.
* tnIdV - id_vanzare
* tnPartAstept - valoarea id_part_rez asteptata pe cel putin o linie
* tlLucrNull - .T. daca id_lucrare_rez din RUL e NULL pe acea linie
*==============================================================================================
PROCEDURE CazDocument
LPARAMETERS tnIdV, tnPartAstept, tlLucrNull
LOCAL lcSql, lnDiscRon, lnDiscVal, lnPotriviri, lnPart, lnLucr, lnNule, lnStrict, lcPref
lcPref = 'D' + TRANSFORM(tnIdV) + ' '
STRTOFILE(CHR(13) + CHR(10) + '--- CAZ document ' + TRANSFORM(tnIdV) + ' ---' + CHR(13) + CHR(10), gcErrLog, 1)
*!* sursa independenta: randurile RUL ale documentului, exact ca in productie
IF USED('crs_rul_astept')
USE IN crs_rul_astept
ENDIF
lcSql = [select r.id_articol, r.id_gestiune, Nvl(r.cont,' ') as cont, r.pret, ] + ;
[Nvl(r.serie,' ') as serie, r.cante as cantitate, r.pretv, r.id_tip_rulaj, ] + ;
[r.id_part_rez, r.id_lucrare_rez ] + ;
[from rul r, vanzari v ] + ;
[where v.id_vanzare = ] + ALLTRIM(STR(tnIdV)) + ;
[ and r.cod = v.cod and r.sters = 0 and r.cante <> 0 ] + ;
[order by r.id_tip_rulaj desc, r.id_rul]
IF !goExecutor.oExecuta(lcSql, 'crs_rul_astept')
DO Asserta WITH lcPref + 'randurile RUL s-au citit', .F., 'oExecuta a esuat'
RETURN
ENDIF
goExecutor.oReset()
DO Asserta WITH lcPref + 'documentul are randuri RUL', RECCOUNT('crs_rul_astept') > 0, TRANSFORM(RECCOUNT('crs_rul_astept'))
*!* incarcarea reala
lnDiscRon = 0
lnDiscVal = 0
poDate = IncarcaAntetFacturaEditare(tnIdV, @lnDiscRon, @lnDiscVal)
DO Asserta WITH lcPref + 'antetul s-a incarcat', VARTYPE(poDate) = 'O', VARTYPE(poDate)
IF VARTYPE(poDate) <> 'O'
RETURN
ENDIF
IncarcaLiniiFacturaEditare(poDate, tnIdV)
DO Asserta WITH lcPref + 'crsfactura are linii', ;
USED('crsfactura') AND RECCOUNT('crsfactura') > 0, TRANSFORM(IIF(USED('crsfactura'), RECCOUNT('crsfactura'), -1))
IF !USED('crsfactura') OR RECCOUNT('crsfactura') = 0
RETURN
ENDIF
*!* comparatia rand cu rand, pe aceeasi cheie ca productia
lnPotriviri = 0
lnPart = 0
lnLucr = 0
lnNule = 0
lnStrict = 0
SELECT crsfactura
SCAN FOR gestionabil = 1
SELECT crs_rul_astept
LOCATE FOR id_articol = crsfactura.id_articol AND id_gestiune = crsfactura.id_gestiune ;
AND ALLTRIM(cont) == ALLTRIM(crsfactura.Cont) AND pret = crsfactura.pret_achizitie ;
AND ALLTRIM(serie) == ALLTRIM(NVL(crsfactura.serie,[])) AND cantitate = crsfactura.cantitate
IF FOUND()
lnPotriviri = lnPotriviri + 1
*!* pretv_orig populat din acelasi rand = dovada ca potrivirea chiar a avut loc
IF crsfactura.pretv_orig = NVL(crs_rul_astept.pretv, -987654)
lnStrict = lnStrict + 1
ENDIF
IF ISNULL(crs_rul_astept.id_part_rez) = ISNULL(crsfactura.id_part_rez) ;
AND NVL(crs_rul_astept.id_part_rez, -1) = NVL(crsfactura.id_part_rez, -1)
lnPart = lnPart + 1
ENDIF
IF ISNULL(crs_rul_astept.id_lucrare_rez) = ISNULL(crsfactura.id_lucrare_rez) ;
AND NVL(crs_rul_astept.id_lucrare_rez, -1) = NVL(crsfactura.id_lucrare_rez, -1)
lnLucr = lnLucr + 1
ENDIF
STRTOFILE(' id_temp=' + TRANSFORM(crsfactura.id_temp) + ;
' art=' + TRANSFORM(NVL(crsfactura.id_articol,-1)) + ;
' cant=' + TRANSFORM(crsfactura.cantitate) + ;
' pretv_orig=' + TRANSFORM(crsfactura.pretv_orig) + ;
' id_part_rez=' + IIF(ISNULL(crsfactura.id_part_rez), 'NULL', TRANSFORM(crsfactura.id_part_rez)) + ;
' id_lucrare_rez=' + IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez)) + ;
' potrivit=da' + CHR(13) + CHR(10), gcErrLog, 1)
ELSE
*!* fara potrivire in RUL nu exista sursa: valoarea trebuie sa ramana NULL
IF ISNULL(crsfactura.id_part_rez) AND ISNULL(crsfactura.id_lucrare_rez)
lnNule = lnNule + 1
ENDIF
STRTOFILE(' id_temp=' + TRANSFORM(crsfactura.id_temp) + ;
' art=' + TRANSFORM(NVL(crsfactura.id_articol,-1)) + ;
' cant=' + TRANSFORM(crsfactura.cantitate) + ;
' id_part_rez=' + IIF(ISNULL(crsfactura.id_part_rez), 'NULL', TRANSFORM(crsfactura.id_part_rez)) + ;
' id_lucrare_rez=' + IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez)) + ;
' potrivit=nu' + CHR(13) + CHR(10), gcErrLog, 1)
ENDIF
SELECT crsfactura
ENDSCAN
DO Asserta WITH lcPref + 'exista cel putin o linie potrivita in RUL (proba nu e vida)', ;
lnPotriviri > 0, TRANSFORM(lnPotriviri)
DO Asserta WITH lcPref + 'pretv_orig e cel din RUL pe toate liniile potrivite', ;
lnStrict = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnStrict) + '/' + TRANSFORM(lnPotriviri)
DO Asserta WITH lcPref + 'id_part_rez identic cu RUL pe toate liniile potrivite (NULL ramane NULL)', ;
lnPart = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnPart) + '/' + TRANSFORM(lnPotriviri)
DO Asserta WITH lcPref + 'id_lucrare_rez identic cu RUL pe toate liniile potrivite (NULL ramane NULL)', ;
lnLucr = lnPotriviri AND lnPotriviri > 0, TRANSFORM(lnLucr) + '/' + TRANSFORM(lnPotriviri)
*!* valoarea concreta asteptata pe document, ca sa nu treaca o comparatie NULL = NULL
SELECT crsfactura
LOCATE FOR gestionabil = 1 AND !ISNULL(id_part_rez) AND id_part_rez = tnPartAstept
DO Asserta WITH lcPref + 'exista o linie cu id_part_rez = ' + TRANSFORM(tnPartAstept), ;
FOUND(), IIF(FOUND(), 'gasita', 'lipseste')
IF FOUND()
IF tlLucrNull
DO Asserta WITH lcPref + 'pe acea linie id_lucrare_rez a ramas NULL', ;
ISNULL(crsfactura.id_lucrare_rez), IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez))
ELSE
DO Asserta WITH lcPref + 'pe acea linie id_lucrare_rez nu e NULL', ;
!ISNULL(crsfactura.id_lucrare_rez), IIF(ISNULL(crsfactura.id_lucrare_rez), 'NULL', TRANSFORM(crsfactura.id_lucrare_rez))
ENDIF
ENDIF
STRTOFILE(' (linii fara potrivire RUL, ramase NULL pe ambele: ' + TRANSFORM(lnNule) + ')' + CHR(13) + CHR(10), gcErrLog, 1)
USE IN crs_rul_astept
IF USED('crsfactura')
USE IN crsfactura
ENDIF
ENDPROC
*==============================================================================================
PROCEDURE AssertaSql
LPARAMETERS tcNume, tcSql, tnAsteptat
LOCAL lnGasit
lnGasit = -1
IF goExecutor.oExecuta(tcSql, 'crs_assert_sql')
lnGasit = NVL(crs_assert_sql.nr, -1)
USE IN crs_assert_sql
ENDIF
goExecutor.oReset()
DO Asserta WITH tcNume, lnGasit = tnAsteptat, TRANSFORM(lnGasit) + ' (asteptat ' + TRANSFORM(tnAsteptat) + ')'
ENDPROC
PROCEDURE Asserta
LPARAMETERS tcNume, tlConditie, tcDetaliu
IF tlConditie
gnPass = gnPass + 1
STRTOFILE(' OK ' + tcNume + ' [' + tcDetaliu + ']' + CHR(13) + CHR(10), gcErrLog, 1)
ELSE
gnFail = gnFail + 1
STRTOFILE(' FAIL ' + tcNume + ' [' + tcDetaliu + ']' + CHR(13) + CHR(10), gcErrLog, 1)
ENDIF
ENDPROC
PROCEDURE test_error_handler
LPARAMETERS tnErr, tcMsg, tcProg, tnLine
STRTOFILE('EROARE #' + TRANSFORM(tnErr) + ': ' + tcMsg + ' in ' + tcProg + ' linia ' + TRANSFORM(tnLine) + CHR(13) + CHR(10), gcErrLog, 1)
ENDPROC
Reference in New Issue View Git Blame Copy Permalink