{ R5021-Z neoprasene prasnicky v slachtitel. chovoch}
var pocriadkov,strankovanie:real=0;
    nmesiac:string;
#I1_TLSUB4/@ (datvyr=0 & dovvyr='00')podnik,okres,zavod,chov,prasnica
#CH_okres Begin
              pocriadkov:=7;
          end,today,page,param.spracdek,param.nazmes,strdate(param.tspracrok,'YYYY'),podnik,okres,nazokr;
PZ-VS-ilina              Zoznam neoprasench prasniiek          Dtum tlae: __.__.__
R5021-Z                       - achtitesk chovy -                   strana:    _____
_ . dekda _________ ____
okres: __ __  ______________________________

    chovate                                 prasnica   zaraden   pripusten

#CH_chov (prasnica>'00000')Begin
                          pocriadkov:=pocriadkov+1;
                          end,podnik,okres,zavod,chov,nazovt;
__ __ ___ __  _____________________________
#DE (pocriadkov<=66)Begin
                    pocriadkov:=pocriadkov+1;
                    end,
                    prasnica,pos,datum;
                                               _____    __.__.__    __.__.__
#DE (pocriadkov>66)Begin
                   pocriadkov:=7; strankovanie:=1;
                   end;\
#DE (strankovanie=1)Begin
                    strankovanie:=0;
                    end,
                    today,page,param.spracdek,param.nazmes,strdate(param.tspracrok,'YYYY'),podnik,okres,nazokr;
PZ-VS-ilina              Zoznam neoprasench prasniiek          Dtum tlae: __.__.__
R5021-Z                       - achtitesk chovy -                   strana:    _____
_ . dekda _________ ____
okres: __ __  ______________________________

    chovate                                 prasnica   zaraden   pripusten

#CF_chov;
#CF_zavod;
#CF_okres;\
#CF_podnik;