Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 9

changes.mady.by.user Fabio Casagrande Lima

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Fabio Casagrande Lima

Gravado em

Chave

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

...

  • O ponto de entrada FBXL9816 esta disponível para execução durante a baixa de qualquer título, cabe a quem for implementar criar os critérios e regras para o uso da nova taxa;
  • Para atender as baixas manuais (FINA080), afim de respeitar o legado do sistema, deve ser utilizado o ponto de entrada F80L9816 - que já era utilizado antes da existência desse ponto de entrada;
  • Esse ponto de entrada não contempla a geração de IRRF através da :
    • Da inclusão de Pagamento Antecipado (PA);
    • Da Compensação entre Títulos a Pagar (FINA340);
    • Da Compensação entre Carteiras (FINA450);

Informações
titleImportante

Parâmetros:

ParamIXB[1] - Chave do título - SE2→(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA)
ParamIXB[2] - Data do Pagamento
ParamIXB[3] - Data do Débito


Além dos parâmetros informados no ponto de entrada, pode-se utilizar de qualquer informação disponível do Título a Pagar (campos da tabela SE2) e Fornecedor (campos da tabela SA2) que esta sendo processado, pois os registros estarão posicionados.


Retorno:

NomeTipoDescriçãoObrigatório
nTaxaNuméricoTaxa a ser utilizada para compor a base de cálculo do IRRF. No caso de não haver mudança da taxa padrão do sistema, retornar 0 (zero)Sim

...

Bloco de código
languagejava
themeMidnight
titleF90L9816FBXL9816
#INCLUDE "PROTHEUS.CH"
 
User Function FBXL9816()
 
Local cChave    := ParamIXB[1]
Local dDtBaixa  := ParamIXB[2]
Local dDtDebito := ParamIXB[3]
Local dDtTaxa   := dDataBase
Local aAreacAlias     := GetArea()""
Local aArea aAreaSED    := NILGetArea()
Local nTaxa     := 0   

dDtTaxa:=dDtBaixa-2
 
If SA2->A2_TIPO=='X' .And. SE2->E2_MOEDA > 1 
    dbSelectArea('SED')
	    aAreaSED := SED->(GetArea())
    SED->(dbSetOrder(1))
    SED->(dbSeek(xFilial('SED')+SE2->E2_NATUREZ))
    If SED->ED_CALCIRF=='S'
        //-- Retorna taxa na data solicitada
        nTaxa:= 5RecMoeda(dDtTaxa,SE2->E2_MOEDA)
    EndIF
	    RestArea(aAreaSED)
EndIF
 
RestArea(aArea)
Return(nTaxa)

...

IRRF - Taxa Cambial no cálculo do imposto para fornecedor estrangeiro)

05. ASSUNTOS RELACIONADOS

...