CREATE PROCEDURE "dba"."pv_koond_eksport2"(in a_skoop integer,in a_yksusnr integer,in a_yksuskood char(16),in a_paring integer,in a_peralg date,in a_perlop date)
begin
  declare li_paring integer;
  delete from gl_eksport;
  set li_paring=set_gl_1(a_paring);
-- ,veerg32,veerg33,veerg34,veerg35,veerg36,veerg37,veerg38,veerg39,veerg40,veerg41,veerg42,veerg43,veerg44,veerg45,veerg46,veerg47,veerg48,veerg49,veerg50,veerg51,veerg52
--32,
--33,
--34,
--35,
--36,
--37,
--38,
--39,
--40,
--41,
--42,
--43,
--44,
--45,
--46,
--47,
--48,
--49,
--50,
--51,
--52
  insert into gl_eksport(veerg1,veerg2,veerg3,veerg4,veerg5,veerg6,veerg7,veerg8,veerg9,veerg10,veerg11,veerg12,veerg13,veerg14,veerg15,veerg16,veerg17,veerg18,veerg19,veerg20,veerg21,veerg22,veerg23,veerg24,veerg25,veerg26,veerg27,veerg28,veerg29,veerg30,veerg31,veerg32,veerg33,veerg34,veerg35,veerg36,veerg37,veerg38,veerg39,veerg40,veerg41,veerg42,veerg43,veerg44,veerg45,veerg46,veerg47,veerg48,veerg49,veerg50,veerg51,veerg52)
    select pv_yksus.kood, 
           pv_yksus.nimi,
           asulist_y.reg_nr,
           asulist_y.nimi,
           asulist_y.enimi,
           pv_yksus.konto,
           pv_yksus."order",
           pv_kanne_muuinfo.kood,
           pv_kanne_muuinfo.yldnimi,
           pv_kanne.toot_nr,
           pv_kanne.nimi,
           pv_kanne."info",
           pv_kanne.tunnus,
           pv_obj.nimi,
           pv_kanne.doknr,
           pv_kanne.kuup,
           pv_kanne.ekspl,
           pv_kanne.kogus,
           pv_kanne.alg_m,
           pv_kanne.ytk,
           pv_kanne.konto,
           ravolist_4.ravo,
           pv_yksus.deeb,
           pv_yksus.kree,
           artlist_y.art,
           '',
           get_pv_protsent("pv_kanne"."id",years(a_perlop),month(a_perlop)),
           ravolist_3.ravo,
           asulist_k.reg_nr,
           asulist_k.nimi,
           asulist_k.enimi,
32,
33,
34,
35,
36,
37,
38,
39,
40,
41,
42,
43,
44,
45,
46,
47,
48,
49,
50,
51,
52
      from pv_kanne left outer join gl_1 on(pv_kanne.id = gl_1.id) and(pv_kanne.kuup = gl_1.kuup)
                    left outer join pv_yksus on pv_kanne.yksusnr = pv_yksus.yksusnr
                    left outer join pv_kanne_muuinfo on pv_kanne.yldnimnr=pv_kanne_muuinfo."id"
                    left outer join pv_obj on pv_kanne.objnr=pv_obj.objnr
                    left outer join asulist as asulist_y on pv_yksus.asutnr=asulist_y.asutnr
                    left outer join artlist as artlist_y on pv_yksus.artnr=artlist_y.artnr
                    left outer join asulist as asulist_k on pv_kanne.asutnr=asulist_k.asutnr
                    left outer join ravolist as ravolist_3 on pv_kanne.ravonr3=ravolist_3.ravonr
                    left outer join ravolist as ravolist_4 on pv_kanne.ravonr4=ravolist_4.ravonr
      where ((pv_kanne.id = gl_1.id) and(pv_kanne.kuup = gl_1.kuup) or a_paring = 0) and
            (pv_yksus.skoop = a_skoop or a_skoop = 0) and
            (pv_kanne.yksusnr = a_yksusnr or a_yksusnr = 0) and
            Left(pv_yksus.kood,Length(a_yksuskood))=a_yksuskood and
            pv_kanne.kuup>=a_peralg and pv_kanne.kuup<=a_perlop;
end