CREATE PROCEDURE FININSERT (
    NNAME INTEGER,
    NDATEFIN DATE,
    NGLAVA INTEGER,
    NRAZDEL INTEGER,
    NCELSTAT INTEGER,
    NRASX INTEGER,
    NECONSTAT INTEGER,
    NNAZ INTEGER,
    NSUMFIN NUMERIC( 15 , 2 ),
    NNAPR INTEGER)
AS
DECLARE VARIABLE OLDSUM NUMERIC( 15 , 2 );
DECLARE VARIABLE OLDSUMPL NUMERIC( 15 , 2 );
begin
  SELECT SUM(Main.SUMFIN) FROM Main where
  Name=:NName AND Glava=:NGlava AND Razdel=:NRazdel AND CelStat=:NCelStat
  AND Rasx=:NRasx AND EconStat=:NEconStat
  group by Name,Glava,Razdel,CelStat,Rasx,EconStat into :OLDSUM;
  SELECT SUM(PLANFIN.SUMFIN) FROM PLANFIN
  WHERE Name=:NName AND Glava=:NGLAVA AND RAZDEL=:NRAZDEL AND CelStat=:NCelStat
  AND Rasx=:NRasx AND EconStat=:NEconStat
  group by PLANFIN.GLAVA, PLANFIN.RAZDEL INTO :OLDSUMPL;
  IF(:OLDSUM + :NSUMFIN <= :OLDSUMPL) THEN
   BEGIN
    INSERT INTO Main (Name,Datefin,Glava,razdel, celstat, rasx, econstat, naz, SumFin,Napr)
    VALUES (:nname,:ndatefin,:nglava,:nrazdel,:ncelstat,:nrasx,:neconstat,:nnaz,:nsumfin,:nnapr);
   END
  ELSE
    exception priv;
  suspend;
/*end^

SET TERM ; ^*/
END
COMMIT;/*Здесь ошибка*/
GRANT SELECT,INSERT ON MAIN TO PROCEDURE FININSERT;
COMMIT;