begin
 for o_id in select "cis_ID" from cis.cis_objects
  loop
    START TRANSACTION; 
      for grow in select * from cis.cis_gl where o_id=cis.cis_gl.cis_object order by post_date limit  1 
       loop
         update cis.cis_gl set comment='hupdated', kt_s=  0 , dt_s=  606  
         where cis_gl.gl_id = grow.gl_id;
       end loop;
   COMMIT;
  end loop;
 return  0 ;
end

- Table: cis.cis_objects

-- DROP TABLE cis.cis_objects;

CREATE TABLE cis.cis_objects
(
  "cis_ID" bigint NOT NULL DEFAULT nextval('"cis_objects_cis_ID_seq"'::regclass),
  parient_id bigint NOT NULL DEFAULT  0 ,
  "Name" character( 100 ),
  code1 character( 50 ),
  code2 character( 50 ),
  insert_time interval,
  update_time interval,
  CONSTRAINT cis_pk PRIMARY KEY ("cis_ID"),
  CONSTRAINT parient_fk FOREIGN KEY ("cis_ID")
      REFERENCES cis.cis_objects ("cis_ID") MATCH SIMPLE
      ON UPDATE CASCADE ON DELETE NO ACTION,
  CONSTRAINT cis_objects_code1_key UNIQUE (code1),
  CONSTRAINT cis_objects_code2_key UNIQUE (code2)
) 
WITH OIDS;
ALTER TABLE cis.cis_objects OWNER TO cis;

CREATE INDEX fki_parient_fk
  ON cis.cis_objects
  USING btree
  ("cis_ID");

REATE TABLE cis.cis_gl
(
  cis_object bigint NOT NULL,
  dt_s double precision NOT NULL DEFAULT  0 ,
  kt_s double precision NOT NULL DEFAULT  0 ,
  sdt_s double precision NOT NULL DEFAULT  0 ,
  skt_s double precision NOT NULL DEFAULT  0 ,
  gl_id bigint NOT NULL DEFAULT nextval('cis_gl_id'::regclass),
  post_date timestamp with time zone NOT NULL DEFAULT now(),
  "comment" character( 100 ),
  createstep integer,
  CONSTRAINT gl_pk PRIMARY KEY (gl_id),
  CONSTRAINT cis_o FOREIGN KEY (cis_object)
      REFERENCES cis.cis_objects ("cis_ID") MATCH SIMPLE
      ON UPDATE CASCADE ON DELETE NO ACTION
) 
WITHOUT OIDS;
ALTER TABLE cis.cis_gl OWNER TO cis;


-- Index: cis.cis_gl_idx

-- DROP INDEX cis.cis_gl_idx;

CREATE INDEX cis_gl_idx
  ON cis.cis_gl
  USING btree
  (cis_object, post_date);



-- Trigger: insert_gl on cis.cis_gl

-- DROP TRIGGER insert_gl ON cis.cis_gl;

CREATE TRIGGER insert_gl
  BEFORE INSERT
  ON cis.cis_gl
  FOR EACH ROW
  EXECUTE PROCEDURE cis.insert_gl('f');
COMMENT ON TRIGGER insert_gl ON cis.cis_gl IS 'fd';

-- Trigger: update_gl on cis.cis_gl

-- DROP TRIGGER update_gl ON cis.cis_gl;

CREATE TRIGGER update_gl
  BEFORE UPDATE
  ON cis.cis_gl
  FOR EACH ROW
  EXECUTE PROCEDURE cis.update_gl();



CREATE OR REPLACE FUNCTION cis.update_gl()
  RETURNS "trigger" AS
$BODY$DECLARE sldd double precision;
DECLARE sldk double precision;
DECLARE trow cis.cis_gl%rowtype;
declare start_time timestamp;
declare sk double precision;
declare sd double precision;
declare glid bigint;
BEGIN
if (old.post_date<> new.post_date) or (new.kt_s <> old.kt_s) or (new.dt_s <> old.dt_s) then
  start_time = now();
  select sdt_s into sldd from cis.cis_gl where cis_gl.cis_object = new.cis_object and cis_gl.post_date< new.post_date
  order by post_date desc limit  1 ;
  if sldd is null then
     sldd =  0 ;
  end if;
  new.sdt_s= new.dt_s + sldd;
  select skt_s into sldk from cis.cis_gl where cis_gl.cis_object = new.cis_object and cis_gl.post_date< new.post_date
  order by post_date desc limit  1 ;
  if sldk is null then
     sldk =  0 ;
  end if;
  new.skt_s= new.kt_s + sldk;
   if ( 1 = 1 ) then
   sldd = new.sdt_s; sldk = new.skt_s;
   for glid,sd,sk in select gl_id,dt_s,kt_s from cis.cis_gl
     where cis_gl.cis_object = new.cis_object and cis_gl.post_date > new.post_date
     order by cis_gl.post_date
     loop
       sldd = sldd + sd; sldk = sldk + sk;
       update cis.cis_gl set skt_s= sldk , sdt_s= sldd where gl_id = glid;
     end loop;
  end if;
   update cis.cis_objects set update_time = now()-start_time where "cis_ID" = new.cis_object;
 end if;
 RETURN NEW;
END;$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
ALTER FUNCTION cis.update_gl() OWNER TO cis;


CREATE OR REPLACE FUNCTION cis.insert_gl()
  RETURNS "trigger" AS
$BODY$
DECLARE sld double precision;
DECLARE trow cis.cis_gl%rowtype;
BEGIN
  select sdt_s into sld from cis.cis_gl where cis.cis_gl.cis_object = new.cis_object and cis_gl.post_date< new.post_date
  order by post_date desc limit  1 ;
  if sld is null then
     sld =  0 ;
  end if;
  new.sdt_s= new.dt_s + sld;
  select skt_s into sld from cis.cis_gl where cis.cis_gl.cis_object = new.cis_object and cis_gl.post_date< new.post_date
  order by post_date desc limit  1 ;
  if sld is null then
     sld =  0 ;
  end if;
  new.skt_s= new.kt_s + sld;
  if ( 1 = 2 ) then 
    new.comment='insert';
    for trow in select * from cis.cis_gl
      where cis.cis_gl.cis_object = new.cis_object and cis.cis_gl.post_date > new.post_date
      order by cis.cis_gl.post_date
      loop
        update cis.cis_gl set comment='updated', skt_s= new.kt_s + trow.skt_s, sdt_s= new.dt_s + trow.sdt_s where cis_gl.gl_id = trow.gl_id;
      end loop;
   end if;
 RETURN NEW;
END;
$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
ALTER FUNCTION cis.insert_gl() OWNER TO cis;

---ну и сама процедурка которая плющит базку ;)

CREATE OR REPLACE FUNCTION cis.hrono_update()
  RETURNS integer AS
$BODY$DECLARE orow cis.cis_objects%rowtype;
DECLARE grow cis.cis_gl%rowtype;
DECLARE o_id bigint;
begin
 for o_id in select "cis_ID" from cis.cis_objects
  loop
---    START TRANSACTION; 
      for grow in select * from cis.cis_gl where o_id=cis.cis_gl.cis_object order by post_date limit  1 
       loop
         update cis.cis_gl set comment='hupdated', kt_s=  0 , dt_s=  606  
         where cis_gl.gl_id = grow.gl_id;
       end loop;
---   COMMIT;
  end loop;
 return  0 ;
end$BODY$
  LANGUAGE 'plpgsql' VOLATILE;
ALTER FUNCTION cis.hrono_update() OWNER TO cis;

CREATE SEQUENCE cis.cis_gl_id
  INCREMENT  1 
  MINVALUE  1 
  MAXVALUE  9223372036854775807 
  START  966943 
  CACHE  1 ;
ALTER TABLE cis.cis_gl_id OWNER TO cis;

CREATE SEQUENCE cis."cis_objects_cis_ID_seq"
  INCREMENT  1 
  MINVALUE  1 
  MAXVALUE  9223372036854775807 
  START  100 
  CACHE  1 ;
ALTER TABLE cis."cis_objects_cis_ID_seq" OWNER TO cis;

AS $$DECLARE orow cis.cis_objects%rowtype;
DECLARE grow cis.cis_gl%rowtype;
DECLARE o_id bigint;
begin
 for o_id in select "cis_ID" from cis.cis_objects where "cis_ID" =  100  -- ограничение типа
  loop
---    START TRANSACTION; --- хочется этого ;)
      for grow in select * from cis.cis_gl where o_id=cis.cis_gl.cis_object order by post_date limit  1 
       loop
         update cis.cis_gl set comment='hupdated', kt_s=  0 , dt_s=  909 
         where cis_gl.gl_id = grow.gl_id;
       end loop;
---   COMMIT; --- ну и продолжение чего хочется ;)
  end loop;
 return  0 ;
end$$