Электронное актирование в ЕИС

Если ДанныеДляФормированияЭД.Ссылка.Метаданные().Имя = "РеализацияТоваровУслуг" Тогда
		Комм = СокрЛП(ДанныеДляФормированияЭД.Ссылка.Комментарий);	
	Иначе
		Комм = СокрЛП(ДанныеДляФормированияЭД.Ссылка.ДокументОснование.Комментарий);
КонецЕсли;
	
ДанныеШапки.Дата = Дата(Прав(Комм,8));

Контроль срабатывает как для детализированных, так и не детализированных ТРУ если:
–	позиция не является ЛП;
–	И значение в поле «Цена за единицу без НДС», отлично от значения, рассчитанного по формуле:
 «Цена (тариф) за единицу измерения с НДС» / (1 + «Ставка НДС»).

Если в связанном контракте в поле «Способ указания цены контракта» установлен переключатель «Максимальное значение цены контракта», заполнено поле «Формула цены контракта»  и не установлен признак «Невозможно указать сведения о количестве товара, работы, услуги», проверяются ТРУ согласно формуле: 
<Стоимость без налога - всего> / <Количество (объём)>

Для загрузки из внешней системы Контроль срабатывает, если: 
–	позиция ТРУ не детализированная и не является ЛП;
–	И значение атрибута «Файл/Документ/ТаблСчФакт/СведТов/@ЦенаТов@ЦенаТов» отлично от значения, рассчитанного по формуле:
<значение поля из приложения к титулу поставщика «@ЦенаИзКонтСНДС» / (1 + значение поля из титула продавца «@НалСт»)>

ИЛИ 
–	позиция ТРУ не детализированная и не является ЛП;
–	И в связанном контракте в поле «Способ указания цены контракта» установлен переключатель «Максимальное значение цены контракта», заполнено поле «Формула цены контракта»  и не установлен признак «Невозможно указать сведения о количестве товара, работы, услуги»;
–	И значение атрибута «Файл/Документ/ТаблСчФакт/СведТов/@ЦенаТов@ЦенаТов»  отлично от значения, рассчитанного по формуле:
 < СтТовБезНДС > / <КолТов>

ИЛИ
–	позиция ТРУ является родительской;
–	И значение атрибута
ФайлУПДПрод/СведТов/СведТРУ/ДеталТРУ/СведРод/ЦенаЕдИзм отлично от значения, рассчитанного по формуле: 
<значение поля из приложения к титулу продавца УПД «@ЦенаИзКонтСНДС» / (1 + значение поля из приложения к титулу продавца «@НалСт»)>.

ИЛИ
–	позиция ТРУ является дочерней;
–	И значение атрибута: Файл/Документ/ТаблСчФакт/СведТов/@ЦенаТов отлично от значения, рассчитанного по формуле: 
<значение поля из приложения к титулу поставщика «@ЦенаСНДС» / (1 + значение поля из титула продавца «@НалСт»)>.

Расчеты выполняются без округления, с точностью до 11 знака после запятой.

Контроль не выполняется:
•	если в документе, созданном через интерфейс, установлен признак «Объем услуги (работы) указывается в денежном измерении в соответствии с контрактом», или в документе, загружаемом из внешней системы не указаны значения @ЦенаТов и @ЦенаСНДС
•	для родительских работ в документах со специализацией «Строительство»

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
	
	Контракт = Параметры.Контракт;
	ДанныеКонтракта = ЭлектронноеАктированиеЕИС.ДанныеГосударственногоКонтракта(Контракт);
	Идентификатор = Параметры.ИдентификаторОбъектаЗакупки;
	КодМНН = Параметры.КодМНН;
	КодЛП = Параметры.КодЛП;
	ИдентификаторЛП = Параметры.ИдентификаторЛП;
	
	Для каждого Объект Из ДанныеКонтракта.ОбъектыЗакупки Цикл
		Если Объект.Идентификатор = Идентификатор Тогда
			СведенияОЛекарственномПрепарате = Объект.СведенияОЛекарственномПрепарате;
			ВключенВЖНВЛП = СведенияОЛекарственномПрепарате.ВключенВЖНВЛП;
			СрокГодности = СведенияОЛекарственномПрепарате.СрокГодности;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	Для каждого Позиция Из СведенияОЛекарственномПрепарате.СписокМНН Цикл
		Если Позиция.КодМНН = КодМНН Тогда
			ПозицияМНН = Позиция;
			МеждународноеНепатентованноеНаименование = Позиция.НаименованиеМНН;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	Для каждого Позиция Из ПозицияМНН.ПозицииПоТорговомуНаименованиюЛП Цикл
		Если Позиция.Идентификатор = ИдентификаторЛП Тогда
			ПозицияЛП = Позиция;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	ТорговоеНаименованиеЛП = ПозицияЛП.ТорговоеНаименование;
	ВидПервичнойУпаковки = ПозицияЛП.НаименованиеВидаПервичнойУпаковки;
	ДозировкаНаименование = ПозицияЛП.НаименованиеПотребительскойЕдиницыДозировки;
	ДозировкаЗначение = ПозицияЛП.ЗначениеДозировки;
	ИдентификаторЛП = ПозицияЛП.ИдентификаторПоСправочникуЛП;
	КоличествоЛекарственныхФормВПервичнойУпаковке = ПозицияЛП.КоличествоЛекарственныхФормВПервичнойУпаковке;
	КоличествоЛекарственныхФормВПотребительскойУпаковке = ПозицияЛП.КоличествоЛекарственныхФормВПотребительскойУпаковке;
	КоличествоПервичныхУпаковокВПотребительскойУпаковке = ПозицияЛП.КоличествоПервичныхУпаковокВПотребительскойУпаковке;
	НаименованиеВидаПервичнойУпаковки = ПозицияЛП.НаименованиеВидаПервичнойУпаковки;
	НаименованиеЕдиницыИзмеренияДозировки = ПозицияЛП.НаименованиеЕдиницыИзмеренияДозировки;
	НаименованиеЛекарственнойФормы = ПозицияЛП.НаименованиеЛекарственнойФормы;
	НациональноеОбозначениеЕдиницыИзмеренияДозировки = ПозицияЛП.НациональноеОбозначениеЕдиницыИзмеренияДозировки;
	ПолноеНаименованиеЕдиницыИзмеренияДозировки = ПозицияЛП.ПолноеНаименованиеЕдиницыИзмеренияДозировки;
	
КонецПроцедуры