{ nova zostava pre kance R5031kn}
var mesrok1,rok1,zvlznak,mes1,mrok_1,chovatelst,den:string;
    mesrok1_1,rmr,vek,sinsvrh,poczmet,str,
    vekk,rmrk,pocdniodzr,ch,a,a1,ch1,mn:real=0;
    b:boolean=true;
.pagelimit:=62;
#I_ TLSUB4! majitel,linreg
#RH begin
      mesrok1:=copy(param.spracmes,1,2)+'.'+copy(param.spracrok,1,2);
      rok1:=strdate(valdate(mesrok1,'MM.YY'),'YYYY');
      end;
#PH page,kance.podnik,kance.okres,kance.zavod,kance.chov,nazmajit,param.nazmes,rok1;
                                                                                                         -  ____   -
 Plemenrske sluby SR, .p.
 PREHAD KANCOV ZAPOJENCH DO K           __   __   ___   __  
                                           __________________________________________________                                                                                             ZA MESIAC :___________ ____

ͻ
     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                                                          
 plemeno             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_linreg(znakprv='1')
                     begin {ch:=0;}
                          {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,
    alter.pocet6u,alter.pprir6p,alter.pslan6p,alter.hmc6p,
    copy(Vjhkprie.sthybvjh1,1,4),Vjhkprie.prir1,Vjhkprie.slan1,Vjhkprie.pcmc1,
    INSOPR.ins,KSAMCE.cph,KSAMCE.pcph,
    KANCE.mpod,KANCE.mokr,KANCE.mzav,KANCE.mcho,KANCE.nazpovod,
    {zmetvr,}
 {2}plemenok,{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,
    alter.pocet3u,alter.pprir3p,alter.pslan3p,alter.hmc3p,
    copy(Vjhkprie.sthybvjh2,1,4),Vjhkprie.prir2,Vjhkprie.slan2,Vjhkprie.pcmc2,
    INSOPR.opr,KSAMCE.nba1,KSAMCE.nba2,KSAMCE.adgft,KSAMCE.bfft,KSAMCE.adgst,
    KSAMCE.bfst,KSAMCE.vc
    {,abnvr};
Ŀ
__________ ____ ____________ _/___.__.__   __________ ____ _____          _.______ __._ __._ __._ __.____ ___. _.__ __._____ ____. _.__ __.______.@@@@@.@ @@@@@@@@ @@ @@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 ________            __.__._______.__.__ ____________ ____ ________. _.__ __._____ __._ __._ __._ __.____ ___. _.__ __._____ ____. _.__ __.______.@@@@.@@ @@@@.@@ @@@@.@ @@@@.@@ @@@@.@ @@@@.@@ @@@@.@@     
#PF;

#CF_majitel;
                                                                                                                                                                                                                                   \