Histórico da Página
...
| Informações | ||
|---|---|---|
| ||
Parâmetros:ParamIXB[1] - Objeto - Sub-model MVC da tabela FKF para verificar os dados já informados nos campos; ParamIXB[2] - Numérico - Identificação da operação que está sendo executada (3-Inclusão/4-Alteração); ParamIXB[3] - Caracter - Identificação do título da tabela FK7; ParamIXB[4] - Caracter - Nome do alias da carteira do título (SE1 para contas a receber / SE2 para contas a pagar); ParamIXB[53] - Caracter - Chave do título na tabela SE1/SE2Numérico - Identificação da operação que está sendo executada (3-Inclusão/4-Alteração); Retorno:Deve ser retornada uma variável lógica: .T. = Não houve problemas na validação do ponto de entrada e a rotina deve seguir; .F. = Houve problemas na validação do ponto de entrada e a inclusão/alteração do título será bloqueada; |
...
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function F986Valid() Local oModel := ParamIxb[1] //Sub-model MVC da tabela FKF Local nOpc cAliasC := ParamIxb[2] //3-Inclusão/4-Alteração Local cIdDoc := ParamIxb[3] //ID do título na tabela FK7 Local cAliasC := ParamIxb[4] //SE1 para contas a receber / SE2 para contas a pagar) Local nOpc cChave := ParamIxb[53] //Chave do título3-Inclusão/4-Alteração Local lRet := .T. If cAliasC == "SE2" //Complemento de Título do Contas a Pagar If Alltrim(oModel:GetValue("FKFMASTER","FKF_NATREN")) $ "20001" .And. M->E2_IRRF > 0 lRet := .F. Help( ,,"F986Valid",,"Revise a Natureza de Rendimento, pois não deve conter imposto na carteira a pagar", 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, mas as substituir;
- Em caso de retorno .F. do ponto de entrada, é recomendável tratar uma mensagem a ser exibida em tela para o usuário, através da função HELP;
05. ASSUNTOS RELACIONADOS
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas