Для а = НачНомерСтроки По КонНомерСтроки Цикл
Если ЗначениеЗаполнено(ЭлементыФормы.ТаблицаКлючей.Область(а, 3).Текст) = Истина Тогда
Продолжить;
КонецЕсли;
//стрТЗ = ЭлементыФормы.ТаблицаКлючей.Найти(СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(а, 1).Текст), "ИНН");
пр="9200467766";
Сп= Справочники.БазаТМ;
спр = Сп.НайтиПоРеквизиту("Телефон1",пр);
МассивИНН1.Добавить(спр.ИНН);
КонецЦикла;
ПоказатьПо теме из базы знаний
- Запрос к внешней базе данных MS SQL Server
- Код по цене пачки пельменей и сорок бочек скрама
- Как автоматически заполнить обработкой табличную часть документа "Ввод начальных остатков" (Тип операции = "Расчеты с партнерами"). 1С: ERP
- Генерация кода для автоматизированного тестирования
- Авто-ежедневник (мобильное приложение на платформе 1С)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(2)Для а = НачНомерСтроки По КонНомерСтроки Цикл
Если ЗначениеЗаполнено(ЭлементыФормы.ТаблицаКлючей.Область(а, 3).Текст) = Истина Тогда
Продолжить;
КонецЕсли;
с = СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(а, 1).Текст);
//МассивИНН1.Добавить(СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(а, 1).Текст));
Сп= Справочники.БазаТМ;
спр = Сп.НайтиПоРеквизиту("Телефон1",с);
МассивИНН1.Добавить(спр.ИНН);
КонецЦикла;
Если ЗначениеЗаполнено(ЭлементыФормы.ТаблицаКлючей.Область(а, 3).Текст) = Истина Тогда
Продолжить;
КонецЕсли;
с = СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(а, 1).Текст);
//МассивИНН1.Добавить(СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(а, 1).Текст));
Сп= Справочники.БазаТМ;
спр = Сп.НайтиПоРеквизиту("Телефон1",с);
МассивИНН1.Добавить(спр.ИНН);
КонецЦикла;
(7) запускай, пиши, че пишет
Для НомерСтроки = НачНомерСтроки По КонНомерСтроки Цикл
Если ЗначениеЗаполнено(ЭлементыФормы.ТаблицаКлючей.Область(НомерСтроки , 3).Текст) Тогда
Продолжить;
КонецЕсли;
Телефон = СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(НомерСтроки , 1).Текст);
НайденноеЗначение = Справочники.БазаТМ.НайтиПоРеквизиту("Телефон1",Телефон);
Если НайденноеЗначение = Справочники.БазаТМ.ПустаяССылка() Тогда
Сообщить("Для "+Телефон+" не найден элемент справочника");
ИначеЕсли ЗначениеЗаполнено(НайденноеЗначение.ИНН) Тогда
МассивИНН1.Добавить(НайденноеЗначение.ИНН);
Сообщить("Для "+Телефон+" найден элемент "+НайденноеЗначение+" ИНН = "+НайденноеЗначение.ИНН);
Иначе
Сообщить("У найденного элемента "+НайденноеЗначение +" не заполнен ИНН");
КонецЕсли;
КонецЦикла;
Показать
Для 9200467766 не найден элемент справочника
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Дом не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Дом не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
У найденного элемента Лаборатория продаж, конса не заполнен ИНН
(17)
Функция НайтиНечтоПоТелефону(Телефон)
Запрос = Новый Запрос ("
|ВЫБРАТЬ
| БазаТМ.Ссылка КАК Ссылка, БазаТМ.ИНН как ИНН
|ИЗ
| Справочник.БазаТМ КАК БазаТМ
|ГДЕ
| БазаТМ.Телефон1 ПОДОБНО &Телефон1
|");
Запрос.УстановитьПараметр("Телефон1","%"+Телефон+"%");
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Новый Структура("Элемент,ИНН",Выборка.ССылка,Выборка.ИНН);
КонецЕсли;
Возврат Новый Структура("Элемент,ИНН",Неопределено,"");
КонецФункции
............
Телефон = СокрЛП(ЭлементыФормы.ТаблицаКлючей.Область(НомерСтроки , 1).Текст);
СтруктураОтвета = НайтиНечтоПоТелефону(Телефон);
Сообщить(СтруктураОтвета.Элемент);
Сообщить(СтруктураОтвета.ИНН);
Показать
(18)
Функция НайтиНечтоПоТелефону(Телефон)
Запрос = Новый Запрос ("
|ВЫБРАТЬ
| БазаТМ.Ссылка КАК Ссылка, БазаТМ.ИНН как ИНН
|ИЗ
| Справочник.БазаТМ КАК БазаТМ
|ГДЕ
| БазаТМ.Телефон1 ПОДОБНО &Телефон1
|");
Запрос.УстановитьПараметр("Телефон1","%"+Телефон+"%");
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Новый Структура("Элемент,ИНН",Выборка.ССылка,Выборка.ИНН);
КонецЕсли;
Возврат Неопределено;
КонецФункции
ПоказатьЗапрос = Новый Запрос ("
|ВЫБРАТЬ
| БазаТМ.Ссылка КАК Ссылка, БазаТМ.ИНН как ИНН
|ИЗ
| Справочник.БазаТМ КАК БазаТМ
|ГДЕ
| БазаТМ.Телефон1 ПОДОБНО &Телефон1
|");
Запрос.УстановитьПараметр("Телефон1","%"+Телефон+"%");
Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() Тогда
Возврат Новый Структура("Элемент,ИНН",Выборка.ССылка,Выборка.ИНН);
КонецЕсли;
Возврат Неопределено;
КонецФункции
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот