(Resolvido) Stored Procedure

[robinhocne]

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".

alguém pode me ajudar ?

Edited June 29, 2011 by robinhocne

[Jhonas]

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".

Esta operação não é definida para tabelas do sistema

actualização mal sucedida dos metadata.

STORE RDB$PROCEDURE_PARAMETERS falhou.

tente armazenar o valor duplicado (visível às transações ativas) em um unico indice "RDB$INDEX_18".

abraço

[robinhocne]

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".

Esta operação não é definida para tabelas do sistema

actualização mal sucedida dos metadata.

STORE RDB$PROCEDURE_PARAMETERS falhou.

tente armazenar o valor duplicado (visível às transações ativas) em um unico indice "RDB$INDEX_18".

abraço

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

Edited June 29, 2011 by robinhocne