Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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. Acessando o botão "Complemento de Título" através do browse do Contas a Pagar (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. Acessando o botão "Complemento de Título" através do browse do Contas a Receber (botão Confirmar);

    Informações
    titleImportanteDados Técnicos
    • 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;

    03. EXEMPLO DE UTILIZAÇÃO

    ...

    Bloco de código
    languagejava
    themeMidnight
    titleFA986NF
    #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. M->E2_IRRF > 0
     nIrrf
                lRet := .F.
                Help( ,,"F986Valid",,"Revise a Natureza de Rendimento informada.", pois1, não0 deve)
     conter imposto na carteira a pagar", 1, 0 )EndIf
        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

      substituir

      do ponto de entrada não forem, o processo não terá continuidade;

    • Em caso de retorno .F. do ponto de entrada , é recomendável tratar uma mensagem a ser exibida em tela para que o usuário , através da possa entender o ocorrido (vide exemplo acima com a função HELP);

    05. ASSUNTOS RELACIONADOS

    ...