PDA

Просмотр полной версии : Помогите с внешней печатной формой



xdoker
19.09.2016, 19:19
Очень нужна помощь:
1. На форму ВПФ вынесен реквизит договор, нужно прикрепить его к реквизиту контрагент (чтобы при нажатии на кнопку списка выводились договоры только выбранного контрагента).
2. Есть Массив:
ГТД = Заявка.СпецификацияГруза.В ыгрузитьКолонку("ГТД");
Массив = Новый Массив();
Сообщить(ГТД);
Как вывести ГТД на форму ВПФ?
Конфигурация УТ 10.3 доработанная.

alexandr_ll
19.09.2016, 19:57
Очень нужна помощь:
1. На форму ВПФ вынесен реквизит договор, нужно прикрепить его к реквизиту контрагент (чтобы при нажатии на кнопку списка выводились договоры только выбранного контрагента).
2. Есть Массив:
ГТД = Заявка.СпецификацияГруза.В ыгрузитьКолонку("ГТД");
Массив = Новый Массив();
Сообщить(ГТД);
Как вывести ГТД на форму ВПФ?
Конфигурация УТ 10.3 доработанная.
По первому вопросу - в свойствах поля ввода «Договор» нужно указать связь по владельцу «Контрагент»
По второму вопросу- неясно, в какой элемент формы вы хотите вывести массив?

xdoker
19.09.2016, 20:45
Суть в чем: есть документ "заявка" на основании которого вводится документ "акт". ВПФ приреплена к "акту". В форму выводятся реквмзиты "заявки" и "акта". В "акт" завеен реквизит "контрагентзаявка"- выводит контрагента заявки.
1. Связь по владельцу контрагентзаявка указана, но ничего не выводит.
2. Есть в заявке реквизит табличной части -гтд. Его необходимо вывести в форму. Но как ни пробовал ничего кроме слова "массив" вывести не уалось. И запросом пробовал. Ничего.

xdoker
21.09.2016, 18:54
Кто-нибудь подскажет почему запрос ничего не выводит?

Процедура КнопкаВыполнитьНажатие(Кн� �пка)

ТИР = СсылкаНаОбъект.ДокументОс� �ование.СсылкаАктивныйДоку мент;
Если ЗначениеЗаполнено(ТИР) И ТипЗнч(Тир) = Тип("ДокументСсылка.TIR") Тогда
Заявка = ТИР.ЗаявкиНаПеревозку[0].ЗаявкаНаПеревозку.СсылкаА ктивныйДокумент;

Иначе Заявка = СсылкаНаОбъект.ДокументОс� �ование;


КонецЕсли;



Таб = Новый ТабличныйДокумент;
Макет = ПолучитьМакет("Макет");
Таб.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_Письмо";
ОбластьШапки = Макет.ПолучитьОбласть("Шапка");
ОбластьШапки.Параметры.Дат аПисьма = Формат(СсылкаНаОбъект.Дата ,"ДЛФ=ДД");
ОбластьШапки.Параметры.Дат аПП = СсылкаНаОбъект.ДатаПП;
ОбластьШапки.Параметры.Дат аЧек = СсылкаНаОбъект.ДатаЧек;
ОбластьШапки.Параметры.Ном ерЧек = СсылкаНаОбъект.НомерЧек;
ОбластьШапки.Параметры.Ном ерПП = СсылкаНаОбъект.НомерПП;
ОбластьШапки.Параметры.Кон трагент = СсылкаНаОбъект.Контрагент. ОсновноеЮрФизЛицо.Наимено� �ание;
ОбластьШапки.Параметры.Сум маДокумента = СсылкаНаОбъект.СуммаДокум� �нта;
ОбластьШапки.Параметры.Дог оворЗаявка = Заявка.Договор;
ОбластьШапки.Параметры.Кон трагентЗаявка = Заявка.Контрагент.Основное ЮрФизЛицо.НаименованиеПол� �ое;
//ОбластьШапки.Параметры.ГТД = ГТД;
ОбластьШапки.Параметры.Ном ерЗаявка = Заявка.НомерНачала;


Запрос = Новый Запрос;
Запрос.УстановитьПараметр("НомерНачала", СсылкаНаОбъект.НомерНачал� �);
Запрос.Текст = "ВЫБРАТЬ
| ЗаявкаНаПеревозку.Специфи� �ацияГруза.(
| ГТД.Представление
| ) КАК ГТДКод
|ИЗ
| Документ.ЗаявкаНаПеревозк� � КАК ЗаявкаНаПеревозку
|ГДЕ
| ЗаявкаНаПеревозку.Активны� �Документ = ИСТИНА
| И ЗаявкаНаПеревозку.Затраты� �оЗаявке.АктОказаныхНамУсл уг.НомерНачала = &НомерНачала";

РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ОбластьШапки = Макет.ПолучитьОбласть("Шапка");
// заполнение параметров строки отчета
ОбластьШапки.Параметры.ГТД = Выборка.ГТДКод;
Сообщить = Выборка.ГТДКод;

КонецЦикла;




Таб.Вывести(ОбластьШапки);
Таб.ОтображатьСетку = Ложь;
Таб.ОтображатьЗаголовки = Ложь;

Таб.Показать();

ФормаПросмотр = ПолучитьФорму("ФормаПросмотр");
ФормаПросмотр.ЭлементыФор� �ы.Отчет.Очистить();
ФормаПросмотр.ЭлементыФор� �ы.Отчет.Вывести(Таб);
ФормаПросмотр.Открыть();

Закрыть();

КонецПроцедуры

xdoker
22.09.2016, 14:04
усе готово