Сформировать хоз субъект

Пример формирования хозяйствующего субъекта для выгрузки в АСП.Шлюз

Функция СформироватьХозСубъект(Контрагент,фабрика)
	
	ХозСубъект	= Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ХозяйствующийСубъект"));
	
	ХозСубъект.Наименование 		= Контрагент.Наименование;
	ХозСубъект.НаименованиеПолное 	= Контрагент.НаименованиеПолное;
	Если Контрагент.Ссылка.Метаданные().Реквизиты.Найти("ЮридическоеФизическоеЛицо")=Неопределено Тогда //#1
		ЮрФизЛицо = "Физ";
	Иначе
		Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда //#1 
			ЮрФизЛицо = "Юр";	
		ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда //#1 
			ЮрФизЛицо = "ИП";
		КонецЕсли;
	КонецЕсли;
	
	ХозСубъект.ЮрФизЛицо = ЮрФизЛицо;
	ХозСубъект.ИНН = Контрагент.ИНН; // Метаданные.Справочники.Контрагенты.Реквизиты.Найти("ИНН")<>Неопределено
	//ХозСубъект.ОГРН = "";
	ХозСубъект.Комментарий = "перенесено через XDTO";
	
	
	
	<syntaxhighlight lang='bash'>
Обычные формы

#2

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

ХозСубъект.Организация = Истина;

Указывается, если выхружаемый Хоз. субъект является организацией

Возврат ХозСубъект; КонецФункции </syntaxhighlight> |

1. 1 Заполнение поля ЮрФизЛицо

| В зависимости от учетной системы, правовая форма контрагента может хранится в различных реквизитах. |

// Из поля ЮридическоеФизическоеЛицо 
ПолучитьТипХС(Ссылка)
Если Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда
Возврат Юр";	
ИначеЕсли Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда 
Возврат "ИП";
КонецЕсли;
							
Возврат Неопределено;
КонецФункции

// Из поля ЮрФизЛицо 
ПолучитьТипХС(Ссылка)
Если Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда
Возврат "Юр";	
ИначеЕсли Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда
Возврат "ИП";
КонецЕсли;
							
Возврат Неопределено;
КонецФункции

1. 2 Заполнение адреса

| На управляемых формах адрес Хоз. субъекта можно получить следующим способом

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

Для обычных форм это может быть:

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

или

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

0.00

(0 голосов)