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

sync SVN r18188

Browse Source
This commit is contained in:
Marius Mutu
2026-09-19 23:45:23 +03:00
parent d0c1174829
commit 43d5a93572
13 changed files with 23 additions and 1446 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
programe/ooperatii_comune.prg
View File

@@ -573,7 +573,7 @@ select p.acont || nvl2(p.cont_alt, ' - ' || p.cont_alt, '') || nvl2(p.cod, ' - '
************************** SFARSIT: verific_analitic *****************************
************************** INCEPUT: verificare_note_contabile *****************************
Procedure verificare_note_contabile
Parameters tcAct,tlVerificAnalitic,tlAlegPartener, tlNuVerificCont, tlFaraMesaj
Parameters tcAct,tlVerificAnalitic,tlAlegPartener, tlNuVerificCont, tlFaraMesaj, tnRecno
*!* 03.05.2013 : am adaugat lcIdFact, lcMesajIdFact
Local lcInMesaj, lcInMesajAcont, lcInMesajP, lcInMesajIreg, lcMesaj, lcInMesajPSters, lcAct, lnId_set, ll_return, lcIdFact, lcMesajIdFact
@@ -589,16 +589,17 @@ Procedure verificare_note_contabile
*!* 18.09.2026
*!* marius.mutu
*!* marcaj opt-in al randurilor cu campuri lipsa, doar daca apelantul are campul clipsa pe cursor
Local llMarcajLipsuri, llMesajConstruit, lcClipsaRand
Local llMarcajLipsuri, llMesajConstruit, lcClipsaRand, lcScopVerif
lcScopVerif = Iif(Vartype(tnRecno) = 'N' And tnRecno > 0, 'RECORD ' + Transform(tnRecno), 'ALL') && tnRecno: verific doar randul dat
llMarcajLipsuri = (Type(lcAct + '.clipsa') = 'C')
llMesajConstruit = .F.
If llMarcajLipsuri
Replace All clipsa With '' In (lcAct)
Replace &lcScopVerif clipsa With '' In (lcAct)
Endif
Select (lcAct)
lnNrNota=1
Scan For Suma <> 0
Scan &lcScopVerif For Suma <> 0
lcScd = Alltrim(Nvl(scd,''))
lcScc = Alltrim(Nvl(scc,''))
*!* 07.05.2013 : verific id_fact de pe notele de TVA devenit exigibil ( 4426 - 4428 si 4428 - 4427 ), id_factc
@@ -735,7 +736,7 @@ Procedure verificare_note_contabile
If lnSucces > 0
If Reccount('verif_part') > 0
Select (lcAct)
Scan For !Empty(Suma)
Scan &lcScopVerif For !Empty(Suma)
Scatter Name loCont
*!* contul poate fi gol (clasa 8/9 sau tlNuVerificCont) - Locate cu criteriu gol ar gasi primul rand din verif_part (SET EXACT OFF)
@@ -866,7 +867,7 @@ Procedure verificare_note_contabile
If lnSucces > 0
Select (lcAct)
Scan For !Empty(Suma)
Scan &lcScopVerif For !Empty(Suma)
Scatter Name loCont
*!* contul poate fi gol (clasa 8/9 sau tlNuVerificCont) - Locate cu criteriu gol ar gasi primul rand din plcontana (SET EXACT OFF)
If !Empty(loCont.scd)