Árvore de páginas

Versões comparadas

Chave

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

...

Ao utilizar o ponto de entrada FA473005 podemos efetuar validações de usuário na rotina FI473Pos (pós validação do modelo de dados).

03. PARÂMETROS

        -Não há.


04. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Retorno lógico da validação da rotina FI473Pos

...

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		:= FWModelActiveFwModelActive()
    Local oModelDet		:= oModel:GetModel("CONDETAIL")
    Local lRet          := .T.
    
        
        
 	If oModelDet:GetValue("IG_DTEXTR") > dDATABASE
    	lRet        lRet  := .F.
      (MsgYesNo(	Help("", 1, "FA473005",, "A data do titulo é superior a data do sistema", deseja1) continuar ?  ", "FA473005"))
        
	EndIf

 
Return Return(lRet)