Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 авг 2022, 09:29

Поиск текста по всем внешним отчетам, которые в режиме предприятия

Автор Lurker_1, 10 янв 2018, 10:32

0 Пользователей и 1 гость просматривают эту тему.

Lurker_1

В режиме предприятия: Сервис-Дополнительные внешние отчеты и обработки находится более сотни обработок. Возможно ли организовать поиск во всех их определённого слова которое может быть, как и в модуле так и в макетах всех внешних печатных форм?:dfbbdrfb: Сохранять в файл каждую не предлагать :fdbsdfbsd: Версия 8.2

Z.spb

Ничего другого, кроме как сохранить их в файлы, в голову не приходит. Но зачем сохранять в файл каждую? Это действительно долго. Можно же выгрузить их программно все сразу в одну папку. Потом из конфигуратора запустить глобальный поиск (ctrl + shift + F)  и на вкладке "файлы" указать путь к каталогу.

Порылся вот нашёл, писал для своих нужд. Можно взять за основу.


Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ *
               |ИЗ
               | Справочник.ВнешниеОбработки КАК ВнешниеОбработки
               |
               |УПОРЯДОЧИТЬ ПО
               | ВнешниеОбработки.ВидОбработки.Порядок
               |ИТОГИ ПО
               | ВидОбработки";
   
ВыборкаВид = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);    
ТекД = Формат(ТекущаяДата(),"ДФ=dd-MM-yy");
Каталог1 = "D:\ВнешниеОбработки" + ТекД;
СоздатьКаталог(Каталог1);

Пока ВыборкаВид.Следующий() Цикл
        Каталог2 = Каталог1 + "\" + Строка(ВыборкаВид.ВидОбработки);
СоздатьКаталог(Каталог2);
Расширение = ?(Строка(ВыборкаВид.ВидОбработки)="Отчет",".erf",".epf");
Выборка = ВыборкаВид.Выбрать();
Пока Выборка.Следующий() Цикл
ДвД   = Выборка.ХранилищеВнешнейОбработки.Получить();
ИмяФ  = Выборка.Наименование;
ИмяФ2 = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(ИмяФ, "");
ИмяФ3 =  Каталог2 + "\" + ИмяФ2 + Расширение;
ДвД.Записать(ИмяФ3);
КонецЦикла;
КонецЦикла;



Lurker_1

Благодарю за отличную идею. Буду воплощать её в жизнь.

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск