Error in procedure. Please!
ALTER PROCEDURE EQPRODUTOSP01 (ICODEMP INTEGER,
SCODFILIAL SMALLINT,
ICODPROD INTEGER,
ICODEMPAX INTEGER,
SCODFILIALAX SMALLINT,
ICODALMOX INTEGER,
DTPESQ DATE)
RETURNS (NSALDO NUMERIC(15, 5),
NSALDOAX NUMERIC(15, 5),
NCUSTOMPM NUMERIC(15, 5),
NCUSTOPEPS NUMERIC(15, 5),
NCUSTOMPMAX NUMERIC(15, 5),
NCUSTOPEPSAX NUMERIC(15, 5),
NCUSTOINFO NUMERIC(15, 5),
NCUSTOUC NUMERIC(15, 5))
AS
declare variable ddtmovprod date;
declare variable ddtmovprodax date;
begin
if (:dtpesq is null) then
begin
dtpesq = cast('now' as date);
end
/* Procedure que retorna saldos e custos para a tela de cadastro de
produtos */
select first 1 mp.dtmovprod, mp.sldmovprod , mp.custompmmovprod
from eqmovprod mp
where mp.codemppd=:icodemp and mp.codfilialpd=:scodfilial and
mp.codprod=:icodprod
and mp.dtmovprod<=:dtpesq
order by mp.dtmovprod desc, mp.codmovprod desc
into :ddtmovprod, :nsaldo, :ncustompm;
select first 1 mp.dtmovprod, mp.sldmovprodax, mp.custompmmovprodax
from eqmovprod mp
where mp.codemppd=:icodemp and mp.codfilialpd=:scodfilial and
mp.codprod=:icodprod
and mp.dtmovprod<=:dtpesq
order by mp.dtmovprod desc, mp.codmovprod desc
into :ddtmovprodax, :nsaldoax, :ncustompmax;
select p.ncustopeps from eqcalcpepssp(:icodemp, :scodfilial,
:icodprod, :nsaldo, :ddtmovprod, null, null, null ) p
into :ncustopeps;
select p.ncustopeps from eqcalcpepssp(:icodemp, :scodfilial,
:icodprod, :nsaldo, :ddtmovprodax, :icodempax, :scodfilialax,
:icodalmox ) p
into :ncustopepsax;
select p.custoinfoprod from eqproduto p
where p.codemp=:icodemp and p.codfilial=:scodfilial and
p.codprod=:icodprod
into :ncustoinfo;
select custounit from eqcustoprodsp(:icodemp, :scodfilial, :icodprod,
:dtpesq,'U',:icodempax, :scodfilialax, :icodalmox, 'N' )
into :ncustouc;
if(:ncustompm is null) then
begin
ncustompm = :ncustoinfo;
end
if(:ncustopeps is null) then
begin
ncustopeps = :ncustoinfo;
end
suspend;
end
---
Este email foi escaneado pelo Avast antivírus.
https://www.avast.com/antivirus
[Non-text portions of this message have been removed]
