[firebase-br] O que está errado???

[Francisco Thiago de Almeida]

Caros amigos,

Estou escrevendo esta procedure aqui, mas ela nao atualiza/insere os dados 
de forma alguma. Alguém poderia me dizer porquê?

SET TERM ^ ;

ALTER PROCEDURE EXPORTCAD_CLIENTE (
    PCODIGO INTEGER,
    PESTADO CHAR(2),
    PDATA_NASCIMENTO DATE,
    PNOME VARCHAR(50),
    PENDERECO VARCHAR(60),
    PBAIRRO VARCHAR(25),
    PATIVO CHAR(1),
    PCODIGO_VIP CHAR(13),
    PFONE1 CHAR(25))
AS
DECLARE VARIABLE LI_COUNT INTEGER;
begin
  SELECT COUNT(CODIGO) FROM CAD_CLIENTE WHERE CODIGO = :PCODIGO INTO 
:LI_COUNT;
  if (:LI_COUNT > 0) then
    execute statement
      'update CAD_CLIENTE set '||
      '      Estado = '|| :PESTADO ||
      '    , Data_Nascimento = ' || :PDATA_NASCIMENTO ||
      '    , Nome = '|| :PNOME ||
      '    , Endereco = '|| :PENDERECO ||
      '    , Bairro = '|| :PBAIRRO ||
      '    , Ativo = '|| :PATIVO ||
      '    , Codigo_Vip = '|| :PCODIGO_VIP ||
      '    , Fone1 = '|| :PFONE1 ||
      ' where '||
      '   CODIGO = '|| :PCODIGO;
  else
    execute statement
      ' insert into CAD_CLIENTE ( '||
      '      CODIGO '||
      '    , Estado '||
      '    , Data_Nascimento '||
      '    , Nome '||
      '    , Endereco '||
      '    , Bairro '||
      '    , Ativo '||
      '    , Codigo_Vip '||
      '    , Fone1 '||
      ' ) value ( '||
      '      '|| :PCODIGO ||
      '    , '|| :PESTADO ||
      '    , '|| :PDATA_NASCIMENTO ||
      '    , '|| :PNOME ||
      '    , '|| :PENDERECO ||
      '    , '|| :PBAIRRO ||
      '    , '|| :PATIVO ||
      '    , '|| :PCODIGO_VIP ||
      '    , '|| :PFONE1;
  exit;
end


^

SET TERM ; ^