...
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).
...
Totvs custom tabs box |
---|
tabs | Compensar,Compensar Taxa Contratada x Taxa Contratada, Visualizar, Estornar |
---|
ids | Passo1,Passo2 |
---|
|
Totvs custom tabs box items |
---|
default | yes |
---|
referencia | Passo1 |
---|
| 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. 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.
Informações |
---|
| Será apresentado valores nas colunas de PIS, COFINS, CSLL e IRRF somente quando a configuração da retenção correspondente estiver na baixa. |
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | Passo2 |
---|
| 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.
Aviso |
---|
| Para que seja considerada a taxa informada no momento da compensação, quando existem títulos com taxas contratadas, o parâmetro MV_CMTXCON precisa estar com seu conteúdo igual a .T. (Verdadeiro) |
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: E5_TIPO | E5_VALOR | E5_VLMOED2 | E5_TXMOEDA | E5_TIPODOC |
---|
NF | 1000 | 2000 | 2 | CP | RA | 1000 | 2000 | 2 | BA | RA | -500 | -250 | 2 | CM |
Realizando a compensação partindo do Adiantamento teremos as seguintes gravações na tabela SE5: E5_TIPO | E5_VALOR | E5_VLMOED2 | E5_TXMOEDA | E5_TIPODOC |
---|
RA | 1000 | 2500 | 2,5 | BA | NF | 1000 | 2500 | 2,5 | CP | NF | 500 | 200 | 2,5 | CM |
Exemplo de compensação automática utilizando as taxas acima:
Bloco de código |
---|
language | java |
---|
theme | Midnight |
---|
title | Compensação Automática Taxa Contratada |
---|
collapse | true |
---|
| #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
|
|
Totvs custom tabs box items |
---|
default | no |
---|
referencia | Passo3 |
---|
|
|
|
...