-- Шаблон создан мастером бланков
-- 21.02.2014 14:25:42
--
БланкСШаблоном "Удаление неиспользуемых ГЭК";

Proc Удал (sCrd:S; s:i);
var OWA,n,nr,d,z,i:I;
var tCrd:S;
var Rec:Record;
 OWA=OpenWorkArea(sCrd,"ДОК;ЗАПИСЬ");
 Try
  nr=Records(OWA);
  s=if(s=0,0,nr);
  ShowProgress(nr*2,"В процессе...");
  BeginChanging(OWA,False);
  Try
   d=0;
   z=0;
   for n=1..nr do
    i=nr-(n-1);
    Hint(sCrd+" "+Str(n)+" из "+Str(nr)+" удалено "+Str(d));
    ProgressPos(s+n);
    tCrd=GetFieldS(OWA,i,"ДОК");
    Rec=IntegerToRecord(GetFieldI(OWA,i,"ЗАПИСЬ"));
    if not RecordExists(tCrd,Rec):
       DeleteRecord(OWA,i);
       d=d+1;
       z=z+1;
    fi;
    if z=1000:
       EndChanging(OWA);
       BeginChanging(OWA,False);
       z=0;
    fi;
   od;
   EndChanging(OWA);
  Except
   CancelChanging(OWA);
   Raise;
  end;
 Finally
  CloseWorkArea(OWA);
  CloseProgress;
 end;
end;

Proc cbГЭК_OnClick(Sender: String);
 Удал("РПО_СКАН_ДОК",0);
 Удал("РПО_ГЭК",1);
 Message("Успешно завершено");
end;


Конец
