Как формируется себестоимость товара в ТиС 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  Тогда
            РегПартии.ПродСтоимость = ТаблНоменклатуры.ПродСтоимость;  
        КонецЕсли;
        РегПартии.ЦенаПрод = ТаблНоменклатуры.ЦенаПродПриход;
        
        //реквизиты      
        РегПартии.КодОперации         = КодОперации;
        
        РегПартии.ПривязыватьСтроку(ТаблНоменклатуры.НомерСтрокиДокумента);
        
        РегПартии.ДвижениеПриходВыполнить();
        
    КонецЦикла;

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