romfast/roaauto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r17992: devizul auto scrie si datele de incasare in VANZARI

Browse Source 
factureaza_deviz construieste lcListaIncasare (tip|valoare|id_casa, ca in ofacturare) si
cheama pack_facturare.scrie_incasari(..., 'D') intre oscrie_in_fisiere si scrie_in_vanzari.
Ramura 'D' doar actualizeaza denormalizarea, fara apel la scrie_incasare2, deci randul din
ACT nu se dubleaza. Pana acum facturile emise din devize auto (tip=-12) ramaneau cu
SERIE_INCASAT/NR_INCASAT/SUMA_INCASAT/TIP_INCASAT necompletate.
This commit is contained in:
Marius Mutu
2026-08-07 13:18:53 +03:00
parent 2e6b1b26e5
commit c4998288ae
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Programe/oproceduri_devize.prg
View File

@@ -1268,6 +1268,36 @@ Procedure factureaza_deviz
If lnSucces >= 0
lnSucces = oscrie_in_fisiere(0,.F.,.T.) && ?
If lnSucces >= 0
lcListaIncasare = ''
If Inlist(poDate.ntip_incasare, 11, 2, 3) && 11 = CHITANTA, 2 = BON FISCAL, 3 = POS/Card
Do Case
Case poDate.ntip_incasare = 11 && chitanta
If poDate.incasat <> 0
lcListaIncasare = lcListaIncasare + ['11|] + Alltrim(Str(poDate.incasat,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
Endif
Case poDate.ntip_incasare = 3 && POS/Card
If poDate.incasatCARD <> 0
lcListaIncasare = lcListaIncasare + ['3|] + Alltrim(Str(poDate.incasatCARD,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
Endif
Otherwise && bon fiscal
If poDate.incasat <> 0
lcListaIncasare = lcListaIncasare + ['2|] + Alltrim(Str(poDate.incasat,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
Endif
If poDate.incasatCARD <> 0
lcListaIncasare = lcListaIncasare + ['3|] + Alltrim(Str(poDate.incasatCARD,18,gnPc)) + [|] + Alltrim(Str(poDate.id_casa)) + [;']
Endif
Endcase
Else
lcListaIncasare = [NULL]
Endif
If lcListaIncasare <> [NULL]
lcSql = [begin ] + gcS + [.pack_facturare.scrie_incasari('] + Alltrim(Nvl(poDate.serie_chit,[])) + [',] + ;
Alltrim(Str(Nvl(poDate.nr_incasare,0))) + [,] + lcListaIncasare + [,NULL,'D'); end;]
lnSucces = goExecutor.oExecute(lcSql)
If lnSucces < 0
amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare")
Endif
Endif
*!* modificare v 2.0.47 : am adaugat lnIdSet la pack_devize.actualizeaza_deviz
lcSql = [begin ] + gcS + [.pack_facturare.scrie_in_vanzari(0,] + ;
IIF(Isnull(poDate.id_delegat),[NULL],Alltrim(Str(poDate.id_delegat))) + [,] + ;