Изменяем заголовок 1С. Для удобства (разработки) или защиты "от дурака" =)
Задачи пользователя - Адаптация типовых решений
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Да и защита от дурака это неплохая, когда был помоложе - пару раз на базе живой неправильные обработки запускал =)
Плюсы такого подхода, нам не надо ничего контролировать и переименовывать, мы просто делаем копию и работаем.
Сделал внешнюю обработку. Подключается через параметр запуска 1с или файл конфига(1cestart.cfg) .
Код обработки ниже. Меньше тратится времени на анализ, где мы сейчас.
У ярлыка запуска дополнительный параметр /ExecuteD:\zapusk.epf
Процедура ПриОткрытии()
//+Gavrikprog 24102011
Если Метаданные.НайтиПоПолномуИмени("Константа.ЗаголовокСистемы")<> Неопределено Тогда
ЗаголовокСистемы = Константы.ЗаголовокСистемы.Получить();
Если ЗаголовокСистемы="" Тогда
ЗаголовокСистемы=ПолучитьЗаголовокСистемы();
КонецЕсли;
Иначе
ЗаголовокСистемы=ПолучитьЗаголовокСистемы();
КонецЕсли;
//-Gavrikprog 24102011
СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
СтрокаСоединения = СтрЗаменить(СтрокаСоединения, ";", Символы.ПС);
Если абОпределитьЭтаИнформационнаяБазаФайловая() Тогда
Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 1);
Иначе
Стр1 = СтрПолучитьСтроку(СтрокаСоединения, 1);
Стр2 = СтрПолучитьСтроку(СтрокаСоединения, 2);
КонецЕсли;
ЗаголовокСистемы=Строка(ЗаголовокСистемы)+" (" +Строка(Стр2)+")";
Если НЕ Пустаястрока(ЗаголовокСистемы) Тогда
УстановитьЗаголовокСистемы(ЗаголовокСистемы);
КонецЕсли;
Закрыть();
КонецПроцедуры
Функция абОпределитьЭтаИнформационнаяБазаФайловая(СтрокаСоединенияСБД = "") Экспорт
СтрокаСоединенияСБД = ?(ПустаяСтрока(СтрокаСоединенияСБД), СтрокаСоединенияИнформационнойБазы(), СтрокаСоединенияСБД);
// в зависимости от того файловый это вариант БД или нет немного по-разному путь в БД формируется
ПозицияПоиска = Найти(Врег(СтрокаСоединенияСБД), "FILE=");
Возврат ПозицияПоиска = 1;
КонецФункции
//Дополнительная информация!!!
//Изменено: 24.10.2011 Поддерживаются управляемые формы
//Изменено: 26.10.2011 чтоб обработка отрабатывала при запуске отладки из конфигуратора надо ее прописать Дополнительные параметры
//запуска при добавлении/изменении базы. так /ExecuteD:\zapusk.epf
//Но мне не мешает. Приспособился уже.
//Если же добавить просто параметром дополнительным у ярлыка запуска, то будет работать, если запускаем просто 1С Предприятие, при
//отладке обработка отрабатывать не будет.
Иполнитель: 2012 г. www.rt-finance.ru
Вступайте в нашу телеграмм-группу Инфостарт