Сформировать хоз субъект: различия между версиями

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