Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Fabio Henrique Zanchim Barbosa

Gravado em

comparado com

Nova versão 5

changes.mady.by.user Fabio Henrique Zanchim Barbosa

Gravado em

Chave

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

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Financeiro
Rotina:FINA080 - Baixa a Pagar Manual 


02. DESCRIÇÃO

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 para determinar a 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. 

...

  • Ja existe o ponto de entrada F080TXIR que trata a mesma funcionalidade, contudo , ele esta disponível somente para rotina automática e possui alguns critérios de execução, conforme documentação disponível no link abaixo.
  • O ponto de entrada F80L9816 esta disponível para execução da baixa de qualquer registro, cabe a quem for implementar, criar os critérios e regras de utilização, conforme previsto em lei.

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
ParamIXB[4] - Código da Operação = 4 - Baixa Manual

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 estão posicionados.


Retorno:

NomeTipoDescriçãoObrigatório
nTaxaNuméricoTaxa a ser utilizada. No caso de não haver mudança de taxa, retornar 0 (zero)Sim


03. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagejava
themeMidnight
titleF80L9816
#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)

05. ASSUNTOS RELACIONADOS

RecMoeda() (SIGAFAT)



Templatedocumentos

...