sync SVN r18185

Programe/oproceduri_import.prg

@@ -1520,6 +1520,9 @@ Procedure AplicaDefalcareBuget
 		If m.lnPoz > 1
 			Append Blank
 			Gather Memo Name loR
+			If Type('loR.nordine') = 'N'
+				Replace nordine With loR.nordine + m.lnPoz - 1
+			Endif
 		Endif
 		Replace scd With Alltrim(cDefalcare.cont), ascd With Alltrim(cDefalcare.acont), ;
 			suma With cDefalcare.suma, ngrupa With m.lnGrupa, npoz With m.lnPoz, csursa_f With 'B'
@@ -1531,6 +1534,25 @@ Procedure AplicaDefalcareBuget
 		Endif
 		Select cDefalcare
 	Endscan
+	OrdoneazaTactDupaNordine()
+Endproc
+
+* --------------------------------------------------------------------
+* Reface ordinea de afisare a tact pe nordine, fara sa schimbe Recno() - randurile unui grup ramin alaturate
+* --------------------------------------------------------------------
+Procedure OrdoneazaTactDupaNordine
+	Lparameters tcAlias
+	Local lcAlias, lcSelect
+
+	lcAlias = Evl(m.tcAlias, 'tact')
+	If !Used(m.lcAlias) Or Type(m.lcAlias + '.nordine') <> 'N'
+		Return
+	Endif
+	lcSelect = Select()
+	Select (m.lcAlias)
+	Index On Iif(nordine = 0, 2147483647, nordine) Tag ordtact Additive && randurile noi fara nordine raman la sfarsit
+	Set Order To Tag ordtact
+	Select (m.lcSelect)
 Endproc