Compensação contas a receber- FINA330 - Financeiro P12

01. VISÃO GERAL

Esta transação permite que sejam executadas as compensações de todos os adiantamentos já efetuados e cadastrados, realizados pelos Clientes (títulos tipo RA), além de notas de crédito a “abater” (títulos tipo NCC).

Os títulos compensados terão seus saldos em aberto diminuídos ou até mesmo zerados, caracterizando uma baixa do título compensado.

Através da compensação de títulos a receber é possível:

• Compensar títulos de um mesmo cliente/loja com adiantamentos deste mesmo cliente/loja;
• Compensar títulos de um determinado cliente com adiantamentos deste mesmo cliente, não importando qual a loja do título a compensar. Com isso, o título pode ser compensado com qualquer título de adiantamento do mesmo cliente, em aberto no cadastro de títulos, não importando a qual loja do cliente pertença este título;
• Compensar título de determinado cliente com adiantamentos de diversos clientes, podendo ser determinada uma faixa de clientes, ou todos. Com isso, o título pode ser compensado com qualquer título de adiantamento em aberto no cadastro de títulos, não importando qual o cliente deste título;
• Compensar títulos e adiantamentos entre filiais, ou seja, de clientes com adiantamentos deste ou de outros clientes presentes nas diversas filiais da empresa.

Taxa da moeda

O tratamento que o Sistema dá para a taxa utilizada na baixa de títulos a receber está assim detalhada:

No Brasil, utiliza-se a taxa informada no título.

Nos países localizados, é considerada a taxa do dia.

Impostos

O parâmetro MV_BR10925 define o momento do abatimento dos valores dos impostos (PIS, COFINS e CSLL) Pode ser configurado com 1 = realiza o abatimento dos impostos na baixa do documento ou 2 = abatimento dos impostos ocorre na emissão do documento.

Caso o parâmetro MV_BR10925 seja configurado com1 (baixa), nos casos em que houver compensação com abatimento de valores destes impostos, os títulos de impostos serão gerados atrelados ao título principal e nunca ao adiantamento.

No processo de liquidação de títulos a receber, não há cálculo de impostos.

Os impostos PIS, COFINS e CSLL existentes nos títulos geradores, somente serão repassados para as parcelas nos casos em que a natureza dos títulos gerados pela fatura, permita o cálculo dos impostos.Desta forma, os impostos dos títulos geradores da fatura a receber, terão seus valores somados e proporcionalizado em cada parcela.

No cenário onde o parâmetro MV_BR10925 estiver configurado com o conteúdo 1 (baixa) e existir base reduzida no título referente a nota fiscal, no momento da compensação o sistema irá levar em consideração a base reduzida para o cálculo e geração dos impostos do PIS, COFINS e CSLL.

02. OPERAÇÕES 

Parametrização para a operação de compensação está disponível através da opção F12. 

Considera Loja: Indica se a loja do cliente, quando a pergunta "Considera Cliente" for igual a Sim, deve ser considerada na seleção dos títulos a serem compensados.

Considera Cliente: Indica se o cliente do título original deve ser considerado na seleção dos títulos a serem compensados, ou se serão considerados os clientes informados na pergunta "Do Cliente" e "Até o Cliente"

Do Cliente: Código inicial dos clientes cujos títulos serão compensados, caso a pergunta "Considera cliente" for igual a sim.

Até o Cliente: Código final dos clientes cujos títulos serão compensados, caso a pergunta "Considera cliente" for igual a sim.

Comp. Transferidos: Indica se deseja que os títulos transferidos para cobrança sejam considerados na seleção dos títulos a serem faturados.

Calc.Comiss.s/NCC: Indica se deseja calcular comissão sobre títulos de crédito (NCC).

Mostra Lanc Contab: Indica se o lançamento contábil deve ser exibido.

Cons.Abatimentos/Impostos: Indica se do saldo a ser compensado devem ser diminuídos os abatimentos e os impostos. Caso não sejam considerados o saldo a ser considerado para operação será apenas o saldo do titulo.

Contabiliza On Line: Informe se Contabiliza On-Line.

Considera Filiais Abaixo: Informe se deve considerar um intervalo de filiais a ser informado nos próximos parâmetros. (Parâmetro descontinuado, substituído pelo botão filiais na tela de seleção do título principal)

Da Filial: Informe a filial inicial a ser considerado no intervalos de filiais. (Parâmetro descontinuado, substituído pelo botão filiais na tela de seleção do título principal)

Até Filial: Informe a filial final a ser considerado no intervalos de filiais. (Parâmetro descontinuado, substituído pelo botão filiais na tela de seleção do título principal)

Calc.Comiss.s/RA: Indica se deseja calcular comissão sobre títulos de crédito (RA).

Reutiliza Taxa Informada: Indica se reutiliza a taxa informada para outras compensações.

Cons.Juros Comissão: Indica se deve ser considerado o valor dos juros no cálculo da comissão.

#INCLUDE "TOTVS.ch"
#Include "PROTHEUS.ch"    
#Include "PRTOPDEF.CH"
#INCLUDE "TBICONN.CH" 

User FUNCTION COMPCR()

    Local lRetOK := .T.
    Local aArea := GetArea()
    Local nTaxaCM := 0
    Local aTxMoeda := {}
    Local cCliente := "001   "
    Local cLoja := "01"
    Local cPrefixo := "TIT"
    Local cNumDoc := '00001    '
    Local cParcela := " "
    Local cTipoDoc := "RA "
    Private nRecnoNDF
    Private nRecnoE1

    dbSelectArea("SE1")
    dbSetOrder(2) // E1_FILIAL, E1_CLIENTE, E1_LOJA, E1_PREFIXO, E1_NUM, E1_PARCELA, E1_TIPO, R_E_C_N_O_, D_E_L_E_T_

    IF dbSeek(XFILIAL("SE1") + cCliente + cLoja + cPrefixo + cNumDoc + cParcela + cTipoDoc)
        nRecnoRA := RECNO() 

        cTipoDoc := "NF"
        IF dbSeek(XFILIAL("SE1") + cCliente + cLoja + cPrefixo + cNumDoc + cParcela + cTipoDoc)
            nRecnoE1 := RECNO()
            
            PERGUNTE("AFI340",.F.)
            lContabiliza := .F.
            lAglutina := .F.
            lDigita := .F.

            SE1->(dbSetOrder(1)) //E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO+E1_FORNECE+E1_LOJA
            aRecRA := { nRecnoRA }
            aRecSE1 := { nRecnoE1 }

            nSaldoComp := 2000 // Valor da compensacao em moeda forte

            nTaxaCM := 2 // Taxa considerada na compensacao

            aAdd(aTxMoeda, {SE1->E1_MOEDA, nTaxaCM} ) // Taxas das moedas utilizadas

            If !MaIntBxCR(3, aRecSE1,,aRecRA,,{lContabiliza,lAglutina,lDigita,.F.,.F.,.F.},,,,,nSaldoComp,,,, nTaxaCM, aTxMoeda)
                Help("XAFCMPAD",1,"HELP","XAFCMPAD","Não foi possível a compensação"+CRLF+" do titulo do adiantamento",1,0)
                lRetOK := .F.
            Else
                Alert("Compensação realizada.")
            ENDIF
        ENDIF
   ENDIF

   RestArea(aArea)

Return lRetOK

03.  CONTABILIZAÇÃO

04.  PARÂMETROS

05. PERGUNTAS FREQUENTES

Como considerar desconto financeiro na compensação?

Os descontos financeiros não são considerados no padrão. Para que sejam considerado é necessário utilizar o ponto de entrada F330DES. Mais informações em: F330DESC - Desconto na compensação contas a receber

06. OUTRAS DOCUMENTAÇÕES

• Tratamento de impostos sobre Nota de Crédito do Cliente (NCC)
• MaIntBxCR - Rotina automática de Compensação a Receber
• FIN0003 - Variáveis de contabilização da compensação a receber (online e off-line)