01. DADOS GERAIS
Produto: | TOTVS Saúde Planos
|
---|---|
Linha de Produto: | Linha Protheus |
Segmento: | Saude |
Módulo: | PLANO DE SAÚDE (SIGAPLS) |
Função: | |
Ticket: | |
Requisito/Story/Issue (informe o requisito relacionado) : | DSAUBE-13729 |
02. SITUAÇÃO/REQUISITO
Criar funcionalidade para que o reconhecimento de receita antecipada de mensalidades seja facilmente executado.
Caso de exemplo
O beneficiário faz o pagamento da mensalidade inteira em 15/01 e seu período de cobertura é de 15/01 à 14/02.
No fim da competência 01, somente pode ser reconhecido como receita o valor sobre período de cobertura que já passou, a outra parte do valor é um recebimento antecipado.
Essa funcionalidade se destina à fazer o reconhecimento desse recebimento antecipado quando for contabilizar a competência 02.
03. SOLUÇÃO
Foi criada uma funcionalidade que é utilizada selecionando a nova opção criada na tela do PLSCTB11. 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.
Importante: Essa funcionalidade é de reconhecimento de receita antecipada da competência anterior o sistema irá buscar os registros com CT2_DATA da competência anterior à informada na tela do PLSCTB11.
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
05. ASSUNTOS RELACIONADOS
Não se aplica