Добрый день!
Альфа-Авто 5.1.05.08
На примере типового отчета "Взаиморасчеты с контрагентами"
Открытие формы занимает 20 сек.
Альфа-Авто 5.1.05.08
На примере типового отчета "Взаиморасчеты с контрагентами"
Открытие формы занимает 20 сек.
Вход в личный кабинет
Внимание! Данный форум является модерируемым.
Для получения к нему доступа необходимо зарегистрироваться или авторизоваться на сайте.
13.05.2016 13:52:08
Добрый день!
Альфа-Авто 5.1.05.08 На примере типового отчета "Взаиморасчеты с контрагентами" Открытие формы занимает 20 сек. |
|
|
|
13.05.2016 16:16:32
Михаил, 20 секунд по всем контрагентам?
|
|
|
|
13.05.2016 16:52:03
Светлана, отчет НЕ формируется...
20 секунд просто открывается форма отчета. Могу предложить TeamViewer. |
|
|
|
16.05.2016 09:51:06
Михаил, на типовой конфигурации указанная Вами ситуация не воспроизводится. У Вас типовая конфигурация Альфа-Авто?
|
|
|
|
16.05.2016 17:09:57
Михаил, вышлите, пожалуйста, замер производительности. Инструкция выслана на Ваш электронный адрес.
|
|
|
|
16.05.2016 17:35:10
была такая проблема на 5.0.11,06
отчеты открывались по полторы-две минуты. что-то было связано с поиском сетевых принтеров, пришлось закоментировать поиск сетевых принтеров.. |
|
|
|
16.05.2016 20:42:40
Вы дали верное направление. Альфа-Авто 5.1.05.08 Общая форма Отчет_Тонкий_Клиент &НаСервере Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) Закомментировал строки 1959 - 2031, а именно: ************************************ // Посмотрим был ли ранее составлен список принтеров, которые установлены в системе, если нет, // тогда попытаемся получить его Если Принтеры.Количество() = 0 Тогда //Состояние("Составляется список принтеров. Подождите."); Принтеры.Вставить(0, "ДиалогВыбораПринтера","Диалог выбора принтера"); ДобавитьПринтер(0, "Диалог выбора принтера"); Попытка Locator = Новый COMОбъект("WbemScripting.SWbemLocator"); Сервисы = Locator.ConnectServer("."); Объекты = Сервисы.InstancesOf("Win32_Printer"); // Теперь переберем все принтеры системы Счетчик = 1; Для Каждого Принтер Из Объекты Цикл ИмяВремПринтера = Принтер.Name; Пока Найти(ИмяВремПринтера, "\") > 0 Цикл ИмяВремПринтера = Сред(ИмяВремПринтера, Найти(ИмяВремПринтера,"\")+1); КонецЦикла; ИмяВремПринтера = СокрЛП(ИмяВремПринтера); Принтеры.Добавить(Принтер.Name, ИмяВремПринтера); ПометкаПринтера = Ложь; Если Принтер.Properties_("Default").Value Тогда ИмяПринтера = Принтер.Name; ПометкаПринтера = Истина; Принтеры[Принтеры.Количество()-1].Пометка = Истина; КонецЕсли; ДобавитьПринтер(Счетчик, ИмяВремПринтера, ПометкаПринтера); Счетчик = Счетчик + 1; КонецЦикла; Исключение КонецПопытки; КонецЕсли; // "Вспомним" о том, на каком принтере в последний раз печатали ИмяТекПринтера = ТабличныйДокумент.ИмяПринтера; Если ЗначениеЗаполнено(ИмяТекПринтера) Тогда ТекПринтер = Принтеры.НайтиПоЗначению(ИмяТекПринтера); Если ТекПринтер = Неопределено Тогда ИмяТекПринтера = ""; Иначе Индекс = Принтеры.Индекс(ТекПринтер); Для Каждого Принтер Из Элементы.ГруппаСписокПринтеров.ПодчиненныеЭлементы Цикл Принтер.Пометка = Ложь; КонецЦикла; Элементы.ГруппаСписокПринтеров.ПодчиненныеЭлементы[Индекс].Пометка = Истина; ПредставлениеТекПринтера = ТекПринтер.Представление; КонецЕсли; КонецЕсли; Если НЕ ЗначениеЗаполнено(ИмяТекПринтера) Тогда Для Каждого ТекПринтер Из Принтеры Цикл Если ТекПринтер.Пометка Тогда ИмяТекПринтера = ТекПринтер.Значение; ПредставлениеТекПринтера = ТекПринтер.Представление; Прервать; КонецЕсли; КонецЦикла; Если НЕ ЗначениеЗаполнено(ИмяТекПринтера) Тогда ТекПринтер = Принтеры[0]; ИмяТекПринтера = ТекПринтер.Значение; ПредставлениеТекПринтера = ТекПринтер.Представление; Элементы.ГруппаСписокПринтеров.ПодчиненныеЭлементы[0].Пометка = Истина; КонецЕсли; КонецЕсли; ИмяПринтера = ?(ИмяТекПринтера = "ДиалогВыбораПринтера","", ИмяТекПринтера); Элементы.ГруппаСписокПринтеров.Заголовок = ?(ПустаяСтрока(ИмяТекПринтера), "Список принтеров","Принтер: <"+ПредставлениеТекПринтера+">"); ************************************ В результате отчеты открываются за 1 сек. Более детально буду разбираться позже. |
||||
|
|
|||
|
{{ formTitle ? formTitle : 'Заказ обратного звонка' }}
{{ formDescription }}
Сообщить об ошибке