[firebase-br] Procedure

[Kleber Caneva]

E como você está chamando essa SP no seu programa ?

[]´s

Kléber Caneva

----- Original Message ----- 
From: "tmg-marcelo" <marcelo em tmg.ind.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, January 19, 2007 1:46 PM
Subject: Re: [firebase-br] Procedure


SET TERM ^ ;

CREATE PROCEDURE SP_ALTERA_ANIMAL (
    spdatanasc date,
    spnumpartos char(1),
    spsexo char(5),
    sppkgrupo integer)
as
declare variable vgrupo integer;
declare variable vdias integer;
begin
   vdias = current_date - :spdatanasc;

   if (:spsexo = 'Fêmea') then
   begin
      if (:spnumpartos = 1) then
        vgrupo = 8;
      else if (:spnumpartos = 2) then
        vgrupo = 9;
      else if (:spnumpartos >= 5) then
        vgrupo = 12;
      else if (:vdias <= 90) then
        vgrupo = 1;
      else if (:vdias > 90 and :vdias <= 180) then
        vgrupo = 2;
      else if (:vdias > 180 and :vdias <= 270) then
        vgrupo = 3;
   end else
   begin
      vgrupo = 13;
   end

  begin
    update tbanimal set
      fkgrupo =: vgrupo
    where fkgrupo = : sppkgrupo;
  end
end^

SET TERM ; ^

GRANT SELECT,UPDATE ON TBANIMAL TO PROCEDURE SP_ALTERA_ANIMAL;

GRANT EXECUTE ON PROCEDURE SP_ALTERA_ANIMAL TO SYSDBA;

O esquema q fiz foi esse, mas não consigo executar.

At.
Marcelo Reis


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa

E-mail classificado pelo Identificador de Spam Inteligente Terra.
Para alterar a categoria classificada, visite
http://mail.terra.com.br/protected_email/imail/imail.cgi?+_u=kdcc&_l=1,1169221756.174149.5786.curepipe.hst.terra.com.br,4392,Des15,Des15

Esta mensagem foi verificada pelo E-mail Protegido Terra.
Scan engine: McAfee VirusScan / Atualizado em 18/01/2007 / Versão: 
5.1.00/4942
Proteja o seu e-mail Terra: http://mail.terra.com.br/