[firebase-br] RES: While not Eof Do

[Ivan Guimarães Meirelles]

Olá HPesnador...

Não sei se vai funcionar como vc quer mas tenta assim:

CREATE PROCEDURE REPLICA_ENTIDADE 
as
declare variable icodigo integer;
declare variable snome varchar(60);
declare variable snewnome varchar(60);
BEGIN
  iCodigo = 418;
  FOR SELECT SUBSTRING(e.entidade FROM 5 FOR 60)
      FROM entidade e WHERE SUBSTRING(e.entidade FROM 0 FOR 4) <> 'CM. '
  INTO :sNome
  DO
  BEGIN
    sNewNome = '';
    sNewNome = 'CM. ' || sNome;
    INSERT INTO entidade (COD_ENTIDADE, ENTIDADE) VALUES (:iCodigo,
:sNewNome);
    iCodigo = iCodigo + 1;
  END
END

Um abraço...

Ivan Guimarães Meirelles
Três Lagoas/MS - igmeirelles em gmail.com