Para fazer o processo de compensação é necessário selecionar o titulo principal que deseja que seja compensado.  

Escolha os parâmetros para efetuar o processo: 

Botão filiais: Utilizado para selecionar as filiais que serão consideradas na compensação. (Explicação em detalhes mais abaixo)

Com os dados do titulo a ser compensado, podemos escolher o valor a ser compensado como limite para compensação, e ainda a data da baixa. 

O Flag 'Tit. Marcados' pode facilitar o processo já marcando os títulos conforme a composição de saldo, até atingir o saldo do título principal. 

Obs: em algumas situações, devido a forma de configuração do calculo de impostos, a sugestão inicial ('Tit. Marcados') não é feita pelo sistema, ficando a cargo do operador a seleção manual para que o cálculo do imposto seja feito em tempo de execução. Para mais informações sobre configuração de impostos acesse: http://tdn.totvs.com/x/tA2qC

Após a abertura da tela teremos as seguintes opções: 

• Seleção individual de cada título, sendo essa consistido o saldo do título para confirmar ou não seleção do registro. Utilizando essa opção o sistema sugere automaticamente quanto posse ser abatido do títulos selecionado de acordo com o saldo do título principal.

•  Marcar Todos - Com o seguinte comportamento
  • Nenhum registro selecionado - Marca todos os títulos da relação. 
  • Todos os registros selecionados - Não tem nenhuma ação. 
  • Ao menos um título marcado - Marca todos os títulos da relação. 
  • Ao menos um título desmarcado - Marca todos os títulos da relação. 
• Inverte Seleção - Inverte logicamente todos as marcações, ou seja, as linhas marcadas serão desmarcadas e as linhas desmarcadas serão marcadas. 
• Tanto o botão 'Inverter seleção' como 'Marcar todos' não consideram o saldo do título para efetuar o processo. 
• Pesquisar - Pesquisa e posiciona no título informado na busca.
• OK - Confirma a operação de compensação. 
• Cancelar - Cancela a operação de compensação. 

Compensação com Taxa Contratada 

Parâmetros envolvidos:

MV_CMTXCON =Indica que será gerada correção monetária para títulos com taxa contratada na compensação CP.  T = Gera CM / F = Não gera CM

Para  o processo de compensação com Taxa Contratada, o parâmetro deverá estar configurado conforme abaixo:

MV_CMTXCON = T (True)

A correção monetária se dará a partir do documento selecionado:

Caso seja selecionado o título de adiantamento (RA) os títulos NF´s sofrerão a correção monetária com base na taxa do título RA selecionado.

Caso seja selecionado o título NF os títulos de adiantamentos (RA´s) sofrerão a correção monetária com base na taxa do título NF selecionado.

MV_CMTXCON = F (False)

Não será gerada correção monetária e não será permitida compensações com taxa contratada diferentes.

Exemplo:

Nota fiscal:

Valor: 1.000,00

Moeda: 2

Taxa: 2

Valor Convertido: 2.000,00

Adiantamento:

Valor: 1.000,00

Moeda: 2

Taxa: 2,5

Valor Convertido: 2.500,00

Realizando a compensação partindo da Nota Fiscal teremos as seguintes gravações na tabela SE5:

Realizando a compensação partindo do Adiantamento teremos as seguintes gravações na tabela SE5:

Exemplo de compensação automática utilizando as taxas acima:

#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

Criado o parâmetro MV_RATXMOV para definir a taxa a ser considerada para adiantamentos sem taxa contratada na compensação.

O parâmetro foi incorporado ao release 12.1.27 do Protheus e disponibilizado nas expedições contínuas para os releases anteriores vigentes. 

MV_RATXMOV = .T.

Com o seu conteúdo true .T. será considerada a taxa da sua movimentação de inclusão.

Quando a compensação partir do adiantamento essa taxa será utilizada para os títulos listados da mesma moeda.

Quando a compensação partir do título, esse utilizará a taxa do dia ou a informada no momento da compensação e os adiantamentos listados utilizaram a sua taxa de movimentação.

MV_RATXMOV = .F.

Com o seu conteúdo false .F. será considerada a taxa do dia da compensação ou a utilizada no momento da compensação para todos os títulos envolvidos.

Especificação do parâmetro:

Taxas utilizadas e ordem de prioridades

Taxa do dia (Tabela SM2): Configurada a taxa do dia para os títulos em moeda estrangeira, essa taxa será considerada no momento da compensação.

Taxa do título (Contratada): A taxa definida no momento da inclusão dos títulos (E1_TXMOEDA) é respeitada na compensação. Quando esta taxa contratada é informada, a compensação passa a usá-la, mesmo que se tenha configurado uma taxa de moeda para as datas envolvidas (Tabela SM2);

Taxa na compensação: Esta taxa pode ser configurada pela opção Taxas Moedas, antes de selecionar os títulos para a compensação.  Mesmo que o título possua taxa do dia (Tabela SM2) para moeda em questão, ou taxa contratada (E1_TXMOEDA), é considerada a taxa definida no momento da compensação, se caso a mesma for informada;

O critério de conversão de taxa é a ordem de configuração da mesma, sendo:

1º - Taxa na Compensação

2º - Taxa do Título (Contratada)

3º - Taxa do dia (Tabela SM2)

A comissão sobre a compensação CR poderá ser calculada desde que o título financeiro (NF) esteja configurado corretamente com vendedor e percentual e as perguntas abaixo estejam configuradas com Sim conforme o tipo de título que será compensado - NCC ou RA.

Calc comiss s/ NCC?

Informar se o Sistema deve calcular comissão nas compensações com títulos de crédito do tipo NCC.

Pergunta = SIM - O sistema calcula comissão.

Pergunta = NÃO - O sistema não calcula comissão.

Calc comiss s/ RA?

Informar se o Sistema deve calcular comissão nas compensações com títulos de crédito do tipo RA.

Pergunta = SIM - O sistema calcula comissão.

Pergunta = NÃO - O sistema não calcula comissão.

PARÂMETROS

MV_COMISCR - indicador que permitirá o cálculo de comissão para vendedor na compensação CR.  

"S" para calcular e "N" não calcular.

TABELA MOTIVOS DE BAIXA

Cadastre na tabela de motivos de baixa (Miscelânea -> Arquivos), o motivo CMP e habilite o cálculo de comissão no motivo de baixa. Exemplo:
Sigla: CMP
Descrição: Compensac
Carteira: A (Ambas)
Mov. Bancaria: N
Comissão: S
Cheque: N

Obs.: Nesse processo não serão considerados os dados de Vendedor e Percentual de comissão dos títulos de crédito (NCC/RA), somente do título financeiro (NF, RC, etc.)

A contabilização de títulos com valores acessórios será feita da seguinte forma: 

• Compensar posicionado no adiantamento

As notas fiscais compensadas estão posicionadas durante a contabilização, permitindo que os valores acessórios sejam contabilizados normalmente. 

• Compensar posicionado na nota fiscal com valor acessório

Como é a nota fiscal que possui o valor acessório, na contabilização do primeiro título de adiantamento as tabelas SE1 e SE5 estão posicionadas na nota fiscal, para que o valor acessório seja contabilizado. 

Exemplo de contabilização de valor acessório:

Cadastrar um valor acessório, preenchendo o campo "Variável CTB" com a variável a ser utilizada na configuração de lançamento padrão. 

Exemplo: CTBDESPC

Na configuração do lançamento padrão de Compensação a Receber, utilizar a variável cadastrada anteriormente no valor a ser contabilizado.

Na contabilização, será gerada uma linha com o valor acessório cadastrado na nota fiscal compensada. 

CENÁRIO:

Lançamentos padrões configurados: 

1) E5_VALOR

2) Variável cadastrada no VA, por exemplo: CTBDESPC

• Compensar posicionado na nota fiscal com valor acessório:

Nota fiscal:

Número: MAN - 03 -NF 

Valor: 10.000,00 com VA: 100,00

Adiantamento:

1) Número: MAN - 04 - RA

Valor: 5.000,00

2) Número: MAN - 05 - RA

Valor: 5.000,00

As duas linhas exibidas no exemplo abaixo se referem aos dois adiantamentos compensados, sendo que a primeira linha é referente à nota fiscal compensada (devido à necessidade de contabilizar o valor acessório associado). 

• Compensar posicionado no adiantamento:

Nota fiscal:

Número: MAN - 06 -NF 

Valor: 10.000,00 com VA: 100,00

Adiantamento:

Número: MAN - 07 - RA

Valor: 10.000,00

A linha exibida no exemplo abaixo se refere à nota fiscal compensada. 

Cálculo de PCC

Ao configurar a retenção de PCC na baixa sem controle de retenção do RA, a pré-seleção dos títulos não é realizada, para que ao marcar o título, o cálculo do PCC seja efetuado.

Para isto é necessário configurar os parâmetros:

• MV_BR10925 = 1
• MV_RARTIMP = 2 

Tolerância de valor residual para zerar o saldo após a compensação (MV_TOLERPG)

Quando após a compensação houver um saldo restante de centavos em um dos títulos, é possível configurar para que o sistema considere uma margem de tolerância e baixe o título em sua integralidade.

Esse valor de margem deve ser configurado através do parâmetro MV_TOLERPG (as baixas de títulos a receber também realizam o mesmo tratamento através desse parâmetro).

Segue abaixo um exemplo de como a rotina é impactada com o parâmetro:

1. Através da rotina FINA330, é selecionado um título de partida do tipo NF em dólar no valor de R$189,42 com taxa contratada de 5,2796. Seu valor convertido em reais é de R$ 1000,05;
2. Na tela de seleção de títulos a serem compensados, é selecionado um título de adiantamento(RA) em reais totalizando R$ 1000,03 (diferença de 2 centavos em relação a NF);
3. Na compensação partindo do título NF, o processo inteiro será realizado na moeda estrangeira informado na NF, neste caso o título de adiantamento teria seu valor convertido pela taxa contratada do dia, sendo realizado a seguinte conversão, "R$1000,03 / 5,2796 = $189,41 (Dólares)" e o mesmo acontece quando a partida da compensação parte do adiantamento.
4. Para que todos os títulos envolvidos tenham seus saldos zerados ao final do processo de compensação, o parâmetro MV_TOLERPG deve estar configurado com um valor igual ou maior a 0,02 (dois centavos), caso contrário a diferença remanescente ficará no saldo do título de adiantamento (ficando este em aberto).

Outros parâmetros

MV_ESTADO - deve estar configurado com o estado da filial