PDA

Просмотр полной версии : Помогите с заданием



pt_denis
24.07.2014, 17:59
Здравствуйте. Я начал учить програмирование 1с и у меня возник в вопрос по модулю формы. Нужно что бы при изменении ЭлементаВидЦены и зменялась цена соответственно регистру сведений. Я так понял нужно прописать цикл, но у меня что то не выходит. Поможете? Первые две процедуры это изменение цены в табл. части при изменении номенклатуры и расчет суммы...


&НаКлиенте
Процедура ПереченьТМЦТМЦПриИзменени и(Элемент)
СтрокаТабличнойЧасти = Элементы.ПереченьТМЦ.Текущ иеДанные;
СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.Роз� �ичнаяЦена(Объект.Дата,Стро каТабличнойЧасти.ТМЦ);
РаботаСДокументами.Расчит� �тьСумму(СтрокаТабличнойЧа сти);
КонецПроцедуры

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

&НаКлиенте
Процедура ВидЦеныПриИзменении(Элеме� �т)
Для каждого СтрокаТабличнойЧасти Из ПереченьТМЦ Цикл
СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.Роз� �ичнаяЦена(Объект.Дата,Стро каТабличнойЧасти.ТМЦ);
РаботаСДокументами.Расчит� �тьСумму(СтрокаТабличнойЧа сти);
КонецЦикла;
КонецПроцедуры

arccos6pi
24.07.2014, 18:45
РаботаСДокументами.Расчит� �тьСумму(СтрокаТабличнойЧа сти)
нужен код процедуры

pt_denis
24.07.2014, 18:49
Процедура РасчитатьСумму(СтрокаТабл� �чнойЧасти) Экспорт
СтрокаТабличнойЧасти.Сумм� � = СтрокаТабличнойЧасти.Коли� �ество * СтрокаТабличнойЧасти.Цена;
КонецПроцедуры


Вот

arccos6pi
24.07.2014, 18:50
а РаботаСоСправочниками.Роз� �ичнаяЦена(Объект.Дата,Стро каТабличнойЧасти.ТМЦ);

pt_denis
24.07.2014, 18:55
Функция РозничнаяЦена(АктуальнаяД� �та,ЭлементТМЦ) Экспорт
Отбор = Новый Структура("ТМЦ",ЭлементТМЦ);
ЗначенияРесурсов = РегистрыСведений.ЦеныНоме� �клатуры.ПолучитьПоследнее (АктуальнаяДата,Отбор);
Возврат ЗначенияРесурсов.Цена;
КонецФункции

arccos6pi
24.07.2014, 18:58
&НаКлиенте
Процедура ВидЦеныПриИзменении(Элеме� �т)
Для каждого СтрокаТабличнойЧасти Из Объект.ПереченьТМЦ Цикл
СтрокаТабличнойЧасти.Цена = РаботаСоСправочниками.Роз� �ичнаяЦена(Объект.Дата,Стро каТабличнойЧасти.ТМЦ);
РаботаСДокументами.Расчит� �тьСумму(СтрокаТабличнойЧа сти);
КонецЦикла;
КонецПроцедурыпопробуйте так

pt_denis
24.07.2014, 19:02
Ну ошибку перестало выдавать, но Цена при изменении ВидЦены не изменяется.... Только при изменении ТМЦ.

arccos6pi
24.07.2014, 19:05
Ну ошибку перестало выдавать, но Цена при изменении ВидЦены не изменяется.... Только при изменении ТМЦ.смотрите отладкой почему цена пустая
экстрасенсов нет