Histórico da Página

Para realizar el proceso de compensación es necesario seleccionar el título principal que desea que se compense.  fazer o processo de compensação é necessário selecionar o titulo principal que deseja que seja compensado.  

Escolha os parâmetros para efetuar o processoSeleccione los parámetros para efectuar el proceso: 

Con los datos del título que se compensará, podemos seleccionar el valor que se compensará como límite para compensación, e incluso la fecha de la baja. 

Botão filiais: Utilizado para selecionar as filiais que serão consideradas na compensação.

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 El Flag 'Tít. Marcados' puede facilitar el proceso marcando los títulos de acuerdo con la composición de saldo, hasta alcanzar el saldo del título principal. 

Obs: en algunas situaciones, debido a la forma de configuración del cálculo de impuestos, la sugerencia  em algumas situações, devido a forma de configuração do calculo de impostos, a sugestão inicial ('TítTit. Marcados') no se realiza por el não é feita pelo sistema, quedando ficando a cargo del do operador la selección a seleção manual para que el cálculo del impuesto se realice en tiempo de ejecución. Para más información sobre configuración de impuestos acceda ao 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

Después

de la apertura de la pantalla tendremos las siguientes opcionesApós a abertura da tela teremos as seguintes opções: 

• Selección Seleção individual de cada título, habiéndose confirmado el saldo del sendo essa consistido o saldo do título para confirmar o no la selección del título registro. Al utilizar esta opción, el sistema sugiere automáticamente cuánto puede descontarse del título seleccionado, de acuerdo con el saldo del 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
   Marcar todos - Con el siguiente comportamiento: 
  • Ningún registro seleccionado - Marca todos los títulos de la listaos títulos da relação. 
  • Todos los os registros seleccionados - No tiene ninguna acciónselecionados - Não tem nenhuma ação. 
  • Por lo Ao menos un um título marcado - Marca todos los títulos de la listaos títulos da relação. Por lo
  • Ao menos un um título desmarcado - Marca todos los títulos de la listaos títulos da relação. 
• Invierte selección - Invierte lógicamente todas las marcas, es decir, las líneas marcadas se desmarcarán y las líneas desmarcadas se marcaránInverte Seleção - Inverte logicamente todos as marcações, ou seja, as linhas marcadas serão desmarcadas e as linhas desmarcadas serão marcadas. 
• Tanto la opción 'Invertir seleccióno botão 'Inverter seleção' como 'Marcar todos' no consideran el saldo del título para efectuar el procesonão consideram o saldo do título para efetuar o processo. 
• Buscar - Busca y marca en el título informado en la búsquedaPesquisar - Pesquisa e posiciona no título informado na busca.
• OK - Confirma la operación a operação de compensacióncompensação. Anular - Anula la operación de compensación
• Cancelar - Cancela a operação de compensação. 

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