SET TERM ^ ;

create or alter procedure UPDATESTANJEMOJEEKSP (
    EKSPID smallint) 
as
declare variable RID integer;
declare variable STANJE_R_ME numeric(15,3);
declare variable STANJE_ME numeric(15,3);
BEGIN

  FOR SELECT R.ROBAID, R.STANJE_MOJE_EKSP
  FROM ROBA R
  WHERE r.vrsta in (1,3) and
  r.stanje_moje_eksp <> (select sum(rum.stanje) from robaumagacinu rum
                         left join magacin m on rum.magacinid = m.magacinid
                         where rum.robaid = r.robaid and M.EKSPID = :EKSPID AND M.UTICENASTANJE = 1)
  INTO :RID, :STANJE_R_ME
  DO BEGIN
    SELECT SUM(RUM.STANJE) 
    FROM ROBAUMAGACINU RUM 
      LEFT JOIN MAGACIN M ON RUM.MAGACINID = M.MAGACINID
    WHERE ROBAID = :RID AND M.EKSPID = :EKSPID AND M.UTICENASTANJE = 1
    INTO STANJE_ME;
    IF (:STANJE_ME IS NULL) THEN STANJE_ME = 0;

    IF (:STANJE_R_ME <> :STANJE_ME) THEN
      UPDATE ROBA SET STANJE_MOJE_EKSP = :STANJE_ME WHERE ROBAID = :RID;
  END
  
END^