Это старая версия документа.

<1C> Функция СформироватьХозСубъект(Контрагент,фабрика)

ХозСубъект	= Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ХозяйствующийСубъект"));

ХозСубъект.Наименование 		= Контрагент.Наименование;
ХозСубъект.НаименованиеПолное 	= Контрагент.НаименованиеПолное;
Если Контрагент.Ссылка.Метаданные().Реквизиты.Найти("ЮридическоеФизическоеЛицо")=Неопределено Тогда //#1
	ЮрФизЛицо = "Физ";
Иначе
	Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда //#1 
		ЮрФизЛицо = "Юр";                                                  	
	ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда //#1 
		ЮрФизЛицо = "ИП";
	КонецЕсли;
КонецЕсли;

ХозСубъект.ЮрФизЛицо = ЮрФизЛицо;
ХозСубъект.ИНН = Контрагент.ИНН; // Метаданные.Справочники.Контрагенты.Реквизиты.Найти("ИНН")<>Неопределено
//ХозСубъект.ОГРН = "";
ХозСубъект.Комментарий = "перенесено через XDTO";

// Управляемые формы
//Если Контрагент.КонтактнаяИнформация.Количество() > 0 Тогда
//	Для каждого Инф из Контрагент.КонтактнаяИнформация Цикл 
//		Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда 
//          ХозСубъект.Адрес = Инф.Представление;
//			Прервать;
//		КонецЕсли;
//	КонецЦикла;
//Иначе
//	Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию.";
//КонецЕсли;

// Обычные формы
ХозСубъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Юридический");
Если НЕ ЗначениеЗаполнено(ХозСубъект.Адрес) Тогда
	Сообщить("Необходимо заполнить юридический адрес контрагента: " + Контрагент); 
	Возврат Неопределено;
КонецЕсли;	

//ХозСубъект.Организация = Истина;  // Указывается, если выхружаемый Хоз. субъект является организацией
Возврат ХозСубъект;

КонецФункции </1C>