ПриНачалеРаботыСистемы()
Процедура ПриНачалеРаботыСистемы()
ОткрытьФорму("Журнал.Основной" ,,);
спр=СоздатьОбъект("Справочник.Лог");
спр.Новый();
спр.Пользователь=ИмяПользователя();
спр.Время=ТекущееВремя();
спр.Дата=ТекущаяДата();
спр.Статус="Вход";
спр.Записать();
КонецПроцедуры
Процедура ПриЗавершенииРаботыСистемы()
спр=СоздатьОбъект("Справочник.Лог");
спр.Новый();
спр.Пользователь=ИмяПользователя();
спр.Время=ТекущееВремя();
спр.Дата=ТекущаяДата();
спр.Статус="Выход";
спр.Записать();
КонецПроцедуры
i | Выделяйте код |