Изменить номер заказа при добавлении в 1С Предприятие 8.3 УТ 11.4

Опубликовано автором

В примере находится последний заказ не зависимо от даты и организации и увеличивается номер на 1:

&НаСервере
Процедура БМ_ПередЗаписьюНаСервереПосле(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	if СокрЛП("" + ТекущийОбъект.Номер) = "" then
		query = new query;
		query.text = "
			|SELECT TOP 1
			|	fld.Номер as number
			|FROM
			|	Документ.ЗаказКлиента as fld
			|WHERE
			|	fld.Номер LIKE ""0000-%""
			|ORDER BY fld.Номер DESC";
		result = query.Выполнить().Выбрать();
		if result.next() then
			ТекущийОбъект.Номер = "0000-" + Прав("000000" + Формат(Number(Прав(result.number, 6)) + 1, "ЧГ=0"), 6);
		else
			ТекущийОбъект.Номер = "0000-000001";
		endif;
	endif;
	//сообщить(ТекущийОбъект.Номер);
КонецПроцедуры