Ajuda de l�gica numa Consulta SQL.

Question

Fala Galera!� o seguinte, tenho tabela cpdos que cont�m OS�s, e cada OS tem uma data e hora de previs�o de execu��o.O que eu estou tentando fazer � que seja mostrado as OS�s que estouraram essa data e...

Bueno · Answer

Pessoal, desculpe, o c�digo estava errado..
segue abaixo o certo, por�m o o mesmo erro... hehehe

 qprev.Close;
        qprev.SQL.Clear;
        with qprev.SQL do begin
            Add(�SELECT  PDATAEXEC AS DATA, PHORAEXEC AS HORA, SERSOLIC, COD FROM CpdOS�);
            Add (� where situacao in("Pendente","Em Andamento")�);
            Add (� and PDATAEXEC <= :vdata�);
            Add (� and PHORAEXEC <= :vhora�);
            Add (� order by cod�);
            qprev.ParamByName(�vdata�).asdate := date;
            qprev.ParamByName(�vhora�).astime := Now;
        end;
        qprev.Open;

Com este c�digo, a query me trar� as OS�s que a PDATAEXEC <= :vdata e que a PHORAEXEC <= :vhora. Isto �, a query n�o me trar� os registros que a PDATAEXEC for menor que vdata mas que PHORAEXEC for maior que vhora.

Qker d�vida postae q eu tento ser mais claro...

Skywalker · Answer

veja bem o segundo parametro:�now� - ele retorna a data e a hora atual.Talvez seja ele....

Bueno · Answer

[b:fc85fd159a]skywalker[/b:fc85fd159a]N�o vejo problema a�, pois � exatamente isso que eu quero.. essa rotina est� dentro de um timer que ser� executado a cada 5 min.Eu teria q usar If�s dentro dessa query, mas nem sei se isso � poss�vel? ent�o... � poss�vel usar if�s numa query?Teria q ser +/- assim:Selecionar os registros em que a DATAEXEC for menos que a data atual. E selecionar os registros em que a DATAEXEC for igual a data atual, mas a HORAEXEC for menor que a hora atual.Mas... COMO EU FA�O ISSO?!?!??!Valew!!!!...

Skywalker · Answer

Caro bueno se voc� comprara uma hora:Ex: 11:55:35com um valor retornado da fun��o Now do delphiEx: 23/06/2004 11:55:35ira retornar alguns campos n�o desejados, ent�o minha sugest�o e no lugar do Now coloque time, e me retorne caso funcione....

Paulo_amorim · Answer

Ol�Se o que o skywalker ta falando eh correto, troque Now; por Time;At�+...

Bueno · Answer

[b:a2af250956]skywalker , Paulo_Amorim[/b:a2af250956]

Senhores, o meu problema � de l�gica!!! n�o � a fun��o!
Ponham isso num bot�o e mandem executar e vejam o resultado:

showmessage(timetostr(Now));

aguardo respostas...

Skywalker · Answer

pelo o que eu vi n�o ha erros de logica pois as condi��es com os and�s est�o todas corretas, porem sugiro que ao inves de compara os dois campos data e hora separados compare eles juntos atraves de uma concatena��o.N�o vai ser a coisa mais rapida, porem pode funcionar.

Bueno · Answer

vc tem raz�o! c eu usar concatenado, vai funcionar, por�m... como eu concateno dois campos string para um campo DateTime???
por enquanto minha sql t� assim:

cdata := datetimetostr(now);
qprev.Close;
qprev.SQL.Clear;
with qprev.SQL do begin
    Add(�SELECT SERSOLIC, COD, PDATAEXEC + " " + PHORAEXEC as PDATAEXEC FROM CpdOS�);
    Add (� where situacao in("Pendente","Em Andamento")�);
    Add (� and PDATAEXEC <= :vdata�);
    Add (� order by cod�);
    qprev.ParamByName(�vdata�).asdatetime := strtodatetime(cdata);
end;
qprev.Open;

Skywalker · Answer

no caso na hora que voce concatenar os campo eles virar�o um campo string �PDATAEXEC�, logo voce nao precisa converte sua variavel string �cdata� para datetime, pois o campo concatenado � uma string.
logo sugiro que a ultima parte do seu codigo fique assim

�qprev.ParamByName(�vdata�).value:= cdata;�
Talvez funcione.

Bueno · Answer

Kra, agrade�o sua ajuda! valew mesmo!Consegui resolver o meu problema da seguinte forma:[code:1:f9660514ad]        qprev.Close;        qprev.SQL.Clear;        with QPrev.SQL do begin            Add(�Select PDataExec, PHoraExec, SerSolic, cod  from CPDOS�);            Add(�where situacao in ("Pendente", "Em Andamento")�);            Add(�And PDATAEXEC < :VDATA�);            Add(�or situacao in ("Pendente", "Em Andamento")�);            Add(�and PDATAEXEC = :VDATA and PHoraExec < :VHORA �);            Add(�Order By PDataExec, PHoraExec, COD�);            qprev.ParamByName(�vdata�).AsDate:= strtodatetime(FormatDatetime(�DD/MM/YY�,date));            qprev.ParamByName(�vhora�).Astime := strtotime(FormatDateTime(�hh:mm:ss�,time));        end;        qprev.Open;[/code:1:f9660514ad]...

Everton · Answer

bueno, sei que voc� j� conseguiu resolver o seu problema, mas deixo aqui uma outra solu��o:


qprev.Close; 
qprev.SQL.Clear; 
with QPrev.SQL do 
begin 
  Add(�Select PDataExec, PHoraExec, SerSolic, cod  from CPDOS�); 
  Add(�where situacao in ("Pendente", "Em Andamento") �); 
  Add(�And ((PDATAEXEC < CURRENT_DATE)        �); 
  Add(�      or ((PDATAEXEC = CURRENT_DATE)     �);
  Add(�      and (PHoraExec < CURRENT_TIME)))    �); 
  Add(�Order By PDataExec, PHoraExec, COD�); 
end; 
qprev.Open;

F�rum Ajuda de l�gica numa Consulta SQL. #239299