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

sync SVN r18142

Browse Source
This commit is contained in:
Marius Mutu
2026-09-16 15:18:07 +03:00
parent 97ac068474
commit 257721aebb
5 changed files with 25 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
AGENTS.md
View File

@@ -16,4 +16,5 @@ skill-ului.
- garzi pe valori NULL din Oracle in VFP -> skill `roa-vfp-null-guards` - garzi pe valori NULL din Oracle in VFP -> skill `roa-vfp-null-guards`
- `GO` pe un `Recno()` capturat sau primit ca parametru -> skill `roa-vfp-go-recno` - `GO` pe un `Recno()` capturat sau primit ca parametru -> skill `roa-vfp-go-recno`
- procedura PL/SQL cu `SELECT ... INTO` apelata din VFP (randuri pierdute tacut) -> skill `roa-oracle-sqlexec-no-data` - procedura PL/SQL cu `SELECT ... INTO` apelata din VFP (randuri pierdute tacut) -> skill `roa-oracle-sqlexec-no-data`
- inrolezi un calculator nou sau un proiect nou in fluxul git-text / expui skill-urile pe masina / aplici backstop-ul de rutare -> skill `roa-onboarding`
<!-- roa-skills:end --> <!-- roa-skills:end -->

1
CLAUDE.md
View File

@@ -310,4 +310,5 @@ skill-ului.
- garzi pe valori NULL din Oracle in VFP -> skill `roa-vfp-null-guards` - garzi pe valori NULL din Oracle in VFP -> skill `roa-vfp-null-guards`
- `GO` pe un `Recno()` capturat sau primit ca parametru -> skill `roa-vfp-go-recno` - `GO` pe un `Recno()` capturat sau primit ca parametru -> skill `roa-vfp-go-recno`
- procedura PL/SQL cu `SELECT ... INTO` apelata din VFP (randuri pierdute tacut) -> skill `roa-oracle-sqlexec-no-data` - procedura PL/SQL cu `SELECT ... INTO` apelata din VFP (randuri pierdute tacut) -> skill `roa-oracle-sqlexec-no-data`
- inrolezi un calculator nou sau un proiect nou in fluxul git-text / expui skill-urile pe masina / aplici backstop-ul de rutare -> skill `roa-onboarding`
<!-- roa-skills:end --> <!-- roa-skills:end -->

12
Programe/oproceduri_import.prg
View File

@@ -501,7 +501,7 @@ Define Class ExtrasBanca As Custom
* Solduri facturi deschise (401/4111 + extinderile 404/461/462; 419/4091-4094 doar pentru avans existent) * Solduri facturi deschise (401/4111 + extinderile 404/461/462; 419/4091-4094 doar pentru avans existent)
If This.lFactura If This.lFactura
lcSqlSolduri = [select i.id_part, i.cont, i.acont, i.id_fact, max(i.nract) nract, min(i.dataact) dataact, ] + ; lcSqlSolduri = [select i.id_part, i.cont, Nvl(i.acont, ' ') acont, i.id_fact, max(i.nract) nract, min(i.dataact) dataact, ] + ;
[max(i.id_valuta) id_valuta, sum(i.precdeb+i.debit-i.preccred-i.credit) sold ] + ; [max(i.id_valuta) id_valuta, sum(i.precdeb+i.debit-i.preccred-i.credit) sold ] + ;
[from ireg_parteneri i where i.an = ?gnAn and i.luna = ?gnLuna ] + ; [from ireg_parteneri i where i.an = ?gnAn and i.luna = ?gnLuna ] + ;
[and i.cont in ('401','4111','419','4091','4092','4093','4094','404','461','462') ] + ; [and i.cont in ('401','4111','419','4091','4092','4093','4094','404','461','462') ] + ;
@@ -522,7 +522,7 @@ Define Class ExtrasBanca As Custom
Index On id_part Tag id_part Index On id_part Tag id_part
Use In (Select("cSolduriBrut")) Use In (Select("cSolduriBrut"))
Endif Endif
Create Cursor cAlocTemp (nrec I, npoz I, id_fact I, nract I, cont C(4), acont C(20), suma N(15, 2), csursa C(1)) Create Cursor cAlocTemp (nrec I, npoz I, id_fact I, nract I, cont C(4) Null, acont C(20) Null, suma N(15, 2), csursa C(1))
Endif Endif
* Caut/creez parteneri * Caut/creez parteneri
@@ -1251,8 +1251,8 @@ Procedure AplicaAlocareFactura
lnAlocat = Min(m.tnRest, ramas) lnAlocat = Min(m.tnRest, ramas)
lnIdFact = id_fact lnIdFact = id_fact
lnNract = nract lnNract = nract
lcCont = Alltrim(Cont) lcCont = Alltrim(Nvl(Cont, ''))
lcAcont = acont lcAcont = Alltrim(Nvl(acont, ''))
tnNpoz = m.tnNpoz + 1 tnNpoz = m.tnNpoz + 1
* campurile sursa (cSolduriFact) copiate in variabile - Insert Into rezolva numele necalificate pe cursorul tinta, nu pe cel curent * campurile sursa (cSolduriFact) copiate in variabile - Insert Into rezolva numele necalificate pe cursorul tinta, nu pe cel curent
Insert Into cAlocTemp (nrec, npoz, id_fact, nract, cont, acont, suma, csursa) ; Insert Into cAlocTemp (nrec, npoz, id_fact, nract, cont, acont, suma, csursa) ;
@@ -2914,8 +2914,8 @@ Define Class ExtrasBanca_General As ExtrasBanca
USE IN (SELECT('cXLSXTmp')) USE IN (SELECT('cXLSXTmp'))
UPDATE C_TMP_I SET data_v = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_v)))) WHERE !('.'$data_v OR '/'$data_v) UPDATE C_TMP_I SET data_v = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_v)))) WHERE !('.'$data_v OR '/'$data_v OR '-'$data_v)
UPDATE C_TMP_I SET data_t = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_t)))) WHERE !('.'$data_v OR '/'$data_t) UPDATE C_TMP_I SET data_t = TRANSFORM(ExcelSerialNumber2Date(INT(VAL(data_t)))) WHERE !('.'$data_t OR '/'$data_t OR '-'$data_t)
Select C_TMP_I Select C_TMP_I
Scan For !Empty(data_v) Scan For !Empty(data_v)
Select c_iex Select c_iex

16
changelog_roacont.txt
View File

@@ -1,3 +1,19 @@
<!--
16/09/2026
ROACONT - 2.11.79
:modificare:
Registru de banca in valuta. S-au corectat totalurile zilnice in raport.
-->
<!--
16/09/2026
ROACONT - 2.11.78
:eroare:
Import extrase curieri. S-a corectat o eroare la import - cont analitic null si s-a tratat data din borderou in format aaaa-ll-zz.
-->
<!-- <!--
15/09/2026 15/09/2026
ROACONT - 2.11.77 ROACONT - 2.11.77

2
roacont.pj2
View File

@@ -25,7 +25,7 @@ _LegalTrademark = ""
_ProductName = "ROA - Financiar Contabilitate" _ProductName = "ROA - Financiar Contabilitate"
_MajorVer = "2" _MajorVer = "2"
_MinorVer = "11" _MinorVer = "11"
_Revision = "77" _Revision = "79"
_LanguageID = "Romana" _LanguageID = "Romana"
_AutoIncrement = "0" _AutoIncrement = "0"
*</DevInfo> *</DevInfo>