CREATE PROCEDURE "dba"."pa_koond_eksport_faili3"(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(,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,veerg34,veerg35,veerg36,veerg37,veerg38,veerg39,veerg40,veerg41,veerg42,veerg43,veerg44,veerg45,veerg46,veerg47,veerg48,veerg49,veerg50)
    select asulist_a.reg_nr,
           asulist_a.nimi,
           asulist_a.enimi,
           pa_leping.lepnr,
           pa_leping.tlnr,
           pa_yksus.kood,
           pa_yksus.nimi,
           pa_taslist.tas_s,
           pa_taslist.algol,
           pa_taslist.vmkood,
           pa_taslist.nimi,
           pa_taslist.deeb,
           pa_taslist.kree,
           pa_paryld.akuup,
           coalesce("pa_paryld"."lkuup","pa_isik"."kuup2","pa_leping"."kuup2") as pa_lkuup,
           pa_paryld."info",
           pa_paryld.summa1,
           pa_paryld.summa2,
           pa_paryld.summa3,
           asulist_b.reg_nr,
           asulist_b.nimi,
           asulist_b.enimi,
           asulist_c.reg_nr,
           asulist_c.nimi,
           asulist_c.enimi,
           pa_paryld.sarve,
           pa_paryld.viitnr,
           panklist.korresp,
           panklist.spanknimi,
           '',
           '',
           '',
           meetlist.meet,
           kullist.ptk,
           tallist.osa,
           objlist."object",
           osaklist.osak,
           sublist.subject,
           suundlist.suund,
           taotlist.taot,
           '',
           '',
           pa_paryld.meetnr,
           pa_paryld.kulnr,
           pa_paryld.talnr,
           pa_paryld.objectnr,
           pa_paryld.osaknr,
           pa_paryld.subjectnr,
           pa_paryld.suundnr,
           pa_paryld.taotnr

      from pa_paryld left outer join pa_yksus on pa_paryld.yksusnr=pa_yksus.yksusnr
                     left outer join pa_taslist on pa_paryld.tas_s=pa_taslist.tas_s
                     left outer join pa_isik on pa_paryld.lepnr=pa_isik.lepnr and pa_paryld.yksusnr=pa_isik.yksusnr
                     left outer join pa_leping on pa_paryld.lepnr=pa_leping.lepnr
                     left outer join asulist as asulist_a on pa_leping.asutnr=asulist_a.asutnr
                     left outer join asulist as asulist_b on pa_paryld.asutnr=asulist_b.asutnr
                     left outer join asulist as asulist_c on pa_paryld.saajanr=asulist_c.asutnr
                     left outer join panklist on pa_paryld.panknr=panklist.panknr
                     left outer join meetlist on pa_paryld.meetnr=meetlist.meetnr
                     left outer join kullist on pa_paryld.kulnr=kullist.kulnr
                     left outer join tallist on pa_paryld.talnr=tallist.talnr
                     left outer join objlist on pa_paryld.objectnr=objlist.objectnr
                     left outer join osaklist on pa_paryld.osaknr=osaklist.osaknr
                     left outer join sublist on pa_paryld.subjectnr=sublist.subjectnr
                     left outer join suundlist on pa_paryld.suundnr=suundlist.suundnr
                     left outer join taotlist on pa_paryld.taotnr=taotlist.taotnr
                    
      where (pa_yksus.skoop = a_skoop or a_skoop = 0) and
            Left(pa_yksus.kood,Length(a_yksuskood))=a_yksuskood and
            (pa_paryld.yksusnr=a_yksusnr or a_yksusnr = 0) and
            pa_paryld.akuup<=a_kuup and (pa_lkuup is null or pa_lkuup>=a_kuup);
end