[Tech]

Здравствуйте. Несколько месяцев изучаю 1С Предприятие 8.0, так сказать с точки зрения программирования. Не знаю как реализовать поставленную задачу, пожалуйста помогите. Суть проблемы: Для документа "Поступления товаров" (с табличной частью, которая имеет реквизиты "Наименование", "Цена", "Количество", "Единица измерения") необходимо создать процедуру, которая должна выполняться при возникновении события "При изменении" и осуществлять автоматическое присваивание реквизиту "Цена" значение цены выбранного элемента справочника "Номенклатура товаров" (Справочник имеет следующие реквизиты: "Цена" и "Единица измерений"). Заранее благодарю.

[Flexy]

Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент)

//получить текущую строку табличной части

СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные;

//установить цену

СтрокаТабличнойЧасти.Цена = РозничнаяЦена(Дата, Элемент.Значение);

//пересчитать сумму строки

РассчитатьСумму(СтрокаТабличнойЧасти);

КонецПроцедуры

Из Книги М. Радченко "Практическое пособие разработчика" 1С 8.0.

[Tech]

Чото както вроде не то
или я чего то не понимаю

[logist]

Flexy, забыл уточнить что процедуры "РозничнаяЦена" и "РассчитатьСумму" должны быть заранее описаны.
Если у Вас их нет, то лучше будет найти указанную книженцию, там как раз нужный Вам пример очень хорошо описан.

[Flexy]

Flexy, забыл уточнить что процедуры "РозничнаяЦена" и "РассчитатьСумму" должны быть заранее описаны.
Если у Вас их нет, то лучше будет найти указанную книженцию, там как раз нужный Вам пример очень хорошо описан.

Спасибо, что поправили.
А то я уже совсем невнимательным стал...

[Tech]

Простите пожалуйста за невежливость, а нельзя ли это реализовать как-то попроще?

[Vofka]

Tech, в общем-то всё ещё зависит от того как и где вы храните цену. Как сказал logist:

лучше будет найти указанную книженцию, там как раз нужный Вам пример очень хорошо описан.

[Tech]

Цена хранится в справочнике "Номенклатура товаров"

[Vofka]

Тогда как-то так пробуйте:

Процедура ...ПриИзменении()..
   СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные;
   СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Номенклатура.Цена;
КонецПроцедуры

[Batchir]

Простите пожалуйста за невежливость, а нельзя ли это реализовать как-то попроще?

осуществлять автоматическое присваивание реквизиту "Цена" значение цены выбранного элемента справочника "Номенклатура товаров" (Справочник имеет следующие реквизиты: "Цена" и "Единица измерений")

значит должно работать

Процедура ПереченьНоменклатурыНоменклатураПриИзменении(Элемент)
СтрокаТабличнойЧасти = ЭлементыФормы.ПереченьНоменклатуры.ТекущиеДанные;
//установить цену
СтрокаТабличнойЧасти.Цена = Элемент.Значение.Цена;

КонецПроцедуры

[sreda2006]

А не проще, в табличной части документа, сделать цену как ссылку на Ваш справочник номенклатура товаров?

[Vofka]

А не проще, в табличной части документа, сделать цену как ссылку на Ваш справочник номенклатура товаров?

И что получится? В поле цена будет, например, "Гвозди".

[sreda2006]

Не думаю что гвозди..... в условии сказано что "Номенклатура товаров" (Справочник имеет следующие реквизиты: "Цена" и "Единица измерений").

[logist]

Не думаю что гвозди..... в условии сказано что "Номенклатура товаров" (Справочник имеет следующие реквизиты: "Цена" и "Единица измерений").

И что? А при изменении номенклатуры цена будет меняться по взмаху волшебной палочки?

[sreda2006]

Ну или так..... где ТаблЧасть имя Табличной части Вашего документа

Процедура ПриходтТипПриИзменении(Элемент)

    // Вставить содержимое обработчика.

    ЭлементыФормы.ТаблЧасть.ТекущаяСтрока.Цена=Справочники.Номенклатуры.НайтиПо
Коду(
ЭлементыФормы.ТаблЧасть.ТекущаяСтрока.Тип.Код).Цена;

КонецПроцедуры

[logist]

sreda2006, Что ЭТО? Чем это лучше чем в сообщениях #9 #10

[sreda2006]

согласен, тоже самое

[Tech]

А если цена содержащаяся в справочнике Номенклатура товаров, находится не в табличной части справочника, а просто как реквизит этого справочника?

[Vofka]

Tech, вы вообще хоть что-то делаете, пробуете? Или тупо спрашиваете всё, что в голову взбредёт?

[Tech]

Tech, вы вообще хоть что-то делаете, пробуете? Или тупо спрашиваете всё, что в голову взбредёт?

Спрашиваю потому что, хочу понять почему все варианты, которые были предложены и опробованы мной не работают.