CREATE PROCEDURE "dba"."pa_koond_eksport_faili1"(in a_skoop integer,in a_yksuskood char(16),in a_yksusnr integer,in a_kuup date)
begin
  delete from gl_eksport;
--  insert into gl_eksport(,veerg34,veerg35,veerg36,veerg37,veerg38,veerg39,veerg40,veerg41,veerg42,veerg43,veerg44,veerg45,veerg46,veerg47,veerg48,veerg49,veerg50,veerg51,veerg52)
  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)
    select asulist.reg_nr,
           asulist.nimi,
           asulist.enimi,
           pa_kaader.sugu,
           pa_kaader.saeg,
           pa_kaader.mres,
           pa_kaader.rkood,
           pa_kaader.vmliik,
           pa_kaader.oecd,
           pa_kaader.tm2,
           '',
           '',
           '',
           '',
           '',
           '',
           pa_leping.tlnr,
           pa_leping.kuup1,
           pa_leping.kuup2,
           pa_leping.kuup3,
           ametlist.amet,
           ametlist.nimi,
           pa_leping.id_koht,
           skoobid.nimi,
           '',
           '',
           '',
           '',
           '',
           pa_yksus.kood,
           pa_yksus.nimi,
           pa_isik.kuup1,
           pa_isik.kuup2

      from pa_isik left outer join pa_yksus on pa_isik.yksusnr=pa_yksus.yksusnr
                   left outer join pa_leping on pa_isik.lepnr=pa_leping.lepnr
                   left outer join ametlist on pa_leping.person=ametlist.person
                   left outer join skoobid on pa_leping.skoop=skoobid.skoop
                   left outer join pa_kaader on pa_leping.asutnr=pa_kaader.asutnr
                   left outer join asulist on pa_leping.asutnr=asulist.asutnr
                    
      where (pa_yksus.skoop = a_skoop or a_skoop = 0) and
            Left(pa_yksus.kood,Length(a_yksuskood))=a_yksuskood and
            (pa_isik.yksusnr=a_yksusnr or a_yksusnr = 0) and
            COALESCE("pa_isik"."kuup1","pa_leping"."kuup1")<=a_kuup and
            (COALESCE("pa_isik"."kuup2","pa_leping"."kuup2") is null or COALESCE("pa_isik"."kuup2","pa_leping"."kuup2")>=a_kuup);
end