Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

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