Amigos
Preciso de uma ajuda!!
Tenho dois grides que ao selecionar 1 me lista informações em outro.
O detalhe e que o meu sql esta funcionando mais
apenas para o primeiro teste, quando seleciona no gride um tipo
diferente ele não me traz nada, pois pula o segundo sql da consulta.
Agradeço a ajuda!!
procedure TForm1.SQL4;
begin
TMOV2.Close;
TMOV2.SQL.Clear;
if MAN.FieldByName('MINUTA').Text <> 'SEM MINUTA' then //verifica
if MAN.FieldByName('MINUTA').Text <> ' - ' then //
verifica
if MAN.FieldByName('MINUTA').Text <> '000-0000' then //verifica
begin
TMOV2.SQL.Add('SELECT');
TMOV2.SQL.Add(' M.NUMEROMOV,');
TMOV2.SQL.Add(' C.NOME,');
TMOV2.SQL.Add(' M.DATAEMISSAO,');
TMOV2.SQL.Add(' CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
TMOV2.SQL.Add(' M.QUANTIDADE,');
TMOV2.SQL.Add(' M.IDMOV,');
TMOV2.SQL.Add(' MC.DATAMINUTA,');
TMOV2.SQL.Add(' MC.MINUTA,');
TMOV2.SQL.Add(' MC.MINUTAANT,');
TMOV2.SQL.Add(' MC.MINUTAHIST');
TMOV2.SQL.Add('FROM TMOV M,FCFO C,TMOVCOMPL MC');
TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
TMOV2.SQL.Add(' AND M.STATUS <> '+ QuotedStr('C'));
TMOV2.SQL.Add(' AND MC.MINUTA = '+ QuotedStr(MAN.FieldByName
('MINUTA').Text));
TMOV2.SQL.Add(' AND M.CODTMV >= '+ QuotedStr('2.2.01'));
TMOV2.SQL.Add(' AND M.CODTMV <= '+ QuotedStr('2.2.12'));
TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME ');
//Memo4.lines.AddStrings(TMOV2.sql);
//exit;
end
else //não consegue ler este, mesmo quando as opções a cima
são iguais
begin
TMOV2.SQL.Add('SELECT ');
TMOV2.SQL.Add('M.NUMEROMOV,');
TMOV2.SQL.Add('C.NOME,');
TMOV2.SQL.Add('M.DATAEMISSAO,');
TMOV2.SQL.Add('CAST(M.PESOBRUTO AS FLOAT) PESOBRUTO,');
TMOV2.SQL.Add('M.QUANTIDADE,');
TMOV2.SQL.Add('M.IDMOV,');
TMOV2.SQL.Add('MC.DATAMINUTA,');
TMOV2.SQL.Add('MC.MINUTA,');
TMOV2.SQL.Add(' MC.MINUTAANT,');
TMOV2.SQL.Add(' MC.MINUTAHIST');
TMOV2.SQL.Add(' FROM TMOV M,FCFO C,TMOVCOMPL MC');
TMOV2.SQL.Add(' WHERE M.CODCFO = C.CODCFO');
TMOV2.SQL.Add(' AND MC.IDMOV = M.IDMOV');
TMOV2.SQL.Add(' AND M.STATUS <> '+ QuotedStr('C'));
TMOV2.SQL.Add(' AND MC.MINUTA IS NULL ');
TMOV2.SQL.Add(' AND M.CODTMV >= '+ QuotedStr('2.2.01'));
TMOV2.SQL.Add(' AND M.CODTMV <= '+ QuotedStr('2.2.12'));
TMOV2.SQL.Add(' ORDER BY M.NUMEROMOV,C.NOME');
Memo4.lines.AddStrings(TMOV2.sql);
// exit;
end;
TMOV2.Open;
end;
