DECLARE DATE_DIF NUMBER; MAX_DAT DATE; BEGIN SELECT MAX(DATED) INTO MAX_DAT FROM STOCK; DATE_DIF := MAX_DAT - :TEXT_TOP_DATED; FOR CNT IN 1..DATE_DIF LOOP SELECT OPENING, RECIEVED , CONSUME, CLOSING,DATED INTO :OPENING, :RECIEVED, :CONSUME, :CLOSING, :DATED FROM STOCK WHERE DATED = :TEXT_TOP_DATED + 1 AND PRODUCT_ID = :LOV_PNAME; :CLOSING := ( :OPENING + :RECIEVED ) - :CONSUME; UPDATE STOCK SET RECIEVED = :RECIEVED, CONSUME = :CONSUME , CLOSING = :CLOSING WHERE DATED = :TEXT_TOP_DATED AND PRODUCT_ID = :LOV_PNAME; :TEXT_TOP_DATED := :TEXT_TOP_DATED + 1; END LOOP; END;
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)