Zeoslib Portal

Code: Select all

SELECT * FROM PR_KALKULACJA_PP_SZCZEG

Code: Select all

SET TERM ^ ;
ALTER PROCEDURE PR_KALKULACJA_PP_SZCZEG
RETURNS (
    ID INTEGER,
    MASTER VARCHAR(30),
    NAZMASTER VARCHAR(50),
    OPIS1 VARCHAR(255),
    LVL INTEGER,
    PARENT VARCHAR(30),
    CHILD VARCHAR(30),
    NAZCHILD VARCHAR(50),
    TYP CHAR(1),
    AKTYWNY CHAR(1),
    CENA DECIMAL(18,4),
    CZAS DECIMAL(18,4),
    NR INTEGER,
    TYPBOM CHAR(1),
    MASTERILOSC FLOAT,
    ILOSCWWG FLOAT,
    ILOSCPOTRZEBNA FLOAT,
    JM VARCHAR(10),
    WARTOSC DECIMAL(18,4),
    CZASLACZNY DECIMAL(18,4) )
AS
declare cur cursor for 
    (SELECT ID, IDPRODPP, ILOSC FROM PR_PROGNOZA);

declare mID BIGINT;
declare mIDPROD VARCHAR(30);
declare mILOSC FLOAT;

BEGIN

DELETE FROM TEMP_PP;

OPEN cur;

while (1=1) do begin
    fetch cur into mID, mIDPROD, mILOSC;
    
    if (row_count = 0) then leave;
    
    -- poziom 0 - tylko nazwa i opis prognozowanego produktu
    INSERT INTO TEMP_PP
        (ID, MASTER, NAZCHILD, LVL)
        SELECT :mID, IDPROD, NAZPROD, 0 from PRODUKTY WHERE IDPROD=:mIDPROD;
    
    -- poziomy pozostałe
    INSERT INTO TEMP_PP (ID, MASTER, MASTERILOSC, LVL, PARENT, CHILD, NAZCHILD, TYP, ILOSCWWG, AKTYWNY, JM, CENA, CZAS, NR, TYPBOM)
        SELECT 
            :mID, :mIDPROD as MASTER, :mILOSC, LVL, PARENT, CHILD, NAZCHILD, TYP, ILOSCWWG, AKTYWNY, JM, CENA, CZAS, NR, TYPBOM
        FROM 
            PR_GETBOM_FULL (:mIDPROD);
        --WHERE
        --    TYP='M' or TYP='P';
end
  
CLOSE cur;

for
    select 
        t.ID
        , t.MASTER
        , p.NAZPROD as NAZMASTER
        , p.OPIS1
        , t.LVL, t.PARENT, t.CHILD, t.NAZCHILD, t.TYP, t.AKTYWNY, t.CENA, t.CZAS, t.NR, t.TYPBOM, t.MASTERILOSC, t.ILOSCWWG
        , t.MASTERILOSC*t.ILOSCWWG as ILOSCPOTRZEBNA
        , t.JM 
        , t.MASTERILOSC*t.ILOSCWWG * t.CENA as WARTOSC
        , t.MASTERILOSC*t.ILOSCWWG * t.CZAS / 3600.0000 as CZASLACZNY
    from
        TEMP_PP t
        left join PRODUKTY p on p.IDPROD=t.MASTER
    order BY
        t.ID, t.MASTER, t.LVL, t.PARENT, t.CHILD
    into
        ID, MASTER, NAZMASTER, OPIS1, LVL, PARENT, CHILD, NAZCHILD, TYP, AKTYWNY, CENA, CZAS, NR, TYPBOM, MASTERILOSC, ILOSCWWG
        ,ILOSCPOTRZEBNA
        ,JM
        ,WARTOSC
        ,CZASLACZNY

do SUSPEND;

END^
SET TERM ; ^