7/18/2019 DADOS DRE
1/2
Esse valor vai estar em alguma tabela do sistema?
Segue roteiro de utilizao das frmulas em vises gerenciais. No
campo CTS_FORMUL vocde digitar a frmula a ser utilizada para esta
linha de configurao (Expresso AdvPl oExecBlock).
CTB - Uso de formulas em vises gerenciais
Para tratar situaes de retorno de valor condicional ou calculos
especficos de saldo/movimento ao gerar relatrios com vises
gerenciais, esta disponivel o recurso de formula no cadastro de
vises gerenciais, pode-se preencher o campo de formula comfuno de
usurio que faa tratamento condicional para retorno do valor, os
tratamentosprevistos atualmente so:
- CTS_FORMUL com conteudo: ROTINA=U_funcaousuario()Com o contedo
'ROTINA=', o retorno da funo de usurio servira como base a ser
aplicaa sobre os saldos originais, ou seja, saldo correspondente ao
intervalo de entidades definida na linha da entidade/viso gerencial
multiplicado pelo retorno da funo de usurio (se o retorno for zero
o saldo por consequencia passa a ser zero no relatrio).
- CTS_FORMUL com contedo: SALDO=U_funcaousuario()
Com o contedo 'SALDO=', o retorno da funo de usurio ser o valor
do saldo apresentano relatrio, de maneira independente do intervalo
de entidades informado da linhada entidade viso/gerencial.
- Em ambos os casos se torna necessria a criao de funo de usurio
atravs das ferrde desenvolvimentos disponiveis (IDE) para tratar
cada situao de maneira especfica.
- No momento da execuo das funes esto disponveis e posicionadas
o alias CTS (Cadade Vises Gerenciais) e alias 'cArqTmp'
correspondente entidades gerenciais e saldos j calculados para o
relatrio/consulta at a entidade gerencial executada no momento.
No seu caso oriento utilizar:ROTINA=U_nomedafuncao()Onde vai
gerar uma funo de usurio
User Function nomedafuncao()Local nRet=0// Query Valor
ImpostocQuery := " SELECT E2_FILIAL, E2_TIPO, E2_EMISSAO, E2_VALOR,
D_E_L_E_T_"cQuery += " FROM "+RetSqlName("SE2")+" WHERE
E2_FILIAL='"+xFilial("SE2")+"'"cQuery += " AND E2_TIPO IN
('TX','DARF')"cQuery += " AND E2_BAIXA BETWEEN '20101001' AND
'20101031' ANDcQuery += " AND D_E_L_E_T_'*' "
TCQUERY cQuery NEW ALIAS QSE2dbSelectArea("QSE2")dbGoTop()Do
While !QSE2->(Eof()) nRet += QSE2->E2_VALOR
QSE2->(dbSkip())EnddoReturn (nRet*0.01)
Compila e faz o teste na CTS_FORMUL voc coloca
ROTINA=U_nomedafuncao
