Как формируется себестоимость товара в ТиС 9.2

//******************************************************************************
// глОприходованиеПартийТМЦ(Конт,ТаблНоменклатуры,СписокПараметров)
//
// Параметры:                                                     
//	Конт 			 - контекст проведения
//	ТаблицаДокумента - таблица документа. Должна содержать колонки:
//                         1) "Номенклатура"
//                         2) "Количество"
//                         3) "Сумма"       (в валюте взаиморасчетов)
//                         4) "СуммаУпр"    (в валюте управленческого учета)
//                         5) "СуммаРуб"    (в валюте бухгалтерского учета)
//                         6) "СуммаНДС"    (в валюте бухгалтерского учета)
//                         7) "Партия"      (в которую оприходовать)
//                         8) "ВидТМЦ"      (Вид ТМЦ, Перечисление.ВидыТМЦ)
//						Только для оприходования на розничный склад:
//						   9) "СуммаРозничная"
//	СписокПараметров - список доп параметров проведения
//   (используются: "Фирма", "Склад", "Контрагент", "Договор", "ТекДок", "КодОперации")
//
// Описание:
//   Производит оприходование ТМЦ по регистру "ПартииНаличие".
//
Процедура глОприходованиеПартийТМЦ(Конт,ТаблНоменклатуры,СписокПараметров, НУ24 = 0) Экспорт
	
	СпрПартии			= СоздатьОбъект("Справочник.Партии");
	
	РегПартии			= Конт.Регистр.ПартииНаличие;
	         
	Фирма				= СписокПараметров.Получить("Фирма");
	Склад				= СписокПараметров.Получить("Склад");
	Поставщик			= СписокПараметров.Получить("Контрагент");
	ДоговорПоставщика	= СписокПараметров.Получить("Договор");
	ТекДок				= СписокПараметров.Получить("ТекДок");
	КодОперации			= СписокПараметров.Получить("КодОперации");
	
	УчПолитика 			= Фирма.ЮрЛицо.МетодРасчетаСебестоимости.Получить(Конт.ДатаДок);
	
	МОЛ					= Склад.МОЛ;                                              

	ТаблНоменклатуры.ВыбратьСтроки();
	Пока ТаблНоменклатуры.ПолучитьСтроку()=1 Цикл
	              
		Номенклатура = ТаблНоменклатуры.Номенклатура;
		Если (Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга)
		 или (Номенклатура.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда
			Продолжить;
		КонецЕсли;
		
		//измерения
		РегПартии.Фирма				= Фирма;
		РегПартии.МОЛ				= МОЛ;
		РегПартии.Номенклатура		= Номенклатура;
		РегПартии.СтатусПартии		= глПолучитьСтатусПартииПрихода(ТаблНоменклатуры.ВидТМЦ,Номенклатура,КодОперации, Склад);
		Если (УчПолитика = Перечисление.МетодыРасчетаСебестоимости.FIFO)
		 или (УчПолитика = Перечисление.МетодыРасчетаСебестоимости.LIFO)
		 или (РегПартии.СтатусПартии = глСП.Т_Принятый) Тогда
			 	
			ЗакупочнаяЦена 			= ?(ТаблНоменклатуры.Количество=0,
										0,
										Окр(ТаблНоменклатуры.Сумма / ТаблНоменклатуры.Количество,2,1));
			РегПартии.Партия		= глЗаполнитьПартию(СпрПартии,  ТаблНоменклатуры.Партия,
											Поставщик,ДоговорПоставщика,ТекДок,ЗакупочнаяЦена);
			РегПартии.ДатаПартии	= ТекДок.ДатаДок;
			
		Иначе     
			РегПартии.Партия		= "";                
			РегПартии.ДатаПартии	= "";
		КонецЕсли;
		    
		//ресурсы
		РегПартии.Количество		= ТаблНоменклатуры.Количество;
		РегПартии.СуммаУпр			= ТаблНоменклатуры.СуммаУпр;
		РегПартии.СуммаРуб			= ТаблНоменклатуры.СуммаРуб;
		Если НУ24 = 1 Тогда
			Если Конт.ДатаДок < Дата("01.01.2009") Тогда
				РегПартии.СуммаПлат = 0.76 * ТаблНоменклатуры.СуммаРуб;
			ИначеЕсли Конт.ДатаДок > Дата("01.01.2010") Тогда
				РегПартии.СуммаПлат =0;
			Иначе
				РегПартии.СуммаПлат = 0.8 * ТаблНоменклатуры.СуммаРуб;
			КонецЕсли;
			
		Иначе
			РегПартии.СуммаПлат = 0;
		КонецЕсли;
		
		РегПартии.СуммаБезНДС		= ТаблНоменклатуры.СуммаРуб-ТаблНоменклатуры.СуммаНДС;
		
		Если Склад.РозничныйСклад = 1  Тогда
			РегПартии.ПродСтоимость = ТаблНоменклатуры.ПродСтоимость;  
		КонецЕсли;
		РегПартии.ЦенаПрод = ТаблНоменклатуры.ЦенаПродПриход;
		
		//реквизиты      
		РегПартии.КодОперации 		= КодОперации;
		
		РегПартии.ПривязыватьСтроку(ТаблНоменклатуры.НомерСтрокиДокумента);
		
		РегПартии.ДвижениеПриходВыполнить();
		
	КонецЦикла;

КонецПроцедуры // глОприходованиеПартийТМЦ()