Histórico da Página

...

Ele será executado nos momentos abaixo:

1. Rotina Contas a Pagar Títulos a pagar (FINA050):FINA050 -
   1. Inclusão/alteração de títulos a pagar (botão Confirmar);
   2. Acesso através do botão "Complemento de Título" (botão Confirmar);
   1. Rotina Contas a Pagar Títulos a pagar (FINA040):
      FINA040 -
      1. Inclusão/alteração de títulos a receber (botão Confirmar);
      2. Acesso através do  "Complemento de Título" (botão Confirmar);

   Informações
   title Importante
   Parâmetros: ParamIXB[1] - Objeto - Sub-model MVC da tabela FKF para verificar os dados já informados nos campos; ParamIXB[2] - Caracter - Nome do alias da carteira do título (SE1 para contas a receber / SE2 para contas a pagar); ParamIXB[3] - Numérico - Identificação da operação que está sendo executada (3-Inclusão/4-Alteração); ParamIXB[4] - Lógico - Identifica se o acesso ao complemento do título foi pelo botão do browse (.T. para acesso via browse) 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
   language java theme Midnight title FA986NF
   #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 cAliasC == "SE2" //Complemento de Título do Contas a PagarEndIf 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

   ...