| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
| Rotina: | FINA080 - Baixa a Pagar Manual |
| ISSUE/Requisito: | DSERFINP-31006 |
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.
...
| Informações | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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
Deverá ser do tipo numérico representando a taxa da moeda:
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#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
//--------------------------------------------------------------------------------------- |
Não há
| Templatedocumentos |
|---|
...
