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]