Montar query unindo 2 tabelas iguais
Tenho 2 tabelas iguais uma para compra e outra para venda de moedas estrangeiras. Preciso junta-las e demonstrar o resultado do periodo selecionado com base na moeda.
-------------COMPRA------------- -------------VENDA---------------
Moeda QteOper TotalMoeda TotalReais QteOper TotalMoeda TotalReais
DOLAR 27 18783,00 36491,29 13 10398,00 22065,95
EURO 8 6780,00 14462,00 - - -
Montei o seguinte codigo, porem para cada tabela, preciso agora junta-las observando que uma das operacoes pode ser 0 (zero).
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´select CODMOEDA, COUNT(*) as QTECPA, SUM(QTEMOEDA) as TOTCP1, SUM(TAXCAMBIO*QTEMOEDA) as TOTCP2 from BOLETOC where DATLANCTO between :pDT1 and :pDT2 group by CODMOEDA´);
IBQuery1.ParamByName(´pDT1´).Value := DateEdit1.Date;
IBQuery1.ParamByName(´pDT2´).Value := DateEdit2.Date;
IBQuery1.Open;
utilizo o mesmo codigo para venda apenas renomeando os campos ref count e sum.
-------------COMPRA------------- -------------VENDA---------------
Moeda QteOper TotalMoeda TotalReais QteOper TotalMoeda TotalReais
DOLAR 27 18783,00 36491,29 13 10398,00 22065,95
EURO 8 6780,00 14462,00 - - -
Montei o seguinte codigo, porem para cada tabela, preciso agora junta-las observando que uma das operacoes pode ser 0 (zero).
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add(´select CODMOEDA, COUNT(*) as QTECPA, SUM(QTEMOEDA) as TOTCP1, SUM(TAXCAMBIO*QTEMOEDA) as TOTCP2 from BOLETOC where DATLANCTO between :pDT1 and :pDT2 group by CODMOEDA´);
IBQuery1.ParamByName(´pDT1´).Value := DateEdit1.Date;
IBQuery1.ParamByName(´pDT2´).Value := DateEdit2.Date;
IBQuery1.Open;
utilizo o mesmo codigo para venda apenas renomeando os campos ref count e sum.
Eremita
Curtidas 0
Respostas
Douglasaltonia
28/10/2007
bom dia, eremita
Ja tentou utilizar tabelas temporarias usando o ClientDataSet? Procure aqui no clubedelphi sobre o assunto. Mudou muito o meu jeito de programar com 2 tabelas.
vlw
espero te ajudado
Douglas-Altonia
t
Ja tentou utilizar tabelas temporarias usando o ClientDataSet? Procure aqui no clubedelphi sobre o assunto. Mudou muito o meu jeito de programar com 2 tabelas.
vlw
espero te ajudado
Douglas-Altonia
t
GOSTEI 0
Sremulador
28/10/2007
tem diversas forma de fazer isso,
Union
inner join
ou SP, eu particulamente utilizo as duas ultimas opções.;.
Union
inner join
ou SP, eu particulamente utilizo as duas ultimas opções.;.
GOSTEI 0