пересчет реквизита табличной части обычной формы

Андрей 23 4
1С

пересчет реквизита табличной части обычной формы

Процедура Пересчет()
	СтрокаТабличнойЧасти = ЭлементыФормы.Товар.ТекущиеДанные;
	Рекв = ЭлементыФормы.Товар.ТекущаяКолонка.Данные;
	Если Рекв = "Номенклатура" Тогда
		ЦенаТ = ПолучитьЦену(СтрокаТабличнойЧасти.Номенклатура);
		СтрокаТабличнойЧасти.Цена = ЦенаТ;
		СтрокаТабличнойЧасти.Количество = 1;
		СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.Количество;
	ИначеЕсли Рекв = "Количество" Тогда	
		СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.Количество;
	ИначеЕсли Рекв = "Цена" Тогда
		СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена*СтрокаТабличнойЧасти.Количество;
	ИначеЕсли Рекв = "Сумма" Тогда	
		СтрокаТабличнойЧасти.Цена = СтрокаТабличнойЧасти.Сумма/?(СтрокаТабличнойЧасти.Количество=0,1,СтрокаТабличнойЧасти.Количество);
	КонецЕсли;	
КонецПроцедуры
0 
Описание дублирует название. Удалите описание, если информации в заголовке достаточно.
‹ ›

См. также

Пересчет сумм в табличной части документа

Раскраска строки табличной части документа (обычные формы) по условию

ПеренестиЗначенияИзРеквизитовФормыВОбъект (БСП)

МетаданныеРеквизитаТабличнойЧасти (БСП)

Оформление (раскраска) строки табличной части обычной формы по условию, при получении данных

ПоказатьФормуЗагрузки (БСП)

Заполнить реквизит "СуммаДокумента "на форме документа

ЗаполнитьЗначенияСвойствОбъекта (БСП)

МетаданныеТабличнойЧасти (БСП)

Модератору