Histórico da Página
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function F986Valid()
Local oModel := ParamIxb[1] //Sub-model MVC da tabela FKF
Local cAliasC := ParamIxb[2] //SE1 para contas a receber / SE2 para contas a pagar)
Local nOpc := ParamIxb[3] //3-Inclusão/4-Alteração
Local lBrowse := ParamIxb[4] //.T. para acesso via browse
Local lRet := .T.
Local nIrrf := 0
If cAliasC == "SE2" //Complemento de Título do Contas a Pagar
If lBrowse
nIrrf := SE2->E2_IRRF > 0
Else
nIrrf := M->E2_IRRF > 0
EndIf
If Alltrim(oModel:GetValue("FKFMASTER","FKF_NATREN")) $ "20001" .And. nIrrf
lRet := .F.
Help( ,,"F986Valid",,"Revise a Natureza de Rendimento informada.", 1, 0 )
EndIf
EndIf
Return lRet |
04. DEMAIS INFORMAÇÕES
A chamada desse ponto de entrada é realizada após as validações do fonte padrão, portanto através dele é possível complementar as validações existentes, não as substituir. Desta forma, se as validações do fonte padrão forem realizadas, mas as do ponto de entrada não forem, o processo não terá continuidade;
- Em caso de retorno .F. , é recomendável tratar uma mensagem a ser exibida em tela para que o usuário possa entender o ocorrido (vide exemplo acima com a função HELP);
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas