vc tem que setar o horario inicial dentro do while da data .... abs e boa sorte...
Rodinei Amorim Programador Freelancer Desenvolvimento de Sistemas (11) 8208-9503 rodinei.amo...@terra.com.br - rodinei_amo...@hotmail.com.br From: Daniel de Oliveira Sent: Tuesday, December 08, 2009 4:43 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] While encadeado nao funciona Olá amigos tenho o seguinte while encadeado para gerar a agenda do cliente begin /* Procedimento para geração da agenda no banco */ data_i = :data_inicial; hora_i = :hora_inicial; while (data_i <= :data_final) do begin while (hora_i <= :hora_final) do begin insert into temp (e10_data,e10_hora) values (:data_i,:hora_i); hora_i = hora_i + :intervalo; end data_i = data_i + 1; end suspend; end mas ele não executa as duas rotinas. Qdo tiro o while de dentro ele insere normalmente mas qdo deixo ele pro segundo loop não passa o step do primeiro. Alguem já teve esse problema?? Obrigado Daniel [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]