#Error 1307

[Marcos Silva]

Ola colegas,

Estou tentando criar um procedure relativamente simples e estou recebendo uma mensagem de erro que está longe de ser clara. Alguém pode me ajudar?

Versão do mysql que estou usando: 5.0.23-pro-nt (infelizmente não posso mudar a versão)

Apply changes to agrupaServicos     Error 1307: Failed to 
create procedure nfems.agrupaServicos ()
BEGIN
   declare done int default 0;
   declare rpi_servico varchar(80);
   declare lista_servico varchar(1024);

   declare curItens cursor 
   for     select rpi_servico
           from   nfse_rps_item;
  
   declare continue handler for not found set done = 1;
   open curItens;
   
   repeat
      fetch curItens into rpi_servico;
      if (lista_servico <> '') then
         set lista_servico = concat(lista_servico, ' ,');
      end if;
      
      set lista_servico = concat(lista_servico, rpi_servico);
      
   until done 
   end repeat;
   
   close curItens;
end

[Denis Courcy]

'Marcos Silva',

Tente assim:

DELIMITER $$;
create procedure agrupaServicos ()
BEGIN
   declare done int default 0;
   declare rpi_servico varchar(80);
   declare lista_servico varchar(1024);

   declare curItens cursor 
   for     select rpi_servico
           from   nfse_rps_item;
  
   declare continue handler for not found set done = 1;
   open curItens;
   
   repeat
      fetch curItens into rpi_servico;
      if (lista_servico <> '') then
         set lista_servico = concat(lista_servico, ' ,');
      end if;
      
      set lista_servico = concat(lista_servico, rpi_servico);
      
   until done 
   end repeat;
   
   close curItens;
END$$

DELIMITER;$$

[Marcos Silva]

E ae jovem...

Cara não funcionou! Estou tentando de tudo mas nada ainda. Se alguém puder ajudar vou ficar muito grato!!

[Denis Courcy]

'Marcos Silva',

Tente novamente assim:

DELIMITER $$
create procedure agrupaServicos ()
BEGIN
   declare done int default 0;
   declare rpi_servico varchar(80);
   declare lista_servico varchar(1024);

   declare curItens cursor 
   for     select rpi_servico
           from   nfse_rps_item;
  
   declare continue handler for not found set done = 1;
   open curItens;
   
   repeat
      fetch curItens into rpi_servico;
      if (lista_servico <> '') then
         set lista_servico = concat(lista_servico, ' ,');
      end if;
      
      set lista_servico = concat(lista_servico, rpi_servico);
      
   until done 
   end repeat;
   
   close curItens;
END$$

DELIMITER;

[Marcos Silva]

Dennis, via editor SQL ou pelo Wordbench não fumega.....

[Denis Courcy]

Dennis, via editor SQL ou pelo Wordbench não fumega.....

Então você deve estar com algum problema de acesso, pois eu consegui sem problemas.