Histórico da Página

#Include 'Protheus.ch'
User Function FINM010()
Local aParam     := PARAMIXB
Local xRet       := .T.
Local oObj       := ''
Local cIdPonto   := ''
Local cIdModel   := ''
Local oFK1 := Nil
Local oFK5 := Nil
If aParam <> NIL
	oObj       := aParam[1]
	cIdPonto   := aParam[2]
	cIdModel   := aParam[3]
           
	If cIdPonto == 'MODELPOS'
		oFK1:= oObj:GetModel('FK1DETAIL')
		oFK1:SetValue('FK1_HISTOR',  " TESTE DO PONTO DE ENTRADA MVC FINM010 " )
			oFK5:= oObj:GetModel('FK5DETAIL')
			oFK5:SetValue('FK5_HISTOR',  " TESTE DO PONTO DE ENTRADA MVC FINM010 " ) 
	             
       ElseIf cIdPonto == 'MODELCOMMITTTS'
			SE5->E5_HISTOR := " TESTE DO PONTO DE ENTRADA MVC FINM010 "  
       EndIf      
      
EndIf
 
Return xRet