romfast/comun
1
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:36 +03:00
parent b046046251
commit 896be7e9ca
5 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
programe/ofacturare_editare.prg
View File

@@ -203,7 +203,7 @@ FUNCTION IncarcaVanzareNota
ENDFUNC && IncarcaVanzareNota
*!* parametru: alias cu randurile notei (tact), cu campurile cod/nract/serie_act/dataact/sters
*!* parametru: alias cu randurile notei (tact), cu campurile cod/nract/serie_act/dataact si, optional, sters
*!* incearca toate combinatiile distincte (cod, nract, serie_act, dataact) din alias (sters=0) pana
*!* gaseste un rand in VANZARI; lasa workarea si pozitia curenta neschimbate, .F. cu tvanz gol daca nu gaseste
FUNCTION IncarcaVanzareDinNota
@@ -228,7 +228,12 @@ FUNCTION IncarcaVanzareDinNota
Use In tmp_triplete_pozvanz
ENDIF
*!* cod se ia tot din cursor, nu de pe randul curent - acesta poate fi la EOF dupa CalculeazaTotal
SELECT DISTINCT cod, nract, serie_act, dataact FROM (m.tcAliasAct) WHERE sters = 0 INTO CURSOR tmp_triplete_pozvanz READWRITE
*!* sters lipseste in aliasurile de nota noua (initializare solduri) - atunci nu se filtreaza
IF Type(m.tcAliasAct + '.sters') = 'U'
SELECT DISTINCT cod, nract, serie_act, dataact FROM (m.tcAliasAct) INTO CURSOR tmp_triplete_pozvanz READWRITE
ELSE
SELECT DISTINCT cod, nract, serie_act, dataact FROM (m.tcAliasAct) WHERE sters = 0 INTO CURSOR tmp_triplete_pozvanz READWRITE
ENDIF
SELECT tmp_triplete_pozvanz
SCAN