[firebase-br] Procedure não grava.
auriston geronimo lopes
auristonlopes em ig.com.br
Seg Abr 16 15:21:12 -03 2012
Boa Tarde a todos.
Estou fazendo esta procedure e ela nao grava os dados passados atraves do
update.
Se eu commitar atraves do IBExpert, ela grava, como faço para ela gravar,
sendo que não posso usar o commit na procedure.
CREATE PROCEDURE SOMAPIS_COFINS (
NPEDIDO INTEGER,
NSERIE VARCHAR(2),
NCLIFOR INTEGER,
TIPO VARCHAR(1))
RETURNS (
TOTALBASE_PIS_COFINS NUMERIC(15,2),
TOTAL_PIS NUMERIC(15,2),
TOTAL_COFINS NUMERIC(15,2))
AS
begin
select sum(totalprod) from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into totalbase_pis_cofins;
select sum(vr_pis) from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into total_pis;
select sum(vr_cofins) from movprodutos where (pedido = :NPEDIDO) and
(serie = :NSERIE) and (COD_CLI = :nclifor) into total_cofins;
if (:TIPO = 'E') then
Begin
update entradas set BASE_COFINS = :totalbase_pis_cofins,VR_COFINS =
:total_cofins,BASE_PIS = :totalbase_pis_cofins,VR_PIS = :total_pis,
TOTALPROD = :totalbase_pis_cofins where (nota = :NPEDIDO) and (serie =
:NSERIE) and (CODFOR = :nclifor);
End
else
Begin
update saidas set BASE_COFINS = :totalbase_pis_cofins,VR_COFINS =
:total_cofins,BASE_PIS = :totalbase_pis_cofins,VR_PIS = :total_pis,
TOTALPROD = :totalbase_pis_cofins where (pedido = :NPEDIDO) and (serie =
:NSERIE) and (COD_CLI = :nclifor);
End
suspend;
end
Mais detalhes sobre a lista de discussão lista