Código
LocLerTroca := 'SELECT A.L207_NUM_TROCA, A.L207_DAT_TROCA, A.L207_FORMA_PGTO, A.L207_VLR_DIF,' +
' B.L220_TIP_MVTO, B.L220_QTD_PROD, B.L220_VLR_MVTO ' +
' FROM TLJ_TROCA_CP A, TLJ_TROCA_IT B '+
' WHERE A.L207_COD_FIL = B.L220_COD_FIL'+
' AND A.L207_NUM_TROCA = B.L220_NUM_TROCA'+
' AND A.L207_COD_FIL = '+#39+PUBNumEmpresa+#39+
' AND A.L207_DAT_TROCA BETWEEN '+#39+LocDataIni+#39+' AND '+#39+LocDataFim+#39+
' AND A.L207_STA_REG = '+#39+'''A'''+#39+
' ORDER BY A.L207_COD_FIL, A.L207_DAT_TROCA, A.L207_NUM_TROCA';
DMFinLoja.qryJoinerTroca.Close;
DMFinLoja.qryJoinerTroca.SQL.Clear;
DMFinLoja.qryJoinerTroca.SQL.Add(LocLerTroca);
DMFinLoja.qryJoinerTroca.Open;
while (not DMFinLoja.qryJoinerTroca.Eof) do
begin
{ AQUI COLOQUE SEU CÓDIGO DE LEITURA}
DMFinLoja.qryJoinerTroca.Next;
end;
DMFinLoja.qryJoinerTroca.Close;
DMFinLoja.qryJoinerTroca.SQL.Clear;
Onde.:
LocLerTroca = variável local
PUBNumEmpresa = variável publica
LocDataIni = data no formato MM/DD/AAAA
LocDataFim = data no formato MM/DD/AAAA
Todos os parâmetros da query devem ser STRINGS
#39 = cria as aspas necessárias da STRING
DMFinLoja = Data Module
qryJoinerTroca = É um joiner de duas querys. Este joiner é criado através de um IBQUERY, onde no OBJECT INSPECTOR, em STRINGS, declaro o joiner assim.: select * from TLJ_TROCA_CP A, TLJ_TROCA_IT B
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009