Вывод диалога с выбором данных из справочника и даты перед открытием макета печатной формы
Приветствую, форумчане!
1с8.3.6, УФ, самописная
Имеется некий макет печати Акта выполненных работ. В Акте имеются параметры "Город" и "ДатаСоставления"
Как можно перед печатью вывести немодальное окно, где будет спрашиваться выбор города из справочника и дату составления акта???
ВвестиДату, ВвестиСтроку и т.д. крайне неудобны. Ну я не смог их понять, а нужно именно, чтобы запрашивалось 2-а параметра, которые потом бы смогли уйти на макет.
Кроме того, нужно выбрать именно из справочника значение города
Печеть расположена в модуле Менеджера
1с8.3.6, УФ, самописная
Имеется некий макет печати Акта выполненных работ. В Акте имеются параметры "Город" и "ДатаСоставления"
Как можно перед печатью вывести немодальное окно, где будет спрашиваться выбор города из справочника и дату составления акта???
ВвестиДату, ВвестиСтроку и т.д. крайне неудобны. Ну я не смог их понять, а нужно именно, чтобы запрашивалось 2-а параметра, которые потом бы смогли уйти на макет.
Кроме того, нужно выбрать именно из справочника значение города
Печеть расположена в модуле Менеджера
Функция ПечатьАктаПриемаУслугПоУстановкеИзделия(МассивОбъектов, ОбъектыПечати)
////ОткрытьФорму("Документ.Заказ.Форма.ФормаОтбора");
//ДатаАкта = ТекущаяДата();
//Если
// ВвестиДату(ДатаАкта, "Введите дату подписания акта", ЧастиДаты.Дата) = Истина
//Тогда
// Сообщить("Вы родились " + ДатаАкта);
//КонецЕсли;
Если ТипЗнч(МассивОбъектов) = Тип("Массив") Тогда
Объект = МассивОбъектов[0];
Иначе
Объект = МассивОбъектов;
КонецЕсли;
Макет = УправлениеПечатью.МакетПечатнойФормы("ОбщийМакет.АктПриемаУслугПоУстановкеИзделия"); //ПолучитьОбщийМакет("АктПриемаУслугПоУстановкеИзделия");
Таб=Новый ТабличныйДокумент;
Обл=Макет;
Обл.Параметры.НомерДоговора = Объект.Номер;
Обл.Параметры.Заказчик = Объект.Заказчик.Наименование;
Обл.Параметры.ДатаЗаказа = " от "+ Формат(Объект.Дата,"ДЛФ=DD");
Обл.Параметры.Исполнитель = СокрЛП(Объект.Организации.ПолноеНаименование); //52898
Обл.Параметры.Отступ = Символы.Таб + Символы.Таб;
Таб.Вывести(Обл);
Таб.ОтображатьСетку = Ложь;
Таб.Защита = Истина; //42590
Таб.ТолькоПросмотр = Истина;
Таб.ОтображатьЗаголовки = Ложь;
Таб.ПолеСлева=10;
Таб.ПолеСправа=5;
Таб.АвтоМасштаб = Истина;
Таб.ИмяПараметровПечати="АктПриемаУслугПоУстановкеИзделия";
Возврат Таб;
ПоказатьПо теме из базы знаний
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Ну так вроде и пошел
На кнопку, которая печатает добавил код открытия формы с выбором.
Открывает, выбирает город и дату...
Но (если я на верном пути) как передать эти город и дату в менеджер объекта, чтобы эти значения пропечатались в макете?
Как передать эти значения в менеджер, который доводит печать до конца?
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
ПолучитьФорму("Документ.Заказ.Форма.ФормаОтбора").ОткрытьМодально();
УправлениеПечатьюКлиент.ВыполнитьКомандуПечати(
"Документ.Заказ",
"ПечатьАктУслугУстановки",
ПараметрКоманды,
Неопределено);
КонецПроцедуры
ПоказатьНа кнопку, которая печатает добавил код открытия формы с выбором.
Открывает, выбирает город и дату...
Но (если я на верном пути) как передать эти город и дату в менеджер объекта, чтобы эти значения пропечатались в макете?
Обл.Параметры.Город = ????????????????;
Как передать эти значения в менеджер, который доводит печать до конца?
(3) Ващпе не так.
1.
2.
3.
Примерно так.
1.
&НаКлиенте
Функция ЗадатьВопросПередПечатью()
СтрукПарам = Новый Структура("ТекстВопроса", "Вы хотите Напечатать документ?);
Оповещение = Новый ОписаниеОповещения("ПослеЗакрытияФормыВопроса", ЭтаФорма);
ОткрытьФорму("Документ.ПечатьФормы.Форма.ФормаВопроса", СтрукПарам,,,,,Оповещение);
КонецФункции
2.
&НаСервере
Функция НапечататьДокументНаСервере(Рез)
Возврат Печать();
КонецФункции
3.
&НаКлиенте
Процедура ПослеЗакрытияФормыВопроса(Рез, Доп) Экспорт
Если ТипЗнч(Рез) = Тип("Структура") Тогда
Если Рез.Истина Тогда
ТабДок = НапечататьДокументНаСервере(Рез);
ТабДок.Показать();
КонецЕсли;
КонецПроцедуры
Примерно так.
+ (6) ОбработкаКоманды(<ПараметрКоманды>, <ПараметрыВыполненияКоманды>)
<ПараметрКоманды>
В параметр передается значение от источника, в котором реализована команда. Может содержать как единичное значение, так и массив значений.
Вот сюда передавай то, что получаешь после закрытия формы
<ПараметрКоманды>
В параметр передается значение от источника, в котором реализована команда. Может содержать как единичное значение, так и массив значений.
Вот сюда передавай то, что получаешь после закрытия формы
(7) Я наверное не правильно всё объяснил.
Мне абсолютно не нужно задавать вопрос: "Печатать или не Печатать".
У меня был вопрос, как перед печатью открыть некую форму, на которой есть 2а реквизита (город и дата) и после выбора города и даты закрыть эту форму при этом выбранные значения сохранить и передать для печати в модуле менеджера...
Мне абсолютно не нужно задавать вопрос: "Печатать или не Печатать".
У меня был вопрос, как перед печатью открыть некую форму, на которой есть 2а реквизита (город и дата) и после выбора города и даты закрыть эту форму при этом выбранные значения сохранить и передать для печати в модуле менеджера...