Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Avatar-Lion

Support L1+


Contributor


Сообщения: 5030
Благодарности: 991

Профиль | Отправить PM | Цитировать


Цитата Iska:
А что ниже? »
Ниже вот это (захватил на всякий случай последнюю строчку из предыдущего спойлера).
Скрытый текст
//КонецЕсли; //м_№

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

Если ЭтоПервыйЗапуск = 1 Тогда
Константа.НомерРелиза = Лев(Метаданные.Комментарий, 8);
ОткрытьФормуМодально("Обработка.ПервыйЗапуск", 1);
Иначе
Константа.НомерРелиза = "7.70.001";
КонецЕсли;
КонецЕсли;

// Если ПроверитьЛегальностьПолученияОбновления() = 0 Тогда //м_№(было)
Если 1 = 0 Тогда //м_№(стало)
Возврат;
КонецЕсли;

ПервыйЗапускНаРабочемМесте = ВосстановитьЗначение("ПервыйЗапускНаРабочемМесте");


Цитата Iska:
Оставьте саму предопределённую процедуру: »
Попробовал. Та же шляпа.

Короче ладно... Попробую все пути поменять. Процессор Pentium G5400, SSD хороший, работает по NVMe-протоколу, ёмкость 240Гб. По идее, создание копий не должно будет сильно сказываться на скорости запуска программы.

Отправлено: 12:43, 14-09-2019 | #9