{ R5011 - vysetrovka SCH+RCH alebo UCH }
var datum1,posporvrhu,predpostyp,postyp,p5postyp,p4postyp,p3postyp,p2postyp,posdek,
p5posdek,p4posdek,p3posdek,p2posdek,poslinkan,posregkan,posporins,postechnik,VEK1,
dekn,dekada,mesiac,nmesiac,sp,plempot1,plempot2,prasnica1,prasnica2,prasnica3,
prasnica4,prasnica5,predposdatins,predposdatins1,predposdatins2,predposdatins3,
predposdatins4,predposdatins5,prasnica6,prasnica7,prasnica8,prasnica9,prasnica10,
prasnica11,prasnica12,prasnica13,prasnica14,prasnica15,prasnica16,prasnica17,
prasnica18,predposdatins6,predposdatins7,predposdatins8,predposdatins9,
predposdatins10,predposdatins11,predposdatins12,predposdatins13,predposdatins14,
predposdatins15,predposdatins16,predposdatins17,predposdatins18,{predposdek,}
mesrok,p5posdatins,p4posdatins,p3posdatins,p2posdatins:string;
k,posdatopr,posdatoprnv,M,prebposdatins,posdatins,posvs,posziv,posdoch,svs,sdoch,sziv,
v,z,d,posvahavrhu,poczmet,pocnormvrh,modulo,pz,vek,rmr,datint,zvysok,svaha,vazvrhy,svaha21,
priemvs,priemdoch,priemzive,priemvaha21,preb,posdatins1,posdatins2,
posdatins3,posdatins4,posdatins5,posdatins6,posdatins7,posdatins8,posdatins9,posdatins10,
posdatins11,posdatins12,posdatins13,posdatins14,posdatins15,posdatins16,posdatins17,posdatins18,chl,odst,pocdoch0,pocnormvrh1,p5datins,p4datins,p3datins,p2datins,vypis:real=0;
#I_TLSUB4/klpos podnik,okres,zavod,chov,prasnica
#CH_chov Begin
{*** prebehle prasnice 1 - 18 znulovanie ***}
              preb:=0;prasnica1:='     ';prasnica2:='      ';prasnica3:='     ';prasnica4:='     ';prasnica5:='     ';
              prasnica6:='     ';prasnica7:='     ';prasnica8:='     ';prasnica9:='     ';prasnica10:='     ';
              prasnica11:='     ';prasnica12:='     ';prasnica13:='     ';prasnica14:='     ';prasnica15:='     ';
              prasnica16:='     ';prasnica17:='     ';prasnica18:='     ';
              posdatins1:=0;posdatins2:=0;posdatins3:=0;posdatins4:=0;posdatins5:=0;posdatins6:=0;posdatins7:=0;
              posdatins8:=0;posdatins9:=0;posdatins10:=0;posdatins11:=0;posdatins12:=0;
              posdatins13:=0;posdatins14:=0;posdatins15:=0;posdatins16:=0;posdatins17:=0;posdatins18:=0;
              predposdatins1:='  ';predposdatins2:='  ';predposdatins3:='  ';predposdatins4:='  ';predposdatins5:='  ';
              predposdatins6:='  ';predposdatins7:='  ';predposdatins8:='  ';predposdatins9:='  ';predposdatins10:='  ';predposdatins11:='  ';
              predposdatins12:='  ';predposdatins13:='  ';predposdatins14:='  ';predposdatins15:='  ';predposdatins16:='  ';predposdatins17:='  ';
              predposdatins18:='  ';vypis:=0;
{*** urcenie datumu z parametr. zadania  ***}
              datum1:=copy(param.spracmes,1,2)+'.'+copy(param.spracrok,1,2);
{*** urcenie dekady,mesiaca,nazvu mesiaca,roka inseminacie ***}
              if param.spracdek='1'
                then 
                  Begin
                    datint:=addmonth((valdate(datum1,'MM.YY')),-2);dekn:='2';
                  end
                else 
                  Begin
                    datint:=addmonth((valdate(datum1,'MM.YY')),-1);dekn:='1';
                  end;
              mesiac:=strdate(datint,'MM');mesrok:=strdate(datint,'MM.YY');
              if mesiac='01' then nmesiac:='janur   ';
              if mesiac='02' then nmesiac:='februr  ';
              if mesiac='03' then nmesiac:='marec    ';
              if mesiac='04' then nmesiac:='aprl    ';
              if mesiac='05' then nmesiac:='mj      ';
              if mesiac='06' then nmesiac:='jn      ';
              if mesiac='07' then nmesiac:='jl      ';
              if mesiac='08' then nmesiac:='august   ';
              if mesiac='09' then nmesiac:='september';
              if mesiac='10' then nmesiac:='oktber  ';
              if mesiac='11' then nmesiac:='november ';
              if mesiac='12' then nmesiac:='december ';
              if param.spracdek='2'
                then dekada:=' 1.-15.'
                else 
                  Begin
                    if(mesiac='01'|mesiac='03'|mesiac='05'|mesiac='07'|mesiac='08'|mesiac='10'|mesiac='12')
                      then dekada:='16.-31.'
                      else 
                        Begin
                          if (mesiac='04'|mesiac='06'|mesiac='09'|mesiac='11')
                            then dekada:='16.-30.'
                            else
                              Begin
                                zvysok:=(val(strdate(datint,'YY'))mod(4));
                                if zvysok=0
                                  then dekada:='16.-29.'
                                  else dekada:='16.-28.';
                                end;
                        end;
                  end;
         end;

#PH begin
      chl:=chl+1;
    end,chl,page,PARKU.nzos,PARKU.nzos1,PARKU.zos,podnik,okres,menodb.nazokr,dekada,nmesiac,strdate(datint,'YY'),
    zavod,menodb.nazzav,dekada,nmesiac,strdate(datint,'YY'),dekada,nmesiac,strdate(datint,'YY'),chov,menodb.nazov,
    podnik,okres,zavod,chov,podnik,okres,zavod,chov;
PZ-VS-ilina   Zoznam prasnc k zaznameneniu vrhu                           *O - 23*                           *O - 22*                List: _____/_____
R5011               _______________ _______________ _____                    odstav                 typ 23       brezos / oprasenie                 typ 22

Podnik      __                                                           I   Vyhotovil: .............        I   Vyhotovil: .............
 Okres      __   ______________________________   _______ _________ __   I                                   I
 Zvod     ___   __________________________________________________      I   _______ _________ __            I   _______ _________ __
  Chov      __   ______________________________                          I                                   I
                                                                         I   __ __ ___ __                    I   __ __ ___ __
 Prasn  min.opras  hybr  ins     predp  p.ins   k a n e c         sp tn  I                                   I
                   vrhu  da     opras  vrhov    pras/vrh        ind     I   prasnica   doch  odstav  hmot   I   prasnica    por   prasiatok  oprasenie  ch
   vek    V    D         +V   +   +D          V      D  hmot          I          m   pras de mes  vrhu   I          m    vrh  V  i  De    de mes vrh

#CH_prasnica Begin
                  k:=0;posporvrhu:='00';posdatopr:=0;posdatoprnv:=0;posvs:=0;posziv:=0;posdoch:=0;
                  posvahavrhu:=0;svs:=0;sziv:=0;sdoch:=0;prebposdatins:=0;posdatins:=0;p5datins:=0;
                  p4datins:=0;p3datins:=0;p2datins:=0;p5posdatins:='00';p4posdatins:='00';
                  p3posdatins:='00';p2posdatins:='00';posporins:='00';postechnik:='00';
                  postyp:='00';p5postyp:='00';p4postyp:='00';p3postyp:='00';p2postyp:='00';
                  posdek:='0';p5posdek:='0';p4posdek:='0';p3posdek:='0';p2posdek:='0';
                  priemvaha21:=0;poslinkan:='0000';posregkan:='00000';svaha21:=0;
                  vazvrhy:=0;poczmet:=0;v:=0;z:=0;d:=0;priemvs:=0;priemzive:=0;priemdoch:=0;
                  predpostyp:='0';pocdoch0:=0;predposdatins:='  ';
                  pocnormvrh1:=0;odst:=0;
             end;
#DE (typ='2' & priebvrh='1' & dniodst>0)
    Begin
      postyp:=typ;
      posporvrhu:=porvrhu;
      if doch>0 then
                  begin
                    posdatopr:=datum;
                    posdatoprnv:=datum;
                    posvs:=vs;
                    posziv:=ziv;
                    posdoch:=doch;
                    posvahavrhu:=vahavrhu;
                    svs:=svs+vs;
                    sziv:=sziv+ziv;
                    sdoch:=sdoch+doch;
                  end
                else {pre pripad,ze nie je hlaseny odstav}
                   pocdoch0:=pocdoch0+1;
      if (vahavrhu>0 & dniodst>0) then 
        Begin
          vazvrhy:=vazvrhy+1;
          svaha21:=svaha21+vaha21;
        end;
    end;
#DE ( typ='2' & priebvrh='3')
    Begin
      postyp:=typ;
      posporvrhu:=porvrhu;
      posdatopr:=datum;
      posdatoprnv:=datum;
      posvs:=vs;
      posziv:=ziv;
      posdoch:=doch;
      posvahavrhu:=vahavrhu;
      svs:=svs+vs;
      sziv:=sziv+ziv;
      sdoch:=sdoch+doch;
      vazvrhy:=vazvrhy+1; {berie sa ako normalny vrh ukonceny ale zhorsujuci}
      svaha21:=svaha21+vaha21;
    end;
#DE ( typ='2' & priebvrh='4')
    Begin
      postyp:=typ;
      posporvrhu:=porvrhu;
      posdatopr:=datum;
      posdatoprnv:=datum;
      posvs:=vs;
      posziv:=ziv;
      posdoch:=doch;
      posvahavrhu:=vahavrhu;
      svs:=svs+vs;
      sziv:=sziv+ziv;
      sdoch:=sdoch+doch;
      vazvrhy:=vazvrhy+1; {berie sa ako normalny vrh ukonceny ale zhorsujuci}
      svaha21:=svaha21+vaha21;
    end;
#DE ( typ='2' & priebvrh='1' & dniodst=0)Begin
                                         odst:=odst+1;
                                         postyp:=typ;
                                         posporvrhu:=porvrhu;
                                         end;
#DE (typ='2' & priebvrh='2')Begin
                                 poczmet:=poczmet+1;
                                 postyp:=typ;
                                 posdatopr:=datum;
                                 posporvrhu:=porvrhu;
                            end;
#DE (typ='1')Begin
                  p5postyp:=p4postyp;
                  p5posdatins:=p4posdatins;
                  p5datins:=p4datins;
                  p5posdek:=p4posdek;
                  p4postyp:=p3postyp;
                  p4posdatins:=p3posdatins;
                  p4datins:=p3datins;
                  p4posdek:=p3posdek;
                  p3postyp:=p2postyp;
                  p3posdatins:=p2posdatins;
                  p3datins:=p2datins;
                  p3posdek:=p2posdek;
                  p2postyp:=postyp;
                  p2posdatins:=strdate(posdatins,'DD');
                  p2datins:=posdatins;
                  p2posdek:=posdek;
                  posdatins:=datins;
                  posporins:=porins;
                  postechnik:=technik;
                  postyp:=typ;posdek:=dek;
                  poslinkan:=linkan;posregkan:=regkan;
             end;
#CF_prasnica((postyp='1')& (posdek=dekn) & (valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')=datint)
             & posdatins>posdatopr & znakbrez='0')
             Begin
{*** napocet vybranych prasnic,vypocet veku prasnice,urcenie technika,plemena potomka ***}
                  k:=1;
                  if praspev.datnar=0 then vek:=0
                                      else 
                                        Begin
                                          rmr:=(val(strdate(datint,'YYYY'))-val(strdate(praspev.datnar,'YYYY')))*12;
                                          vek:=(val(strdate(datint,'MM'))-val(strdate(praspev.datnar,'MM')))+rmr;
                                        end;
                  if postechnik='99' then sp:='2'
                                     else sp:='1';
                  if plempot='99999999' then Begin
                                                  plempot1:='    ';
                                                  plempot2:='    ';
                                             end
                                        else Begin
                                                  plempot1:=copy(plempot,1,4);
                                                  plempot2:=copy(plempot,5,4);
                                             end;
                  if plempot2='0000' then plempot2:='    ';
{*** vypocet priemerov vs,ziv,doch,vaha21 zo vsetkych normalnych vrhov ***}
                  pocnormvrh:=(val(posporvrhu)-poczmet);
                  pocnormvrh1:=(val(posporvrhu)-poczmet-pocdoch0-odst);
                  if pocnormvrh1>0 then Begin
                                            priemvs:=svs/pocnormvrh1;
                                            priemzive:=sziv/pocnormvrh1;
                                            priemdoch:=sdoch/pocnormvrh1;
                                            priemvaha21:=svaha21/vazvrhy;{su tu zaratane aj priebehy 3,4}
                                       end
                                  else Begin
                                            priemvs:=0;
                                            priemzive:=0;
                                            priemdoch:=0;
                                            priemvaha21:=0;
                                       end;
             end;
{*** tlac dvojriadku prasnice so strankovanim ***}
#CF_prasnica ( k=1)prasnica,{posdatopr,}posdatoprnv,plempot1,strdate(posdatins,'DD'),posdatins+115,str(val(posporins),2,0)+'.',poslinkan,posregkan,
                    sp,postechnik,prasnica,mod,prasnica,mod,val(posporvrhu)+1,vek,posvs,posziv,posdoch,plempot2,
                    svs,sziv,sdoch,pocnormvrh1,priemvs round 0,priemzive round 0,priemdoch round 0,priemvaha21 round 1,praspev.indexuz{tl};
  _____  __.__.__  ____   __  __.__.__    ___  ____ _____          _ __  I    _____ _    ..   ..  ..  ....   I    _____ _     __  ..  ..  ..     ..  ..   .
    ___  __ __ __  ____  ___  ___  ___     __  __  __  __  __._  ___     I                                   I  
{*** vyber prebehlych prasnic ***}
#CF_prasnica(p5postyp='1' & p4postyp='1' & p3postyp='1' & p2postyp='1' & 
             postyp='1'& posdatins>posdatopr & znakbrez='0'&
((valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')<>datint) |
 (valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')=datint & 
 dekn<>posdek)) & ((dekn=p5posdek & valdate(copy(strdate(p5datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
 (dekn=p4posdek & valdate(copy(strdate(p4datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
 (dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
 (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)))
              Begin
               if (dekn=p5posdek & valdate(copy(strdate(p5datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                  then begin
                      vypis:=1;
                      predposdatins:=p5posdatins;
                      prebposdatins:=p4datins;
                      end;
               if (dekn=p4posdek & valdate(copy(strdate(p4datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p4posdatins;
                      prebposdatins:=p3datins;
                      end;
               if (dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p3posdatins;
                      prebposdatins:=p2datins;
                      end;
               if (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p2posdatins;
                      prebposdatins:=posdatins;
                      end;
              end;
#CF_prasnica(p4postyp='1' & p3postyp='1' & p2postyp='1' &
             postyp='1'& posdatins>posdatopr & znakbrez='0'&
             ((valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')<>datint) |
             (valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')=datint & dekn<>posdek)) &
             ((dekn=p4posdek & valdate(copy(strdate(p4datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
              (dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
              (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)))
              Begin
              if (dekn=p4posdek & valdate(copy(strdate(p4datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p4posdatins;
                      prebposdatins:=p3datins;
                      end;
              if (dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p3posdatins;
                      prebposdatins:=p2datins;
                      end;
              if (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p2posdatins;
                      prebposdatins:=posdatins;
                      end;
              end;
#CF_prasnica( p3postyp='1' & p2postyp='1' & postyp='1'&
              posdatins>posdatopr & znakbrez='0' &
              ((valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')<>datint) |
             (valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')=datint & dekn<>posdek)) &
             ((dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint) |
              (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)))
              Begin
              if (dekn=p3posdek & valdate(copy(strdate(p3datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p3posdatins;
                      prebposdatins:=p2datins;
                      end;
              if (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p2posdatins;
                      prebposdatins:=posdatins;
                      end;
              end;
#CF_prasnica(p2postyp='1' & postyp='1'&  posdatins>posdatopr
             & znakbrez='0' &
             ((valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')<>datint) |
             (valdate(copy(strdate(posdatins,'DD.MM.YY'),4,5),'MM.YY')=datint & dekn<>posdek)) &
             ((dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)))
              Begin
              if (dekn=p2posdek & valdate(copy(strdate(p2datins,'DD.MM.YY'),4,5),'MM.YY')=datint)
                 then begin
                      vypis:=1;
                      predposdatins:=p2posdatins;
                      prebposdatins:=posdatins;
                      end;
              end;
#CF_prasnica(vypis=1)
                  Begin
                  vypis:=0;
                  preb:=preb+1;
                  if preb=1 then Begin
                                      prasnica1:=prasnica;
                                      posdatins1:=prebposdatins;
                                      predposdatins1:=predposdatins;
                                 end;
                  if preb=2 then Begin
                                      prasnica2:=prasnica;
                                      posdatins2:=prebposdatins;
                                      predposdatins2:=predposdatins;
                                 end;
                  if preb=3 then Begin
                                      prasnica3:=prasnica;
                                      posdatins3:=prebposdatins;
                                      predposdatins3:=predposdatins;
                                 end;
                  if preb=4 then Begin
                                      prasnica4:=prasnica;
                                      posdatins4:=prebposdatins;
                                      predposdatins4:=predposdatins;
                                 end;
                  if preb=5 then Begin
                                      prasnica5:=prasnica;
                                      posdatins5:=prebposdatins;
                                      predposdatins5:=predposdatins;
                                 end;
                  if preb=6 then Begin
                                      prasnica6:=prasnica;
                                      posdatins6:=prebposdatins;
                                      predposdatins6:=predposdatins;
                                 end;
                  if preb=7 then Begin
                                      prasnica7:=prasnica;
                                      posdatins7:=prebposdatins;
                                      predposdatins7:=predposdatins;
                                 end;
                  if preb=8 then Begin
                                      prasnica8:=prasnica;
                                      posdatins8:=prebposdatins;
                                      predposdatins8:=predposdatins;
                                  end;
                  if preb=9 then Begin
                                      prasnica9:=prasnica;
                                      posdatins9:=prebposdatins;
                                      predposdatins9:=predposdatins;
                                 end;
                  if preb=10 then Begin
                                       prasnica10:=prasnica;
                                       posdatins10:=prebposdatins;
                                       predposdatins10:=predposdatins;
                                   end;
                  if preb=11 then Begin
                                       prasnica11:=prasnica;
                                       posdatins11:=prebposdatins;
                                       predposdatins11:=predposdatins;
                                  end;
                  if preb=12 then Begin
                                       prasnica12:=prasnica;
                                       posdatins12:=prebposdatins;
                                       predposdatins12:=predposdatins;
                                   end;
                  if preb=13 then Begin
                                       prasnica13:=prasnica;
                                       posdatins13:=prebposdatins;
                                       predposdatins13:=predposdatins;
                                  end;
                  if preb=14 then Begin
                                       prasnica14:=prasnica;
                                       posdatins14:=prebposdatins;
                                       predposdatins14:=predposdatins;
                                  end;
                  if preb=15 then Begin
                                       prasnica15:=prasnica;
                                       posdatins15:=prebposdatins;
                                       predposdatins15:=predposdatins;
                                  end;
                  if preb=16 then Begin
                                       prasnica16:=prasnica;
                                       posdatins16:=prebposdatins;
                                       predposdatins16:=predposdatins;
                                  end;
                  if preb=17 then Begin
                                       prasnica17:=prasnica;
                                       posdatins17:=prebposdatins;
                                       predposdatins17:=predposdatins;
                                  end;
                  if preb=18 then Begin
                                       prasnica18:=prasnica;
                                       posdatins18:=prebposdatins;
                                       predposdatins18:=predposdatins;
                                  end;
                                
             end;
{*** vypisy prebehlych prasnic so strankovanim ***}
#CF_chov(prasnica1<>'     ') prasnica1,predposdatins1,prasnica2,predposdatins2,prasnica3,predposdatins3,prasnica4,predposdatins4,prasnica5,predposdatins5,
                             prasnica6,predposdatins6,posdatins1,posdatins2,posdatins3,posdatins4,posdatins5,
                             posdatins6;

  Prebehl  _____ __   _____ __   _____ __   _____ __   _____ __  _____ __
  prasnice  __.__.__   __.__.__   __.__.__   __.__.__   __.__.__  __.__.__
 #CF_chov(preb>6) prasnica7,predposdatins7,prasnica8,predposdatins8,prasnica9,predposdatins9,prasnica10,predposdatins10,
                  prasnica11,predposdatins11,prasnica12,predposdatins12,posdatins7,posdatins8,posdatins9,posdatins10,posdatins11,posdatins12;

  Prebehl  _____ __   _____ __   _____ __   _____ __   _____ __  _____ __
  prasnice  __.__.__   __.__.__   __.__.__   __.__.__   __.__.__  __.__.__
#CF_chov(preb>12) prasnica13,predposdatins13,prasnica14,predposdatins14,prasnica15,predposdatins15,prasnica16,
                  predposdatins16,prasnica17,predposdatins17,prasnica18,predposdatins18,posdatins13,posdatins14,posdatins15,posdatins16,posdatins17,posdatins18;

  Prebehl  _____ __   _____ __   _____ __   _____ __   _____ __  _____ __
  prasnice  __.__.__   __.__.__   __.__.__   __.__.__   __.__.__  __.__.__
#CF_chov begin chl:=0;end;                                                                                                                                                          \
