Montar query unindo 2 tabelas iguais

Firebird

28/10/2007

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.


Eremita

Eremita

Curtidas 0

Respostas

Douglasaltonia

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


GOSTEI 0
Sremulador

Sremulador

28/10/2007

tem diversas forma de fazer isso,

Union
inner join
ou SP, eu particulamente utilizo as duas ultimas opções.;.


GOSTEI 0
POSTAR