confirm.or.exit Pozor! Potrvá to úměrně počtu řádků v pohledu ...
  use
  f.create c:/tmp/atbsieve.csv
  if ERROR then _quit Nedá se vytvořit c:/tmp/atbsieve.csv. Není busy přes Excel?
  do ThisViewSql,Name
  uncrlf Name
  set Where,WHERE,order,order
  blob.part @Name,Cond,@WHERE,@order
  f.write !Procenta rezistence na základě výběru: $(Cond)
  f.write
  f.write
  atb.sieve.reset AMC,AMF,AMI,AMP,AMS,AMX,XAND,AUG,AZI,AZL,AZT,BAC,CAS,CDR,CFC,CIP,CLA,CLI,CLO,CLT,CLX,CMD,CMP,CMT,CMZ,COL,COT,CPD,CPM,CPN,CPR,CPS,CRM,CRX,CTB,CTR,CTX,CTZ,CXT,CZL,CZX,DIR,DOX,EKO,EMB,ENX,ERT,ERY,ETH,FLE,FLU,FUR,GEN,GRP,GTX,IMI,INH,ISE,ISO,ITR,JOS,KAN,KET,KLO,LIN,LEV,LOM,LZD,LNZ,MER,MIC,MIF,XMIN,MIK,MTR,MUP,NAL,NEO,NET,NOR,NOV,NYS,OFL,ORN,OXA,OX2,OXO,PEF,PEN,PIM,PIP,PIT,POL,POS,PPA,PPT,PRI,PYR,RBT,RIF,ROS,ROX,SPE,SPF,SPI,STG,STR,SUL,TEI,TET,TGC,TIG,TIC,TIM,TOB,TRI,VAN,VOR,X5FC
    dset.first
    repeat
      clear.more AMC,AMF,AMI,AMP,AMS,AMX,XAND,AUG,AZI,AZL,AZT,BAC,CAS,CDR,CFC,CIP,CLA,CLI,CLO,CLT,CLX,CMD,CMP,CMT,CMZ,COL,COT,CPD,CPM,CPN,CPR,CPS,CRM,CRX,CTB,CTR,CTX,CTZ,CXT,CZL,CZX,DIR,DOX,EKO,EMB,ENX,ERT,ERY,ETH,FLE,FLU,FUR,GEN,GRP,GTX,IMI,INH,ISE,ISO,ITR,JOS,KAN,KET,KLO,LIN,LEV,LOM,LZD,LNZ,MER,MIC,MIF,XMIN,MIK,MTR,MUP,NAL,NEO,NET,NOR,NOV,NYS,OFL,ORN,OXA,OX2,OXO,PEF,PEN,PIM,PIP,PIT,POL,POS,PPA,PPT,PRI,PYR,RBT,RIF,ROS,ROX,SPE,SPF,SPI,STG,STR,SUL,TEI,TET,TGC,TIG,TIC,TIM,TOB,TRI,VAN,VOR,X5FC
      dset.get
      inc Total
      atb.sieve.step
      dset.eof 
      if SUCCESS then break
      dset.next
      dset.eof 
      if SUCCESS then break
    until false
  clear.except Total
  f.write !Celkem kmenů v pohledu: $(Total), R-rezistentní, T-celkem testováno, I-intermediární citlivost
  f.write ATB;%R;R;T;%I;I;
  _spacing 0
  set Q,;
  for i,1,255
    clear.more n,t,r,y
    atb.sieve.get @i,n,t,r,y
    if @n = void then break for,endfor
    if or,@t = 0,@t = void then continue for,endfor
    percent.round r,t,p
    percent.round y,t,yp
    debuglevel 0
    if @y = 0 then set yp,0
    if @r = 0 then set p,0
    
    _fv N:8,q:1,p:-6,q:1,r:-8,q:1,t:-8,q:1,yp:-6,q:1,y:-6,q:1
  endfor
  f.close
  opendoc?  c:\tmp\atbsieve.csv
  exit 0