- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
Функция ОпределитьВидКонтрагента(Контрагент) Экспорт
	
	 Запрос = Новый Запрос;
	 
	 Запрос.УстановитьПараметр("Контрагент", Контрагент);
	 
	 ТекстЗапроса = "ВЫБРАТЬ
		|	Контрагенты.Ссылка КАК Контрагент,
		|	Контрагенты.Представление КАК Представление,
		|	Контрагенты.ЮрФизЛицо КАК ЮрФизЛицо
		|ИЗ
		|	Справочник.Контрагенты КАК Контрагенты
		|ГДЕ
		|	Контрагенты.ЮрФизЛицо = ЗНАЧЕНИЕ(Перечисление.ЮрФизЛицо.ЮрЛицоНеРезидент)
		|	И Контрагенты.Ссылка = &Контрагент";
	 
	 Запрос.Текст = ТекстЗапроса;
	 	 
	 РезультатЗапроса = Запрос.Выполнить();
	 
	 Если РезультатЗапроса.Пустой() Тогда
		 Возврат Ложь;
	 КонецЕсли;
	 
	 Выборка = РезультатЗапроса.Выбрать();
	 
	 Пока Выборка.Следующий() Цикл
		 
		 Если Контрагент = Выборка.Контрагент Тогда
			 Возврат Истина;
			 
		 Иначе
			 Возврат Ложь;
			 
		 КонецЕсли;
		 
	 КонецЦикла;
	 
КонецФункции









 Follow us!
 Follow us!