sync SVN r18102

clase/anaf_efactura.vc2

@@ -9482,6 +9482,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 		*p: cconddif
 		*p: ccondlipsa
 		*p: cfiltrubaza
+		*p: ldoargestiune
 		*p: llotactiv
 		*p: lprimite
 		*p: nforecolorpartener
@@ -9504,6 +9505,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 		DoCreate = .T.
 		FontBold = .F.
 		Height = 600
+		ldoargestiune = .F.
 		llotactiv = .F.
 		lprimite = .T.
 		Name = "frm_import_efactura"
@@ -12034,7 +12036,7 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE actualizeazarandimportat
-		* reciteste jtotctva/diferenta din Registrul TVA pentru factura, fara sa mute pozitia curenta din crsFacturi
+		* reciteste jtotctva/diferenta din Registrul TVA si lasa crsFacturi pozitionat pe factura importata
 		LPARAMETERS tnIdEfactura
 		LOCAL lcView, lcSql, llSucces, lnSelect
 		PRIVATE pnIdEfactura
@@ -12045,6 +12047,10 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 			RETURN .F.
 		ENDIF
 		SELECT crsFacturi
+		* scrierea documentului lasa cursorul pe alt rand (Update-SQL pe crsFacturi), deci il repozitionez pe factura
+		IF Nvl(crsFacturi.id,0) <> m.pnIdEfactura
+			LOCATE FOR Nvl(id,0) = m.pnIdEfactura
+		ENDIF
 		IF Nvl(crsFacturi.id,0) <> m.pnIdEfactura
 			SELECT (m.lnSelect)
 			RETURN .F.
@@ -13014,7 +13020,8 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 		* tnOptiuneCoada: 1=Import contabilitate, 2=Import gestiune, trimis de coada ca sa nu mai intrebe
 		LPARAMETERS tnOptiuneCoada
 		LOCAL lnIdEFactura, llSucces
-		Local lcCont, lcFacturi_dublate, lcMesajFact_dubl, lcSerieAct, lnIdPart, lnNrAct, lnOptiune
+		Local lcCont, lcFacturi_dublate, lcMesajFact_dubl, lcSerieAct, lnGestImplicita, lnIdPart
+		Local lnNrAct, lnOptiune, loCoadaGest
 		
 		
 		lnIdEFactura = Nvl(crsFacturi.Id, 0)
@@ -13056,10 +13063,22 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 				RETURN
 			ENDIF
 		ENDIF
-		IF Vartype(m.tnOptiuneCoada) = 'N' And !Empty(m.tnOptiuneCoada)
-			lnOptiune = m.tnOptiuneCoada
+		* in aplicatia de gestiune ruta contabila nu e disponibila, deci nu se mai alege
+		IF Thisform.lDoarGestiune
+			lnOptiune = 2
+			IF Vartype(m.tnOptiuneCoada) <> 'N'
+				lnGestImplicita = IIF(Thisform.lPrimite, m.gnEFACTURA_ID_GESTIUNE_P, m.gnEFACTURA_ID_GESTIUNE_E)
+				loCoadaGest = Createobject('CoadaContabilizareEF')
+				IF loCoadaGest.NrRanduriGestiune('crsDetaliiFacturi', m.lnGestImplicita) = 0
+					AMESSAGEBOX('Nu exista articole gestionabile', 0+64, _screen.Caption)
+				ENDIF
+			ENDIF
 		ELSE
-			lnOptiune = xmenu('Import contabilitate;Import gestiune')
+			IF Vartype(m.tnOptiuneCoada) = 'N' And !Empty(m.tnOptiuneCoada)
+				lnOptiune = m.tnOptiuneCoada
+			ELSE
+				lnOptiune = xmenu('Import contabilitate;Import gestiune')
+			ENDIF
 		ENDIF
 		IF EMPTY(m.lnOptiune)
 			RETURN
@@ -14342,12 +14361,13 @@ DEFINE CLASS frm_import_efactura AS _frmbase OF "_frm_base.vcx"
 	ENDPROC
 
 	PROCEDURE Init
-		Lparameters tlPrimite
+		Lparameters tlPrimite, tlDoarGestiune
 		
 		Local lcFdoc, lcSql, llSucces, lnIdFdoc
 		Local lcValLot, loCoada
 		
 		This.lPrimite = m.tlPrimite
+		This.lDoarGestiune = (Vartype(m.tlDoarGestiune) = [L] And m.tlDoarGestiune)
 		This.nForeColorPartener = This.txtPartener.ForeColor
 		
 		* Fel document