destiny_child
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
&НаСервере
Процедура СоздатьЦеныНаСервере(Объект)
Объект.Дата = ТекущаяДата();
Объект.Согласован = Истина;
Объект.Ответственный = Пользователи.ТекущийПользователь();
ЗакупЦена = Справочники.ВидыЦен.НайтиПоНаименованию("Закупочная цена");
РозЦена = Справочники.ВидыЦен.НайтиПоНаименованию("Розничная цена");
// ТЗ - таблица на форме с двумя столбцами данных
Для каждого текСтрока Из ТЗ Цикл
Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(текСтрока.Наим, ИСТИНА);
Характеристика = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(текСтрока.характер, ИСТИНА, Номенклатура);
//Добавляем Закупочную
ТЧТовары = Объект.Товары.Добавить();
ТЧТовары.Номенклатура = Номенклатура;
ТЧТовары.Характеристика = Характеристика;
ТабЧастьВидЦены = Объект.ВидыЦен.Добавить();
ТабЧастьВидЦены.ВидЦены = ЗакупЦена;
ТЧТовары.ВидЦены = ЗакупЦена;
ТЧТовары.ЦенаИзмененаВручную = Истина;
//Добавляем Розничную
ТЧТовары = Объект.Товары.Добавить();
ТЧТовары.Номенклатура = Номенклатура;
ТЧТовары.Характеристика = Характеристика;
ТабЧастьВидЦены = Объект.ВидыЦен.Добавить();
ТабЧастьВидЦены.ВидЦены = РозЦена;
ТЧТовары.ВидЦены = РозЦена;
ТЧТовары.ЦенаИзмененаВручную = Истина;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура СоздатьЦены(Команда)
ФормаЦен = ПолучитьФорму("Документ.УстановкаЦенНоменклатуры.ФормаОбъекта");
ДанныеФормы = ФормаЦен.Объект; // Получаем объект формы в переменную
СоздатьЦеныНаСервере(ДанныеФормы); // Заполняем документ на сервере
КопироватьДанныеФормы(ДанныеФормы, ФормаЦен.Объект); // копируем наш объект в объект формы и далее открываем ее
ФормаЦен.ЗаполнитьДокумент();
ФормаЦен.ПостроитьДеревоЦен();
//ФормаЦен.ЗагрузитьТабличнуюЧастьТовары(); здесь падает код, если попробовать выполнить эту команду.
ФормаЦен.Открыть();
КонецПроцедуры
|
|
