ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / 1С [игнор отключен] [закрыт для гостей] / Печать комплекта документов УТ10
10 сообщений из 10, страница 1 из 1
Печать комплекта документов УТ10
    #38453850
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
Всем, здравствуйте! Конфигурация Бит-Авто (УТ 10). Необходимо реализовать печать комплекта документов. Печатные формы - внешние. Возможно решить задачу следующим образом: добавляем еще одну внешнюю печатную форму с названием "Комплект документов", в функции "Печать" последовательно пускаем на печать нужные нам печатные формы? Поделитесь кодом, если кто решал подобную задачу. Заранее благодарен за помощь.
...
Рейтинг: 0 / 0
06.11.2013, 00:47
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38453859
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
Вопрос снят, здесь рабочий пример http://www.forum.mista.ru/topic.php?id=574348
...
Рейтинг: 0 / 0
06.11.2013, 01:06
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38453991
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
В коде возникла проблема в строке ДД = Обр.ХранилищеВнешнейОбработки.Получить(); Не находит ХранилищеВнешнейОбработки, и тип ДД остается - Неопределено. Не могу понять почему, тем более, что это отрабатывало раньше


Обр = Справочники.ВнешниеОбработки.НайтиПоНаименованию("Сообщение о готовности автомобиля");
Если Обр = Справочники.ВнешниеОбработки.ПустаяСсылка() Тогда
Сообщить("Внешняя печатная форма не найдена");
Иначе
ИмяФайла = ПолучитьИмяВременногоФайла();
ДД = Обр.ХранилищеВнешнейОбработки.Получить();
ДД.Записать(ИмяФайла);
ВнешняяОбработка = ВнешниеОбработки.Создать(ИмяФайла);
ВнешняяОбработка.СсылкаНаОбъект = ЭлементыФормы.ТаблицаДоговоров.ТекущаяСтрока;
ТабДокумент = ВнешняяОбработка.Печать();
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент);
КонецЕсли;
...
Рейтинг: 0 / 0
06.11.2013, 09:43
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454001
Последний выдох ГПЖ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Последний выдох ГПЖ
Участник
или Обр = неопределено или нет .ХранилищеВнешнейОбработки
...
Рейтинг: 0 / 0
06.11.2013, 09:57
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454004
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
Последний выдох ГПЖили Обр = неопределено или нет .ХранилищеВнешнейОбработки

Я проверил Обр - печатная форма. Как может не быть ХранилищеВнешнейОбработки, если это внешняя печатная форма?
...
Рейтинг: 0 / 0
06.11.2013, 10:00
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454024
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
Частично разобрался, проблема действительно оказалась в хранилище. Если файл печатной формы указан в табличной части "Принадлежность печатной формы" документа "Регистрация внешней печатной формы", то строка Обр.ХранилищеВнешнейОбработки.Получить() ничего не возвращала. Если файл печатной формы указать выше (не знаю как технически грамотно назвать), то все ОК, печатные формы появляются и заполняются.
...
Рейтинг: 0 / 0
06.11.2013, 10:12
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454077
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
Пытаюсь изменить масштаб печатной формы, добавляю две строчки кода
ТабДокумент.АвтоМасштаб = Ложь;
ТабДокумент.МасштабПечати = 80;
но печать идет с масштабом 100%. Почему в данном варианте не отрабатывает?
...
Рейтинг: 0 / 0
06.11.2013, 10:47
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454281
steptostep
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
steptostep
Гость
Gennadiy83, Печать выполняется через УниверсальныеМеханизмы.НапечататьДокумент() - там эти настройки затираются поскольку туда передаётся только ИмяПараметровПечати, а их нет. Можно добавить в ПриОткрытии общей формы

ЭлементыФормы.ПолеТабличногоДокумента.АвтоМасштаб = ПечатныйДокумент.АвтоМасштаб;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСверху = ПечатныйДокумент.ПолеСверху;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСлева = ПечатныйДокумент.ПолеСлева;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСнизу = ПечатныйДокумент.ПолеСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСправа = ПечатныйДокумент.ПолеСправа;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСверху = ПечатныйДокумент.РазмерКолонтитулаСверху;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСнизу = ПечатныйДокумент.РазмерКолонтитулаСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ОриентацияСтраницы = ПечатныйДокумент.ОриентацияСтраницы;
...
Рейтинг: 0 / 0
06.11.2013, 12:29
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454564
Gennadiy83
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gennadiy83
Участник
steptostepGennadiy83, Печать выполняется через УниверсальныеМеханизмы.НапечататьДокумент() - там эти настройки затираются поскольку туда передаётся только ИмяПараметровПечати, а их нет. Можно добавить в ПриОткрытии общей формы

ЭлементыФормы.ПолеТабличногоДокумента.АвтоМасштаб = ПечатныйДокумент.АвтоМасштаб;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСверху = ПечатныйДокумент.ПолеСверху;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСлева = ПечатныйДокумент.ПолеСлева;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСнизу = ПечатныйДокумент.ПолеСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСправа = ПечатныйДокумент.ПолеСправа;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСверху = ПечатныйДокумент.РазмерКолонтитулаСверху;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСнизу = ПечатныйДокумент.РазмерКолонтитулаСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ОриентацияСтраницы = ПечатныйДокумент.ОриентацияСтраницы;

Пользователи хотят печатать сразу на принтер без открытия форм. Идея интересная, огромное спасибо)
...
Рейтинг: 0 / 0
06.11.2013, 14:42
| Ответить | Цитировать | Написать  
Печать комплекта документов УТ10
    #38454672
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир Лазурко
Участник
Gennadiy83steptostepGennadiy83, Печать выполняется через УниверсальныеМеханизмы.НапечататьДокумент() - там эти настройки затираются поскольку туда передаётся только ИмяПараметровПечати, а их нет. Можно добавить в ПриОткрытии общей формы

ЭлементыФормы.ПолеТабличногоДокумента.АвтоМасштаб = ПечатныйДокумент.АвтоМасштаб;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСверху = ПечатныйДокумент.ПолеСверху;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСлева = ПечатныйДокумент.ПолеСлева;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСнизу = ПечатныйДокумент.ПолеСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ПолеСправа = ПечатныйДокумент.ПолеСправа;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСверху = ПечатныйДокумент.РазмерКолонтитулаСверху;
ЭлементыФормы.ПолеТабличногоДокумента.РазмерКолонтитулаСнизу = ПечатныйДокумент.РазмерКолонтитулаСнизу;
ЭлементыФормы.ПолеТабличногоДокумента.ОриентацияСтраницы = ПечатныйДокумент.ОриентацияСтраницы;

Пользователи хотят печатать сразу на принтер без открытия форм. Идея интересная, огромное спасибо)В первый раз у пользователя нужно настроить вручную, сохранить параметры, потом печатать на автомате.
Либо допилить передачу параметров в общий модуль - если не указаны в параметрах свои настройки, брать настройки по умолчанию.
...
Рейтинг: 0 / 0
06.11.2013, 15:28
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / 1С [игнор отключен] [закрыт для гостей] / Печать комплекта документов УТ10
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=28&msg=38454281&tid=1519619]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 313ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]