Marius Mutu
8e022d332e
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
173 lines
8.7 KiB
Plaintext
173 lines
8.7 KiB
Plaintext
* descopera_caz_test.prg
|
|
* Alege la rulare documentul de test pentru suitele de editare factura, dupa PROPRIETATEA ceruta de
|
|
* asertie, nu dupa identitatea lui. VANZARI.COD se realoca la fiecare salvare a notei
|
|
* (pack_contafin.finalizeaza_modificare_nota -> pack_facturare.actualizeaza_vanzari), deci orice
|
|
* ancorare pe cod moare tacut; ID_VANZARE ramane, dar nici el nu e cunoscut dinainte.
|
|
*
|
|
* *!* 06.09.2026
|
|
* *!* marius.mutu
|
|
* *!* Cazurile care aleg documente cu articole reale exclud notele cu un rand activ pe un cont
|
|
* *!* care cere simbol analitic si nu il are; altfel verificare_note_contabile respinge salvarea.
|
|
*
|
|
* DescoperaCazTest(<nume caz>, <alias destinatie>) -> .T. daca a gasit un document, lasand in alias
|
|
* un singur rand cu cod, an, luna, id_vanzare, tip, nlin (plus nract/serie_act/dataact/nract_fara
|
|
* pentru cazul de coliziune). Pe .F. aliasul ramane cu 0 randuri.
|
|
*
|
|
* Interogarile merg pe VACT_TOT / VRUL_TOT / VANZARI / VANZARI_DETALII, adica pe alt drum decat
|
|
* functiile verificate (IncarcaVanzareNota, IncarcaVanzareDinNota, IncarcaArticoleFactura): valorile
|
|
* asteptate raman independente de codul aflat sub test.
|
|
*
|
|
* Cazuri:
|
|
* FACTURA_ARTICOLE factura (tip=1) activa, cu linii active, a carei nota are PRIMUL rand
|
|
* (min id_act) pe acelasi (nract, serie_act, dataact) ca vanzarea
|
|
* NEFACTURA_ARTICOLE la fel, dar tip <> 1 (detectia merge pe orice tip de document)
|
|
* FARA_RULAJE document cu linii active si ZERO rulaje active pe (cod, an, luna)
|
|
* PRIM_RAND_ORB nota al carei PRIM rand NU duce la vanzare, dar un triplet ulterior da
|
|
* COLIZIUNE_COD la fel, plus cod cu 2+ randuri active in VANZARI si un nract din nota
|
|
* fara corespondent in VANZARI
|
|
* NOTA_FARA_VANZARI nota activa fara rand in VANZARI pe niciun triplet
|
|
|
|
|
|
FUNCTION DescoperaCazTest
|
|
LPARAMETERS tcCaz, tcAlias
|
|
|
|
LOCAL lcAlias, lcNlin, lcPrim, lcJoinP, lcTriplete, lcJoinT, lcOrb, lcNractFara, lcFiltruAnalitic, lcSql, lnSucces
|
|
|
|
lcAlias = IIF(Type('tcAlias') = 'C' AND !Empty(m.tcAlias), m.tcAlias, 'crscaz')
|
|
|
|
lcNlin = [(select count(*) from vanzari_detalii d where d.id_vanzare=v.id_vanzare and d.sters=0)]
|
|
|
|
*!* p = primul rand al fiecarei note (min id_act), adica exact randul pe care cade un Go Top In tact
|
|
lcPrim = [(select n.cod, n.an, n.luna, x.nract, x.serie_act, x.dataact from ] + ;
|
|
[(select cod, an, luna, min(id_act) idmin from vact_tot where sters=0 group by cod, an, luna) n ] + ;
|
|
[join vact_tot x on x.id_act = n.idmin) p]
|
|
|
|
*!* p = toate tripletele distincte ale notei, ca in IncarcaVanzareDinNota
|
|
lcTriplete = [(select distinct cod, an, luna, nract, serie_act, dataact from vact_tot where sters=0) p]
|
|
|
|
lcJoinP = [join vanzari v on v.cod=p.cod and nvl(v.numar_act,-1)=nvl(p.nract,-1) ] + ;
|
|
[and nvl(v.serie_act,' ')=nvl(p.serie_act,' ') and trunc(v.data_act)=trunc(p.dataact) and v.sters=0]
|
|
|
|
*!* nota la care primul rand nu se potriveste cu niciun rand din VANZARI
|
|
lcOrb = [not exists (select 1 from ] + ;
|
|
[(select cod, an, luna, min(id_act) idmin from vact_tot where sters=0 group by cod, an, luna) n ] + ;
|
|
[join vact_tot x on x.id_act=n.idmin ] + ;
|
|
[join vanzari w on w.cod=x.cod and nvl(w.numar_act,-1)=nvl(x.nract,-1) ] + ;
|
|
[and nvl(w.serie_act,' ')=nvl(x.serie_act,' ') and trunc(w.data_act)=trunc(x.dataact) and w.sters=0 ] + ;
|
|
[where n.cod=p.cod and n.an=p.an and n.luna=p.luna)]
|
|
|
|
*!* tripletul din nota care NU are corespondent in VANZARI - cazul negativ al filtrului compus;
|
|
*!* cele trei coloane trebuie luate de pe ACELASI rand, de aceea "keep (dense_rank first ...)"
|
|
lcNractFara = [(select min(y.<COL>) keep (dense_rank first order by y.nract) from ] + ;
|
|
[(select distinct cod, an, luna, nract, serie_act, dataact from vact_tot where sters=0) y ] + ;
|
|
[where y.cod=p.cod and y.an=p.an and y.luna=p.luna and not exists ] + ;
|
|
[(select 1 from vanzari w where w.cod=y.cod and nvl(w.numar_act,-1)=nvl(y.nract,-1) ] + ;
|
|
[and nvl(w.serie_act,' ')=nvl(y.serie_act,' ') and trunc(w.data_act)=trunc(y.dataact) and w.sters=0))]
|
|
|
|
*!* verificare_note_contabile respinge salvarea unei note cu cont ce cere analitic si nu il are
|
|
lcFiltruAnalitic = [not exists (select 1 from vact_tot x where x.cod=p.cod and x.an=p.an and x.luna=p.luna ] + ;
|
|
[and x.sters=0 and nvl(x.suma,0)<>0 and ( ] + ;
|
|
[(x.ascd is null and exists (select 1 from vplcont_analitic pa where pa.cont=x.scd and pa.an=?gnAn and pa.inactiv=0)) ] + ;
|
|
[or (x.ascc is null and exists (select 1 from vplcont_analitic pa where pa.cont=x.scc and pa.an=?gnAn and pa.inactiv=0)) ))]
|
|
|
|
DO CASE
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'FACTURA_ARTICOLE'
|
|
lcSql = [select * from (select v.id_vanzare, p.cod, p.an, p.luna, v.tip, ] + m.lcNlin + [ nlin from ] + ;
|
|
m.lcPrim + [ ] + m.lcJoinP + [ where v.tip = 1 and ] + m.lcNlin + [ > 0 and ] + m.lcFiltruAnalitic + [ ] + ;
|
|
[order by v.id_vanzare desc) where rownum = 1]
|
|
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'NEFACTURA_ARTICOLE'
|
|
lcSql = [select * from (select v.id_vanzare, p.cod, p.an, p.luna, v.tip, ] + m.lcNlin + [ nlin from ] + ;
|
|
m.lcPrim + [ ] + m.lcJoinP + [ where v.tip <> 1 and ] + m.lcNlin + [ > 0 and ] + m.lcFiltruAnalitic + [ ] + ;
|
|
[order by v.id_vanzare desc) where rownum = 1]
|
|
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'FARA_RULAJE'
|
|
lcSql = [select * from (select v.id_vanzare, p.cod, p.an, p.luna, v.tip, ] + m.lcNlin + [ nlin from ] + ;
|
|
m.lcPrim + [ ] + m.lcJoinP + [ where ] + m.lcNlin + [ > 0 ] + ;
|
|
[and not exists (select 1 from vrul_tot r where r.cod=p.cod and r.an=p.an and r.luna=p.luna and r.sters=0) ] + ;
|
|
[and not exists (select 1 from vrul_obinv_tot r where r.cod=p.cod and r.an=p.an and r.luna=p.luna and r.sters=0) ] + ;
|
|
[and ] + m.lcFiltruAnalitic + [ ] + ;
|
|
[order by v.id_vanzare desc) where rownum = 1]
|
|
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'PRIM_RAND_ORB'
|
|
lcSql = [select * from (select v.id_vanzare, p.cod, p.an, p.luna, v.tip, ] + m.lcNlin + [ nlin from ] + ;
|
|
m.lcTriplete + [ ] + m.lcJoinP + [ where ] + m.lcNlin + [ > 0 and ] + m.lcOrb + [ and ] + m.lcFiltruAnalitic + [ ] + ;
|
|
[order by v.id_vanzare desc) where rownum = 1]
|
|
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'COLIZIUNE_COD'
|
|
lcSql = [select * from (select v.id_vanzare, p.cod, p.an, p.luna, v.tip, ] + m.lcNlin + [ nlin, ] + ;
|
|
[p.nract, p.serie_act, p.dataact, ] + ;
|
|
Strtran(m.lcNractFara, [<COL>], [nract]) + [ nract_fara, ] + ;
|
|
Strtran(m.lcNractFara, [<COL>], [serie_act]) + [ serie_fara, ] + ;
|
|
Strtran(m.lcNractFara, [<COL>], [dataact]) + [ data_fara from ] + ;
|
|
m.lcTriplete + [ ] + m.lcJoinP + [ where ] + m.lcNlin + [ > 0 and ] + m.lcOrb + [ ] + ;
|
|
[and (select count(distinct v2.id_vanzare) from vanzari v2 where v2.cod=p.cod and v2.sters=0) >= 2 ] + ;
|
|
[and ] + Strtran(m.lcNractFara, [<COL>], [nract]) + [ is not null ] + ;
|
|
[and ] + m.lcFiltruAnalitic + [ ] + ;
|
|
[order by v.id_vanzare desc) where rownum = 1]
|
|
|
|
CASE Upper(Alltrim(m.tcCaz)) == 'NOTA_FARA_VANZARI'
|
|
lcSql = [select * from (select p.cod, p.an, p.luna, 0 id_vanzare, 0 tip, 0 nlin from ] + ;
|
|
[(select cod, an, luna from vact_tot where sters=0 and cod > 0 group by cod, an, luna) p ] + ;
|
|
[where not exists (select 1 from vact_tot x ] + ;
|
|
[join vanzari v on v.cod=x.cod and nvl(v.numar_act,-1)=nvl(x.nract,-1) ] + ;
|
|
[and nvl(v.serie_act,' ')=nvl(x.serie_act,' ') and trunc(v.data_act)=trunc(x.dataact) and v.sters=0 ] + ;
|
|
[where x.cod=p.cod and x.an=p.an and x.luna=p.luna and x.sters=0) ] + ;
|
|
[order by p.an desc, p.luna desc, p.cod desc) where rownum = 1]
|
|
|
|
OTHERWISE
|
|
CreeazaCursorCazGol(m.lcAlias)
|
|
RETURN .F.
|
|
ENDCASE
|
|
|
|
IF Used('v_caz')
|
|
Use In v_caz
|
|
ENDIF
|
|
|
|
lnSucces = goExecutor.oExecute(m.lcSql, [v_caz])
|
|
goExecutor.oReset()
|
|
|
|
IF m.lnSucces < 0
|
|
CreeazaCursorCazGol(m.lcAlias)
|
|
RETURN .F.
|
|
ENDIF
|
|
|
|
IF Used(m.lcAlias)
|
|
Use In (m.lcAlias)
|
|
ENDIF
|
|
SELECT * FROM v_caz INTO CURSOR (m.lcAlias) READWRITE
|
|
USE IN v_caz
|
|
|
|
RETURN (Reccount(m.lcAlias) = 1)
|
|
ENDFUNC && DescoperaCazTest
|
|
|
|
|
|
FUNCTION CreeazaCursorCazGol
|
|
LPARAMETERS tcAlias
|
|
|
|
LOCAL lcAlias
|
|
lcAlias = IIF(Type('tcAlias') = 'C' AND !Empty(m.tcAlias), m.tcAlias, 'crscaz')
|
|
|
|
IF Used(m.lcAlias)
|
|
Use In (m.lcAlias)
|
|
ENDIF
|
|
CREATE CURSOR (m.lcAlias) (id_vanzare I, cod I, an I, luna I, tip I, nlin I)
|
|
ENDFUNC && CreeazaCursorCazGol
|
|
|
|
|
|
*!* descrierea pe o linie a cazului descoperit, pentru log
|
|
FUNCTION DescrieCazTest
|
|
LPARAMETERS tcCaz, tcAlias, tlGasit
|
|
|
|
IF !m.tlGasit
|
|
RETURN ' ' + Padr(m.tcCaz, 20) + ' NEGASIT - niciun document nu satisface conditia'
|
|
ENDIF
|
|
|
|
RETURN ' ' + Padr(m.tcCaz, 20) + ' cod=' + Transform(Evaluate(m.tcAlias + '.cod')) + ;
|
|
' an=' + Transform(Evaluate(m.tcAlias + '.an')) + ;
|
|
' luna=' + Transform(Evaluate(m.tcAlias + '.luna')) + ;
|
|
' id_vanzare=' + Transform(Evaluate(m.tcAlias + '.id_vanzare')) + ;
|
|
' tip=' + Transform(Evaluate(m.tcAlias + '.tip')) + ;
|
|
' linii=' + Transform(Evaluate(m.tcAlias + '.nlin'))
|
|
ENDFUNC && DescrieCazTest
|