Marius Mutu
13b4f65723
ofacturare_editare.prg (nou): helpere comune - garda eFactura, cursoarele notei si ale rulajelor, randul de vanzare corespunzator notei si liniile de articole citite din view-ul VVANZARI_ARTICOLE. omodificari.vc2 (frm_modific2024): pagina noua de articole ale facturii, deocamdata doar afisare. Apare numai cand ofacturare_editare.prg e inregistrat si documentul are rand in VANZARI; in ROACONT si ROAGEST, unde fisierul nu e incarcat, pagina lipseste si registrul jurnal ramane neatins. Randul de vanzare al notei se cauta pe toate tripletele distincte (nract, serie_act, dataact) din nota, pentru ca primul rand poate fi o incasare. ofacturare_comun.vc2 (frm_facturi): do_editare_factura si butonul aferent, dupa modelul lui do_sterge, cu garzile de luna inchisa, luna curenta, document sters, referinte si eFactura. docs: comentariile se scriu strict necesar, si in cod si in scripturile de migrare - fara referinte la planuri, stories, decizii sau erori, istoricul doar in antetul fisierului. Plus regula zero (predarea contextului), capcanele de la testarea headless si completari pe fluxul text -> binar. utile/Teste: suita de regresie pentru editarea facturii si harness-ul watchdog (nu sunt in SVN, unde utile/Teste e ignorat). .gitignore ignora si capturile PNG si watchdog_out/, ramase din rulari. Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01SN8snvkk94KuhWwoXUUey3
142 lines
5.8 KiB
Plaintext
142 lines
5.8 KiB
Plaintext
* test_incarca_cursoare.prg
|
|
* Verifica IncarcaCursoareModificareNota (COMUN\programe\ofacturare_editare.prg) pe date reale:
|
|
* cod=1140888 - nota cu rulaje (non-regresie)
|
|
* cod=1140885 - nota FARA randuri in rul (productie/manopera, fara miscare de stoc)
|
|
* si pozitionarea in actactan din do_editare_factura (ofacturare_comun.vc2), pe cursoare sintetice.
|
|
* Nu atinge Oracle in scriere - doar SELECT-uri prin goExecutor. QUIT la final.
|
|
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
|
|
LOCAL lcLog
|
|
lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_incarca_cursoare_log.txt'
|
|
STRTOFILE('start' + CHR(13) + CHR(10), lcLog)
|
|
|
|
PUBLIC gcErrLog
|
|
gcErrLog = lcLog
|
|
ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
|
|
|
|
DO ('D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
|
|
IF gnHandle <= 0
|
|
STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), lcLog, 1)
|
|
QUIT
|
|
ENDIF
|
|
|
|
SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE
|
|
|
|
STRTOFILE('gnAn=' + TRANSFORM(gnAn) + ' gnLuna=' + TRANSFORM(gnLuna) + CHR(13) + CHR(10), lcLog, 1)
|
|
|
|
DO verifica_cod WITH 1140888, 'A (regresie, cu rulaje)', lcLog
|
|
DO verifica_cod WITH 1140885, 'B (fara randuri in rul)', lcLog
|
|
DO verifica_pozitionare_actactan WITH 9999995, 'a) nota normala, un singur id_fact pe toate randurile', lcLog, 5000, 5000, 25010, 100, .T.
|
|
DO verifica_pozitionare_actactan WITH 9999996, 'b) prim rand INCASARE cu id_fact-1, Locate il sare', lcLog, 5000, 5000, 25010, 200, .T.
|
|
DO verifica_pozitionare_actactan WITH 9999997, 'c) nota fara randul cu id_fact cerut, cade pe Go Top', lcLog, 9999, 7000, 25011, 50, .F.
|
|
DO verifica_pozitionare_actactan WITH 9999998, 'd) lnIdFact=0 (aviz/transfer), direct Go Top', lcLog, 0, 8000, 25012, 10, .F.
|
|
|
|
STRTOFILE('done' + CHR(13) + CHR(10), lcLog, 1)
|
|
QUIT
|
|
|
|
* reproduce mecanica pozitionarii din do_editare_factura (ofacturare_comun.vc2): cauta in actactan
|
|
* randul cu id_fact = lnIdFact (cel citit din crsfacturi/VANZARI.ID_FACT); daca nu-l gaseste (sau
|
|
* lnIdFact e 0 - avize, transferuri), cade pe Go Top si preia id_fact de acolo. lnIdSet si
|
|
* lnIdFactD se citesc mereu de pe randul gasit (Locate sau Go Top).
|
|
PROCEDURE verifica_pozitionare_actactan
|
|
LPARAMETERS tnCod, tcEticheta, tcLog, tnIdFactIntrare, tnIdFactAsteptat, tnIdSetAsteptat, tnIdFactDAsteptat, tlGasitAsteptat
|
|
|
|
LOCAL lnIdFact, lnIdSet, lnIdFactD, llGasitRand, llOk
|
|
|
|
CREATE CURSOR actactan (id_fact N(9), id_factd N(9), id_set N(9))
|
|
DO CASE
|
|
CASE tnCod = 9999995
|
|
&& a) nota normala: toate randurile cu acelasi id_fact
|
|
INSERT INTO actactan VALUES (5000, 100, 25010)
|
|
INSERT INTO actactan VALUES (5000, 101, 25010)
|
|
CASE tnCod = 9999996
|
|
&& b) prim rand INCASARE, id_fact = id_fact-ul facturii - 1
|
|
INSERT INTO actactan VALUES (4999, 0, 25010)
|
|
INSERT INTO actactan VALUES (5000, 200, 25010)
|
|
CASE tnCod = 9999997
|
|
&& c) nota nu contine id_fact-ul cerut (document vechi)
|
|
INSERT INTO actactan VALUES (7000, 50, 25011)
|
|
CASE tnCod = 9999998
|
|
&& d) aviz/transfer, fara id_fact la intrare
|
|
INSERT INTO actactan VALUES (8000, 10, 25012)
|
|
ENDCASE
|
|
|
|
lnIdFact = tnIdFactIntrare
|
|
|
|
SELECT actactan
|
|
llGasitRand = .F.
|
|
IF lnIdFact > 0
|
|
LOCATE FOR NVL(id_fact, 0) = lnIdFact
|
|
llGasitRand = FOUND()
|
|
ENDIF
|
|
IF !llGasitRand
|
|
GO TOP
|
|
lnIdFact = id_fact
|
|
ENDIF
|
|
lnIdSet = id_set
|
|
lnIdFactD = id_factd
|
|
USE IN actactan
|
|
|
|
llOk = (lnIdFact == tnIdFactAsteptat AND lnIdSet == tnIdSetAsteptat AND ;
|
|
lnIdFactD == tnIdFactDAsteptat AND llGasitRand == tlGasitAsteptat)
|
|
|
|
STRTOFILE('--- pozitionare actactan, cod=' + TRANSFORM(tnCod) + ' [' + tcEticheta + '] ---' + CHR(13) + CHR(10) + ;
|
|
' gasit rand = ' + TRANSFORM(llGasitRand) + ' (asteptat ' + TRANSFORM(tlGasitAsteptat) + ')' + CHR(13) + CHR(10) + ;
|
|
' id_fact = ' + TRANSFORM(lnIdFact) + ' (asteptat ' + TRANSFORM(tnIdFactAsteptat) + ')' + CHR(13) + CHR(10) + ;
|
|
' id_set = ' + TRANSFORM(lnIdSet) + ' (asteptat ' + TRANSFORM(tnIdSetAsteptat) + ')' + CHR(13) + CHR(10) + ;
|
|
' id_factd = ' + TRANSFORM(lnIdFactD) + ' (asteptat ' + TRANSFORM(tnIdFactDAsteptat) + ')' + CHR(13) + CHR(10) + ;
|
|
' ' + IIF(llOk, 'OK', 'FAIL') + CHR(13) + CHR(10), tcLog, 1)
|
|
ENDPROC
|
|
|
|
PROCEDURE verifica_cod
|
|
LPARAMETERS tnCod, tcEticheta, tcLog
|
|
|
|
LOCAL llOk, lcMsg, lnIdSetDistinct
|
|
|
|
llOk = IncarcaCursoareModificareNota(tnCod, gnAn, gnLuna, .F.)
|
|
|
|
lnIdSetDistinct = -1
|
|
IF Used('actactan') AND Reccount('actactan') > 0
|
|
SELECT Distinct id_set FROM actactan INTO CURSOR csr_idset_verif_test
|
|
lnIdSetDistinct = Reccount('csr_idset_verif_test')
|
|
USE IN csr_idset_verif_test
|
|
ENDIF
|
|
|
|
lcMsg = '--- cod=' + TRANSFORM(tnCod) + ' [' + tcEticheta + '] ---' + CHR(13) + CHR(10) + ;
|
|
' IncarcaCursoareModificareNota => ' + TRANSFORM(llOk) + CHR(13) + CHR(10) + ;
|
|
' Reccount(actactan) = ' + TRANSFORM(IIF(Used('actactan'), Reccount('actactan'), -1)) + CHR(13) + CHR(10) + ;
|
|
' Reccount(tact) = ' + TRANSFORM(IIF(Used('tact'), Reccount('tact'), -1)) + CHR(13) + CHR(10) + ;
|
|
' id_set distincte in actactan = ' + TRANSFORM(lnIdSetDistinct) + CHR(13) + CHR(10) + ;
|
|
' Used(trul) = ' + TRANSFORM(Used('trul')) + ' Reccount(trul) = ' + TRANSFORM(IIF(Used('trul'), Reccount('trul'), -1)) + CHR(13) + CHR(10) + ;
|
|
' Used(trul_obinv) = ' + TRANSFORM(Used('trul_obinv')) + ' Reccount(trul_obinv) = ' + TRANSFORM(IIF(Used('trul_obinv'), Reccount('trul_obinv'), -1)) + CHR(13) + CHR(10)
|
|
|
|
STRTOFILE(lcMsg, tcLog, 1)
|
|
|
|
IF Used('actactan')
|
|
USE IN actactan
|
|
ENDIF
|
|
IF Used('tact')
|
|
USE IN tact
|
|
ENDIF
|
|
IF Used('rul_temp')
|
|
USE IN rul_temp
|
|
ENDIF
|
|
IF Used('trul')
|
|
USE IN trul
|
|
ENDIF
|
|
IF Used('rul_temp_obinv')
|
|
USE IN rul_temp_obinv
|
|
ENDIF
|
|
IF Used('trul_obinv')
|
|
USE IN trul_obinv
|
|
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
|