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
...