-- Шаблон создан мастером бланков
-- 18.04.2005 18:20:11
--
БланкСШаблоном "Переход между записями";--с отключением фильтра на картотеку

Timer1: Object;

var Rec: Record;

var Modal: L;
var Bln:S;
var Crd:S;
var DoProc:S;

Proc btnПереход_OnClick(Sender: String);
 if Rec=nil: Close; fi;
 if IsBlankOpen(Bln): Close(Bln); fi;
 Close;
end;

Proc OnTimer(Sender: String);
 Timer1.Active=False;
 Close;
end;

Proc OnClose(Destroy: Logical);
 OpenCardFile(Crd,"",Rec);
 OpenBlank(Bln,Modal,Rec);
 if ProcExists(Bln+"."+DoProc) then
    ExecuteProc(Bln+"."+DoProc);
 fi;
 Rec=nil;
end;

Proc AfterOpen(Destroy: Logical);
 Timer1.Interval=1;
 Timer1.Active=True;
end;


Конец
