{ repro zostavy R5021,31,41}
 var mesrok1,zvlznak,mes1,nazmes,rok1,mrok_1,chovatelst,den,hybr:string;
    mesrok1_1,rmr,vek,sinsvrh,poczmet,str,
    vekk,rmrk,pocdniodzr,ch,a,a1,ch1,mn,ocakinsem:real=0;
.pagelimit:=62;
#I_TLSUB4/KLPLEM podnik,okres,zavod,chov,znakprv,plemeno,prasnica,linreg
#RH{*** urcenie datumu z parametr.zadania , vypocet spracovavaneho mesiaca}
 begin
      mesrok1:=copy(param.spracmes,1,2)+'.'+copy(param.spracrok,1,2);
      mesrok1_1:=addmonth((valdate(mesrok1,'MM.YY')),-1); 
      mrok_1:=strdate(mesrok1_1,'MM.YY');
      mes1:=param.spracmes;
      rok1:=strdate(valdate(mesrok1,'MM.YY'),'YYYY');
      nazmes:=cond(mes1='01':'   janur',
                   mes1='02':'  februr',mes1='03':'    marec',
                   mes1='04':'    aprl',mes1='05':'      mj',mes1='06':'      jn',
                   mes1='07':'      jl',mes1='08':'   august',mes1='09':'september',
                   mes1='10':'  oktber',mes1='11':' november',mes1='12':' december',
                   else:'         ');
    {urcenie poctu dni od zaciatku roka - pocdniodzr}
    if(param.spracmes='01'|param.spracmes='03'|param.spracmes='05'|
       param.spracmes='07'|param.spracmes='08'|param.spracmes='10'|
       param.spracmes='12')
      then den:='31.'
      else
        begin
          if (param.spracmes='04'|param.spracmes='06'|param.spracmes='09'|
              param.spracmes='11')
              then den:='30.'
                 else
                   begin
                     if((val(param.spracrok))mod(4))=0
                       then den:='29.'
                        else den:='28.';
                   end;
         end;
 pocdniodzr:=1+valdate((den+param.spracmes+'.'+param.spracrok),'DD.MM.YY')
             -valdate(('1.1.'+param.spracrok),'DD.MM.YY');
end;
#PH today,page;
    __.__.__                                                                                                                                                           strana: ______
#PH( znakprv='0' & chovatelst=chovatel );
ͻ
Reg. PvodovCecOtec prasnice     VJH prasnice          Zar. do KU BLUP  Prip./insm.     Hybr.Dt.opr.Charak. PriemC    P   priemery    CP napotySV kance         
sloslo                        prir  ME     slan cm dovoz      cph   kancom-register vrhu oakav. vrhu    MO   PV V   I   DO   ML   V  ZI  DOprir slan hm prod
pras.Ķ
     Dtum   VekMatka prasnice    V prasnice           Vyr. z KU  Ur.  Dt. prip./ins. Suma Dt.opr.Dt.    MO   Posledn vrh          CP napotySV prasniky     
     narod.                       prir   slan hm    ph dvod      podsk.Poradie Lnia k.in/vrskuto. odstavu      PV V   I   DO   ML   MN DEF  ZMprir slan hm prod
ͼ
#PH( znakprv='1' & a<>1 & chovatelst=chovatel)begin a1:=1;a:=0;end;
ͻ
     K A N E C       Pvod.  CecDt.zarad. Otec kanca           pecil.testy Reprodukcia 1.vrhy      V kaneky        VJH ukonen test   P.pripM BLUP AM     Nkup z chovu                              
                     slo   ky do K                           DNA       ph  PV   V   I   DO   ML  p    PR  SL   CM komb. PR   SL   CM / ins.cph     top                                              
                     Ĵ              Ķ
Nz.linie linia reg. Dtum   VekDt.vyrad. Otec matky kanca     V kanca      Reprodukcia ostatn vrhyV prasniky      VJH ukonen test   P.norm                                                          
Nz.plemena          nar.       z K  dvod                     prir slan pcs PV   V   I   DO   ML  p    PR  SL   CM komb. PR   SL   CM vrhov r1     r2       prv   slv    prvjh  slvjh   cmvjh      
ͼ

#CH_chov ( znakprv='1'| znakprv='0')begin a:=0;a1:=0;ch1:=0;chovatelst:=chovatel;end,parku.zos,today,menodb.konzulent,podnik,okres,zavod,chov,menodb.nazzav,menodb.nazov,nazmes,rok1;
ͻ
  Plemenrske sluby Slovenskej republiky, .p.                                                                                                                Zostava :   _____    
  PZ - ilina                                                                                                                                                 Dtum tlace:__.__.__ 
                                                                                                                                                               Kd:       _____     
  TTNY REGISTER CHOVU            :    __ __  ___  __                                                                                                                              
  PREHAD PRASNC A KANCOV ZAPOJENCH DO K V CHOVE :__________________________________________________ ______________________________              ZA MESIAC :_________ ____       
                                                                                                                                                                                    
ͼ
#CH_plemeno(znakprv='0')plemeno,npl;
ͻ
 Plemeno :  ________     _____________________                                                                                                                                      
ͼ
#CH_znakprv(znakprv='0');
ͻ
Reg. PvodovCecOtec prasnice     VJH prasnice          Zar. do KU BLUP  Prip./insm.     Hybr.Dt.opr.Charak. PriemC    P   priemery    CP napotySV kance         
sloslo                        prir  ME     slan cm dovoz      cph   kancom-register vrhu oakav. vrhu    MO   PV V   I   DO   ML   V  ZI  DOprir slan hm prod
pras.Ķ
     Dtum   VekMatka prasnice    V prasnice           Vyr. z KU  Ur.  Dt. prip./ins. Suma Dt.opr.Dt.    MO   Posledn vrh          CP napotySV prasniky     
     narod.                       prir   slan hm    ph dvod      podsk.Poradie Lnia k.in/vrskuto. odstavu      PV V   I   DO   ML   MN DEF  ZMprir slan hm prod
ͼ
#CH_znakprv( znakprv='1' & a1<>1) begin a:=0;end;
ͻ
     K A N E C       Pvod.  CecDt.zarad. Otec kanca           pecil.testy Reprodukcia 1.vrhy      V kaneky        VJH ukonen test   P.pripM BLUP AM     Nkup z chovu                              
                     slo   ky do K                           DNA       ph  PV   V   I   DO   ML  p    PR  SL   CM komb. PR   SL   CM / ins.cph     top                                              
                     Ĵ              Ķ
Nz.linie linia reg. Dtum   VekDt.vyrad. Otec matky kanca     V kanca      Reprodukcia ostatn vrhyV prasniky      VJH ukonen test   P.norm                                                          
Nz.plemena          nar.       z K  dvod                     prir slan pcs PV   V   I   DO   ML  p    PR  SL   CM komb. PR   SL   CM vrhov r1     r2       prv   slv    prvjh  slvjh   cmvjh      
ͼ
#CF_prasnica( znakprv='0')
BEGIN
     {vypocet veku prasnice}
     if praspev.datnar=0
      then vek:=0
      else
       begin
         rmr:=(val(rok1)-val(strdate(praspev.datnar,'YYYY')))*12;
         vek:=(val(param.spracmes)-val(strdate(praspev.datnar,'MM')))+rmr;
       end;
{vypocet zvlastnych znakov}
if praspev.datvyr>0 then zvlznak:=' vyr'
                    else
                       begin
                         if typ='1' then zvlznak:='prip';
                         if typ='2' then if datodst>0 then zvlznak:='odst'
                                                      else zvlznak:=' opr';
                         if praspev.datzar=0 then zvlznak:='zar';
                       end;
{vypocet suma ins/vrh}
sinsvrh:=sum(cond( typ='1':1))/sum(cond(typ='2':1));
{pocet zmetanych vrhov}
poczmet:=sum(cond(priebvrh='2':1));
{mrtvo narodene}
mn:=sum(cond(priebvrh='3':vs));
{ocakavana hybridizacia}
if datum>0 then hybr:=copy(stuphybr,1,4) else hybr:=copy(plempot,1,4);
if datins>0 then ocakinsem:=datins+115 else ocakinsem:=0;
end,
{1r} prasnica,praspev.uscis,copy(praspev.struky,1,1),copy(praspev.struky,2,1),
     {test DNA}praspev.regotca,praspev.nazotca,{test DNA otca}
     vjhpriem.prir,vjhpriem.vsz*17.57,vjhpriem.pslan,vjhpriem.pcmc,{vjhpriem.bovjh,vjhpriem.trievjh,}
     praspev.datzar,praspev.dovoz,cph,{***}nazkan,regkan,{****}
     {DNK}{zmenit}hybr{copy(stuphybr,1,4)},{datins+115}ocakinsem,priebvrh,praspev.pmedz,
     vjhpriem.porvrhu,vjhpriem.Pvs,vjhpriem.Pzi,vjhpriem.Pdo,vjhpriem.Pv21,
     sum(vs),sum(ziv),sum(doch),{sum(vaha21) round 0,}
     pomocn.pprir6p,pomocn.pslan6p,pomocn.hmc6p,pomocn.pocet6u,
{2r} zvlznak,praspev.datnar,vek,praspev.po,praspev.ok,praspev.zav,
      praspev.chovm,praspev.matka{test DNA matky},praspev.pprir,praspev.pslan,
      praspev.phmc,praspev.pha,praspev.datvyr,praspev.dovvyr,praspev.pljs,
      {****}datins,porins,linkan,{****}sinsvrh,
      datum,datodst,medzidob,porvrhu,vs,ziv,doch,vaha21,{mrtvo narodene}mn,sum(def),poczmet,
      pomocn.pprir3p,pomocn.pslan3p,pomocn.hmc3p,pomocn.pocet3u;
Ŀ
_____ ________/______   ______________. __.__ _.__ __.____.__.__ ______.___________ _____ ______.__.__       ____.___ __._ __._ __._ __.____ ___ ______. _.__ __._ ___
 ______.__._______ __ ___ __ _____ ___.  _.__ __._  _.____.__.__ __     ___.__.__ __ ______.____.__.____.__._____  __ __   __   __   __.____ ___ ______. _.__ __._ ___
#CF_plemeno(znakprv='0');
             \
#CF_linreg(znakprv='1')
                     begin {vypocet veku kanca}
                          if kance.datnar=0 then vekk:=0
                                            else
                               begin
                                 rmrk:=(val(rok1)-val(strdate(kance.datnar,'YYYY')))*12;
                                 vekk:=(val(param.spracmes)-val(strdate(kance.datnar,'MM')))+rmrk;
                               end;
                       end,
 {1}nazkan,linkan,regkan,kance.uscislo,copy(kance.struky,1,1),copy(kance.struky,2,1),
    kance.datzar,kance.nazotca,kance.linotca,kance.regotca,kance.pha,
    pocvr1,vs1,ziv1,doch1,vaha211,
    pomocnk.pocet6u,pomocnk.pprir6p,pomocnk.pslan6p,pomocnk.hmc6p,
    copy(Vjhkprie.sthybvjh1,1,4),Vjhkprie.prir1,Vjhkprie.slan1,Vjhkprie.pcmc1,
    INSOPRZ.ins,KSAMCE.cph,KSAMCE.pcph,
    KANCE.mpod,KANCE.mokr,KANCE.mzav,KANCE.mcho,KANCE.nazpovod,
 {2}nplk,{copy(kance.plemeno,1,4),}kance.datnar,vekk,kance.datvyr,kance.dovvyr,
    nazotcamat,otecmatkyl,otecmatkyr,kance.prirk,kance.slank,kance.hmck,
    pocvr3,vs3,ziv3,doch3,vaha213,
    pomocnk.pocet3u,pomocnk.pprir3p,pomocnk.pslan3p,pomocnk.hmc3p,
    copy(Vjhkprie.sthybvjh2,1,4),Vjhkprie.prir2,Vjhkprie.slan2,Vjhkprie.pcmc2,
    INSOPRZ.opr,KSAMCE.nba1,KSAMCE.nba2,KSAMCE.adgft,KSAMCE.bfft,KSAMCE.adgst,
    KSAMCE.bfst,KSAMCE.vc;
Ŀ
__________ ____ ____________ _/___.__.__   __________ ____ _____          _.______ __._ __._ __._ __.____ ___. _.__ __._____ ____. _.__ __.______.@@@@@.@ @@@@@@@@ @@ @@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
_______________________.__._______.__.__ ____________ ____ ________. _.__ __._____ __._ __._ __._ __.____ ___. _.__ __._____ ____. _.__ __.______.@@@@.@@ @@@@.@@ @@@@.@ @@@@.@@ @@@@.@ @@@@.@@ @@@@.@@     
#CF_chov begin ch1:=1;end,
    rok1,today,podnik,okres,zavod,chov,
    uzav.zarprippras+uzav.zarpras,
    uzav.zarneppras,uzav.zarprippras,uzav.zarpras,uzav.zarneppras+uzav.zarprippras,
    uzav.vyrvsetkypras-uzav.vyrprasnice,uzav.vyrprasnice,
    ((uzav.zarneppras+uzav.zarprippras)*100)/uzav.zarpras round 0,uzav.pripustenev,
    uzav.skd/pocdniodzr round 0,{pre prasn+prasnic}
    uzav.pocvrhp/(uzav.skd/pocdniodzr) round 1,uzav.svsp/(uzav.skd/pocdniodzr) round 1,uzav.szivp/(uzav.skd/pocdniodzr) round 1,uzav.sdochp/(uzav.skd/pocdniodzr) round 1,
    uzav.oprasenev,uzav.odstavene,
    uzav.skdp/pocdniodzr round 0,{pre prasnice}
    uzav.pocvrhp,uzav.svsp/uzav.pocvrhp round 1,uzav.szivp/uzav.pocvrhp round 1,uzav.sdochp/uzav.pocodstp round 1,uzav.svaha21p/uzav.pvazp round 1,
    uzav.pocvrhp/(uzav.skdp/pocdniodzr) round 1,uzav.svsp/(uzav.skdp/pocdniodzr) round 1,uzav.szivp/(uzav.skdp/pocdniodzr) round 1,uzav.sdochp/(uzav.skdp/pocdniodzr) round 1,uzav.smop/uzav.pocvrhp round 0;

ͻ
 Uzvierka reproduknej itkovosti          Od:    1.1.____     Do:   __.__.____                                                                             
                                             Za chov      __ - __ - ___ - __                                                                                  
͹
 Poet prasniiek a prasnc / tvrron vkaz /           ______    Uzvierka                Uitkovos na vrh           Uitkovos na prasnicu        
 Poet zaradench nepripustench prasniiek npotom       ______    reprodukcie  Poet  Ķ
 Poet zaradench pripustench prasniiek - aktulny stav  ______                 vrhov    V/  IV/  DOCH/ Hmot/  Vrh/ V/   IV/  DOCH/  Priem.
 Poet zaradench prasnc - aktulny stav                  ______                          vrh  vrh   vrh   vrh    pras pras  pras  pras   medzid
 Poet zaradench prasniiek - npotom                    ______   ͹
 Poet vyradench kusov prasniky npotom                 ______    Spolu s prip                                                                
 Poet vyradench kusov prasnice npotom                  ______    prasnickami                                                                 
 % obnovy stda od zaiatku roka                           ______    a prasnicami                                                                
 Poet pripustench prasniiek a prasnc - aktulny stav   ______    cez KD _____                                 __._  __._  __._  __._         
 Poet oprasench kusov - aktulny stav                    ______   Ķ                                Ĵ       
 Poet odstavench kusov - aktulny stav                   ______    Len prasnice                                                                
                                                                     cez KD _____ ______  __._  __._  __._  __._  __._  __._  __._  __._    ___  
ͼ                                                                   \
#PF(znakprv='0' & ch1=0 )podnik,okres,zavod,chov;
Ŀ
 vyr-vyradena zar-zarad. prasnicka nepripusten  Oznaenie podskupn :                                                                                                            
 prip - prasnica je pripusten                   1.nukleov chov / SCH /   - NC  4.vetky zarad. prasniky a prasnice po 1.pripusteni - PR       Chovate :  __ __ ___ __         
 opr  - prasnica je oprasen a neodstaven       2.istokrvn priparovanie - PJ  5.vyraden prasnice poas prpravy bonitcie         -  V                                        
 odst - prasnica je oprasen a odstaven         3.krenie                - PS                                                                                                   

#CF_znakprv(znakprv='1')begin a:=1;a1:=0;end;
     \
#PF(znakprv='1' {& ch=0 }& a<>1);

