Sql fazer jun��o de dois select ?

Question

Pessoal tenho um tabela chamada entrada e outra venda.Peciso selecionar na entrada toda a entrada de produtos e todas as saidas na venda  assimProduto    entrada saida SaldoTeste          30       20 ...

Thomaz_prg · Answer

tenta a�:SELECT        E.PRODUTO,        SUM(E.QUANTIDADE) AS QTD_ENTRADA,        SUM(V.QUANTIDADE) AS QTD_SAIDA FROM        ENTRADAS EFULL OUTER JOIN VENDAS V ON        (V.PRODUTO = E.PRODUTO AND V.DATA = :VDATA1)WHERE        E.DATA = :VDATA1Mas que banco voc� t� usando?? E que erro t� dando na sua instri��o anterior??...

Essistemas · Answer

� isto mesmo, s� que quando fa�o a entrada de um
no campo Entrada ela me retorna 1 at� ai tudo certo mas quando vendo ou seja fa�o a saida o campo Entrada retorna o mesmo do campo Saida
Exemplo Entrei e saida, Sendo que a entrada deverira ser um
3 3

Acredito ser apenas maus um detalhe. Eu estou usando Firebird.
Muito Obrigado !!

Essistemas · Answer

With IbQuery1,Sql do
begin
Clear ;
Add(�SELECT A.PRODUTO,SUM(A.QUANTIDADE),�);
Add(�A.PRODUTO,SUM(B.QUANTIDADE)�);
Add(�FROM ENTRADAS A, VENDAS B�);
Add(�GROUP BY A.PRODUTO,B.PRODUTO�);
Active:=True ;
end;
end;

Consegui assim tambem + preciso pegar a somatoria de cada tabela separado, ele esta somandado saida e entrada juntos. Eu Preciso de saber as entrada e saidas separadas !!, Se puder me ajudar a concluir !!

Emerson Nascimento · Answer

[code:1:30e959528a]with IbQuery1.Sql dobegin  Clear;  Add(�select�);  Add(�  p.produto,�);  Add(�  (select sum(e.quandidade)�);  Add(�   from entradas e�);  Add(�   where e.produto = p.produto) entradas,�);  Add(�  (select sum(v.quandidade)�);  Add(�   from vendas v�);  Add(�   where v.produto = p.produto) saidas�);  Add(�from�);  Add(�  produto p�);  Open;end;[/code:1:30e959528a]se quiser um determinado per�odo:[code:1:30e959528a]with IbQuery1.Sql dobegin  Clear;  Add(�select�);  Add(�  p.produto,�);  Add(�  (select sum(e.quandidade)�);  Add(�   from entradas e�);  Add(�   where e.produto = p.produto�);  Add(�     and e.data_entrada between :dataini and :datafim) entradas,�);  Add(�  (select sum(v.quandidade)�);  Add(�   from vendas v�);  Add(�   where v.produto = p.produto�);  Add(�     and v.data between :dataini and :datafim) saidas�);  Add(�from�);  Add(�  produto p�);  ParamByName(�dataini�).asdatetime := datainicial;  ParamByName(�datafim�).asdatetime := datafinal;  Open;end;[/code:1:30e959528a]...

Essistemas · Answer

Emerson valeu mesmo � isso mesmo,s� mais uma pergunta nesta Sql mesmo tenho a coluna entrada, Saidatem como eu criar mais a coluna saldo que seria Entrada - Saida, ficaria perfeito.  Obrigado !!! :lol:...

Emerson Nascimento · Answer

se voc� est� fazendo isso pelo Delphi, eu sugiro que o campo [i:654f5480d0]saldo[/i:654f5480d0] seja um campo calculado. assim a performance ser� maior, pois o dataset conseguiria trabalhar com os valores de entrada e sa�da j� somados.

se quiser trazer o saldo pela instru��o sql, as somas dever�o ser refeitas para o campo saldo, o que acarretar� em perda de performance:

with IbQuery1.Sql do 
begin 
  Clear; 
  Add(�select�); 
  Add(�  p.produto,�); 
  Add(�  (select sum(e.quandidade)�); 
  Add(�   from entradas e�); 
  Add(�   where e.produto = p.produto) entradas,�); 
  Add(�  (select sum(v.quandidade)�); 
  Add(�   from vendas v�); 
  Add(�   where v.produto = p.produto) saidas,�); 

  Add(�  (select sum(e.quandidade)�); 
  Add(�   from entradas e�); 
  Add(�   where e.produto = p.produto) - �); 
  Add(�  (select sum(v.quandidade)�); 
  Add(�   from vendas v�); 
  Add(�   where v.produto = p.produto) saldo�); 

  Add(�from�); 
  Add(�  produto p�); 
  Open; 
end;

ou:

with IbQuery1.Sql do 
begin 
  Clear; 
  Add(�select�); 
  Add(�  p.produto,�); 
  Add(�  (select sum(e.quandidade)�); 
  Add(�   from entradas e�); 
  Add(�   where e.produto = p.produto�); 
  Add(�     and e.data_entrada between :dataini and :datafim) entradas,�); 
  Add(�  (select sum(v.quandidade)�); 
  Add(�   from vendas v�); 
  Add(�   where v.produto = p.produto�); 
  Add(�     and v.data between :dataini and :datafim) saidas,�); 

  Add(�  (select sum(e.quandidade)�); 
  Add(�   from entradas e�); 
  Add(�   where e.produto = p.produto�); 
  Add(�     and e.data_entrada between :dataini and :datafim) - �); 
  Add(�  (select sum(v.quandidade)�); 
  Add(�   from vendas v�); 
  Add(�   where v.produto = p.produto�); 
  Add(�     and v.data between :dataini and :datafim) saldo�);

  Add(�from�); 
  Add(�  produto p�); 
  ParamByName(�dataini�).asdatetime := datainicial; 
  ParamByName(�datafim�).asdatetime := datafinal; 
  Open; 
end;

Essistemas · Answer

Emerson, nunca trabalhei com campo campo calculado, como eu faria neste caso para trabalhar neste caso, agredecendo sua boa vontande em ajudar, uma outra quest�o � esta sql s� busca se existir movimento de saida tambem, eu precisaria movimentos independentes, se tiver saida ele mostra saida e entrada 0 se tiver s� entrada ele mostra entrada e saida 0 intendeu, e que estou fazendo um mapa de movimenta��o de produtos .
Fiz uma modifica��o e inclui a pesquisa na tabela de produtos, p/ trazer o estoque do produto no momento

With ObjVendas.Tb_Vendas,sql do
begin
Clear;
Add(�select�);
Add(�P.produto,�);
Add(�(select sum(e.quantidade)�);
Add(�from entradas e�);
Add(�where e.produto = P.produto�);
Add(�and e.data_entrada between :dataini and :datafim) entradas,�);
Add(�(select sum(v.quantidade)�);
Add(�from vendas v�);
Add(�where v.produto = P.produto�);
Add(�and v.data between :dataini and :datafim) saidas,�);
Add(�(select sum(x.quantidade)�);
Add(�from Produtos x�);
Add(�where x.produto = P.produto) Estoque�);
Add(�from�);
Add(� VENDAS p�);
Add(�Group by P.Produto�) ;
ParamByName(�dataini�).asString := Data1.Text;
ParamByName(�datafim�).asString := Data2.Text;
Open;
end;

Emerson Nascimento · Answer

Preste aten��o nas dicas que lhe s�o passadas. Em nenhum dos exemplos a tabela principal � VENDAS, como voc� transcreveu.
A tabela principal para consulta � PRODUTOS. Isso porque, de outra forma, vai acontecer o que voc� notou: ser�o trazidos somente produtos que tenham sofrido alguma venda.

no caso do campo calculado � bem simples.
supondo que seus campos j� tenham sido �persistidos�, crie um novo campo do tipo calculado:
d� um duplo-clique no seu dataset e pressione CTRL+N (New Field).
Field Name: SALDO
Type: Float
Field Type: Calculated

Agora, no evento OnCalcFields do dataset, fa�a assim:
SeuDatasetSALDO.AsFloat := SeuDatasetENTRADAS.AsFloat - SeuDatasetSAIDAS.AsFloat;

Pronto! Ao exibir os campos numa grade, por exemplo, os valores aparecer�o como desejado.

Essistemas · Answer

Emerson Obigado pela ajuda, tenho procurado ficar atento as dicas, como meu conhecimento em sql � pouco fica um pouco complicado. + se no final eu sugerir a tabela produtos como esta no exemplo
Add(�from�);
Add(� produto p�); ele me traz todos os produtos da tabela produtos
e n�o aceita agruprar. Se eu colocar no final tabela Vendas ele me traz na quela situa��o que te passei e a agrupa normal, ser� que esta faltando ainda algum detalhe.
Obrigado !!

with IbQuery1.Sql do
begin
Clear;
Add(�select�);
Add(� p.produto,�);
Add(� (select sum(e.quandidade)�);
Add(� from entradas e�);
Add(� where e.produto = p.produto�);
Add(� and e.data_entrada between :dataini and :datafim) entradas,�);
Add(� (select sum(v.quandidade)�);
Add(� from vendas v�);
Add(� where v.produto = p.produto�);
Add(� and v.data between :dataini and :datafim) saidas,�);

Add(� (select sum(e.quandidade)�);
Add(� from entradas e�);
Add(� where e.produto = p.produto�);
Add(� and e.data_entrada between :dataini and :datafim) - �);
Add(� (select sum(v.quandidade)�);
Add(� from vendas v�);
Add(� where v.produto = p.produto�);
Add(� and v.data between :dataini and :datafim) saldo�);

Add(�from�);
Add(� produto p�);
ParamByName(�dataini�).asdatetime := datainicial;
ParamByName(�datafim�).asdatetime := datafinal;
Open;
end;

Emerson Nascimento · Answer

desculpe, n�o � uma bronca... � que �s vezes passamos as dicas de um jeito e os colegas copiam faltando algo, ou esquecendo de uma condi��o. o que eu quis dizer foi somente um �fique atento� se copiou a instru��o corretamente. desculpe se me fiz parecer rude. :(

quanto � sua �ltima mensagem, eu n�o entendi o que voc� quis dizer com
�se no final eu sugerir a tabela produtos como esta no exemplo
Add(�from�);
Add(� produto p�);
ele me traz todos os produtos da tabela produtos e n�o aceita agruprar�
eu n�o entendi o porque do agrupamento. a sua tabela produtos � o cadastros de produtos, com um registro pra cada produto, certo?
se sim, n�o � necess�rio agrupamento. ser�o calculados os totais para cada produto, n�o havendo necessidade de agrupamento, pois o sub-select j� trar� os valores �agrupados�.

talvez eu n�o tenha endendido corretamente a sua d�vida.

Essistemas · Answer

N�o que isso Emerson, n�o passou est� impress�o n�o � o seguinte.
Tenho uma tabela a onde s�o cadastrado todos os produtos certo.
Tenho uma tabela a onde s�o registrado todas as vendas que se chama vendas mesmo, tenho uma tabela de entrada que se chama entradas.

Ent�o eu preciso pegar os totais de todas a entradas e todas as saidas de um produto.

No exemplo que vc me passou no final do from ele faz select produto p, se deu deixar deste jeito ele traz para minha todo o meu cadastro de produto intendeu, Agora seu eu mudar esta ultima linha ]
from
Produtos p
Para From Vendas P
ai da certo, + cai naquela se n�i tiver venda ele n�o mostra a entrada tambem.

E quando mudo para from vendas eu tenho que fazer o seguinte
Group by Produto.P se n�o ele me traz os itens de forma desagrupada

Clear;
Add(�select�);
Add(�p.produto,�);
Add(�(select sum(e.quantidade)�);
Add(�from entradas e�);
Add(�where e.produto = p.produto�);
Add(�and e.data_entrada >= :dataini and e.data_entrada <=:datafim) entradas,�);
Add(�(select sum(v.quantidade)�);
Add(�from vendas v�);
Add(�where v.produto = p.produto�);
Add(�and v.data >= :dataini and v.data <=:datafim) saidas�);
Add(�from�);
Add(�Vendas p�);
Add(�Group by p.Produto�);
ParamByName(�dataini�).asString := Data1.Text;
ParamByName(�datafim�).asString := Data2.Text;
Open;

Obigado !!

Emerson Nascimento · Answer

certo... ent�o tentemos diferente. para isso ser� necess�rio criar um view:

create view vw_movimentacao (produto, entrada, saida, data)
as
select
  produto, quantidade, cast(0 as numeric(10,2)) saida, data_entrada
from
  entradas
union all
select
  produto, cast(0 as numeric(10,2)) entrada, quantidade, data
from
  vendas

depois da view criada, poderemos utiliz�-la assim:

select
  produto, sum(entrada) entrada, sum(saida) saida
from
  vw_movimentacao
where
  data between :dataini and :datafim
group by
  produto

Amarildo · Answer

Ola Emerson, estou tendo uma dificuldade quase parecida, somente uso um banco de dados (paradox) para gerenciar as entradas e saidas onde uso um campo identificador como situacao = �E� ou �S� OU �D� e gostaria de proceder conforme descrito no exemplo no qual tens feito, so que nao estou conseguindo descrever as funcionabilidades para que quando for uma destas situacoes a query busque se for E OU D acesse a tabela do cliente e quando for E a tabela do fornecedor, tenho tentado de varias formas possivel e tens ocorrido alguns erros, gostaria que em cima deste exemplo noqual tens ajudado o amigo poderia descrever como fa�o para encaixar minha duvida, obrg pela aten��o no aguardo por maiores informacoes.

Emerson Nascimento · Answer

certo, mas o que exatamente voc� quer exibir.passe um exemplo mostrando a estrutura das suas tabelas (somente os campos pertinentes) e o resultado que voc� deseja obter....

Amarildo · Answer

Emerson, vou passar uma rotina na qual tentei montar e nada de funcionar creio que para voce seja f�cil;

select lanctos.*, cadcli.cli_nome, cadfor.for_nome from lanctos, cadcli, cadfor
where
(lanctos.lct_operacao = �E� then
acesse o banco de dados dos fornecedores e traga o nome do fornec
sum(lanctosl.lct_quantidade * lct_preco) as totalentradas),

(lanctos.lct_operacao = �S� then
acesse o banco de dados CLIENTES e traga o nome do CLIENTE
sum(lanctosl.lct_quantidade * lct_preco) as totalSAIDAS),

(lanctos.lct_operacao = �D� then
acesse o banco de dados CLIENTES e traga o nome do CLIENTE
sum(lanctosl.lct_quantidade * lct_preco) as totalDEVOLUCAO)

Estou usando delphi 5 com base de dados paradox

NO AGUARDO POR MAIORES INFORMACOES