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

УТ10 требуется в форме "вывести список номенклатуры" добавить остатки

Автор noob91, 04 мар 2019, 12:54

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

noob91

Здравсвуйте! Столкнулся с такой проблемой, требуется из формы списка номенклатуры вывести список с остатками товара на складе. Как это можно реализовать?

byte777

Учиться учиться учиться!

noob91

Цитата: byte777 от 04 мар 2019, 13:16
Вроде вам насколько я понял отчет нужно делать.

А в табличный документ "Вывести список" можно как-то данные из отчета подтянуть?

byte777


&НаКлиенте
Процедура ВыполнитьЗапрос(Команда)
ВыполнитьЗапросНаСервере();
КонецПроцедуры

&НаСервере
Процедура ВыполнитьЗапросНаСервере()



//{{КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Макет = Обработки.ТабличныйДокумент.ПолучитьМакет("Макет");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ПоступлениеТоваров.Номер,
| ПоступлениеТоваров.Дата,
| КонтактныеЛица.Телефон
|ИЗ
| Документ.ПоступлениеТоваров КАК ПоступлениеТоваров
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.КонтактныеЛица КАК КонтактныеЛица
| ПО ПоступлениеТоваров.КонтактноеЛицо = КонтактныеЛица.Ссылка";

РезультатЗапроса = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");
ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");
ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

ТабДок.Очистить();
ТабДок.Вывести(ОбластьЗаголовок);
ТабДок.Вывести(ОбластьШапкаТаблицы);
ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетальныеЗаписи);
ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетальныеЗаписи.Уровень());
КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.Вывести(ОбластьПодвалТаблицы);
ТабДок.Вывести(ОбластьПодвал);

//}}КОНСТРУКТОР_ЗАПРОСА_С_ОБРАБОТКОЙ_РЕЗУЛЬТАТА
КонецПроцедуры

Учиться учиться учиться!

Теги:

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

Рейтинг@Mail.ru

Поиск