Отключение обработки или подключение модуля
Три компа, но одном лежит база, еще два конектятся к этой базе как к общему ресурсу. После проведения обновления, на компе с базой все ок, а на остальных двух выдает такую ошибку: Обработка.ТорговоеОборудование.Форма.Модуль (209) Неверное имя файла!. Как можно отключить данную обработку? (она не используется). Или где находиться этот не достающий модуль, как его подключить?
По теме из базы знаний
- [ТАКСИ] Шаблон внешней обработки...и не только
- Обработка для работы с базой SQL
- Синхронизация хранилища 1С и git-репозитория с применением OneScript и Gitsync. Методика и пошаговая инструкция для создания скрипта и его регулярного запуска
- Как я обработку на альтернативный сервер выносил
- Индикатор прогресса фонового выполнения дополнительной обработки БСП
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Так зайди в конфигуратор - Обработки - Торговое оборудование - Форма- Модуль - строка 209 посмотри что она там хочет.
скорее всего (платформу ты не указал) при запуске 1С запускается эта обработка и хочет подключить торговое оборудование указанное в настройках (но ты где то удалил этот файл или доступ закрыл) вот тебе и ругается.
Запусти сам заново Настройка Торгового оборудования
скорее всего (платформу ты не указал) при запуске 1С запускается эта обработка и хочет подключить торговое оборудование указанное в настройках (но ты где то удалил этот файл или доступ закрыл) вот тебе и ругается.
Запусти сам заново Настройка Торгового оборудования
1C 7.7.
// ЗагрузитьМодельИзФайла(ИмяФайла, Параметры)
//
// Параметры:
// ИмяФайла - имя файла описания модели
// Параметры - список значений с параметрами описания модели
//
// Возвращаемое значение:
// 1 - удалось загрузить описание, 0 - нет
//
// Описание:
// Загружает описание модели из файла описаний
//
Функция ЗагрузитьМодельИзФайла(ИмяФайла, Параметры)
Перем Рез;
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
ОшибкаОписание = "Отсутствет файл " + ИмяФайла;
Рез = 0;
Иначе
ФайлОписаний = СоздатьОбъект("Текст");
ФайлОписаний.Открыть(ИмяФайла); //ВОТ ТУТ РУГАЕТСЯ.
// заполним список значениями из файла описаний
Для Счетчик = 1 по ФайлОписаний.КоличествоСтрок() Цикл
Стр = ФайлОписаний.ПолучитьСтроку(Счетчик);
Поз = Найти(Стр, "=");
Если Поз > 0 Тогда
Ид = СокрЛП(Лев(Стр, Поз - 1));
Если Найти(ИменаПараметровМодели, ИД) > 0 Тогда
// правильный идентификатор параметра
Параметры.Установить(Ид, СокрЛП(Сред(Стр, Поз + 1)));
КонецЕсли;
КонецЕсли;
КонецЦикла;
Рез = 1;
КонецЕсли;
Возврат Рез;
КонецФункции // ЗагрузитьМодельИзФайла()
>>Запусти сам заново Настройка Торгового оборудования - это как сделать? А можно сделать, так что бы при запуске 1с не запускала эту обработку?
// ЗагрузитьМодельИзФайла(ИмяФайла, Параметры)
//
// Параметры:
// ИмяФайла - имя файла описания модели
// Параметры - список значений с параметрами описания модели
//
// Возвращаемое значение:
// 1 - удалось загрузить описание, 0 - нет
//
// Описание:
// Загружает описание модели из файла описаний
//
Функция ЗагрузитьМодельИзФайла(ИмяФайла, Параметры)
Перем Рез;
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
ОшибкаОписание = "Отсутствет файл " + ИмяФайла;
Рез = 0;
Иначе
ФайлОписаний = СоздатьОбъект("Текст");
ФайлОписаний.Открыть(ИмяФайла); //ВОТ ТУТ РУГАЕТСЯ.
// заполним список значениями из файла описаний
Для Счетчик = 1 по ФайлОписаний.КоличествоСтрок() Цикл
Стр = ФайлОписаний.ПолучитьСтроку(Счетчик);
Поз = Найти(Стр, "=");
Если Поз > 0 Тогда
Ид = СокрЛП(Лев(Стр, Поз - 1));
Если Найти(ИменаПараметровМодели, ИД) > 0 Тогда
// правильный идентификатор параметра
Параметры.Установить(Ид, СокрЛП(Сред(Стр, Поз + 1)));
КонецЕсли;
КонецЕсли;
КонецЦикла;
Рез = 1;
КонецЕсли;
Возврат Рез;
КонецФункции // ЗагрузитьМодельИзФайла()
>>Запусти сам заново Настройка Торгового оборудования - это как сделать? А можно сделать, так что бы при запуске 1с не запускала эту обработку?
ФайлОписаний.Открыть(ИмяФайла); //ВОТ ТУТ РУГАЕТСЯ.
//открыть файл не может вот и ругается посмотри в отладчике чему равно ИмяФайла
замени на : и попробуй
Попытка
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
ОшибкаОписание = "Отсутствет файл " + ИмяФайла;
Рез = 0;
Иначе
ФайлОписаний = СоздатьОбъект("Текст");
ФайлОписаний.Открыть(ИмяФайла); //ВОТ ТУТ РУГАЕТСЯ.
// заполним список значениями из файла описаний
Для Счетчик = 1 по ФайлОписаний.КоличествоСтрок() Цикл
Стр = ФайлОписаний.ПолучитьСтроку(Счетчик);
Поз = Найти(Стр, "=");
Если Поз > 0 Тогда
Ид = СокрЛП(Лев(Стр, Поз - 1));
Если Найти(ИменаПараметровМодели, ИД) > 0 Тогда
// правильный идентификатор параметра
Параметры.Установить(Ид, СокрЛП(Сред(Стр, Поз + 1)));
КонецЕсли;
КонецЕсли;
КонецЦикла;
Рез = 1;
КонецЕсли;
Исключение
Рез=0;
КонецПопытки;
Возврат Рез;
//открыть файл не может вот и ругается посмотри в отладчике чему равно ИмяФайла
замени на : и попробуй
Попытка
Если ФС.СуществуетФайл(ИмяФайла) = 0 Тогда
ОшибкаОписание = "Отсутствет файл " + ИмяФайла;
Рез = 0;
Иначе
ФайлОписаний = СоздатьОбъект("Текст");
ФайлОписаний.Открыть(ИмяФайла); //ВОТ ТУТ РУГАЕТСЯ.
// заполним список значениями из файла описаний
Для Счетчик = 1 по ФайлОписаний.КоличествоСтрок() Цикл
Стр = ФайлОписаний.ПолучитьСтроку(Счетчик);
Поз = Найти(Стр, "=");
Если Поз > 0 Тогда
Ид = СокрЛП(Лев(Стр, Поз - 1));
Если Найти(ИменаПараметровМодели, ИД) > 0 Тогда
// правильный идентификатор параметра
Параметры.Установить(Ид, СокрЛП(Сред(Стр, Поз + 1)));
КонецЕсли;
КонецЕсли;
КонецЦикла;
Рез = 1;
КонецЕсли;
Исключение
Рез=0;
КонецПопытки;
Возврат Рез;
Помогло, но не до конца. Ошибка которая выше возникала при загрузки и выполнении какого ни будь действия (открытие какой ни будь формы). А сейчас при выполнение действий выскакивает другая ошибка: "Глобальный модуль (7499). Неправильное имя файла!" И там что ли исключение сделать?
А как это сделать?
Tatitutu пишет:
посмотри в отладчике чему равно ИмяФайла
посмотри в отладчике чему равно ИмяФайла
А как это сделать?
Что то про Кнопку печати. Печатную форму просит получается…
А так вроде все работает и печатает, по крайне мере жалоб не было.
//******************************************************************************
// глУстановкаКнопкиПечать(Конт, ВидОбъекта, ТаблицаПечФорм)
//
// Параметры:
// Конт - контекст формы документа,
// ВидОбъекта - вид объекта ("Документ.Реализация", "Элемент.Номенклатура" и т.д.),
// ТаблицаПечФорм - таблица значений, которую надо заполнить
//
// Возвращаемое значение:
// Номер текущей печатной формы
//
// Описание:
// Вызывается при открытии формы документа, формирует таблицу печатных форм,
// добавляя туда предопределенную (в модуле документа), устанавливает заголовок кнопки печать
//
Функция глУстановкаКнопкиПечать(Конт, ВидОбъекта, ТаблицаПечФорм) Экспорт
Перем Название, Кнопка;
// Дополним таблицу печатных форм внешними обработками из предопределенного
// каталога ExtForms\PrnForms
Текст = СоздатьОбъект("Текст");
ФайлОписания = ФС.НайтиПервыйФайл(глКаталогПечФорм+"*.efd");
Пока ПустаяСтрока(ФайлОписания)=0 Цикл
Текст.Открыть(глКаталогПечФорм+ФайлОписания); //ВОТ ТУТ РУГАНЬ
// Устанавливаем расширение
Файл = Лев(ФайлОписания,СтрДлина(ФайлОписания) - 4) + "." + "ert";
Если ФС.СуществуетФайл(глКаталогПечФорм + Файл) = 1 Тогда
// Внешний файл, соответствующий файлу описания, найден.
// Проверим, в нем что есть запись про текущий объект
Если глНайтиВнешнююПечФорму(Текст, """" + ВидОбъекта + """", Название, Кнопка) = 1 Тогда
// Добавляем строку в список внешних файлов
ТаблицаПечФорм.НоваяСтрока();
ТаблицаПечФорм.Название = Название;
ТаблицаПечФорм.Кнопка = Кнопка;
ТаблицаПечФорм.Файл = Файл;
ТаблицаПечФорм.ФайлОписания = (ФайлОписания);
КонецЕсли;
КонецЕсли;
ФайлОписания = ФС.НайтиСледующийФайл();
КонецЦикла;
НомерСтроки = глПолучитьТекущуюПечФорму(ВидОбъекта, ТаблицаПечФорм);
Если НомерСтроки = 0 Тогда
ЗагловокКнПечать = "Печать";
Иначе
ЗагловокКнПечать = ТаблицаПечФорм.ПолучитьЗначение(НомерСтроки, "Кнопка");
КонецЕсли;
Конт.Форма.кнПечать.Заголовок(ЗагловокКнПечать);
Возврат НомерСтроки;
КонецФункции // глУстановкаКнопкиПечать()
А так вроде все работает и печатает, по крайне мере жалоб не было.
//******************************************************************************
// глУстановкаКнопкиПечать(Конт, ВидОбъекта, ТаблицаПечФорм)
//
// Параметры:
// Конт - контекст формы документа,
// ВидОбъекта - вид объекта ("Документ.Реализация", "Элемент.Номенклатура" и т.д.),
// ТаблицаПечФорм - таблица значений, которую надо заполнить
//
// Возвращаемое значение:
// Номер текущей печатной формы
//
// Описание:
// Вызывается при открытии формы документа, формирует таблицу печатных форм,
// добавляя туда предопределенную (в модуле документа), устанавливает заголовок кнопки печать
//
Функция глУстановкаКнопкиПечать(Конт, ВидОбъекта, ТаблицаПечФорм) Экспорт
Перем Название, Кнопка;
// Дополним таблицу печатных форм внешними обработками из предопределенного
// каталога ExtForms\PrnForms
Текст = СоздатьОбъект("Текст");
ФайлОписания = ФС.НайтиПервыйФайл(глКаталогПечФорм+"*.efd");
Пока ПустаяСтрока(ФайлОписания)=0 Цикл
Текст.Открыть(глКаталогПечФорм+ФайлОписания); //ВОТ ТУТ РУГАНЬ
// Устанавливаем расширение
Файл = Лев(ФайлОписания,СтрДлина(ФайлОписания) - 4) + "." + "ert";
Если ФС.СуществуетФайл(глКаталогПечФорм + Файл) = 1 Тогда
// Внешний файл, соответствующий файлу описания, найден.
// Проверим, в нем что есть запись про текущий объект
Если глНайтиВнешнююПечФорму(Текст, """" + ВидОбъекта + """", Название, Кнопка) = 1 Тогда
// Добавляем строку в список внешних файлов
ТаблицаПечФорм.НоваяСтрока();
ТаблицаПечФорм.Название = Название;
ТаблицаПечФорм.Кнопка = Кнопка;
ТаблицаПечФорм.Файл = Файл;
ТаблицаПечФорм.ФайлОписания = (ФайлОписания);
КонецЕсли;
КонецЕсли;
ФайлОписания = ФС.НайтиСледующийФайл();
КонецЦикла;
НомерСтроки = глПолучитьТекущуюПечФорму(ВидОбъекта, ТаблицаПечФорм);
Если НомерСтроки = 0 Тогда
ЗагловокКнПечать = "Печать";
Иначе
ЗагловокКнПечать = ТаблицаПечФорм.ПолучитьЗначение(НомерСтроки, "Кнопка");
КонецЕсли;
Конт.Форма.кнПечать.Заголовок(ЗагловокКнПечать);
Возврат НомерСтроки;
КонецФункции // глУстановкаКнопкиПечать()
если я не ошибаюсь
то вот это
ФайлОписания = ФС.НайтиПервыйФайл(глКаталогПечФорм+"*.efd");
должно быть
ФС.УстТекКаталог(глКаталогПечФорм);
ФайлОписания = ФС.НайтиПервыйФайл("*.efd");
Проверь у тебя вообще физически есть папка в каталоге бызы ExtForms\PrnForms?
НайтиПервыйФайл(<?>)
Синтаксис:
НайтиПервыйФайл(<МаскаИмени>)
Назначение:
Открывает выборку файлов по заданной маске и находит первый файл.
Возвращает строку с именем найденного файла.
Параметры:
<МаскаИмени> - строка с маской имен файлов.
Синтаксис:
НайтиПервыйФайл(<МаскаИмени>)
Назначение:
Открывает выборку файлов по заданной маске и находит первый файл.
Возвращает строку с именем найденного файла.
Параметры:
<МаскаИмени> - строка с маской имен файлов.
то вот это
ФайлОписания = ФС.НайтиПервыйФайл(глКаталогПечФорм+"*.efd");
должно быть
ФС.УстТекКаталог(глКаталогПечФорм);
ФайлОписания = ФС.НайтиПервыйФайл("*.efd");
Проверь у тебя вообще физически есть папка в каталоге бызы ExtForms\PrnForms?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот