Como faço para que um PL/SQL funcione usando um componente TQuery?
Abaixo o código:
DECLARE
i NUMBER;
j NUMBER;
tot NUMBER;
BEGIN
FOR i IN 0 .. 23 LOOP
FOR j IN 0 .. 1 LOOP
IF j = 0 THEN
select i into horaini from dual;
select i + 0.3 into horafim from dual;
ELSE
select i + 0.3 into horaini from dual;
select i + 1 into horafim from dual;
END IF;
SELECT Count(*) INTO Tot FROM (SELECT TO_NUMBER(REPLACE (
saida ,',','.')) S FROM ISO9002.EST046
WHERE
DATA_MOV = :pData AND
VOLTA <> 99 AND
TIPO = 'GT'
)
WHERE S >= horaini
AND S < horafim;
INSERT INTO VEICULO_HORARIO VALUES (horaini,tot);
COMMIT;
END LOOP;
END LOOP;
END;
Desde já agradecida,
Maria Luisa Dall´Agnol
Analista de Sistemas
Cia Carris Porto-alegrense
(51) 3289-2131
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
