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

[Francisco Thiago de Almeida]

Amigos, obrigado, o Marciano me deu uma mão e já está resolvido :D

Tnx!!!

Thiago
----- Original Message ----- 
From: "Francisco Thiago de Almeida" <jeandeadlucky em yahoo.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Thursday, December 16, 2004 3:16 PM
Subject: [firebase-br] O que está errado???


> 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 ; ^
>
>
>
>
> ______________________________________________
> FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
> Para editar sua configuração na lista, use o endereço 
> http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>