Resolver Saldo de Empenho
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |
