-- Шаблон создан мастером бланков
-- 18.04.2005 18:20:11
--
БланкСШаблоном "Переход между листами кассовой книги";

Timer1: Object;

var Rec: Record;
var Modal: L;

Proc btnПереход_OnClick(Sender: String);
 if Rec=nil: Close; fi;
 if IsBlankOpen("ДОКУМЕНТЫ.КАССА.КАССОВАЯ_КНИГА"): Close("ДОКУМЕНТЫ.КАССА.КАССОВАЯ_КНИГА"); fi;
 Refresh;
 Close;
end;

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

Proc OnClose(Destroy: Logical);
 OpenCardFile('РПО_ОТЧКАС',"",Rec);
 OpenBlank("ДОКУМЕНТЫ.КАССА.КАССОВАЯ_КНИГА",Modal,Rec);
 Rec=nil;
end;

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


Конец
