romfast/roacont
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18023

Browse Source
This commit is contained in:
Marius Mutu
2026-08-20 18:14:34 +03:00
parent 0833bd773d
commit 3c20ef1034
2 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Programe/oproceduri_import.prg
View File

@@ -4560,13 +4560,15 @@ Procedure CompleteazaParteneriROA
lcSelect = Select() lcSelect = Select()
lcSqlPart = [select id_part, cod_fiscal, denumire from nom_parteneri where sters = 0 and inactiv = 0] lcSqlPart = [select id_part, cod_fiscal, denumire from nom_parteneri where sters = 0 and inactiv = 0]
llSucces = goExecutor.oExecuta(m.lcSqlPart, 'cParteneriROA') llSucces = goExecutor.oExecuta(m.lcSqlPart, 'cParteneriSql')
If !m.llSucces If !m.llSucces
Return m.llSucces Return m.llSucces
Endif Endif
Select id_part, cod_fiscal, denumire, NormalizeazaCUI(cod_fiscal) As cui_norm From cParteneriROA Into Cursor cParteneriROA Readwrite *!* 20.08.2026 sursa nu poate fi si destinatie la INTO CURSOR (eroare 24 - alias deja folosit)
Select id_part, cod_fiscal, denumire, Padr(NormalizeazaCUI(cod_fiscal), Len(cod_fiscal), ' ') As cui_norm From cParteneriSql Into Cursor cParteneriROA Readwrite
Use In (Select('cParteneriSql'))
Index On cui_norm Tag cuinorm Index On cui_norm Tag cuinorm
lcAdreseParteneri = [select id_adresa, id_part, localitate, id_loc, judet, id_judet, tara, id_tara from vadrese_parteneri] lcAdreseParteneri = [select id_adresa, id_part, localitate, id_loc, judet, id_judet, tara, id_tara from vadrese_parteneri]
@@ -4662,7 +4664,7 @@ Procedure CompleteazaParteneriROA
Select (m.tcCursorParteneri) Select (m.tcCursorParteneri)
Replace id_part With m.pnIdPart Replace id_part With m.pnIdPart
INSERT INTO cParteneriROA (id_part, cod_fiscal, denumire) VALUES (m.pnIdPart, m.lcCod_fiscal, m.lcDenumire) INSERT INTO cParteneriROA (id_part, cod_fiscal, denumire, cui_norm) VALUES (m.pnIdPart, m.lcCod_fiscal, m.lcDenumire, NormalizeazaCUI(m.lcCod_fiscal))
If m.llCallBack If m.llCallBack
m.toCallBackForm.trace('Client nou ' + Alltrim(denumire) + ' CUI: ' + Alltrim(cod_fiscal) + ' ID: ' + Alltrim(Transform(id_part))) m.toCallBackForm.trace('Client nou ' + Alltrim(denumire) + ' CUI: ' + Alltrim(cod_fiscal) + ' ID: ' + Alltrim(Transform(id_part)))

7
changelog_roacont.txt
View File

@@ -1,4 +1,11 @@
<!-- <!--
20/08/2026
ROACONT - 2.11.72
:eroare:
Corectare eroare la Initializare import balanta din xlsx.
-->
<!--
04/08/2026 04/08/2026
ROACONT - 2.11.71 ROACONT - 2.11.71