Всем Добрый день! После обновления 1С Бухгалтерия и когда запустив 1С Бух. появляется пред
15.07.2011
16:07
#27
"Тут, на днях, у клиента возникла проблемка похожая. Запускает базу, а она висит...
исследования показали, ошибочка в глобальном модуле, которая так и висит до сих пор и в Бухгалтерии и в Комплексной конфигурации.
Вот этот "больной участок":
Если в папке ExtForms есть файл (а не папка) с именем вида Rp????.gr тогда эта фунция в выделенном участке зацикливается, поскольку надо-бы его оформить так:
посмотрите, нет ли у вас там в папочке ExtForms какого-нибудь "подленького" файлика
Самое неприятное, что это срабатывает только при выводе информационного блока, а его обычно отключают. А вот после обновления он опять включается..."
исследования показали, ошибочка в глобальном модуле, которая так и висит до сих пор и в Бухгалтерии и в Комплексной конфигурации.
Вот этот "больной участок":
Функция глКаталогОбработкиИнформационныйБлок() Экспорт
Перем Размер,Атр,ВС,ВД,ВЗ,Расш;
СписокКаталогов = СоздатьОбъект("СписокЗначений");
ТекКаталог = ФС.ТекКаталог();
КаталогРегОтчетов = КаталогИБ()+"ExtForms";
ФС.УстТекКаталог(КаталогРегОтчетов);
// Просмотр внешних обработок
Файл = ФС.НайтиПервыйФайл("Rp????.grp");
Пока ПустаяСтрока(Файл) = 0 Цикл
Если (Файл <> "..") И (Файл <> ".") Тогда
ФГ=СоздатьОбъект("ФС");
ФГ.АтрибутыФайла(Файл, Размер, Атр, ВС, ВД, ВЗ, Расш);
Если Сред(Атр,4,1)<>"1" Тогда
// ищем только каталоги
Продолжить;
КонецЕсли;
СписокКаталогов.ДобавитьЗначение(КаталогРегОтчетов+"\"+Файл,);
КонецЕсли;
Файл = ФС.НайтиСледующийФайл();
КонецЦикла;
ФС.УстТекКаталог(ТекКаталог);
Если СписокКаталогов.РазмерСписка()>0 Тогда
СписокКаталогов.Сортировать(1);
Возврат СписокКаталогов.ПолучитьЗначение(1);
Иначе
Возврат """";
КонецЕсли;
КонецФункции // глКаталогОбработкиИнформационныйБлок()
Если в папке ExtForms есть файл (а не папка) с именем вида Rp????.gr тогда эта фунция в выделенном участке зацикливается, поскольку надо-бы его оформить так:
Если Сред(Атр,4,1)<>"1" Тогда // ищем только каталоги Файл = ФС.НайтиСледующийФайл(); Продолжить; КонецЕсли;
посмотрите, нет ли у вас там в папочке ExtForms какого-нибудь "подленького" файлика
Самое неприятное, что это срабатывает только при выводе информационного блока, а его обычно отключают. А вот после обновления он опять включается..."
Читают тему
(гостей: 1)