Решенные билеты на 1С: Специалист по Платформе 8.3 (2018 г.)

  Если не Отказ Тогда		
			Движение = Движения.СебестоимостьПродаж.Добавить();
                        Движение.Период = Дата;
			Движение.Номенклатура = ВыборкаПоНоменклатуре.Номенклатура;
			Движение.Количество = ВыборкаПоНоменклатуре.КоличествоПоДокументу;
			Движение.Выручка = ВыборкаПоНоменклатуре.СуммаПоДокументу;
			Движение.Себестоимость = Себестоимость;		
           КонецЕсли;

Если ВыборкаДетальныеЗаписи.Количество>ВыборкаДетальныеЗаписи.КоличествоОстаток Тогда
					Отказ = Истина;
					Сообщение = Новый СообщениеПользователю;
					Сообщение.Текст = "Не хватает "+ВыборкаДетальныеЗаписи.НоменклатураПредставление + " по партии " + ВыборкаДетальныеЗаписи.ПартияПредставление + " в количестве "+ Строка(ВыборкаДетальныеЗаписи.Количество-ВыборкаДетальныеЗаписи.КоличествоОстаток);
					Сообщение.Сообщить();	
				КонецЕсли;

Движения.ОстаткиНоменклатуры.Записывать = Истина;
	Движения.СебестоимостьТоваров.Записывать = Истина;	
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ПриходнаяНакладнаяСписокНоменклатуры.Номенклатура КАК Номенклатура,
		|	СУММА(ПриходнаяНакладнаяСписокНоменклатуры.Количество) КАК Количество,
		|	СУММА(ПриходнаяНакладнаяСписокНоменклатуры.Сумма) КАК Сумма,
		|	ПриходнаяНакладнаяСписокНоменклатуры.Ссылка КАК Партия,
		|	&Период КАК Период,
		|	&Склад КАК Склад
		|ИЗ
		|	Документ.ПриходнаяНакладная.СписокНоменклатуры КАК ПриходнаяНакладнаяСписокНоменклатуры
		|ГДЕ
		|	ПриходнаяНакладнаяСписокНоменклатуры.Ссылка = &Ссылка
		|	И ПриходнаяНакладнаяСписокНоменклатуры.Номенклатура.ВидНоменклатуры = ЗНАЧЕНИЕ(Перечисление.ВидыНоменклатуры.Товар)
		|
		|СГРУППИРОВАТЬ ПО
		|	ПриходнаяНакладнаяСписокНоменклатуры.Номенклатура,
		|	ПриходнаяНакладнаяСписокНоменклатуры.Ссылка";
	
	Запрос.УстановитьПараметр("Ссылка", Ссылка);
	Запрос.УстановитьПараметр("Период", Дата);
	Запрос.УстановитьПараметр("Склад", Склад);
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		ЗаполнитьЗначенияСвойств(Движения.ОстаткиНоменклатуры.ДобавитьПриход(),ВыборкаДетальныеЗаписи);
		ЗаполнитьЗначенияСвойств(Движения.СебестоимостьТоваров.ДобавитьПриход(),ВыборкаДетальныеЗаписи);
	КонецЦикла;

Перед очередным обновлением проведу ревизию в остальных билетах. Но именно с Видом номенклатуры в остальных билетах проблем нет, проверил.

2) Не считаю, что блокировки лишние, но и не оспариваю вашу позицию по данному вопросу. 
3) Очень важное замечание, вообще не обращал внимание на данный документ и даже Белоусов просто обучает создавать данный документ без единой строчки кода - лишь основные правила при создании: Создаем документ, выбираем регистр в Движения, создаем форму и перетаскиваем движения на форму (для возможности ручной корректировки) и так же в разделе движения запрещаем проведение и все. Но до сих пор не слышал о том, чтобы с кого-то за это сняли баллы. Цитирую Белоусова - "Если в задании от вас явно не требуется что-то реализовать - не тратьте время на то чтобы показать какой Вы умный", он повторял это на протяжении всего курса.
 
4) С проблемой копеек не согласен, перечитайте код, жду комментариев либо конкретный пример.

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