Histórico da Página

Exemplo 1 - Com MVC

#Include 'TOTVS.ch'
#Include 'FWMVCDEF.ch'
 
User Function MNTA5321()
     
    Local oModel5321
    Local lReturn := .T.
     
    If Type('PARAMIXB') == 'A'
 
		oModel5321 := PARAMIXB[1]
         
        If oModel5321:GetValue('MNTA532_TQX', 'TQX_CALMAX') == ' '
             
            lReturn := .F.
         
        EndIf
         
        If !lReturn
             
            MsgInfo("O campo TQX_CALMAX deve ser informado")
         
        EndIf
 
    EndIf
     
Return lReturn

Exemplo 2 - Sem MVC

#Include 'Protheus.ch'
 
User Function MNTA5321()
     
    Local lRet := .T.
 
    MsgInfo("Ponto de Entrada para validar a gravação.","P.E. MNTA5321")
     
Return lRet