[Resolvido]Livro Caixa

Estou no desenvolvimento de um Livro Caixa com o Access e o Visual Studio Web Developer.
A estrutura que escolhi foi com um Plano de Contas sendo composto de Entradas ou Receitas, Saídas ou Despesas e Contas de Saldos/Circulante.
O meu problema esta no Select abaixo para obter os resultados da Soma de Entradas, Soma de Saídas e Saldo por conta, além de ainda não ter idéia de como obter o saldo anterior de cada conta de acordo com a data_Pagto.
A princípio o retorno está ok quando tenho valores para SomaEntradas e SomaSaidas, porém se o resultado de uma destas Somas for vazio, então fico sem resultado no SaldoAtual.
Alguém teria alguma sugestão?

SELECT B.conta, Sum(IIf([A.cod_PlanoContas]=1,[A.valor])) AS SomaEntradas, Sum(IIf([A.cod_PlanoContas]=2,[A.valor])) AS SomaSaidas, SomaEntradas-SomaSaidas AS SaldoAtual
FROM tb_Finan_Lancamentos A, tb_Finan_Origem B
WHERE A.cod_Origem=B.cod_Origem
GROUP BY B.conta;

A tb_Finan_Lancamentos tem a seguinte estrutura:
cod_Lancamento
cod_PlanoContas
cod_Origem
data_Lancamento
valor
data_Pagto
cod_destino
historico

A tb_Finan_Origem tem a seguinte estrutura:
codigo
cod_Origem
conta
cod_CategoriaContaOrigem
CategoriaContaOrigem
cod_PlanoContas

Resolvido com Nz, porém agora estou com problema de sintaxe para apurar o saldo anterior baseado na data atual, abaixo o código:
SELECT B.conta,Nz(Sum(IIf([A.cod_PlanoContas]=1,[A.valor],[Format([A.data_Lancamento],'ddmmyyyy') Sum(IIf([A.cod_PlanoContas]=2,[A.valor],[Format([A.data_Lancamento],'ddmmyyyy') Nz(Sum(IIf([A.cod_PlanoContas]=1,[A.valor])),0) AS SomaEntradas,
Nz(Sum(IIf([A.cod_PlanoContas]=2,[A.valor])),0) AS SomaSaidas, SomaEntradas-SomaSaidas AS SaldoAtual
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]))
GROUP BY B.conta;

Com o código abaixo consigo rodar, mas o cálculo do saldo anterior retorna com um valor errado, com uma diferença de 1 para mais nos cáculos:

Código:

SELECT B.conta, Nz(Sum(IIf([A.cod_PlanoContas]=1,[A.valor],[A.data_Lancamento]<Date()))-Sum(IIf([A.cod_PlanoContas]=2,[A.valor],[A.data_Lancamento]<Date())),0) AS SaldoAnterior, Nz(Sum(IIf([A.cod_PlanoContas]=1,[A.valor])),0) AS SomaEntradas, Nz(Sum(IIf([A.cod_PlanoContas]=2,[A.valor])),0) AS SomaSaidas, SomaEntradas-SomaSaidas AS SaldoAtual
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]))
GROUP BY B.conta;

Veja este exemplo:

http://maximoaccess.forumeiros.com/t3981-controle-de-conta-corrente-credito-debito-para-mais-de-um-funcionario

Cumprimentos.

Seguindo o exemplo sugerido e adaptado, o SaldoAcumulado aparece com #erro:

Código:

SELECT A.cod_Lancamento AS ID,
            B.conta,
            A.data_Lancamento,
            A.debito,
            A.credito,
            [A.credito]-[A.debito] AS Saldo,
            Format(Dsum("[Saldo]","Consulta_Saldo_Demonstrativo","[ID]<=" & [ID] & " and B.conta = "& B.conta),"Currency") AS SaldoAcumulado
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]));

Envie o BD que modificou para que possamos ver.

Cumprimentos.

No nome do campo Código na sua tabela é cod_Origem?

Veja a modificação em negrito e teste.

SELECT A.cod_Lancamento AS ID,
B.conta,
A.data_Lancamento,
A.debito,
A.credito,
[A.credito]-[A.debito] AS Saldo,
Format(Dsum("[Saldo]","Consulta_Saldo_Demonstrativo","[cod_Origem]<=" & [cod_Origem] & " and B.conta = "& B.conta),"Currency") AS SaldoAcumulado
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]));


Cumprimentos.

Anexo BD:

Não veio o BD colega...

Desculpe-me, mas tentei anexar o arquivo caixa.mdb, assim como caixa.rar, mas não consegui nesse formato.
Estou baixando um zip e tentarei novamente.

Amigo, não estou conseguindo anexar o BD. Estou em Procurar e Enviar Consulta, mas na hora de enviar vai vazio. Tem alguma sugestão?

O forum só recebe anexos de BD`s em .zip

Bom dia, obrigado pelo retorno!
estranho, pois também tentei com zip, arquivo com 2,16 MB. O arquivo aparece no campo Procurar e ao clicar em Enviar Consulta o endereço desaparece.

Você pressiona o botão ao lado (Enviar ou Submeter) o anexo, antes de enviar a mensagem do tópico ?

Passos:
1. procuro meu arquivo e carrego no campo Procurar;
2. clico em enviar Consulta;
....após clicar, nesse momento o endereço procurado desaparece.
3. ao lado do botão Pré-vizualizar clico em Enviar, porém sem nada visível anexado.

Envie para mim;

jpaulo65@gmail.com

Grande JPaulo,
acabei de enviar.

Amigão Wilson Rogério, o banco que enviou tem 62 MEGAS, depois de eu o compactar ficou com apenas 400K`s, viu a impotancia de ter o Compactar ao fechar ?

Bom dia Mestre João Paulo, como estás nosso Portugal?

Abraços.

Bom dia Grande Piloto, sol de raiar logo pela manhã....


Teste;

SaldoAcumulado: Format(DSum("[Saldo]";"Consulta_Saldo_Demonstrativo";"[ID]<=" & [ID] & " and B.conta = '" & [B].[conta] & "'");"Currency")

Valeu gigante,
muito obrigado pela compactação.

De: Format(Dsum("[Saldo]","Consulta_Saldo_Demonstrativo","[ID]<=" & [ID] & " and B.conta = "& B.conta),"Currency") AS SaldoAcumulado
Para: Format(DSum("[Saldo]";"Consulta_Saldo_Demonstrativo";"[ID]<=" & [ID] & " and B.conta = '" & [B].[conta] & "'");"Currency") AS SaldoAcumulado

retorna com erro de sintaxe.

Aqui não existe erro de sintaxe;

Veja;

Boas... Primeiramente... na tb_Finan_Lancamento, o lancamento cuja origem = 13 não existe na tb_Finan_Origem, portanto não dá certo o relacionamento.

- Exclui o registro Origem = 13 da tbl_Finan_Lancamento
- Relacionei devidamente as tabelas
- Modifiquei o nome dos campos da chave primaria e secundaria para:
na tbl_FInan_Lancamento >>> ID_Lancamento e ID_Origem
na tbl_Finan_Origem >>> ID_Origem (E a nomenclatura que tenho preferencia por ser de mais facil compreensão e trabalho, ao menos para mim)
- Na consulta:

SELECT Tb_Finan_Lancamentos.ID_Lancamento AS ID, Tb_Finan_Lancamentos.ID_Lancamento, Tb_Finan_Lancamentos.ID_Origem, Tb_Finan_Lancamentos.data_lancamento, Tb_Finan_Lancamentos.data_Pagto, Tb_Finan_Lancamentos.Debito, Tb_Finan_Lancamentos.Credito, [Debito]-[Credito] AS Saldo, Format(DSum("[Saldo]","consulta_Saldo_Demonstrativo","[ID] <=" & [ID] & " and ID_Origem=" & ID_Origem),"Currency") AS SaldoAcumulado, Tb_Finan_Lancamentos.cod_Destino, Tb_Finan_Lancamentos.historico
FROM Tb_Finan_Lancamentos;



https://dl.dropbox.com/u/26441349/WilsonBoris.rar


Cumprimentos.

O Exemplo do Mestre JP está perfeito.

Cumprimentos.

Grande JPaulo, 100% Gigante!
Muito obrigado.

De: [conta] & "'");

SELECT
A.cod_Lancamento AS ID,
B.conta,
A.data_Lancamento,
A.debito,
A.credito,
[A.credito]-[A.debito] AS Saldo,
Format(DSum("[Saldo]";"Consulta_Saldo_Demonstrativo";"[ID]<=" & [ID] & " and B.conta = '" & [B].[conta] & "'");"Currency") AS SaldoAcumulado
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]));

Para: [conta] & "'"),
SELECT
A.cod_Lancamento AS ID,
B.conta,
A.data_Lancamento,
A.debito,
A.credito,
[A.credito]-[A.debito] AS Saldo,
Format(DSum("[Saldo]","Consulta_Saldo_Demonstrativo","[ID]<=" & [ID] & " and B.conta = '" & [B].[conta] & "'"),"Currency") AS SaldoAcumulado
FROM tb_Finan_Lancamentos AS A, tb_Finan_Origem AS B
WHERE (((A.cod_Origem)=[B].[cod_Origem]));

Atente ao relacionamento entre as tabelas para não lhe produzir erros futuros.

Faltou o resolvido no Tópico Amigão.

Cumprimentos.

Grande PILOTO,
valeu muito pelas dicas.
Muito obrigado e parabéns pelo exemplo de trabalho.

Não por isso amigão, inclusive percebi que havia uma inversão na coluna saldo no meu exemplo, saldos positivos apresentavam-se entre parenteses (Negativo) bastou apenas inverter a ordem da operação aritimética na coluna Saldo.


Faltou o resolvido no tópico, desta vez eu coloco pra ti.


Cumprimentos.

PILOTO,
não sei se abro um novo post, porém o problema está relacionado ao DB deste post.
Anteriormente eu tinha apenas um campo para débito e crédito com um código da tabela plano de contas para cada um, assim eu conseguia contruir uma consulta para gerar um gráfico, tendo um retorno da seguinte forma:
PlanoContas(X) Valor(Y)
Débito R$.....
Crédito R$.....

Agora com uma campo para credito e outro para débito, eu cheguei no código abaixo, mas com esta estrutura não consigo gerar um gráfico, teria alguma sugestão?
SELECT Sum(A.debito) AS DEBITO, Sum(A.credito) AS CREDITO
FROM tb_Finan_Lancamentos AS A;

Débito Crédito
R$.... R$.....

Obs.: O resultado seria uma totalização das contas.

Se puder postar o exemplo dos dois BD's o antigo e este novo.. para que possamos ver o que deseja..

Cumprimetos.

Olá PILOTO,
eu abracei a tua idéia de corpo e alma e reformulei sem deixar cópia. Mas o que tinha era uma campo denominado Plano de contas que tinha o 1 para crédito e 2 para débito, então conseguia apurar facilmente o retorno conforme a estrutura acima com Transform.
Parece-me que com o código abaixo eu tenho uma condição semelhante que me retorna com por data, mas o ideal seria ao invés de "A.data_Lancamento" termos débito e crédito. Quem sabe... inverter a tabela?
SELECT A.data_Lancamento,Sum(A.debito) AS DEBITO, Sum(A.credito) AS CREDITO
FROM tb_Finan_Lancamentos AS A
GROUP BY A.data_Lancamento;

Podes utiliza o selmed em um campo não acoplado na consulta para aparecer nesta se é débito ou crédito...


Algo assim:


Plano de contas: SeImed([Debito]<>0;'DÉBITO';'CRÉDITO')


Cumprimentos.

Para soma:

SomaDebito: DSoma("[Debito]";"Consulta_Saldo_Demonstrativo")

SomaCredito: DSoma("[Credito]";"Consulta_Saldo_Demonstrativo")

Olá PILOTO,
gostei do Selmed para acoplar.
Não sei se é adequado, eu "ressuscitei" o campo Plano de Contas e assim consegui criar a tabela desejada:
SELECT tb_Finan_Plano_Contas.PlanoConta,
Sum(tb_Finan_Lancamentos.debito) AS DEBITO,
Sum(tb_Finan_Lancamentos.credito) AS CREDITO
FROM tb_Finan_Lancamentos, tb_Finan_Plano_Contas
WHERE (((tb_Finan_Lancamentos.cod_PlanoContas)=[tb_Finan_Plano_Contas].[cod_PlanoContas]
GROUP BY tb_Finan_Plano_Contas.PlanoConta;

Poste então o BD para posterior consulta dos demais usuários.

Cumprimentos.

PILOTO,
não sei como pedir desculpa pela precipitação de postar o código acima, ainda estou patinando. O retorno está sendo:
PLANO CONTAS DÉBITO CRÉDITO
DÉBITO R$xxx,xx R$ 0,00
CRÉDITO R$ 0,00 R$yyy,yy

O Esperado seria:
PLANO CONTAS VALOR
DÉBITO R$xxx,xx
CRÉDITO R$yyy,yy

Poste o BD que fica mais facil amigao...

Cumrprimentos.

Ai creio que deva ser uma consulta de referencia cruzada...

JPAULO,
meu zip não está anexando. Seria possível encaminhar o BD para seu Email conforme procedimento anterior?
PILOTO,
ainda patinando muito com minhas tabelas e consultas.
Dúvidas é que não faltam.
1.Tentei fazer o relacionamento entre tabelas, mas parece-me que não estão adequadas estruturalmente. Penso que a chave primária da Tb Plano de Contas teria um relacionamento de um para muitos com as tb Destino, Origem e Saldo e estas um relacionamento de um para muitos com a tabela de lançamentos;
2.Após mexer um pouco na estrutura das tabelas até a Consulta_Finan_SaldoDemonstrativo voltou com #erro;
3.A consulta_Finan_DebCred não esta retornando conforme esperado:
PlanoContas Valor
Débito R$xxx,xx
Crédito R$yyy,yy
Aguardo orientações para encaminhamento do BD.Boa noite amigos.

Tenha sempre uma copia de segurança antes de modificar o teu BD
Nos envie o ultimo modelo valido teu e explique o que deseja que se altere

HArysohn@hotmail.com

Cumprimentos.

Grande PILOTO,
enviei pelo email recomendado.

Envie nomante zipado, o hotmail bloqueou pois esta em mdb.

Cumprimentos.

Ok, obrigado. Enviei novamente.

Segundo o colega:


A situação de obstáculos que me deparo encontra-se abaixo, mas como sendo público fique a vontade para implementações que julgar necessárias:

1. Relacionar as Tabelas:
1.1.tb_Finan_PlanoContas Chave Primária com Destino, Origem e Saldo;
1.2.tb_Finan_Destino, Origem e Saldo Chave Primária com Lançamento;

2. Consultas:
2.1.Consulta_Saldo_Demonstrativo:
ID CONTA DATA LANÇAMENTO DÉBITO CRÉDITO SALDO SALDO ACUMULADO
1 Conta A 28/10/2012 R$ 0,00 R$ 1,00 R$ 1,00 R$1,00
2 Conta B 29/10/2012 R$ 1,00 R$ 0,00 -R$ 1,00 -R$1,00
3 Conta C 29/10/2012 R$ 2,00 R$ 0,00 -R$ 2,00 -R$2,00
4 Conta A 29/10/2012 R$ 1,00 R$ 0,00 -R$ 1,00 R$0,00
5 Poupança 29/10/2012 R$ 0,00 R$ 5,00 R$ 5,00 R$5,00
.
.
2.2.Consulta_Finan_DebCred:
PLANO CONTAS VALOR
Débito R$ 4,00
Crédito R$ 6,00

2.3. Consulta_Contas_a_Receber:
Parece-me que está OK, mas atento para a necessidade de filtro "código da origem>=200" para captar as fontes de receitas. Está correto isto?

2.4 Consulta_Contas_a_Pagar:
Parece-me que esta OK, mas com a mesma dúvida quanto ao item 2.3 a respeito da necessidade de Filtro.

É um prazer poder compartilhar este BD para controle financeiro pessoal e quem sabe poder ajudar os demais colegas deste Forum.


O BD do colega:

https://dl.dropbox.com/u/26441349/WilsonBoris_1.zip

Vamos la colega... Estou com o BD.


Vamos por parte... O que deseja primeiramente?


Cumprimentos.

Então, penso que poderíamos evoluir no relacionamento das tabelas e suas estruturas, o acha?
As tabelas Origem e Destino, dos campos existentes tenho dois que realmente tenho dúvidas da necessidade que é:
(ID_Origem e cod_Origem);
(ID_Destino e cod_Destino);
Eu mantive estes dois campos para identificar a conta saldo, mas será a forma mais adequada?

Vamos la Wilson... A minha opinião é a seguinte...

- A consulta_Saldo_Demonstrativo, tem todas as informações que deseja, não necessita de mais consultas...

- No form que criar basta apenas utilizar esta com os devidos filtros.... Não há necessidades de uma consulta para cada caso.

- O Relacionamento entre a tb_FInan_Lancamentos e tb_Finan_Origem está bom, nos demais siga a mesma lógica

- Não vejo necessidade da tb_Finan_Saldo (pois o saldo a consulta_Saldo_Demonstrativo ja traz)

- A tb_FInan_Destino, não entendi bem... mas deve ter algo havet com o historico, se sim relacione-a conforme a Origem.


é isso. No mais é so confeccionar os formulários.

Cumprimentos.

Obs.: Eu criei as tb_Finan_Destino(Saídas/Despesas ou Débitos) e tb_Finan_Origem(Entradas/Receitas/Créditos) seguindo o raciocínio de que cada movimento de um valor, sempre terei duas contas, ou seja, uma conta de Destino e uma conta de Origem.

Ok, tem razão, não há necessidade da tb_Finan_Saldo.

Parece-me que para termos a Consulta_Saldo_Demonstrativo adequada para sabermos as contas a pagar teríamos que pegar o campo data_Pagto ao invés de data_Lancamento

Lembrando que para relacionamento são utilizado a chave primária >>> ID_Origem

O Cod_Origem é um código que você intitula a sua operação, para seu controle...

Por exemplo.... Em um sistema de vendas onde tenha a tabela Produtos, temos varios produtos...

A ID é a chave primaria, ou seja: a identificação do registro na tabela... O RG digamos...


Então:

ID = 1
Produto = Bolacha X
Cod_Produto = 039348394948 (que pode ser o cod. de barras ou outro qualquer)

ID = 2
Produto = Sabão em pó X
Cod_Produto = 049543494931 (que pode ser o cod. de barras ou outro qualquer)


**********************************************************************************************************

Origem e destino???? Nao entendi isso cara...

TUdo bem... A origem da despesa ou receita eu entendo...

Mas destino... Isso me parece mais historico, onde teria historicos pre cadastrados...


Sobre os campos... Deve ter sim a data de lancamento e uma dataVencimento que serve para credito ou debito



Bem Wilson, creio que este tópico já está demasiado grande demais, e a dúvida que o originou foi resolvida, para mantermos a integridade do fórum que é por assunto/dúvida, sugiro que: Para nova Dúvida, Novo Tópico

Cumprimentos.