Histórico da Página

...

Linha de produto

Protheus

Segmento

ManufaturaServiços

Módulo

SIGAFIN - Financeiro

Rotina

Rotina	Nome técnico
FINA080	Baixa a Pagar Manual

Requisito / Story / Issue

DSERFINP-31006

...

Descrição:

Ponto de entrada para se informar taxa de cotação a ser utilizada no momento de baixa de Serviço, para uso no título de IR.

Eventos:

Ponto de Enntrada Entrada 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->E2E2_ORIGEM
contenha a sequência "ESS" no conteúdo.

Programa Fonte:

FINA080 - Baixa a Pagar Manual

Função:

FINA080

Parâmetros:

ParamIXB[1] - Chave localização do Título - Corresponde ao X2_UNICO da tabela SE2. // E2 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 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 moeda01moeda 01.	Sim

Exemplo

#INCLUDE #INCLUDE User FUNCTION F080TXIRLocal nRet 0
Local cChaveSE2 ParamIXBLocal dDataOp ParamIXBLocal nOpc ParamIXBIf Help 4 0nRet 4
RETURN nRet

#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

//---------------------------------------------------------------------------------------

Árvore de páginas

Versões comparadas

Versão antiga 2

Nova versão Atual

Chave

Exemplo