sync SVN r18004/r18007: #6 editare factura emisa - pagina de articole
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
This commit is contained in:
141
utile/Teste/editare_factura/test_incarca_cursoare.prg
Normal file
141
utile/Teste/editare_factura/test_incarca_cursoare.prg
Normal file
@@ -0,0 +1,141 @@
|
||||
* 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
|
||||
Reference in New Issue
Block a user