Histórico da Página

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH" 
#INCLUDE "FWEVENTVIEWCONSTS.CH" 
#INCLUDE 'FINA887.CH'

Function F887FINAUTO()
    Local oMdlTab
    Local cMsj := "Recibo borrado con éxito."
	Local cSerie := "   "
	Local cRecibo := "COMP03"

	oMdlTab := FwLoadModel("FINA887")
	If FJT->(MsSeek(xFilial("FJT")+cSerie+cRecibo,.T.))
		oMdlTab:SetOperation(MODEL_OPERATION_UPDATE)
		oMdlTab:Activate()

 		Pergunte("FIN998",.F.)
//Contabilidad
		oMdlTab:SetValue('FJT_MASTER', "ASIENTO"  	  , MV_PAR01)1)    // ¿Muestra Muestra Asientos. ?1- Si, 2 - No.
      
		oMdlTab:SetValue('FJT_MASTER', "AGRUPA" 	    , MV_PAR021)    // ¿AgrupaAgrupa Asientos. ?1- Si, 2 - No.   
     
		oMdlTab:SetValue('FJT_MASTER', "ONLINE" 	    , MV_PAR031)    //¿Asientos Asientos Online ? 	. 1- Si, 2 - No.   

		oMdlTab:SetValue('FJT_MASTER', "FJT_CANCEL" , "1")	
		// Motivo de cancelación - Solo aplica para México
		oMdlTab:SetValue('SEL_DETAIL',"EL_TIPAGRO" ,"02")
					
		If oMdlTab:VldData()
			oMdlTab:CommitData()
		Endif

		aError := oMdlTab:GetErrorMessage()
		If alltrim(aError[6]) <> ""
			cMsj := aError[6] 
		Endif
		CONOUT("Mensaje de proceso: "+cMsj)    //Solución: 
		
		oMdlTab:DeActivate()
	Endif

Return