sync SVN r18102

programe/coada_contabilizare_ef.prg

@@ -295,6 +295,28 @@ DEFINE CLASS CoadaContabilizareEF AS Custom
 		RETURN IIF(m.lnGestionabile > 0, 2, 1)
 	ENDPROC
 
+	*!* Cate randuri ajung efectiv in rulaje: articol ROA, gestiune (proprie sau implicita) si cont completate
+	PROCEDURE NrRanduriGestiune
+		LPARAMETERS tcAliasDetalii, tnGestiuneImplicita
+
+		LOCAL lcSelect, llGestImplicita, lnRanduri, lnRecno
+		lcSelect = SELECT()
+		lnRanduri = 0
+		llGestImplicita = !EMPTY(NVL(m.tnGestiuneImplicita, 0))
+		SELECT (m.tcAliasDetalii)
+		lnRecno = RECNO()
+		COUNT FOR NVL(in_stoc, 0) = 1 AND !EMPTY(NVL(id_articol, 0)) AND ;
+			(m.llGestImplicita OR !EMPTY(NVL(id_gestiune, 0))) AND ;
+			!EMPTY(ALLTRIM(NVL(cont, ''))) TO lnRanduri
+		TRY
+			GO m.lnRecno
+		CATCH
+			GO TOP
+		ENDTRY
+		SELECT (m.lcSelect)
+		RETURN m.lnRanduri
+	ENDPROC
+
 	*!* Textul antetului permanent afisat cat ruleaza coada
 	PROCEDURE AntetProgres
 		LPARAMETERS tnCurent, tnTotal, tcFurnizor, tcNrAct, tnSuma