iBase.ru Forum

Код: Выделить всё

SET TERM ^ ;

CREATE PROCEDURE PRICE2UPDTSELLS (
    d2 timestamp,
    d1 timestamp)
returns (
    vtovar_kod integer,
    vsum double precision)
as
begin
        for SELECT T.TOVAR_KOD, SUM( T.KOLVO )
                 FROM protocol_arch T
                 where T.dateadd between :D1 and :D2
                 group by T.TOVAR_KOD
                 into :vtovar_kod, :vsum
        do
        begin
            update PRICE2 P2
            set P2.sells=:vsum where p2.tovar_kod=:vtovar_kod;
        end
        exit;
end^

SET TERM ; ^

GRANT SELECT ON PROTOCOL_ARCH TO PROCEDURE PRICE2UPDTSELLS;

GRANT SELECT,UPDATE ON PRICE2 TO PROCEDURE PRICE2UPDTSELLS;

GRANT EXECUTE ON PROCEDURE PRICE2UPDTSELLS TO SYSDBA;

Код: Выделить всё

SELECT T.TOVAR_KOD, SUM( T.KOLVO )
FROM protocol_arch T
where T.dateadd between d1 and d2
group by T.TOVAR_KOD