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[5] - Caracter - Chave do título na tabela SE1/SE2; 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; |
03. EXEMPLO DE UTILIZAÇÃO
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function F986Valid() Local oModel := ParamIxb[1] //Sub-model MVC da tabela FKF Local nOpc := 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 cChave := ParamIxb[5] //Chave do título 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
Não há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.
05. ASSUNTOS RELACIONADOS
...