Histórico da Página

...

03. SOLUÇÃO

Foi criada uma nova funcionalidade que é utilizada selecionando a nova opção criada na tela do PLSCTB11, onde será utilizado dois novos Lançamentos Padrão: 9A4 e 9A5.

Ao informar mês e ano e selecionar a opção, o sistema irá buscar registros na tabela CT2 que foram creditados nas contas de recebimento antecipado (contas iniciadas em 2132, conforme plano de contas padrão da ANS) e também a conta de receita em que a parte da competência anterior foi contabilizada, criando então um lançamento de crédito nessa conta de receita e o de débito na conta de recebimento antecipado. Com isso o valor é reconhecido como receita após o período de cobertura.ou nas contas de provisão de prêmio, onde possui saldo (contas iniciadas em 2111, conforme plano de contas padrão da ANS). Com isso será contabilizado o reconhecimento de receita antecipada ou pro-rata da competência anterior. 

O sistema irá buscar os registros com CT2_DATA da competência anterior à informada na tela do PLSCTB11.

Configuração do Lançamento Padrão

9A4 - Recebimento Antecipado

• Campo CT5_VLR01: CT2->CT2_VALOR
• Campo CT5_ORIGEM: Alltrim(CT2→(DToS(CT2_DATA)+CT2_LOTE+CT2_SBLOTE+CT2_DOC))
  (CT2 posicionada é o valor do recebimento antecipado)

9A5 - Apropriação de Pro-Rata

• Campo CT5_VLR01: CT2->CT2_VALOR - CV3->CV3_VLR01 
• Campo CT5_ORIGEM: Alltrim(CT2→(DToS(CT2_DATA)+CT2_LOTE+CT2_SBLOTE+CT2_DOC))
  (CT2 posicionada é o valor da provisão e CV3 posicionada é o valor da receita do mês anterior, resultando no valor do saldo)
  

Para o correto funcionamento, é necessário que haja sequência(s) específica(s) para o LP 9AX (Baixa) onde será tratado a parte da mensalidade, fazendo a divisão do valor entre o da competência atual (que será reconhecido como receita) e o da competência futura (que será reconhecido como recebimento antecipado)

Sugestões de fórmula para o CT5_VALOR:

Para recebimento antecipado

IIF(BM1->BM1_CODTIP = '101', PLSRATT('SE1', BM1->BM1_VALOR, "9AXZZZ",,,.t.), 0) * plRPerPR(BA1->BA1_DATINC, .T., ) / 100

Para reconhecimento de receita (período do mês atual)

IIF(BM1->BM1_CODTIP = '101', PLSRATT('SE1', BM1->BM1_VALOR, "9AXZZZ",,,.t.), 0) * (100 - plRPerPR(BA1->BA1_DATINC, .T., )) / 100

04. DEMAIS INFORMAÇÕES

Não se aplica

...