|
Программное заполнение Документа УстановкаЦенноменклатуры УТ 11 | ☑ | ||
---|---|---|---|---|
0
Zabeldos
26.12.14
✎
16:08
|
Столкнулся с проблемой заполнения нескольких видов цен в табличной части товаров. В ТЗ ВидыЦен добавляю 3 вида цены, НО(!) в товарной части есть реквизит видЦены, в который 3 вида не записать.
Знаю, что у формыДокумента есть ТЧ "ДеревоЦен", из которой и берутся несколько видов цен, но я не могу получить к ней доступ, т.к. "интерактивные операции недоступны &наСервере" УстановкаЦен = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент(); УстановкаЦен.ВидыЦен.Очистить(); Цена = УстановкаЦен.ВидыЦен.Добавить(); Цена.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная"); Цена = УстановкаЦен.ВидыЦен.Добавить(); Цена.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Закупочная"); Цена = УстановкаЦен.ВидыЦен.Добавить(); Цена.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Цена поступления"); //УстановкаЦен.ДокументОснование = Поступление; //УстановкаЦен.Заполнить(УстановкаЦен.ДокументОснование); //Для каждого С Из Поступление.Товары Цикл // // Ст = УстановкаЦен.Товары.Добавить(); // Ст.Номенклатура = С.Номенклатура; // Ст.Характеристика = С.Характеристика; // Ст.Упаковка = С.Упаковка; Ст.ВидЦены = с.ВидЦены; Ст.Цена = С.Цена; ; УстановкаЦен.Статус = Перечисления.СтатусыУстановокЦенНоменклатуры.Согласован; УстановкаЦен.Согласован = Истина; УстановкаЦен.Ответственный = Пользователи.ТекущийПользователь(); УстановкаЦен.Дата = Поступление.Дата; |
|||
1
Otkr
26.12.14
✎
16:15
|
Три строки на каждую номенклатуру - по количеству видов цен
|
|||
2
Zabeldos
26.12.14
✎
16:20
|
Делал так:
Для Каждого Вид ИЗ ВидыЦен Цикл ст.ВидЦены = Вид; ст.Цена = с.Цена; КонецЦикла; //где ст = строки тч товары документа Установки цен //с = строки документа поступления товаров. При этом устанавливается только цена, которая идет последняя в цикле. |
|||
3
Otkr
26.12.14
✎
16:27
|
(2) Да при заполнении:
//Для каждого С Из Поступление.Товары Цикл Ст = УстановкаЦен.Товары.Добавить(); Ст.Номенклатура = С.Номенклатура; Ст.Характеристика = С.Характеристика; Ст.Упаковка = С.Упаковка; Ст.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная"); Ст.Цена = С.ЦенаРозничная; Ст = УстановкаЦен.Товары.Добавить(); Ст.Номенклатура = С.Номенклатура; Ст.Характеристика = С.Характеристика; Ст.Упаковка = С.Упаковка; Ст.ВидЦены = Справочники.ВидыЦен.НайтиПоНаименованию("Закупочная"); Ст.Цена = С.ЦенаЗакупочная; и т.д |
|||
4
Zabeldos
26.12.14
✎
16:31
|
Пробую
|
|||
5
Zabeldos
26.12.14
✎
16:37
|
Получилось, огромное спасибо!
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |