Ошибка при распределении цены пропорционально

Для каждого Стр Из СоставНабора Цикл
			Структура = СоставНабора;
			Стр.ПолучитьИдентификатор();
			
						
			Если ЦенаКомплектующих <> ЦенаНабораИзДокумента Тогда
			    ЦенаНабораПоТоварам = МТД_ВычислитьЦены(Структура);

				Если ЦенаНабораПоТоварам <> 0 Тогда
					Процент = (ЦенаКомплектующих)/(ЦенаНабораПоТоварам) * 100;  //кол-во наборов
				Иначе
					Процент = 0;	
				КонецЕсли;
				
				
			
				Структура = Новый Структура ;
				Структура.Вставить("Номенклатура", Стр.Номенклатура);
				Структура.Вставить("Характеристика", Стр.Характеристика);
				
				ЦенаСоставляющей = ЦенаСост(Структура);

				Если Процент <> 0 И ЦенаСоставляющей <> 0 Тогда
					Если Стр.ПолучитьИдентификатор() = СоставНабора.Количество()-1 Тогда
						ЦенаТовара = ЦенаКомплектующих - СуммаВсехТоваров;
						СуммаВсехТоваров = СуммаВсехТоваров + Окр(ЦенаТовара, 2);
					Иначе	
			        	ЦенаТовара = (Процент * ЦенаСоставляющей / 100) * КолвоНаборов;
						СуммаВсехТоваров = СуммаВсехТоваров + ЦенаТовара * Стр.Количество;
					КонецЕсли;
				Иначе 
					ЦенаТовара = 0;
				КонецЕсли;
							
			Иначе
				Структура = Новый Структура ;
				Структура.Вставить("Номенклатура", Стр.Номенклатура);
				Структура.Вставить("Характеристика", Стр.Характеристика);
				
				ЦенаТовара = МассивДокумента[Стр.ПолучитьИдентификатор()].Цена;
				
			КонецЕсли;