Histórico da Página

...

Ele será executado nos momentos abaixo:

Rotina Contas a Pagar Títulos a pagar (FINA050):FINA050 -

Inclusão/alteração de títulos a pagar (botão Confirmar);
Acessando o botão "Complemento de Título" através do browse do Contas a Pagar (botão Confirmar);

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

title	ImportanteDados 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[

3

4] -

Caracter - Identificação do título da tabela FK7;

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

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

;

03. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código

language	java
theme	Midnight
title	FA986NF

#INCLUDE "PROTHEUS.CH"
  
User Function F986Valid()
 
    Local oModel  := ParamIxb[1]
Local nOpc //Sub-model MVC da tabela FKF
    Local cAliasC := ParamIxb[2] //SE1 para contas a receber / SE2 para contas a pagar)
    Local nOpc  cIdDoc  := ParamIxb[3] //3-Inclusão/4-Alteração
    Local cAliasClBrowse := ParamIxb[4] //.T. para acesso via browse
Local cChave    Local lRet    := .T.
    Local nIrrf   := ParamIxb[5]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 

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, 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);

05. ASSUNTOS RELACIONADOS

...

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

03. EXEMPLO DE UTILIZAÇÃO

05. ASSUNTOS RELACIONADOS