Сформировать поднадзорного - История изменений

Shihov в 08:02, 16 октября 2025

2025-10-16T08:02:11Z

← Предыдущая версия		Версия от 08:02, 16 октября 2025
Строка 1:		Строка 1:
	~~=====~~= Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз =~~=====~~		= Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз =
	В примере ~~используются следующие функции~~: [[~~шлюз_выгрузка:~~сформировать_хоз_субъект\|СформироватьХозСубъект]]
			В примере используется функция: [[сформировать_хоз_субъект\|СформироватьХозСубъект]]

	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)		Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)
	ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ПоднадзорныйОбъект"));		ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип(ПространствоИмен(), "ПоднадзорныйОбъект"));

	ПоднадзорныйОбъект.Наименование = Партнер.Наименование;		ПоднадзорныйОбъект.Наименование = Партнер.Наименование;
	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование; //#1		ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование; // #1

	ПоднадзорныйОбъект.Тип = 1; //#2		ПоднадзорныйОбъект.Тип = 1; // #2
	~~<syntaxhighlight lang='bash'>~~		ПоднадзорныйОбъект.Комментарий = ""; // Партнер.ДополнительнаяИнформация;
	ПоднадзорныйОбъект.Комментарий = "";
	</~~syntaxhighlight>~~Партнер.ДополнительнаяИнформация;
	ПоднадзорныйОбъект.Код = Партнер.Код;		ПоднадзорныйОбъект.Код = Партнер.Код;

	Результат = СформироватьХозСубъект(Контрагент,~~фабрика~~);		Результат = СформироватьХозСубъект(Контрагент, Фабрика);
	Если ТипЗнч(Результат)= Тип("Строка") Тогда		Если ТипЗнч(Результат) = Тип("Строка") Тогда
	Возврат Результат;		Возврат Результат;
	Иначе		Иначе
Строка 21:		Строка 21:
	КонецЕсли;		КонецЕсли;

	~~<syntaxhighlight lang='bash'>~~		// Обычные формы #3
	Обычные формы
	~~</syntaxhighlight>~~#3
	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический");		ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический");
	Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда		Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
Строка 33:		Строка 31:
	КонецФункции		КонецФункции
	</syntaxhighlight>		</syntaxhighlight>
	\|
	#1 Заполнение полного наименования		== Примечания ==
	\|
	В данное поле заполняется наименование для печати. ~~Возможное~~ варианты:		=== Заполнение полного наименования ===
	\|
			В данное поле заполняется наименование для печати. Возможные варианты:

	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;		ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;
	</syntaxhighlight>		</syntaxhighlight>

	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;		ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;
	</syntaxhighlight>		</syntaxhighlight>
	~~или любое другое поле, отвечающее за наименование поднадзорного объекта.~~

			Или любое другое поле, отвечающее за наименование поднадзорного объекта.

			=== Заполнение типа поднадзорного ===

	~~#2 Заполнение типа поднадзорного~~
	\|
	Существуют следующие типы поднадзорных:		Существуют следующие типы поднадзорных:
	* 1 - предприятие		* '''1''' - предприятие
	* 2 - рынок		* '''2''' - рынок
	* 3 - СББЖ		* '''3''' - СББЖ
	* 4 - судно		* '''4''' - судно

			=== Заполнение адреса ===

			На управляемых формах адрес можно получить следующим способом:

	~~#3 Заполнение адреса~~
	\|
	~~На управляемых формах адрес можно получить следующим способом~~
	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	Если Партнер.КонтактнаяИнформация.Количество() > 0 Тогда		Если Партнер.КонтактнаяИнформация.Количество() > 0 Тогда
	Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл		Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл
	Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента		Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес
	ПоднадзорныйОбъект.Адрес = Инф.Представление;		И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда
			// Или Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента
			ПоднадзорныйОбъект.Адрес = Инф.Представление;
	Прервать;		Прервать;
	КонецЕсли;		КонецЕсли;
	КонецЦикла;		КонецЦикла;
	Иначе		Иначе
	Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию.";		Возврат Строка(Контрагент.Наименование) + ": необходимо заполнить контактную информацию.";
	КонецЕсли;		КонецЕсли;
	</syntaxhighlight>		</syntaxhighlight>

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

	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Юридический");		ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Юридический");
Строка 79:		Строка 84:
	КонецЕсли;		КонецЕсли;
	</syntaxhighlight>		</syntaxhighlight>
	~~или~~
			Или:

	<syntaxhighlight lang='1c'>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Фактический");		ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Фактический");

Shihov в 13:02, 23 мая 2025

2025-05-23T13:02:59Z

← Предыдущая версия		Версия от 13:02, 23 мая 2025
Строка 63:		Строка 63:
	Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл		Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл
	Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента		Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента
	ПоднадзорныйОбъект.Адрес = Инф.Представление;		ПоднадзорныйОбъект.Адрес = Инф.Представление;
	Прервать;		Прервать;
	КонецЕсли;		КонецЕсли;

Shihov в 13:05, 2 апреля 2025

2025-04-02T13:05:14Z

← Предыдущая версия		Версия от 13:05, 2 апреля 2025
Строка 1:		Строка 1:
	====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======		====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======
	В примере используются следующие функции: [[шлюз_выгрузка:сформировать_хоз_субъект\|СформироватьХозСубъект]]		В примере используются следующие функции: [[шлюз_выгрузка:сформировать_хоз_субъект\|СформироватьХозСубъект]]
	<1c>		<syntaxhighlight lang='1c'>
	Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)		Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)
	ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ПоднадзорныйОбъект"));		ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ПоднадзорныйОбъект"));
Строка 32:		Строка 32:
	Возврат ПоднадзорныйОбъект;		Возврат ПоднадзорныйОбъект;
	КонецФункции		КонецФункции
	</1c>		</syntaxhighlight>
	\|		\|
	#1 Заполнение полного наименования		#1 Заполнение полного наименования
Строка 38:		Строка 38:
	В данное поле заполняется наименование для печати. Возможное варианты:		В данное поле заполняется наименование для печати. Возможное варианты:
	\|		\|
	<1c>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;		ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;
	</1c>		</syntaxhighlight>
	<1c>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;		ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;
	</1c>		</syntaxhighlight>
	или любое другое поле, отвечающее за наименование поднадзорного объекта.		или любое другое поле, отвечающее за наименование поднадзорного объекта.

Строка 59:		Строка 59:
	\|		\|
	На управляемых формах адрес можно получить следующим способом		На управляемых формах адрес можно получить следующим способом
	<1c>		<syntaxhighlight lang='1c'>
	Если Партнер.КонтактнаяИнформация.Количество() > 0 Тогда		Если Партнер.КонтактнаяИнформация.Количество() > 0 Тогда
	Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл		Для Каждого Инф Из Партнер.КонтактнаяИнформация Цикл
Строка 70:		Строка 70:
	Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию.";		Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию.";
	КонецЕсли;		КонецЕсли;
	</1c>		</syntaxhighlight>
	Для обычных форм это может быть:		Для обычных форм это может быть:
	<1c>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Юридический");		ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Юридический");
	Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда		Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
Строка 78:		Строка 78:
	Возврат Неопределено;		Возврат Неопределено;
	КонецЕсли;		КонецЕсли;
	</1c>		</syntaxhighlight>
	или		или
	<1c>		<syntaxhighlight lang='1c'>
	ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Фактический");		ПоднадзорныйОбъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Партнер, "Фактический");
	Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда		Если НЕ ЗначениеЗаполнено(ПоднадзорныйОбъект.Адрес) Тогда
Строка 86:		Строка 86:
	Возврат Неопределено;		Возврат Неопределено;
	КонецЕсли;		КонецЕсли;
	</1c>		</syntaxhighlight>

	[[Category:Асп.шлюз выгрузка]]		[[Category:Асп.шлюз выгрузка]]

	<vote type=1 />		<vote type=1 />

Shihov в 07:59, 28 марта 2025

2025-03-28T07:59:29Z

← Предыдущая версия		Версия от 07:59, 28 марта 2025
Строка 34:		Строка 34:
	</1c>		</1c>
	\|		\|
	~~++++~~#1 Заполнение полного наименования		#1 Заполнение полного наименования
	\|		\|
	В данное поле заполняется наименование для печати. Возможное варианты:		В данное поле заполняется наименование для печати. Возможное варианты:
Строка 45:		Строка 45:
	</1c>		</1c>
	или любое другое поле, отвечающее за наименование поднадзорного объекта.		или любое другое поле, отвечающее за наименование поднадзорного объекта.
	~~++++~~

	~~++++~~#2 Заполнение типа поднадзорного
			#2 Заполнение типа поднадзорного
	\|		\|
	Существуют следующие типы поднадзорных:		Существуют следующие типы поднадзорных:
Строка 54:		Строка 54:
	* 3 - СББЖ		* 3 - СББЖ
	* 4 - судно		* 4 - судно
	~~++++~~

	~~++++~~#3 Заполнение адреса
			#3 Заполнение адреса
	\|		\|
	На управляемых формах адрес можно получить следующим способом		На управляемых формах адрес можно получить следующим способом
Строка 87:		Строка 87:
	КонецЕсли;		КонецЕсли;
	</1c>		</1c>
	~~++++~~
	[[Category:Асп.шлюз выгрузка]]		[[Category:Асп.шлюз выгрузка]]

	<vote type=1 />		<vote type=1 />

Shihov в 13:14, 7 марта 2025

2025-03-07T13:14:41Z

← Предыдущая версия		Версия от 13:14, 7 марта 2025
Строка 89:		Строка 89:
	++++		++++
	[[Category:Асп.шлюз выгрузка]]		[[Category:Асп.шлюз выгрузка]]

			<vote type=1 />

Shihov: Shihov переименовал страницу Асп.шлюз выгрузка:сформировать поднадзорного в Сформировать поднадзорного: Автоматическое переименование

2025-02-24T23:32:23Z

Shihov переименовал страницу Асп.шлюз выгрузка:сформировать поднадзорного в Сформировать поднадзорного: Автоматическое переименование

← Предыдущая версия		Версия от 23:32, 24 февраля 2025
(нет различий)

Shihov в 23:18, 24 февраля 2025

2025-02-24T23:18:30Z

← Предыдущая версия		Версия от 23:18, 24 февраля 2025
Строка 1:		Строка 1:
	====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======		====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======
	В примере используются следующие функции: [[шлюз_выгрузка/сформировать_хоз_субъект\|СформироватьХозСубъект]]		В примере используются следующие функции: [[шлюз_выгрузка:сформировать_хоз_субъект\|СформироватьХозСубъект]]
	<1c>		<1c>
	Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)		Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)

Shihov в 23:13, 24 февраля 2025

2025-02-24T23:13:47Z

← Предыдущая версия		Версия от 23:13, 24 февраля 2025
Строка 88:		Строка 88:
	</1c>		</1c>
	++++		++++
			[[Category:Асп.шлюз выгрузка]]

Shihov: Новая страница: «====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ====== В примере используются следующие функции: СформироватьХозСубъект <1c> Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)...»

2025-02-24T22:57:15Z

Новая страница: «====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ====== В примере используются следующие функции: СформироватьХозСубъект <1c> Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)...»

Новая страница

====== Пример формирования поднадзорного объекта для выгрузки в АСП.Шлюз ======
В примере используются следующие функции: [[шлюз_выгрузка/сформировать_хоз_субъект|СформироватьХозСубъект]]
<1c>
Функция СформироватьПоднадзорного(Партнер, Контрагент, Фабрика)
ПоднадзорныйОбъект = Фабрика.Создать(Фабрика.Тип( ПространствоИмен(),"ПоднадзорныйОбъект"));

ПоднадзорныйОбъект.Наименование = Партнер.Наименование;
ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование; //#1

ПоднадзорныйОбъект.Тип = 1; //#2
<syntaxhighlight lang='bash'>
ПоднадзорныйОбъект.Комментарий = "";
</syntaxhighlight>Партнер.ДополнительнаяИнформация;
ПоднадзорныйОбъект.Код = Партнер.Код;

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

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

Возврат ПоднадзорныйОбъект;
КонецФункции
</1c>
|
++++#1 Заполнение полного наименования
|
В данное поле заполняется наименование для печати. Возможное варианты:
|
<1c>
ПоднадзорныйОбъект.НаименованиеПолное = Партнер.Наименование;
</1c>
<1c>
ПоднадзорныйОбъект.НаименованиеПолное = Партнер.НаименованиеПолное;
</1c>
или любое другое поле, отвечающее за наименование поднадзорного объекта.
++++

++++#2 Заполнение типа поднадзорного
|
Существуют следующие типы поднадзорных:
* 1 - предприятие
* 2 - рынок
* 3 - СББЖ
* 4 - судно
++++

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