sync SVN r18050

This commit is contained in:
2026-08-23 21:23:35 +03:00
parent 019d241e50
commit 6b77d210ab
3 changed files with 65 additions and 8 deletions

View File

@@ -2639,6 +2639,15 @@ DEFINE CLASS frm_firme_nou AS _frmbase OF "_frm_base.vcx"
poRec.reg_comert = Alltrim(Nvl(loPartener.regcom, ""))
poRec.adresa = Alltrim(Nvl(loPartener.adresa, ""))
*** CAEN-ul si revizia se completeaza doar daca ANAF le-a trimis: raspunsul servit din
*** cache nu are cod_CAEN (nu e salvat in istoric_coduri_fiscale), iar revizia se poate
*** deduce doar din numarul de registru in format nou - altfel nu stergem ce era in fisa.
If Pemstatus(loPartener, "caen", 5) And !Empty(Alltrim(Nvl(loPartener.caen, "")))
poRec.caen = Alltrim(Nvl(loPartener.caen, ""))
Endif
If Pemstatus(loPartener, "caen_revizie", 5) And !Empty(Alltrim(Nvl(loPartener.caen_revizie, "")))
poRec.caen_revizie = Alltrim(Nvl(loPartener.caen_revizie, ""))
Endif
*** Judetul si localitatea se potrivesc peste nomenclator: denumirea de la ANAF poate fi
*** scrisa altfel decat in syn_vnom_*, iar formularul are nevoie de id-uri, nu de text.
lcNepotrivit = ""