Histórico da Página

#INCLUDE '"TOTVS.CH'"


/*/{Protheus.doc} FA473005
@type       Function
@author     TOTVS
@since      18 FA473005
Ponto de entrada localizado na pós validação do modelo de dados.

@type       Function
@author     TOTVS
@since      18/11/2020
@return     lRet@return     lRet
/*/

User Function FA473005
    Local oModel        := FWModelActive()
    Local oModelDet     := oModelUser Function FA473005
    
	Local oModel		:= FwModelActive()
    Local oModelDet		:= oModel:GetModel("CONDETAIL")
    Local lRet              Local lRet          :=  .T.
    
        
        If oModelDet
 	If oModelDet:GetValue("IG_DTEXTR") > dDATABASE
             Help > dDATABASE
    	lRet          := .F.
      	Help("", 1, "FA473005",,"A data do titulo é superior a data do sistema "A data do titulo é superior a data do sistema", 1)            
        EndIf            
	EndIf


  Return(lRet)Return lRet