Сформировать поднадзорного: различия между версиями

← Предыдущая правка

ВизуальныйВики-текст

@@ Строка 1: / Строка 1: @@
-====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======
+= Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз =
-В примере используются следующие функции: [[шлюз_выгрузка:сформировать_хоз_субъект|СформироватьХозСубъект]]
-<1c>
+В примере используется функция: [[сформировать_хоз_субъект|СформироватьХозСубъект]]
+<syntaxhighlight lang='1c'>
 Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)
-	ПоднадзорныйОбъект	= Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ПоднадзорныйОбъект"));
+	ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(), "ПоднадзорныйОбъект"));
 	ПоднадзорныйОбъект.Наименование = Партнер.Наименование;
-	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование; //#1
+	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование; // #1
-	ПоднадзорныйОбъект.Тип = 1; //#2
+	ПоднадзорныйОбъект.Тип = 1; // #2
-	<syntaxhighlight lang='bash'>
+	ПоднадзорныйОбъект.Комментарий = ""; // Партнер.ДополнительнаяИнформация;
-ПоднадзорныйОбъект.Комментарий 	= "";
-</syntaxhighlight>Партнер.ДополнительнаяИнформация;
 	ПоднадзорныйОбъект.Код = Партнер.Код;
-	Результат = СформироватьХозСубъект(Контрагент,фабрика);
+	Результат = СформироватьХозСубъект(Контрагент, Фабрика);
-	Если ТипЗнч(Результат)= Тип("Строка") Тогда
+	Если ТипЗнч(Результат) = Тип("Строка") Тогда
 		Возврат Результат;
 	Иначе
@@ Строка 21: / Строка 21: @@
 	КонецЕсли;
-	<syntaxhighlight lang='bash'>
+	// Обычные формы #3
-Обычные формы
-</syntaxhighlight>#3
 	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический");
 	Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
@@ Строка 32: / Строка 30: @@
 	Возврат ПоднадзорныйОбъект;
 КонецФункции
-</1c>
+</syntaxhighlight>
-|
-++++#1 Заполнение полного наименования
+== Примечания ==
-|
-В данное поле заполняется наименование для печати. Возможное варианты:
+=== Заполнение полного наименования ===
-|
-<1c>
+В данное поле заполняется наименование для печати. Возможные варианты:
+<syntaxhighlight lang='1c'>
 ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;
-</1c>
+</syntaxhighlight>
-<1c>
+<syntaxhighlight lang='1c'>
 ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;
-</1c>
+</syntaxhighlight>
-или любое другое поле, отвечающее за наименование поднадзорного объекта.
-++++
+Или любое другое поле, отвечающее за наименование поднадзорного объекта.
+=== Заполнение типа поднадзорного ===
-++++#2 Заполнение типа поднадзорного
-|
 Существуют следующие типы поднадзорных:
-* 1 - предприятие
+* '''1''' - предприятие
-* 2 - рынок
+* '''2''' - рынок
-* 3 - СББЖ
+* '''3''' - СББЖ
-* 4 - судно
+* '''4''' - судно
-++++
-++++#3 Заполнение адреса
+=== Заполнение адреса ===
-|
-На управляемых формах адрес можно получить следующим способом
+На управляемых формах адрес можно получить следующим способом:
-<1c>
+<syntaxhighlight lang='1c'>
 Если Партнер.КонтактнаяИнформация.Количество() > 0 Тогда
 	Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл
-		Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента
+		Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес
-          ПоднадзорныйОбъект.Адрес = Инф.Представление;
+		   И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда
+			// Или Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента
+			ПоднадзорныйОбъект.Адрес = Инф.Представление;
 			Прервать;
 		КонецЕсли;
 	КонецЦикла;
 Иначе
-	Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию.";
+	Возврат Строка(Контрагент.Наименование) + ": необходимо заполнить контактную информацию.";
 КонецЕсли;
-</1c>
+</syntaxhighlight>
 Для обычных форм это может быть:
-<1c>
+<syntaxhighlight lang='1c'>
 ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Юридический");
 Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
@@ Строка 78: / Строка 83: @@
 	Возврат Неопределено;
 КонецЕсли;
-</1c>
+</syntaxhighlight>
-или
-<1c>
+Или:
+<syntaxhighlight lang='1c'>
 ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Фактический");
 Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
@@ Строка 86: / Строка 93: @@
 	Возврат Неопределено;
 КонецЕсли;
-</1c>
+</syntaxhighlight>
-++++
 [[Category:Асп.шлюз выгрузка]]
+<vote type=1 />