DSAUBE-13729 DT Atualização PLSCTB11 - Recebimento antecipado

01. DADOS GERAIS

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