[Resolvido] Stored Procedure

[Robinho de Morais 0]

Pessoal não sei se alguém ai pode me ajudar.....mas estava tenho um caso que ao deletar um produto de uma determinada entrada de estoque ele tem que ir na tabela entrada e diminuir a quantidade e valor ai estava ká comigo querendo deixar para o banco de dados fazer esse procedimento, sendo assim pensei na Stored procedure em vez até de criar uma função no sistema para isso....

eu uso o banco de dados firebird e estou tentando fazer essa stored procedure abaixo:

 

CREATE PROCEDURE P_PRD_ENTRADAS_AtuQtVlTotal
(
 vEmpCodigo      integer,
 vEntCodigo      Integer,
 vEntData        Integer,
 vCodProduto     INTEGER,
 vEntQtdTotal    Numeric (10,4),
 vEntVlTotalProd Numeric (10,6)
)

returns
(
   vEntQtdTotal    Numeric (10,4),
   vEntVlTotalProd Numeric (10,6)
)
as
begin
       Update Prd_Entradas Set EntQtdTotal = :vEntQtdTotal
       where EmpCodigo  = :vEmpCodigo and
          EntCodigo  = :vEmpCodigo and
          EntData    = :vEntData;
end

 

 

mas dá esse erro:

 

This operation is not defined for system tables.
unsuccessful metadata update.
STORE RDB$PROCEDURE_PARAMETERS failed.
attempt to store duplicate value (visible to active transactions) in unique index "RDB$INDEX_18".

 

alguem pode me ajudar ?

[Motta 645]

O erro foi na criação , não ?

 

criação

-------

 

a Síntaxe para criar em geral é ...

 

CREATE OR REPLACE PROCEDURE P_PRD_ENTRADAS_AtuQtVlTotal ...

 

... pois permite a manutença.

[Robinho de Morais 0]

Consegui resolver :

 

CREATE PROCEDURE P_PRD_ENTRADAS_ATUQTVLTOTAL (
   vempcodigo integer,
   ventcodigo integer,
   ventdata date,
   ventqtdtotal numeric(10,4),
   ventvltotalprod numeric(10,6),
   ventvltotentrada numeric(10,6))
as
begin
   Update Prd_Entradas Set EntQtdTotal = :vEntQtdTotal,
                           EntVlTotalProd = :vEntVlTotalProd,
                           EntVlTotEntrada = :vEntVlTotEntrada
   where EmpCodigo  = :vEmpCodigo and
         EntCodigo  = :vEntCodigo and
         EntData    = :vEntData;
end