Проект

Общее

Профиль

Пересчет КоличествоУпаковок в Количество для номенклатуры » История » Версия 2

Всеволод Дорофеев, 10.10.2019 05:43

1 1 Всеволод Дорофеев
h3. Пересчет КоличествоУпаковок в Количество для номенклатуры
2 1 Всеволод Дорофеев
3 1 Всеволод Дорофеев
<pre>
4 1 Всеволод Дорофеев
		ТекСтрока.КоличествоУпаковок = ТекСтрока.Количество;
5 1 Всеволод Дорофеев
		// заполним Количество с учетом единиц измерения
6 1 Всеволод Дорофеев
		Если ЗначениеЗаполнено(ТекСтрока.Упаковка) Тогда
7 1 Всеволод Дорофеев
			ТекКоэффициент = Справочники.УпаковкиЕдиницыИзмерения.КоэффициентУпаковки(ТекСтрока.Упаковка, ТекСтрока.Номенклатура);
8 1 Всеволод Дорофеев
		Иначе
9 1 Всеволод Дорофеев
			ТекКоэффициент = 1;
10 1 Всеволод Дорофеев
		КонецЕсли;
11 1 Всеволод Дорофеев
		ТекСтрока.Количество = ТекСтрока.КоличествоУпаковок * ТекКоэффициент;
12 1 Всеволод Дорофеев
13 1 Всеволод Дорофеев
</pre>
14 2 Всеволод Дорофеев
15 2 Всеволод Дорофеев
h3. Пересчет Количества упаковок в ТЧ (ПересчитатьКоличествоУпаковок)
16 2 Всеволод Дорофеев
17 2 Всеволод Дорофеев
<pre>
18 2 Всеволод Дорофеев
					СтруктураДействий = Новый Структура;
19 2 Всеволод Дорофеев
					КэшированныеЗначения = Неопределено;
20 2 Всеволод Дорофеев
					СтруктураДействий.Вставить("ПересчитатьКоличествоУпаковок", ПроизводствоКлиентСервер.ПараметрыПересчетаКоличестваЕдиниц());
21 2 Всеволод Дорофеев
					СтруктураДействий.Вставить("ПересчитатьДолюСтоимости", ПараметрыРаспределенияЗатрат);
22 2 Всеволод Дорофеев
					ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(ТекущиеДанные, СтруктураДействий, КэшированныеЗначения);
23 2 Всеволод Дорофеев
					//ОбработкаТабличнойЧастиКлиент
24 2 Всеволод Дорофеев
</pre>
25 2 Всеволод Дорофеев
26 2 Всеволод Дорофеев
h3. Пересчет Количества в ТЧ (ПересчитатьКоличествоЕдиниц)
27 2 Всеволод Дорофеев
28 2 Всеволод Дорофеев
<pre>
29 2 Всеволод Дорофеев
					СтруктураДействий = Новый Структура;
30 2 Всеволод Дорофеев
					КэшированныеЗначения = Неопределено;
31 2 Всеволод Дорофеев
					СтруктураДействий.Вставить("ПересчитатьКоличествоЕдиниц", ПроизводствоКлиентСервер.ПараметрыПересчетаКоличестваЕдиниц());
32 2 Всеволод Дорофеев
					СтруктураДействий.Вставить("ПересчитатьДолюСтоимости", ПараметрыРаспределенияЗатрат);
33 2 Всеволод Дорофеев
					ОбработкаТабличнойЧастиСервер.ОбработатьСтрокуТЧ(ТекущиеДанные, СтруктураДействий, КэшированныеЗначения);
34 2 Всеволод Дорофеев
					//ОбработкаТабличнойЧастиКлиент
35 2 Всеволод Дорофеев
</pre>