0
CREATE PROCEDURE SERI_SONDURUM
AS
declare variable SID INTEGER;
declare variable SDURUM INTEGER;
declare variable SSID INTEGER;
declare variable SSDURUM INTEGER;
BEGIN
FOR SELECT ID, DURUM FROM STK_SERI
INTO SID, SDURUM
DO
BEGIN
SELECT MAX(ID) FROM STK_SERIHAR WHERE SERIID=:SID INTO :SSID;
SELECT DURUM FROM STK_SERIHAR WHERE ID=:SSID INTO :SSDURUM;
IF (:SDURUM <> :SSDURUM) THEN
UPDATE STK_SERI
SET DURUM=:SSDURUM
WHERE ID=:SID;
END
END;
EXECUTE PROCEDURE SERI_SONDURUM;
DROP PROCEDURE SERI_SONDURUM;
