// 01 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|	РеализацияТоваровУслуг.Ссылка
|ИЗ
|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
|	НАЧАЛОПЕРИОДА(РеализацияТоваровУслуг.Дата, МЕСЯЦ) = &Январь2025";

// 02 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ
|	Номенклатура.Ссылка КАК Номенклатура,
|	ХарактеристикиНоменклатуры.Ссылка КАК Характеристика
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура,
|	Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
|ГДЕ
|	ЛОЖЬ";

Таблица = Запрос.Выполнить().Выгрузить();

// 03 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ
|	СрезЦен.Регистратор.Ссылка,
|	СрезЦен.Номенклатура,
|	СрезЦен.Цена
|ИЗ
|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(&Завтра, ) КАК СрезЦен
|ГДЕ
|	СрезЦен.Регистратор ССЫЛКА Документ.УстановкаЦенНоменклатуры";

// 04 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|	Сумма(1) / 1000000
|ИЗ
|	РегистрСведений.ЦеныНоменклатуры КАК Цены";

// 05 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ
|	Выразить(РеализацияТоваровУслуг.Ссылка КАК Документ.РеализацияТоваровУслуг).Ссылка,
|	НАЧАЛОПЕРИОДА(РеализацияТоваровУслуг.Дата, МЕСЯЦ) КАК НачалоМесяца
|ИЗ
|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|
|УПОРЯДОЧИТЬ ПО
|	НачалоМесяца";

// 06 //////////////////////////////////////////////////////////////////////////////////////
Для каждого Поступление Из ТаблицаЗначений20млнСтрок() Цикл
	Для каждого Реализация Из ТаблицаЗначений01млнСтрок() Цикл
		Если Реализация.Номенклатура = Поступление.Номенклатура Тогда
			Наценка = Реализация.Цена / Поступление.Цена;
			Реализация.Наценка=?(Реализация.Наценка < Наценка, Наценка, Реализация.Наценка);
		КонецЕсли;
	КонецЦикла;
КонецЦикла; 

// 07 //////////////////////////////////////////////////////////////////////////////////////
НоменклатураВыбрать = Справочники.Номенклатура.Выбрать();	
Пока НоменклатураВыбрать.Следующий() = Истина Цикл
	Сообщить( НоменклатураВыбрать.Ссылка + НоменклатураВыбрать.Артикул );	
КонецЦикла; 

// 08 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ ПЕРВЫЕ 9
|	Номенклатура.Ссылка КАК Номенклатура,
|	ХарактеристикиНоменклатуры.Ссылка КАК Характеристика
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура
|		ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ХарактеристикиНоменклатуры КАК ХарактеристикиНоменклатуры
|		ПО (ХарактеристикиНоменклатуры.Владелец = Номенклатура.Ссылка)
|ГДЕ
|	ХарактеристикиНоменклатуры.ПометкаУдаления";

// 09 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|	ТоварыНаСкладахОстатки.Номенклатура,
|	ТоварыНаСкладахОстатки.КоличествоОстаток
|ИЗ
|	РегистрНакопления.ТоварыНаСкладах.Остатки КАК ТоварыНаСкладахОстатки
|ГДЕ
|	ТоварыНаСкладахОстатки.Номенклатура В ИЕРАРХИИ(&ГруппаНоменклатуры)";

// 10 //////////////////////////////////////////////////////////////////////////////////////
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|	РеализацияТоваровУслугТовары.ЕдиницаИзмерения,
|	МАКСИМУМ(РеализацияТоваровУслугТовары.Ссылка) КАК Ссылка
|ИЗ
|	Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
|ГДЕ
|	(ВЫРАЗИТЬ(РеализацияТоваровУслугТовары.Коэффициент КАК ЧИСЛО(5, 0))) < РеализацияТоваровУслугТовары.Коэффициент
|
|СГРУППИРОВАТЬ ПО
|	РеализацияТоваровУслугТовары.ЕдиницаИзмерения";


// 11 //////////////////////////////////////////////////////////////////////////////////////
//модуль справочника ХарактеристикиНоменклатуры
Процедура ПриЗаписи(Отказ)

	ОбработкаПрерыванияПользователя();
	Попытка
		НачатьТранзакцию();
			МойОбъект = Владелец.ПолучитьОбъект();
			МойОбъект.Наименование = СокрЛП(МойОбъект.Наименование);
			МойОбъект.Записать();
		ЗафиксироватьТранзакцию();
	Исключение
		Предупреждение("Ошибка проведения",5);
		ОтменитьТранзакцию();
	КонецПопытки;
	
КонецПроцедуры

// 12 //////////////////////////////////////////////////////////////////////////////////////
&НаКлиенте
Функция ЗначениеВДанныеФормы()
//строка 03
УстановитьПривилегированныйРежим(Истина);
Запрос = Новый Запрос;
//строка 06
Запрос.Текст = 
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|	1 / Номенклатура.ЕдиницаДляОтчетов.Коэффициент КАК ОбратныйКоэффициент,
|	Номенклатура.Ссылка
|ИЗ
|	Справочник.Номенклатура КАК Номенклатура";
//строка 13
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальная = РезультатЗапроса.Выбрать();
//строка 16
Пока ВыборкаДетальная.Следующий() Цикл
	Сообщить( ВыборкаДетальная.Ссылка.Наименование + " " + ВыборкаДетальная.ОбратныйКоэффициент );
КонецЦикла;
//строка 20
УстановитьПривилегированныйРежим(Ложь);
//строка 22
КонецФункции

// 13 //////////////////////////////////////////////////////////////////////////////////////
&НаСервере
Функция ЗначенияРеквизитов(Номенклатура)
	
	ЗначенияРеквизитов = ОбщегоНазначения.ЗначенияРеквизитовОбъекта(Номенклатура, "Наименование, ВариантОформленияПродажи");
	
	Если ЗначенияРеквизитов.ВариантОформленияПродажи = Перечисления.ВариантыОформленияПродажи.РеализацияТоваровУслуг Тогда
		Возврат ЗначенияРеквизитов;
	КонецЕсли;
	
КонецФункции

&НаКлиенте
Процедура ПоказатьТовары(Команда)
	
	Для Каждого Товар Из Объект.Товары Цикл
		
		ЗначенияРеквизитов = ЗначенияРеквизитов(Товар.Номенклатура);
		
		Если ЗначенияРеквизитов <> Неопределено Тогда
			ОбщегоНазначенияКлиент.СообщитьПользователю(ЗначенияРеквизитов.Наименование);
		КонецЕсли;
		
	КонецЦикла;
	
КонецПроцедуры

// 14 //////////////////////////////////////////////////////////////////////////////////////
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ
|    ВводОстатковТоваров.Ссылка КАК Ссылка
|ИЗ
|    Документ.ВводОстатковТоваров КАК ВводОстатковТоваров
|
|УПОРЯДОЧИТЬ ПО
|    ВводОстатковТоваров.Дата";
// строка 10
ТЗ = Запрос.Выполнить().Выгрузить();
НачалоГода = НачалоГода( ТекущаяДата() );

Для Каждого ТЗЦикл ИЗ ТЗ Цикл
// строка 15
Если ТЗЦикл.Ссылка.Дата < НачалоГода Тогда Продолжить; КонецЕсли;
Документ = ТЗЦикл.Ссылка.ПолучитьОбъект();
Документ.ПометкаУдаления = Истина;
Документ.ОбменДанными.Загрузка = Истина;
Документ.Записать(РежимЗаписиДокумента.Запись);
// строка 21
КонецЦикла;

Вопрос: Вы советуете НЕ выгружать результат запроса в таблицы значений, а ERP это активно использует.
Ответ: Мы должны верить, что напишем больше и лучше, чем ERP !

Вопрос: Зачем такие тесты, ведь кандидатов можно отбирать, спрашивая про красно-черные деревья и вялые огурцы ?
Ответ: Спасибо, Кузяра! Вы сделали мой день!

Вопрос: Тут уж совсем детский уровень.
Ответ: Здесь спрятано 20 ошибок, не каждый ребенок найдет.

Вопрос: Это код одна сплошная ошибка!
Ответ: Вы нам не подходите. Слишком умных лучше не брать. Подсидят через пару лет. ))

Вопрос: Выжду годик и сам запилю такую публикацию.
Ответ: Через годик у меня уже будет четыре плюсика и одно скачивание !

Вопрос: Зачем мне код с ошибками ?
Ответ: Все хотят быть сеньором-тимлидом, но никто не хочет исправлять чужой плохой код ))

Вопрос: Мне нужно просеять кандидатов через воронку отбора (остаться должен 1%)
Ответ: Вы затеяли "Голодные игры"? Интер есная воронка - но напрашивается аналогия с большим динозавром - пока сигнал от хвоста дойдет до мозга, хвост уже отгрызут :-)

Вопрос: Где Вы берете такой плохой код ?
Ответ: Проекты прошлых лет (шутка).

Найти ошибки в коде - популярная тема на собеседованиях. Например, используется на собеседованиях Вайлдберриз-Тех для программистов Java.