Características do requisito

Linha de produto

Protheus

Segmento

Manufatura

Módulo

SIGAFIN - Financeiro

Rotina

Rotina

Nome técnico

FINA080

Baixa a Pagar Manual

Requisito / Story / Issue

DSERFINP-31006

Ponto de entrada

Descrição:

Ponto de entrada FI050POS, localizado no final da FINI050 permitindo que o retorno da rotina seja manipulado.

Eventos:

O ponto de entrada será executado ao final do recebimento da mensagem única de título a pagar (AccountPayableDocument).

Programa Fonte:

FINI050.PRW

Função:

FINI050 - adapter EAI para manipulação de título a pagar (AccountPayableDocument) utilizando o conceito de mensagem única.

Parâmetros:

ParamIXB[1] - Chave localização do Título - Corresponde ao X2_UNICO SE2. // E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA
ParamIXB[2] - Data da Operação. Se OP = 4 corresponderá a variável dDataBase. E quando operação é de cancelamento corresponderá ao campo SE2->E2_BAIXA .
ParamIXB[3] - Código da Operação - 4 - Baixa Manual ; 5 - Cancelamento/Exclusão de Baixa.

Retorno:

Será retornado um array com duas posições conforme tabela:

Nome

Tipo

Descrição

Obrigatório

nRet

Numérico

Taxa para conversão de outras moeda para moeda01.

Sim

Exemplo

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"


//---------------------------------------------------------------------------------------
/*/{Protheus.doc} F080TXIR
Ponto de Enntrada executado pela rotina FINA080 nas operações de: 
 - 4: Inclusão de Baixa; ou 
 - 5: Cancelamento e/ou Exclusão de Baixa.
Objetivo: Captar a taxa de conversão a ser usada exclusivamente no cálculo do IRRF.
Critérios: Somente operações originadas por EXECAUTO e títulos cujo campo SE2->E2_ORIGEM 
contenha a sequência "ESS" no conteúdo. 

@author Norberto M de Melo
@since 22/04/2020
@version 12
/*/
//---------------------------------------------------------------------------------------
User FUNCTION F080TXIR()
Local nRet := 0
Local cChaveSE2 := ParamIXB[1]  // E2_FILIAL + E2_PREFIXO + E2_NUM + E2_PARCELA + E2_TIPO + E2_FORNECE + E2_LOJA
Local dDataOp   := ParamIXB[2]  // Valor da Variável dDataBase qdo OP = 4 ou valor do campo SE2->E2_BAIXA qdo OP = 5
Local nOpc      := ParamIXB[3]  // 4 - Baixa Manual ; 5 - Cancelamento/Exclusão de Baixa

If !EMPTY(cChaveSE2) .and. !EMPTY(dDataOp) .and. !EMPTY(nOpc)
    Help("FINA080:F080TXIR",,"MESSAGE","PE: F080TXIR",;
        "Captação da Taxa de conversão para geração do título de IRRF.", 4, 0)
EndIf

nRet := 4

RETURN nRet
//---------------------------------------------------------------------------------------