Сформировать хоз субъект: различия между версиями
Shihov (обсуждение | вклад) Нет описания правки |
Shihov (обсуждение | вклад) Нет описания правки |
||
Строка 12: | Строка 12: | ||
Иначе | Иначе | ||
Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда //#1 | Если Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда //#1 | ||
ЮрФизЛицо = "Юр"; | ЮрФизЛицо = "Юр"; | ||
ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда //#1 | ИначеЕсли Контрагент.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда //#1 | ||
ЮрФизЛицо = "ИП"; | ЮрФизЛицо = "ИП"; | ||
Строка 48: | Строка 48: | ||
// Из поля ЮридическоеФизическоеЛицо | // Из поля ЮридическоеФизическоеЛицо | ||
ПолучитьТипХС(Ссылка) | ПолучитьТипХС(Ссылка) | ||
Если Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ЮридическоеЛицо Тогда | |||
Возврат Юр"; | |||
ИначеЕсли Ссылка.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо Тогда | |||
Возврат "ИП"; | |||
КонецЕсли; | |||
Возврат Неопределено; | |||
КонецФункции | КонецФункции | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Строка 60: | Строка 60: | ||
// Из поля ЮрФизЛицо | // Из поля ЮрФизЛицо | ||
ПолучитьТипХС(Ссылка) | ПолучитьТипХС(Ссылка) | ||
Если Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда | |||
Возврат "Юр"; | |||
ИначеЕсли Ссылка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда | |||
Возврат "ИП"; | |||
КонецЕсли; | |||
Возврат Неопределено; | |||
КонецФункции | КонецФункции | ||
</syntaxhighlight> | </syntaxhighlight> | ||
Строка 78: | Строка 78: | ||
Для Каждого Инф Из Контрагент.КонтактнаяИнформация Цикл | Для Каждого Инф Из Контрагент.КонтактнаяИнформация Цикл | ||
Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента | Если Инф.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес И Инф.Вид = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента Тогда //Инф.Вид = Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента | ||
ХозСубъект.Адрес = Инф.Представление; | |||
Прервать; | Прервать; | ||
КонецЕсли; | КонецЕсли; |