Resolver Saldo de Empenho
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuária Regina:
Olá!
Preciso obter:
Saldo Anterior + Empenho - Pagamento = Saldo de Empenho
O saldo anterior do 1º registro de cada código = 0. Nos demais: o saldo anterior = saldo empenho da linha de cima. Segue a tabela como desejo o resultado:
Código | sl Anterior | vl Empenho | vl Pagamento | Saldo Empenho |
25 | 0 | 10 | 5 | 5 |
25 | 5 | 10 | 4 | 11 |
25 | 11 | 0 | 10,90 | 0,10 |
1 | 0 | 50 | 49 | 1 |
1 | 1 | 100 | 96 | 5 |
1 | 5 | 0 | 3 | 2 |
Saldo de Empenho nos dá a posição do contrato e se há saldo no término.
O Microsoft Excell faz lindamente essa operação.
A necessidade da informação é saber o que se tem de empenho, o que se pagou e o que ainda será pago (temos a data de pagamento).
A ferramenta é em Access.
Suporte:
Regina, segue um arquivo exemplo. Abra a consulta qrySaldoAnterior e veja o resultado. O saldo do empenho foi gerado na Consulta União qyrEmpenho e que se utiliza da função fncSaldoEmpenho().
Public Function fncSaldoEmpenho(varValor, varId As Long) As Double
Static n As Double
Static id As Long
If IsNull(varValor) Then
n = 0
id = 0
Exit Function
End If
If id <> varId And id > 0 Then n = 0
id = varId
n = n + varValor
fncSaldoEmpenho = n
End Function
A função foi aplicada na Consulta União qryEmpenho.
SELECT tblTeste.Código, tblTeste.ValorEmpenho, tblTeste.ValorPagamento,
fncSaldoEmpenho(null,0) AS SaldoEmpenho FROM tblTeste WHERE 1=0 UNION ALL SELECT tblTeste.Código, tblTeste.ValorEmpenho, tblTeste.ValorPagamento,
fncSaldoEmpenho([valorempenho]-[valorpagamento],[código]) AS SaldoEmpenho FROM tblTeste;
Detalhes sobre este tipo de consulta, para cálculo de saldo, neste meu artigo.
Veja na imagem, o resultado da consulta qrySaldoAnterior:
Usuário Regina:
Avelino, perfeito! É isso mesmo.
Muito bom! Obrigada!
Download
Não há comentário |