1С. Найти/создать ОбъектРасчетов по документу

gistfile1.bsl

 &НаСервере
 Функция ПолучитьОбъектРасчетов(ДокументРасчетов)  
	
	ОбъектРасчетов = Справочники.ОбъектыРасчетов.НайтиПоРеквизиту("Объект", ДокументРасчетов);
				
	Если НЕ ЗначениеЗаполнено(ОбъектРасчетов) Тогда
		ОбъектРасчетовОБ  = Справочники.ОбъектыРасчетов.СоздатьЭлемент();
		ЗаполнитьЗначенияСвойств(ОбъектРасчетовОБ, ДокументРасчетов);  
		ОбъектРасчетовОБ.Объект  = ДокументРасчетов; 
		ОбъектРасчетовОБ.ТипРасчетов = Перечисления.ТипыРасчетовСПартнерами.РасчетыСКлиентом;
		ОбъектРасчетовОБ.ТипОбъектаРасчетов = Перечисления.ТипыОбъектовРасчетов.Накладная; 
		ОбъектРасчетовОБ.Наименование = Строка(ДокументРасчетов);
		ОбъектРасчетовОБ.Записать();
		
		ОбъектРасчетов = ОбъектРасчетовОБ.Ссылка; 
	КонецЕсли;
	
	Возврат ОбъектРасчетов;
	
КонецФункции