src/WebServices/Kiosk/Ext/Module.bsl - master - ValMa/TestRep

src/WebServices/Kiosk/Ext/Module.bsl
101 строка8 KB
ValMa
Первый коммит
15 окт 2025, 19:24
15 окт 2025, 19:24caceea4

Функция GETClient(INN)
	
	Результат = "";
	
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	Контрагенты.Ссылка КАК Ссылка,
	|	Контрагенты.ВерсияДанных КАК ВерсияДанных,
	|	Контрагенты.ПометкаУдаления КАК ПометкаУдаления,
	|	Контрагенты.Родитель КАК Родитель,
	|	Контрагенты.ЭтоГруппа КАК ЭтоГруппа,
	|	Контрагенты.Код КАК Код,
	|	Контрагенты.Наименование КАК Наименование,
	|	Контрагенты.НаименованиеПолное КАК НаименованиеПолное,
	|	Контрагенты.БанковскийСчетПоУмолчанию КАК БанковскийСчетПоУмолчанию,
	|	Контрагенты.ВалютаРасчетовПоУмолчанию КАК ВалютаРасчетовПоУмолчанию,
	|	Контрагенты.ВестиРасчетыПоДоговорам КАК ВестиРасчетыПоДоговорам,
	|	Контрагенты.ВестиРасчетыПоДокументам КАК ВестиРасчетыПоДокументам,
	|	Контрагенты.ВестиРасчетыПоЗаказам КАК ВестиРасчетыПоЗаказам,
	|	Контрагенты.ВестиУчетОплатыПоСчетам КАК ВестиУчетОплатыПоСчетам,
	|	Контрагенты.ВидГосударственногоОргана КАК ВидГосударственногоОргана,
	|	Контрагенты.ВидКонтрагента КАК ВидКонтрагента,
	|	Контрагенты.ГоловнойКонтрагент КАК ГоловнойКонтрагент,
	|	Контрагенты.ГруппаДоступа КАК ГруппаДоступа,
	|	Контрагенты.ДатаРождения КАК ДатаРождения,
	|	Контрагенты.ДатаСоздания КАК ДатаСоздания,
	|	Контрагенты.ДокументУдостоверяющийЛичность КАК ДокументУдостоверяющийЛичность,
	|	Контрагенты.АдресЭПДляПоиска КАК АдресЭПДляПоиска,
	|	Контрагенты.ИННВведенКорректно КАК ИННВведенКорректно,
	|	Контрагенты.ИсточникПривлеченияПокупателя КАК ИсточникПривлеченияПокупателя,
	|	Контрагенты.КодГосударственногоОргана КАК КодГосударственногоОргана,
	|	Контрагенты.ЮридическоеФизическоеЛицо КАК ЮридическоеФизическоеЛицо,
	|	Контрагенты.Комментарий КАК Комментарий,
	|	Контрагенты.КонтактноеЛицо КАК КонтактноеЛицо,
	|	Контрагенты.КонтактноеЛицоПодписант КАК КонтактноеЛицоПодписант,
	|	Контрагенты.ИНН КАК ИНН,
	|	Контрагенты.КППВведенКорректно КАК КППВведенКорректно,
	|	Контрагенты.КПП КАК КПП,
	|	Контрагенты.Недействителен КАК Недействителен,
	|	Контрагенты.НомерТелефонаДляПоиска КАК НомерТелефонаДляПоиска,
	|	Контрагенты.ОсновныеСведения КАК ОсновныеСведения,
	|	Контрагенты.Ответственный КАК Ответственный,
	|	Контрагенты.Покупатель КАК Покупатель,
	|	Контрагенты.Пол КАК Пол,
	|	Контрагенты.Поставщик КАК Поставщик,
	|	Контрагенты.ПрочиеОтношения КАК ПрочиеОтношения,
	|	Контрагенты.РасчетыВУсловныхЕдиницахПоУмолчанию КАК РасчетыВУсловныхЕдиницахПоУмолчанию,
	|	Контрагенты.РегистрационныйНомер КАК РегистрационныйНомер,
	|	Контрагенты.СвидетельствоДатаВыдачи КАК СвидетельствоДатаВыдачи,
	|	Контрагенты.СвидетельствоСерияНомер КАК СвидетельствоСерияНомер,
	|	Контрагенты.СпособЗачетаПредоплатыПоУмолчанию КАК СпособЗачетаПредоплатыПоУмолчанию,
	|	Контрагенты.СпособРазнесенияОплатыПоУмолчанию КАК СпособРазнесенияОплатыПоУмолчанию,
	|	Контрагенты.СтатьяДДСПоУмолчанию КАК СтатьяДДСПоУмолчанию,
	|	Контрагенты.СтранаРегистрации КАК СтранаРегистрации,
	|	Контрагенты.СчетУчетаАвансовПокупателя КАК СчетУчетаАвансовПокупателя,
	|	Контрагенты.СчетУчетаАвансовПоставщику КАК СчетУчетаАвансовПоставщику,
	|	Контрагенты.СчетУчетаРасчетовСПокупателем КАК СчетУчетаРасчетовСПокупателем,
	|	Контрагенты.СчетУчетаРасчетовСПоставщиком КАК СчетУчетаРасчетовСПоставщиком,
	|	Контрагенты.УдалитьАдресЭП КАК УдалитьАдресЭП,
	|	Контрагенты.УдалитьДоговорПоУмолчанию КАК УдалитьДоговорПоУмолчанию,
	|	Контрагенты.УдалитьНомерТелефона КАК УдалитьНомерТелефона,
	|	Контрагенты.ФИО КАК ФИО,
	|	Контрагенты.КодПоОКПО КАК КодПоОКПО,
	|	Контрагенты.Самозанятый КАК Самозанятый,
	|	Контрагенты.Предопределенный КАК Предопределенный,
	|	Контрагенты.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты
	|ГДЕ
	|	Контрагенты.ИНН = &ИНН";
	
	Запрос.УстановитьПараметр("ИНН", INN);
	
	РезультатЗапроса = Запрос.Выполнить();
	Выборка = РезультатЗапроса.Выбрать();
	
	ДанныеОтвета = Новый Массив();
	
	Пока Выборка.Следующий() Цикл
		
		СтруктураСтроки = Новый Структура();
		Для каждого ОчереднаяКолонка Из РезультатЗапроса.Колонки Цикл
			
			СтруктураСтроки.Вставить(ОчереднаяКолонка.Имя, Строка(Выборка[ОчереднаяКолонка.Имя]));		
			
		КонецЦикла;
		
		ДанныеОтвета.Добавить(СтруктураСтроки);
		
	КонецЦикла;
	
	ЗаписьJSON = Новый ЗаписьJSON();
	ЗаписьJSON.УстановитьСтроку();
	ЗаписатьJSON(ЗаписьJSON, ДанныеОтвета); 
	
	Результат = ЗаписьJSON.Закрыть();
	
	Возврат	Результат;
	
КонецФункции