Com este relatório visualiza-se a Demonstração de Resultados atualizada pelo INPC - Índice Nacional de Preços ao Consumidor.
A apresentação dos dados no relatório é feita em colunas, mostrando uma para cada mês do exercício contábil. Também podem ser visualizados no relatório o fator de atualização e o fator mensal.
1. Para obter o resultado atualizado é necessário criar uma userfunction. Veja exemplo a seguir.
Exemplo de userfunction para atualização dos valores da demonstração de resultado.
Local aArea:={}
Local nx:=1
Local aAreaAt:=GetArea()
aArea:= cArqTmp->(GetArea())
DbSelectArea(cArqTmp)
DbSeek(Conta) // Informe aqui a conta a ser atualizada.
For nX:= 1 to Len(aFatorAtu)
cCampo:= \"COLUNA\"+Alltrim(str(nX))
cCampo := cCampo * aFatorAtu[nx][2]
Next
cArqTmp->(RestArea(aArea))
RestArea(aAreaAt)
Return()
2. Crie também uma Visão gerencial para atualizar mensalmente esses valores.
No campo "Fórmula" da entidade gerencial informe o nome da userfunction criada.
Esta função acessa o arquivo temporário gerado pela rotina de relatórios e sobre estes valores serão aplicados os índices disponíveis no array aFatorAtu (fatores de atualização) tendo como primeiro elemento a taxa do INPC do mês e em segundo a taxa do INPC do mês dividida pela taxa do mês anterior, resultando na média entre as taxas.
A linha “Efetivo do mês”, será criada automaticamente ao finalizar o relatório. Por isso não é necessário incluí-la na visão gerencial.
Observação: Considerando que o exercício contábil compreende desde o 1º até o 12º mês do ano. Para se emitir o relatório com a atualização dos valores na demonstração de resultado, o sistema compara a data base do sistema com a do exercício contábil. Pelo exposto, considerando que a database do sistema é o 2º mês do exercício, ao se imprimir este relatório o sistema apresentará todas as colunas de resultado até o 12º mês do ano (data final do exercício contábil). Entretanto, se considerarmos que todos os lançamentos referentes ao exercício contábil já foram efetuados, se a database do sistema for o 8º mês do ano, ao se emitir o relatório, o sistema apresentará apenas as colunas com o resultado até o mês da database. |
Exemplo de visão gerencial:
Ordem | Linha | Entidade gerencial | Entidade superior | Descrição | Normal | Classe | Conta inicial | Conta final | Identific. | Fórmula | RdMake |
0000000010 | 001 | ACMON | POSM | ATIVOS MONETÁRIOS | Débito | A | 21201 | 21201 | Adição |
|
|
0000000020 | 001 | PASMON | POSM | PASSIVOS MONETÁRIOS | Débito | A | 21101 | 21101 | Subtração |
|
|
0000000030 | 001 | POSM |
| Posição monetária | Débito | S |
|
| Total geral |
|
|
0000000040 | 001 | PMM |
| Posição monetária mês | Débito | A | 21001 | 21001 | Soma | Texto=F273ATU(\"M\",\"POSM\") | Function para atualizar o valor (mensal, conta de origem) |
0000000050 | 001 | PMC |
| Posição monetária do fechamento | Débito | A | 21001 | 21001 | Soma | Texto=F273ATU(\"C\",\"POSM\") | Function para atualizar o valor (fechamento, conta de origem) |
2. Configure-os de acordo com orientação do help de campo.
3. Confira as configurações e confirme a impressão do relatório.