Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
шлюз_выгрузка:сформировать_хоз_субъект [2018/08/02 14:19] misha |
шлюз_выгрузка:сформировать_хоз_субъект [2022/06/30 15:39] Дина Мельничук |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Пример формирования документа для выгрузки в АСП:Шлюз ====== | + | ====== Пример формирования хозяйствующего субъекта для выгрузки в АСП.Шлюз ====== |
| <1c> | <1c> | ||
| Строка 23: | Строка 23: | ||
| ХозСубъект.Комментарий = "перенесено через XDTO"; | ХозСубъект.Комментарий = "перенесено через XDTO"; | ||
| - | // Управляемые формы //#2 | + | |
| - | //Если Контрагент.КонтактнаяИнформация.Количество() > 0 Тогда | + | |
| - | // Для каждого Инф из Контрагент.КонтактнаяИнформация Цикл | + | |
| - | // Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес Тогда | + | |
| - | // ХозСубъект.Адрес = Инф.Представление; | + | |
| - | // Прервать; | + | |
| - | // КонецЕсли; | + | |
| - | // КонецЦикла; | + | |
| - | //Иначе | + | |
| - | // Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию."; | + | |
| - | //КонецЕсли; | + | |
| // Обычные формы //#2 | // Обычные формы //#2 | ||
| Строка 46: | Строка 36: | ||
| КонецФункции | КонецФункции | ||
| </1c> | </1c> | ||
| + | | | ||
| + | ++++#1 Заполнение поля ЮрФизЛицо | ||
| + | | | ||
| + | В зависимости от учетной системы, правовая форма контрагента может хранится в различных реквизитах. | ||
| + | | | ||
| + | <1c> | ||
| + | // Из поля ЮридическоеФизическоеЛицо | ||
| + | ПолучитьТипХС(Ссылка) | ||
| + | Если Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда | ||
| + | Возврат Юр"; | ||
| + | ИначеЕсли Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда | ||
| + | Возврат "ИП"; | ||
| + | КонецЕсли; | ||
| + | |||
| + | Возврат Неопределено; | ||
| + | КонецФункции | ||
| + | </1c> | ||
| + | <1c> | ||
| + | // Из поля ЮрФизЛицо | ||
| + | ПолучитьТипХС(Ссылка) | ||
| + | Если Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда | ||
| + | Возврат "Юр"; | ||
| + | ИначеЕсли Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда | ||
| + | Возврат "ИП"; | ||
| + | КонецЕсли; | ||
| + | |||
| + | Возврат Неопределено; | ||
| + | КонецФункции | ||
| + | </1c> | ||
| + | ++++ | ||
| + | |||
| + | ++++#2 Заполнение адреса | ||
| + | | | ||
| + | На управляемых формах адрес Хоз. субъекта можно получить следующим способом | ||
| + | <1c> | ||
| + | Если Контрагент.КонтактнаяИнформация.Количество() > 0 Тогда | ||
| + | Для Каждого Инф Из Контрагент.КонтактнаяИнформация Цикл | ||
| + | Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента | ||
| + | ХозСубъект.Адрес = Инф.Представление; | ||
| + | Прервать; | ||
| + | КонецЕсли; | ||
| + | КонецЦикла; | ||
| + | Иначе | ||
| + | Возврат Строка(Контрагент.Наименование)+": необходимо заполнить контактную информацию."; | ||
| + | КонецЕсли; | ||
| + | </1c> | ||
| + | Для обычных форм это может быть: | ||
| + | <1c> | ||
| + | ХозСубъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Юридический"); | ||
| + | Если НЕ ЗначениеЗаполнено(ХозСубъект.Адрес) Тогда | ||
| + | Сообщить("Необходимо заполнить юридический адрес контрагента: " + Контрагент); | ||
| + | Возврат Неопределено; | ||
| + | КонецЕсли; | ||
| + | </1c> | ||
| + | или | ||
| + | <1c> | ||
| + | ХозСубъект.Адрес = УправлениеКонтактнойИнформацией.ПолучитьАдресИзКонтактнойИнформации(Контрагент, "Фактический"); | ||
| + | Если НЕ ЗначениеЗаполнено(ХозСубъект.Адрес) Тогда | ||
| + | Сообщить("Необходимо заполнить фактическийадрес контрагента: " + Контрагент); | ||
| + | Возврат Неопределено; | ||
| + | КонецЕсли; | ||
| + | </1c> | ||
| + | ++++ | ||