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

Подчиненный справочник 1с 8.2

Автор alrain, 01 мар 2016, 10:38

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

alrain

Приветствую знатоков, есть задачка, нужно в печатную форму вывести поле контактное лицо контрагента, как это сделать пока не пойму...
https://yadi.sk/i/6wQaSG59pmmN3
Есть такой код, но он не то показывает...

Выборка = Справочники.КонтактныеЛица.Выбрать();
Пока Выборка.Следующий() Цикл
КонецЦикла;

ОбластьМакета.Параметры.КонтактныеЛицаКонтрагента = Выборка.Наименование;

дфтын

ОбластьМакета.Параметры.КонтактныеЛицаКонтрагента = Выборка.Наименование;
В цмкл вставьте
Пока Выборка.Следующий() Цикл
ОбластьМакета.Параметры.КонтактныеЛицаКонтрагента = Выборка.Наименование;
КонецЦикла;
Помог? Нажми - Спасибо :)
skype: Soprov1C

alrain

Вставил - пустое значение показывает...

Выборка = Справочники.КонтактныеЛица.Выбрать();

   ОбластьМакета = Макет.ПолучитьОбласть("Текст");
   ОбластьМакета.Параметры.Организация = СсылкаНаОбъект.Организация;   
   ОбластьМакета.Параметры.Контрагент = СсылкаНаОбъект.Контрагент;
   ТабДокумент.Вывести(ОбластьМакета);

   Пока Выборка.Следующий() Цикл
   ОбластьМакета.Параметры.КонтактныеЛицаКонтрагента = Выборка.Наименование;
КонецЦикла;

дфтын

гы
   ТабДокумент.Вывести(ОбластьМакета);
тоже в цикл запихните

и идите уже книжки читайте
Помог? Нажми - Спасибо :)
skype: Soprov1C

alrain

Благодарю за подсказки, но теперь выдаёт мне весь список контрагентов, а надо по одному конкретному...
Книжки читать буду)

дфтын

Помог? Нажми - Спасибо :)
skype: Soprov1C

alrain

Появилась вторая задача, необходимо в печатной форме отобразить фактический адрес контрагента, который показан на рисунке.
https://yadi.sk/i/AgUeknmmq3Tss
Кучу статей в инете перерыл, много кода испробовал, но не один не отображает сам фактический адрес...

На данный момент такой код:

ОбластьМакета = Макет.ПолучитьОбласть("Поставка");
   ОбластьМакета.Параметры.Заполнить(ПараметрыПечати);
   ОбластьМакета.Параметры.Контрагент = СсылкаНаОбъект.Контрагент.НаименованиеПолное;
   ОбластьМакета.Параметры.ФактАдрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический");
   ТабДокумент.Вывести(ОбластьМакета);

нажимаю кнопку Печать с выбором нужной формы, пишет такую ошибку:
Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (ФактАдрес)

Специалисты, подскажите\помогите новичку с кодом... Заранее благодарю...
Добавлено: 11 мар 2016, 10:16


Сам отвечу на свой вопрос, вот решение:
ОбластьМакета.Параметры.ФактАдрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(СсылкаНаОбъект.Контрагент, "Фактический");

дфтын

Помог? Нажми - Спасибо :)
skype: Soprov1C

IL2016

конструктором печати не хочется пользоваться?
только кодироваться!:befhbt:
Использую учебную платформу 1С:Предприятие 8.3

Теги:

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

Рейтинг@Mail.ru

Поиск