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


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

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

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

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

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

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

Пользователи хотят печатать сразу на принтер без открытия форм. Идея интересная, огромное спасибо)В первый раз у пользователя нужно настроить вручную, сохранить параметры, потом печатать на автомате.
Либо допилить передачу параметров в общий модуль - если не указаны в параметрах свои настройки, брать настройки по умолчанию.
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / Печать комплекта документов УТ10 / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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