1С, не могу добавить данные из запроса на внешнюю печатную форму (внешняя обработка)
Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Здравствуйте, 2 день бьюсь с внешней обработкой, суть в чем. Макет, на нем нужны данные из Справочника Организации и Справочника Контрагенты, в 3-е поле успешно выводятся данные из док-та к которому подвязана внешняя обработка. Возможно не правильно построил запрос или типо того, отладчиком не умею пользоваться. Выводит пустые строки, скриншоты и код прикреплю.
Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
КоллекцияПечатныхФорм,
"ТестоваяПечатьДок",
"Тестовая печать док",
СформироватьПечатнуюФорму(МассивОбъектов[0], ОбъектыПечати));
КонецПроцедуры
// вся суть здесь
Функция СформироватьПечатнуюФорму(СсылкаНаОбъект, ОбъектыПечати)
ТабличныйДокумент = Новый ТабличныйДокумент;
МакетОбработки = ПолучитьМакет("МакетВнешнейОбработки_ТестПечатьДок");
ОбластьШапки = МакетОбработки.ПолучитьОбласть("Шапка");
ТабличныйДокумент.Вывести(ОбластьШапки);
//СтрокаТЧ1
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ШапкаТЧ1");
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ1");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Организации.Наименование КАК Наименование,
| Организации.ИНН КАК ИНН,
| Организации.КПП КАК КПП,
| Организации.КонтактнаяИнформация.(
| НомерТелефона КАК НомерТелефона,
| АдресЭП КАК АдресЭП
| ) КАК КонтактнаяИнформация
|ИЗ
| Справочник.Организации КАК Организации
|ГДЕ
| Организации.Ссылка В (&Ссылка)";
Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
ОбластьСтроки1.Параметры.Заполнить(Выборка);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
Это первый вариант первого поля. Ниже второй
//Пока Выборка.Следующий() Цикл
//
// ОбластьСтроки1.Параметры.Организация = Выборка.Наименование;
// ОбластьСтроки1.Параметры.ИНН = Выборка.ИНН;
// ОбластьСтроки1.Параметры.КПП = Выборка.КПП;
// //ОбластьСтроки1.Параметры.ЮрАдрес = Выборка.Сумма;
// //ОбластьСтроки1.Параметры.ФактАдрес = Выборка.СуммаНДС;
// ОбластьСтроки1.Параметры.КТ = Выборка.НомерТелефона;
// ОбластьСтроки1.Параметры.ЭП = Выборка.АдресЭП;
// //ОбластьСтроки1.Параметры.КЛК = Выборка.Цена;
//
//ТабличныйДокумент.Вывести(ОбластьСтроки1);
//КонецЦикла;
//Ничего не работает в интернете все заумно пишут, я не понимаю, только универ закончил, прошерстил
//все что можно, ответ никто не выкладывает, все говорят, что исправили и тема закрыта, а как решить другим не ясно.
//второй пункт макета сделан так же поэтому на всякий закину 3, он работает с самого начала, проблем не было.
//СтрокаТЧ3
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ШапкаТЧ3");
ТабличныйДокумент.Вывести(ОбластьСтроки);
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ТелоТЧ3");
Для Каждого ТекущаяСтрока Из СсылкаНаОбъект.Товары Цикл
ОбластьСтроки.Параметры.Номенклатура = ТекущаяСтрока.Номенклатура;
ОбластьСтроки.Параметры.Цена = ТекущаяСтрока.Цена;
ОбластьСтроки.Параметры.Количество = ТекущаяСтрока.Количество;
ОбластьСтроки.Параметры.Сумма = ТекущаяСтрока.Сумма;
ОбластьСтроки.Параметры.НДС = ТекущаяСтрока.СуммаНДС;
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЦикла;
ПоказатьПрикрепленные файлы:
По теме из базы знаний
- 1С Рекомендуемо (Система требований к продуктам 1С)
- Загрузка чеков в 1С из ФНС в документы БП, УНФ, ERP, КА и УТ
- Как найти подходящего кандидата на должность "Разработчик 1С?"
- Присоединение внешней печатной формы в виде файла к объекту-основанию
- Maker - программа для прототипирования и UI и UX дизайна на базе 1С:Предприятие 8
Найденные решения
Итак, решение без вывода контактного лица контрагента вот:
//СтрокаТЧ1
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ШапкаТЧ1");
ТабличныйДокумент.Вывести(ОбластьСтроки);
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ТелоТЧ1");
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| Организации.Наименование КАК Организация,
| Организации.ИНН КАК ИНН,
| Организации.КПП КАК КПП,
| ОрганизацииКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| ОрганизацииКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| ОрганизацииКонтактнаяИнформацияТелефон.Представление КАК КТ,
| ОрганизацииКонтактнаяИнформацияEmail.Представление КАК ЭП
|ИЗ
| Справочник.Организации КАК Организации
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияФактАдрес
| ПО (ОрганизацииКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияФактАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияЮрАдрес
| ПО (ОрганизацииКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияЮрАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияТелефон
| ПО (ОрганизацииКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияТелефон.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияEmail
| ПО (ОрганизацииКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияEmail.Ссылка)
|ГДЕ
| Организации.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Организация);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Если Выборка.Следующий() Тогда
ОбластьСтроки.Параметры.Заполнить(Выборка);
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЕсли;
//СтрокаТЧ2
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ШапкаТЧ2");
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ2");
Запрос1 = Новый Запрос;
Запрос1.Текст = "ВЫБРАТЬ
| Контрагенты.Наименование КАК Контрагент,
| Контрагенты.ИНН КАК ИНН1,
| Контрагенты.КПП КАК КПП1,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес1,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес1,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ1,
//| КонтрагентыКонтактнаяИнформацияКонтактноеЛицоКонтрагента.Представление КАК КЛК,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП1
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияФактАдрес
| ПО (КонтрагентыКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияФактАдрес.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияЮрАдрес
| ПО (КонтрагентыКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияЮрАдрес.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияТелефон
| ПО (КонтрагентыКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияТелефон.Ссылка
//
//| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияКонтактноеЛицо
//| ПО (КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.КонтактноеЛицо))
//| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияEmail
| ПО (КонтрагентыКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияEmail.Ссылка
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
РезультатЗапроса = Запрос1.Выполнить();
Выборка1 = РезультатЗапроса.Выбрать();
Если Выборка1.Следующий() Тогда
ОбластьСтроки1.Параметры.Заполнить(Выборка1);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
КонецЕсли;
//СтрокаТЧ3
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ШапкаТЧ3");
ТабличныйДокумент.Вывести(ОбластьСтроки);
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ТелоТЧ3");
Для Каждого ТекущаяСтрока Из СсылкаНаОбъект.Товары Цикл
ОбластьСтроки.Параметры.Номенклатура = ТекущаяСтрока.Номенклатура;
ОбластьСтроки.Параметры.Цена = ТекущаяСтрока.Цена;
ОбластьСтроки.Параметры.Количество = ТекущаяСтрока.Количество;
ОбластьСтроки.Параметры.Сумма = ТекущаяСтрока.Сумма;
ОбластьСтроки.Параметры.НДС = ТекущаяСтрока.СуммаНДС;
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЦикла;
ТабличныйДокумент.АвтоМасштаб = Истина;
Возврат ТабличныйДокумент;
ПоказатьПрикрепленные файлы:
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) там все просто:
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| Организации.Наименование КАК Организация,
| Организации.ИНН КАК ИНН,
| Организации.КПП КАК КПП,
| ОрганизацииКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| ОрганизацииКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| ОрганизацииКонтактнаяИнформацияТелефон.Представление КАК КТ,
| ОрганизацииКонтактнаяИнформацияEmail.Представление КАК ЭП
|ИЗ
| Справочник.Организации КАК Организации
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияФактАдрес
| ПО (ОрганизацииКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияФактАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияЮрАдрес
| ПО (ОрганизацииКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияЮрАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияТелефон
| ПО (ОрганизацииКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияТелефон.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияEmail
| ПО (ОрганизацииКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияEmail.Ссылка)
|ГДЕ
| Организации.Ссылка = &Ссылка
|";
Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Организация);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Если Выборка.Следующий() Тогда
ОбластьСтроки1.Параметры.Заполнить(Выборка);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
КонецЕсли;
Показать
(13)
Вы просто волшебник!!!))
Я бы такое никогда бы не сделал, на данном этапе, я бы не нашел все эти данные разбросанные по конфигурации, еще к ним и кучу соединений написать.
Осталось только пара пробелов, это контрагент и его контактное лицо
там все просто
Вы просто волшебник!!!))
Я бы такое никогда бы не сделал, на данном этапе, я бы не нашел все эти данные разбросанные по конфигурации, еще к ним и кучу соединений написать.
Осталось только пара пробелов, это контрагент и его контактное лицо
Прикрепленные файлы:
(13)
А можно Вас попросить о помощи с Контрагентом, сам написал на основе вашего кода про Организации, но ничего не выводит, скорее всего данные хранятся в других местах. Вот код:
//СтрокаТЧ2
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ШапкаТЧ2");
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ2");
Запрос1 = Новый Запрос;
Запрос1.Текст = "
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП
//| КонтрагентыКонтактнаяИнформацияКонтактноеЛицоКонтрагента.Представление КАК КЛК
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияФактАдрес
| ПО (КонтрагентыКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияФактАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияЮрАдрес
| ПО (КонтрагентыКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияЮрАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияТелефон
| ПО (КонтрагентыКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияТелефон.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияEmail
| ПО (КонтрагентыКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияEmail.Ссылка)
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
РезультатЗапроса = Запрос1.Выполнить();
Выборка1 = РезультатЗапроса.Выбрать();
Если Выборка1.Следующий() Тогда
ОбластьСтроки1.Параметры.Заполнить(Выборка1);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
КонецЕсли;
А можно Вас попросить о помощи с Контрагентом, сам написал на основе вашего кода про Организации, но ничего не выводит, скорее всего данные хранятся в других местах. Вот код:
//СтрокаТЧ2
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ШапкаТЧ2");
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ2");
Запрос1 = Новый Запрос;
Запрос1.Текст = "
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП
//| КонтрагентыКонтактнаяИнформацияКонтактноеЛицоКонтрагента.Представление КАК КЛК
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияФактАдрес
| ПО (КонтрагентыКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияФактАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияЮрАдрес
| ПО (КонтрагентыКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияЮрАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияТелефон
| ПО (КонтрагентыКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияТелефон.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияEmail
| ПО (КонтрагентыКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailКонтрагента)
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияEmail.Ссылка)
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
РезультатЗапроса = Запрос1.Выполнить();
Выборка1 = РезультатЗапроса.Выбрать();
Если Выборка1.Следующий() Тогда
ОбластьСтроки1.Параметры.Заполнить(Выборка1);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
КонецЕсли;
Прикрепленные файлы:
(17)
Сработало так: Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
А не выводилось по причине что нужно было у ЭП КТ и тд установить 1, так как у меня параметры такие же как в организации но в конце названия каждого я добавил 1
Было
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП
Стало
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН1,
| Контрагенты.КПП КАК КПП1,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес1,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес1,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ1,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП1
Сработало так: Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
А не выводилось по причине что нужно было у ЭП КТ и тд установить 1, так как у меня параметры такие же как в организации но в конце названия каждого я добавил 1
Было
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.КПП КАК КПП,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП
Стало
|ВЫБРАТЬ
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН1,
| Контрагенты.КПП КАК КПП1,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес1,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес1,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ1,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП1
(17)
Подскажите где найти контактное лицо контрагента? Я написал код но ошибку выдает (см скрин) и на КонтактноеЛицоКонтрагента так и просто на Контактное лицо
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияКонтактноеЛицо
| ПО (КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.КонтактноеЛицо))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Ссылка
Подскажите где найти контактное лицо контрагента? Я написал код но ошибку выдает (см скрин) и на КонтактноеЛицоКонтрагента так и просто на Контактное лицо
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияКонтактноеЛицо
| ПО (КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.КонтактноеЛицо))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Ссылка
Прикрепленные файлы:
(16)
Так я разобрался с контрагентом, осталось контактное лицо только найти в запросе, вот тут немного беда
Не знаю как в запросе его найти, примерно по тому же принципу как бы, но я не понял как вы откопали эту контактную инфу, она скрыта что ли? я раскрываю справочник данные и там все пролистал и близко нет ни телефона ни адреса ничего)
Так я разобрался с контрагентом, осталось контактное лицо только найти в запросе, вот тут немного беда
Не знаю как в запросе его найти, примерно по тому же принципу как бы, но я не понял как вы откопали эту контактную инфу, она скрыта что ли? я раскрываю справочник данные и там все пролистал и близко нет ни телефона ни адреса ничего)
Прикрепленные файлы:
(11)
Получилось вывести данные из запроса, как наименование, инн и кпп, а вот к данным табличной части не как не доберусь, на форме это вообще пустая декорация, но в справочнике же должны быть эти данные. Не находит номер телефона и адресэп тоже, прикреплю код и скрины. Вынес в два разных запроса пока что
Получилось вывести данные из запроса, как наименование, инн и кпп, а вот к данным табличной части не как не доберусь, на форме это вообще пустая декорация, но в справочнике же должны быть эти данные. Не находит номер телефона и адресэп тоже, прикреплю код и скрины. Вынес в два разных запроса пока что
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ1");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Организации.Наименование КАК Наименование,
| Организации.ИНН КАК ИНН,
| Организации.КПП КАК КПП
|ИЗ
| Справочник.Организации КАК Организации
|ГДЕ
| Организации.Ссылка В(&Ссылка)";
Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Организация);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
ОбластьСтроки1.Параметры.Организация = Выборка.Наименование;
ОбластьСтроки1.Параметры.ИНН = Выборка.ИНН;
ОбластьСтроки1.Параметры.КПП = Выборка.КПП;
// //ОбластьСтроки1.Параметры.ЮрАдрес = Выборка.Сумма;
// //ОбластьСтроки1.Параметры.ФактАдрес = Выборка.СуммаНДС;
КонецЦикла;
Запрос2 = Новый Запрос;
Запрос2.Текст = "ВЫБРАТЬ
| Организации.КонтактнаяИнформация.АдресЭП КАК АдресЭП,
| Организации.КонтактнаяИнформация.НомерТелефона КАК НомерТелефона
|ИЗ
| Справочник.Организации КАК Организации
|ГДЕ
| Организации.КонтактнаяИнформация.Ссылка В(&Ссылка)";
Запрос2.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Организация);
РезультатЗапроса = Запрос2.Выполнить();
Выборка2 = РезультатЗапроса.Выбрать();
Пока Выборка2.Следующий() Цикл
ОбластьСтроки1.Параметры.КТ = Выборка.НомерТелефона;
ОбластьСтроки1.Параметры.ЭП = Выборка.АдресЭП;
КонецЦикла;
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ПоказатьПрикрепленные файлы:
Итак, решение без вывода контактного лица контрагента вот:
//СтрокаТЧ1
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ШапкаТЧ1");
ТабличныйДокумент.Вывести(ОбластьСтроки);
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ТелоТЧ1");
Запрос = Новый Запрос;
Запрос.Текст = "
|ВЫБРАТЬ
| Организации.Наименование КАК Организация,
| Организации.ИНН КАК ИНН,
| Организации.КПП КАК КПП,
| ОрганизацииКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес,
| ОрганизацииКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес,
| ОрганизацииКонтактнаяИнформацияТелефон.Представление КАК КТ,
| ОрганизацииКонтактнаяИнформацияEmail.Представление КАК ЭП
|ИЗ
| Справочник.Организации КАК Организации
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияФактАдрес
| ПО (ОрганизацииКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияФактАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияЮрАдрес
| ПО (ОрганизацииКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияЮрАдрес.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияТелефон
| ПО (ОрганизацииКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияТелефон.Ссылка)
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Организации.КонтактнаяИнформация КАК ОрганизацииКонтактнаяИнформацияEmail
| ПО (ОрганизацииКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailОрганизации)
| И Организации.Ссылка = ОрганизацииКонтактнаяИнформацияEmail.Ссылка)
|ГДЕ
| Организации.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Организация);
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Если Выборка.Следующий() Тогда
ОбластьСтроки.Параметры.Заполнить(Выборка);
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЕсли;
//СтрокаТЧ2
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ШапкаТЧ2");
ТабличныйДокумент.Вывести(ОбластьСтроки1);
ОбластьСтроки1 = МакетОбработки.ПолучитьОбласть("ТелоТЧ2");
Запрос1 = Новый Запрос;
Запрос1.Текст = "ВЫБРАТЬ
| Контрагенты.Наименование КАК Контрагент,
| Контрагенты.ИНН КАК ИНН1,
| Контрагенты.КПП КАК КПП1,
| КонтрагентыКонтактнаяИнформацияЮрАдрес.Представление КАК ЮрАдрес1,
| КонтрагентыКонтактнаяИнформацияФактАдрес.Представление КАК ФактАдрес1,
| КонтрагентыКонтактнаяИнформацияТелефон.Представление КАК КТ1,
//| КонтрагентыКонтактнаяИнформацияКонтактноеЛицоКонтрагента.Представление КАК КЛК,
| КонтрагентыКонтактнаяИнформацияEmail.Представление КАК ЭП1
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияФактАдрес
| ПО (КонтрагентыКонтактнаяИнформацияФактАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияФактАдрес.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияЮрАдрес
| ПО (КонтрагентыКонтактнаяИнформацияЮрАдрес.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияЮрАдрес.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияТелефон
| ПО (КонтрагентыКонтактнаяИнформацияТелефон.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияТелефон.Ссылка
//
//| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияКонтактноеЛицо
//| ПО (КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.КонтактноеЛицо))
//| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияКонтактноеЛицо.Ссылка
//
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформацияEmail
| ПО (КонтрагентыКонтактнаяИнформацияEmail.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.EmailКонтрагента))
| И Контрагенты.Ссылка = КонтрагентыКонтактнаяИнформацияEmail.Ссылка
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос1.УстановитьПараметр("Ссылка",СсылкаНаОбъект.Контрагент);
РезультатЗапроса = Запрос1.Выполнить();
Выборка1 = РезультатЗапроса.Выбрать();
Если Выборка1.Следующий() Тогда
ОбластьСтроки1.Параметры.Заполнить(Выборка1);
ТабличныйДокумент.Вывести(ОбластьСтроки1);
КонецЕсли;
//СтрокаТЧ3
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ШапкаТЧ3");
ТабличныйДокумент.Вывести(ОбластьСтроки);
ОбластьСтроки = МакетОбработки.ПолучитьОбласть("ТелоТЧ3");
Для Каждого ТекущаяСтрока Из СсылкаНаОбъект.Товары Цикл
ОбластьСтроки.Параметры.Номенклатура = ТекущаяСтрока.Номенклатура;
ОбластьСтроки.Параметры.Цена = ТекущаяСтрока.Цена;
ОбластьСтроки.Параметры.Количество = ТекущаяСтрока.Количество;
ОбластьСтроки.Параметры.Сумма = ТекущаяСтрока.Сумма;
ОбластьСтроки.Параметры.НДС = ТекущаяСтрока.СуммаНДС;
ТабличныйДокумент.Вывести(ОбластьСтроки);
КонецЦикла;
ТабличныйДокумент.АвтоМасштаб = Истина;
Возврат ТабличныйДокумент;
ПоказатьПрикрепленные файлы:
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот