ALTER PROCEDURE "dba"."kp_kuuaru2014"( )
BEGIN
  declare ldc_easum numeric(15,2);
  declare ldc_summa numeric(15,2);
  declare ldc_prsum numeric(15,2);
  -- summeerimine
  update kp_kuuaru2014 set easum=0,summa=0,prsum=0;
  -- pohitegevuse tulud
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (3,4,5,6,7,8);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=2;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (9);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=9;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (11,12);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=10;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (14,15);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=13;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (17,18,19,20,21,22,23,24,25);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=16;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from kp_kuuaru2014 where id in (2,9,10,13,16);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=1;
  -- pohitegevuse kulud
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (28,29,30,31);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=27;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (33,34,35);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=32;
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from kp_kuuaru2014 where id in (27,32);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=26;
  -- pohitegevuse tulem
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from kp_kuuaru2014 where id in (1,26);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=36;
  -- investeerimistegevus
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (38,39,40,41,42,43,44,45,46,47,48,49);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=37;
  -- tulem
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from kp_kuuaru2014 where id in (36,37);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=50;
  -- finantseerimistegevus
  select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id in (52,53);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=51;
  -- saldode muutus
  if exists( select 1 from tm_rmpt where id=1 and k_ea_tekkep=1) then
    select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from gl_kp_kuuaruanne where id=54;
    update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa,kp_kuuaru2014.prsum=ldc_prsum where id=55;
    select sum(easum),sum(summa),sum(prsum) into ldc_easum,ldc_summa,ldc_prsum from kp_kuuaru2014 where id in (50,51);
    update kp_kuuaru2014 set easum=easum-ldc_easum,summa=summa-ldc_summa,prsum=prsum-ldc_prsum where id=55;
  end if;
  -- tegevusalad
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (590,600,610,620,630,640,650,660,670,680,690,700,710,720,730,740);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=580;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (760,770,780,790,800);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=750;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (820,830,840,850,860,870);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=810;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (890,900,910,920,930,940,950,960,970,980,990,1000,1010,1020,1030,1040,1050,1060,1070,1080,1090,1100,1110,1120,1130,1140,1150);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=880;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1170,1171,1180,1190,1200,1210,1220);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1160;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1240,1250,1260,1270,1280,1290);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1230;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1310,1320,1330,1340,1350,1360);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1300;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1380,1390,1400,1410,1420,1430,1440,1450,1460,1470,1480,1490,1500,1510,1520,1530,1540,1550,1560,1561,1562,1563,1564,1565,1566,1570,1580,1590,1600);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1370;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1620,1630,1640,1650,1651,1660,1670,1680,1681,1682,1690,1700,1704,1710,1720,1730,1740,1750,1760);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1610;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from gl_kp_kuuaruanne where id in (1780,1790,1800,1803,1804,1805,1806,1807,1810,1820,1821,1830,1840,1850,1853,1854,1860,1870,1880,1890,1900,1904,1910,1920);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=1770;
  select sum(easum),sum(summa) into ldc_easum,ldc_summa from kp_kuuaru2014 where id in (580,750,810,880,1160,1230,1300,1370,1610,1770);
  update kp_kuuaru2014 set kp_kuuaru2014.easum=ldc_easum,kp_kuuaru2014.summa=ldc_summa where id=570;
  -- nullimine
  update kp_kuuaru2014 set easum=0 where easum is null;
  update kp_kuuaru2014 set prsum=0 where prsum is null;
  update kp_kuuaru2014 set summa=0 where summa is null;
END