Histórico da Página
01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | Serviços |
Módulo: | Financeiro |
Rotina: | FINA090 - Baixa a Pagar Automática |
02. DESCRIÇÃO
O ponto de entrada F90L9816 FBXL9816 foi disponibilizado para atender a Lei 9.816 de 1999, onde é possível que seja informada a taxa do câmbio a ser utilizada na formação da base de calculo do IRRF, que não é necessariamente a taxa utilizada na baixa do título a pagar. Ele será executado nas baixa manuais do contas a pagar e em sua respectiva rotina automática.
Observação:
O ponto de entrada F90L9816 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.
...
Informações | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
Parâmetros:ParamIXB[1] - Chave do título - SE2→(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA) 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.
|
03. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function F90L9816FBXL9816() Local cChave := ParamIXB[1] Local dDtBaixa := ParamIXB[2] Local dDtDebito := ParamIXB[3] Local nOpc := ParamIXB[4] Local dDtTaxa := dDataBase Local aArea := GetArea() Local aAreaSED := NIL Local nTaxa := 0 dDtTaxa:=dDtBaixa-2 If 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:= 5 EndIF RestArea(aAreaSED) EndIF RestArea(aArea) Return(nTaxa) |
...
IRRF - Taxa Cambial no cálculo do imposto para fornecedor estrangeiro)
05. ASSUNTOS RELACIONADOS
Templatedocumentos |
---|
...