время в которое запустили 1с

[Nosferatu112]

Добрый день, мне нужно в РС делать запись когда пользователь запускает 1с и когда выключает в какой процедуре прописать этот код, куда 1с попадает когда запускает сеанс?
про журнал регистрации я знаю но он со временем очищается а пользователям нужен отчет который они смогут сформировать за прошлые месяца

[antoneus]

Модуль приложения - предопределенная процедура ПриНачалеРаботыСистемы.

[LexaK]

Nosferatu112, сразу куча уточняющих вопросов возникает
1.а если пользователь сразу несколько сеансов запускает?
2.а если при уходе не выходит, не выключает 1С?
что там еще...

[Nosferatu112]

LexaK, 1. нужно только время первого запуска за день и время последнего выключения за день
2. все сеансы автоматическизавершаюются в определенное время

[Nosferatu112]

прописал код всё ок только один вопрос остался

Код Выделить Развернуть

Процедура ЗаписьВРегистр(Цифра) Экспорт
Если Цифра = 1 Тогда

Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьМенеджерЗаписи();
Запись.Сотрудник = Пользователи.ТекущийПользователь();
Запись.РабочийДень = НачалоДня(ТекущаяДата());
Если НЕ Запись.Выбран() Тогда
Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьНаборЗаписей();
НоваяЗапись = Запись.Добавить();
НоваяЗапись.Сотрудник = Пользователи.ТекущийПользователь();
НоваяЗапись.РабочийДень = НачалоДня(ТекущаяДата());
НоваяЗапись.НачалоРаботы = ТекущаяДата();
Запись.Записать(Ложь);
КонецЕсли;
Иначе
Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьМенеджерЗаписи();
Запись.Сотрудник = Пользователи.ТекущийПользователь();
Запись.РабочийДень = НачалоДня(ТекущаяДата());
Если Запись.Выбран() Тогда
Запись.ОкончаниеРаботы = ТекущаяДата();
Запись.Записать(Ложь);
КонецЕсли;
КонецЕсли;
КонецПроцедуры

Код Выделить Развернуть

Процедура ПриНачалеРаботыСистемы()
Цифра = 1;
ВспомогательныйВызовСервера.ЗаписьВРегистр(Цифра);
КонецПроцедуры

Код Выделить Развернуть

Процедура ПередЗавершениемРаботыСистемы(Отказ, ТекстПредупреждения)
Цифра = 0;
ВспомогательныйВызовСервера.ЗаписьВРегистр(Цифра);
КонецПроцедуры
Он кидает ошибку что перед завершением нельзя делать серверный вызов, как сделать запись в регистр

[Nosferatu112]

LexaK,
прописал код всё ок только один вопрос остался

Код Выделить Развернуть

Процедура ЗаписьВРегистр(Цифра) Экспорт
    Если Цифра = 1 Тогда
       
        Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьМенеджерЗаписи();
        Запись.Сотрудник = Пользователи.ТекущийПользователь();
        Запись.РабочийДень = НачалоДня(ТекущаяДата());
        Если НЕ Запись.Выбран() Тогда
            Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьНаборЗаписей();
            НоваяЗапись = Запись.Добавить();
            НоваяЗапись.Сотрудник = Пользователи.ТекущийПользователь();
            НоваяЗапись.РабочийДень = НачалоДня(ТекущаяДата());
            НоваяЗапись.НачалоРаботы = ТекущаяДата();
            Запись.Записать(Ложь);
        КонецЕсли;
    Иначе
        Запись = РегистрыСведений.ок_НачалоКонецРаботыСотрудников.СоздатьМенеджерЗаписи();
        Запись.Сотрудник = Пользователи.ТекущийПользователь();
        Запись.РабочийДень = НачалоДня(ТекущаяДата());
        Если Запись.Выбран() Тогда
            Запись.ОкончаниеРаботы = ТекущаяДата();
            Запись.Записать(Ложь);
        КонецЕсли;   
    КонецЕсли;
КонецПроцедуры

Код Выделить Развернуть

Процедура ПриНачалеРаботыСистемы()
    Цифра = 1;
    ВспомогательныйВызовСервера.ЗаписьВРегистр(Цифра);
КонецПроцедуры

Код Выделить Развернуть

Процедура ПередЗавершениемРаботыСистемы(Отказ, ТекстПредупреждения)
    Цифра = 0;
    ВспомогательныйВызовСервера.ЗаписьВРегистр(Цифра);
КонецПроцедуры
Он кидает ошибку что перед завершением нельзя делать серверный вызов, как сделать запись в регистр

[Optiman]

что там еще..

а если...
3) программа зависла?
4) электричество выключили и надо ПК выключать?
и т.д. и т.п.
 

[LexaK]

Nosferatu112,

Он кидает ошибку что перед завершением нельзя делать серверный вызов, как сделать запись в регистр

ну что же так без фантазии к делу подходить?
как вы думаете для чего в этой процедуре ПередЗавершениемРаботыСистемы, параметр: Отказ?
и как можно его использовать в своих целях?
(если не придумаете, пишите, вместе пофантазируем)

[Nosferatu112]

Сделал по другому, каждый день утром и вечером выгружаю данные из журнала реистрации в регистр реглЗаданием а по регистру делаю отчет