Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA473005
linenumberstrue
#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} FA473005
Ponto de entrada localizado na pós validação do modelo de dados.


@type       Function
@author     TOTVS
@since      18/11/2020
@return     lRet
/*/
User Function FA473005
    
	Local oModel		:= FwModelActive()
    Local oModelDet		:= oModel:GetModel("CONDETAIL")
    Local lRet          := .T.

 	If oModelDet:GetValue("IG_DTEXTR") > dDATABASE
    	lRet          := .F.
      	Help("", 1, "FA473005",, "A data do titulo é superior a data do sistema", 1)            
	EndIf


Return lRet