...
| Linha Línea de Produtoproducto: | Microsiga Protheus® | |
|---|---|---|
Segmento: | Serviços Servicios | |
Módulo: | Financeiro Financiero | Rotina|
Rutina: | FINA080 - | Baixa a Pagar Manual Baja por pagar manual |
...
O ponto El punto de entrada F80L9816 foi disponibilizado se puso a disposición para atender a Lei la Ley 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 donde es posible que se informe la tasa de cambio que se utilizará en la formación de la base de cálculo del IRRF, que no es necesariamente la tasa utilizada en la baja del título por pagar. Este se ejecutará en las bajas manuales del cuentas por pagar y en su respectiva rutina automática (Execauto - FINA080).
Además de los parámetros informados en el punto 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.
Observação:
puede utilizar cualquier información disponible del Título por pagar (campos de la tabla SE2) y Proveedor (campos de la tabla SA2) que se está procesando, pues los registros estarán marcados.
Observación:
El punto de entrada F80L9816 está disponible para la ejecución durante la baja O ponto de entrada F80L9816 esta disponível para execução durante a baixa manual (FINA080) de qualquer cualquier título, cabe a quem for implementar criar os critérios e regras para o uso da nova taxa.quién fuera implementar, crear los criterios y reglas para el uso de la nueva tasa.
Para las otras rutinas, como por ejemplo la baja Para as demais rotinas, como por exemplo a baixa automática (FINA090), deve ser utilizado o ponto debe utilizarse el punto de entrada FBXL9816(disponível no disponible en el programa FINXIMP com data con fecha igual ou o superior a al 29/12/2023).
...
| Nome Nombre | Tipo | Descrição Descripción | |
|---|---|---|---|
PARAMIXB[1] | Caracter Carácter | Chave do Clave del título - SE2→(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA) | |
PARAMIXB[2] | Data | Fecha | Fecha de pago Data do Pagamento |
PARAMIXB[3] | Data | Fecha | Fecha de débito: Data do Débito |
PARAMIXB[4] | Numérico | Código da Operaçãode la operación = 4 - Baixa ManualBaja manual |
...
Tipo | Descrição Descripción |
|---|---|
Numérico | Taxa a ser utilizada para compor a Tasa que se utilizará para componer la base de cálculo dodel IRRF. No caso de não haver mudança da taxa padrão do sistema, retornar 0 (zeroEn caso de no haber cambios en la tasa estándar del sistema, devolver 0 (cero). |
...
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#INCLUDE "PROTHEUS.CH"
User Function F80L9816() as numeric
Local cChave := ParamIXB[1] as character
Local dDtBaixa := ParamIXB[2] as date
Local dDtDebito := ParamIXB[3] as date
Local nOpc := ParamIXB[4] as numeric
Local dDtTaxa := dDataBase as date
Local aArea := GetArea() as array
Local aAreaSED := {} as array
Local nTaxa := 0 as numeric
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'
//-- Devuelve la Retornatasa taxaen nala datafecha solicitada
nTaxa:=RecMoeda(dDtTaxa,SE2->E2_MOEDA)
EndIF
RestArea(aAreaSED)
EndIF
RestArea(aArea)
Return(nTaxa) |
06. DEMAIS INFORMAÇÕESOTRAS INFORMACIONES
F080TXIR - Ponto Punto de entrada para informar taxa em baixas manuais (rotina tasa en bajas manuales (rutina automática)
...