| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Serviços |
| Módulo: | Financeiro |
| Rotina: | FINA080 - Baixa a Pagar Manual |
O ponto de entrada F80L9816 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 F80L9816 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.
|
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH"
User Function F80L9816()
Local cChave := ParamIXB[1]
Local dDtBaixa := ParamIXB[2]
Local dDtDebito := ParamIXB[3]
Local nOpc := ParamIXB[4]
Local dDtTaxa := dDataBase
Local aArea := GetArea()
Local nTaxa := 0
dDtTaxa:=dDtBaixa-2
If SA2->A2_TIPO=='X' .And. SE2->E2_MOEDA > 1
dbSelectArea('SED')
dbSetOrder(1)
dbSeek(xFilial('SED')+SE2->E2_NATUREZ)
If ED_CALCIRF=='S'
//-- Retorna taxa na data solicitada
nTaxa:=RecMoeda(dDtTaxa,SE2->E2_MOEDA)
EndIF
EndIF
RestArea(aArea)
Return(nTaxa) |
...
F080TXIR - Ponto de entrada para informar taxa em baixas manuais (rotina automática)
| Templatedocumentos |
|---|
...
