0
dan4ik
05.09.16
✎
12:19
|
Доброго времени.
Создаю программно динамический список:
РеквизитыФормы = Новый Массив;
РеквизитыФормы.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов("ДинамическийСписок"),, "ЗаказыПокупателей"));
Форма.ИзменитьРеквизиты(РеквизитыФормы);
Форма[ИмяТаблицы].ПроизвольныйЗапрос = Истина;
Форма[ИмяТаблицы].ТекстЗапроса = "ВЫБРАТЬ
| ВложенныйЗапрос.Заказ,
| ВложенныйЗапрос.Заказано,
| ВложенныйЗапрос.ИзНихВРезерве,
| ВложенныйЗапрос.Номенклатура,
| ВложенныйЗапрос.КОтгрузкеОстаток
|{ВЫБРАТЬ
| Заказ.*,
| Заказано,
| ИзНихВРезерве,
| Номенклатура.*,
| КОтгрузкеОстаток}
|ИЗ
| (ВЫБРАТЬ
| ЗаказКлиентаТовары.Ссылка КАК Заказ,
| СУММА(ЗаказКлиентаТовары.КоличествоУпаковок) КАК Заказано,
| СУММА(ВЫБОР
| КОГДА ЗаказКлиентаТовары.ВариантОбеспечения = ЗНАЧЕНИЕ(Перечисление.ВариантыОбеспечения.СоСклада)
| ТОГДА ЗаказКлиентаТовары.КоличествоУпаковок
| ИНАЧЕ 0
| КОНЕЦ) КАК ИзНихВРезерве,
| ЗаказКлиентаТовары.Номенклатура КАК Номенклатура,
| МАКСИМУМ(ЕСТЬNULL(ТоварыКОтгрузкеОстатки.КОтгрузкеОстаток, 0)) КАК КОтгрузкеОстаток
| ИЗ
| Документ.ЗаказКлиента.Товары КАК ЗаказКлиентаТовары
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыКОтгрузке.Остатки(, Номенклатура В (&Номенклатура)) КАК ТоварыКОтгрузкеОстатки
| ПО ЗаказКлиентаТовары.Ссылка.Склад = ТоварыКОтгрузкеОстатки.Склад
| И ЗаказКлиентаТовары.Номенклатура = ТоварыКОтгрузкеОстатки.Номенклатура
| И ЗаказКлиентаТовары.Характеристика = ТоварыКОтгрузкеОстатки.Характеристика
| И ЗаказКлиентаТовары.Ссылка = ТоварыКОтгрузкеОстатки.ДокументОтгрузки
| ГДЕ
| ЗаказКлиентаТовары.Номенклатура В(&Номенклатура)
|
| СГРУППИРОВАТЬ ПО
| ЗаказКлиентаТовары.Ссылка,
| ЗаказКлиентаТовары.Номенклатура) КАК ВложенныйЗапрос";
НовыйЭлементТабЗнЦены = Форма.Элементы.Добавить(ИмяТаблицы + "_КОтгрузке", Тип("ПолеФормы"), НоваяТабЗн);
НовыйЭлементТабЗнЦены.Вид = ВидПоляФормы.ПолеВвода;
НовыйЭлементТабЗнЦены.ПутьКДанным = ИмяТаблицы + ".КОтгрузкеОстаток";
НовыйЭлементТабЗнЦены.Заголовок = "К отгрузке";
НовыйЭлементТабЗнЦены.РастягиватьПоГоризонтали = Истина;
НовыйЭлементТабЗнЦены.Ширина = 5;
На форме таким же образом созданные колонки появляются, именно эта нет.
|
|
6
dan4ik
06.09.16
✎
04:47
|
РеквизитыФормы = Новый Массив;
РеквизитыФормы.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов("ТаблицаЗначений"),, "Партии"));
Форма.ИзменитьРеквизиты(РеквизитыФормы);
НоваяСтраницаДопИнформации = Форма.Элементы.Добавить("доп_СтраницаДополнительнаяИнформация_ЗаказыПокупателей", Тип("ГруппаФормы"), Форма.Элементы.доп_СтраницыДополнительнаяИнформация);
НоваяСтраницаДопИнформации.Заголовок = "Заказы покупателей";
НоваяСтраницаДопИнформации.Вид = ВидГруппыФормы.Страница;
НоваяТабЗн = Форма.Элементы.Добавить(ИмяТаблицы, Тип("ТаблицаФормы"), НоваяСтраницаДопИнформации);
НоваяТабЗн.ПутьКДанным = ИмяТаблицы;
НоваяТабЗн.Отображение = ОтображениеТаблицы.Список;
|
|
7
dan4ik
06.09.16
✎
04:48
|
(5)
РеквизитыФормы = Новый Массив;
РеквизитыФормы.Добавить(Новый РеквизитФормы(ИмяТаблицы, Новый ОписаниеТипов("ДинамическийСписок"),, "Заказы покупателей"));
Форма.ИзменитьРеквизиты(РеквизитыФормы);
НоваяСтраницаДопИнформации = Форма.Элементы.Добавить("доп_СтраницаДополнительнаяИнформация_ЗаказыПокупателей", Тип("ГруппаФормы"), Форма.Элементы.доп_СтраницыДополнительнаяИнформация);
НоваяСтраницаДопИнформации.Заголовок = "Заказы покупателей";
НоваяСтраницаДопИнформации.Вид = ВидГруппыФормы.Страница;
НоваяТабЗн = Форма.Элементы.Добавить(ИмяТаблицы, Тип("ТаблицаФормы"), НоваяСтраницаДопИнформации);
НоваяТабЗн.ПутьКДанным = ИмяТаблицы;
НоваяТабЗн.Отображение = ОтображениеТаблицы.Список;
|
|