Читает строку с Excel, удаляет лишний знак Excel "конец строки", передаёт параметром в запрос, результата нет.
Реквизит справочника неограниченой длины поэтому ВЫРАЗИТЬ( КАК СТРОКА(200)) ато плюётся.
Параметр передаётся как текстовая строка.
Експортер=СокрЛП(Документ.Tables.Item(1).Cell(1,2).Range.Text);
Хрень=Прав(Експортер, 1);
ЕкспортерФорм=СтрЗаменить(Експортер,Хрень, "");
Запрос=Новый Запрос(
"ВЫБРАТЬ
| Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК Контрагент
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| ВЫРАЗИТЬ(Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК СТРОКА(200)) = &СписокЗначений "
);
Запрос.УстановитьПараметр("СписокЗначений",ЕкспортерФорм);
РезультатЗапроса=Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
//обращение к полям
Сообщить(Выборка.Контрагент);
КонецЦикла;
| ВЫРАЗИТЬ(Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК СТРОКА(200)) =""ТРАЛЛЛЯ"" "
(ВЫРАЗИТЬ(Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК СТРОКА(200))) = (ВЫРАЗИТЬ(&СписокЗначений КАК СТРОКА(200)))"
Может из за того что код в внешней обработке запускается. Конфигурация индивидуально разрабатывалась под предприятие.База распределёная.
logist @ Вчера, 4:30
,
Показывает строку в кавычках
| ВЫРАЗИТЬ(Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК СТРОКА(200)) ПОДОБНО &СписокЗначений "
);
Запрос.УстановитьПараметр("СписокЗначений",ЕкспортерФорм+"%");
Разобрался.
После замены символа конца строки (.) Worda на "" с помощью СтрЗаменить(Експортер,Хрень, "");
фунция СтрДлина в строке "х" показала 2 символа,
воспользовался СокрЛП, показало 1 символ и всё заработало
Всем СПАСИБО!!!
Експортер=СокрЛП(Документ.Tables.Item(1).Cell(1,2).Range.Text);
Хрень=Прав(Експортер, 1);
ЕкспортерФорм=СтрЗаменить(Експортер,Хрень, "");
КолСимволов=СтрДлина(Екс);
ЕкспортерФорм2=СокрЛП(ЕкспортерФорм);
Запрос=Новый Запрос(
"ВЫБРАТЬ
| Контрагенты.Ссылка,
| Контрагенты.КодПоЕДРПОУ,
| Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК Контрагент
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| ВЫРАЗИТЬ(Контрагенты.ОсновноеЮрФизЛицо.НаименованиеПолноеАнгл КАК СТРОКА(200)) = &СписокЗначений ");
Запрос.УстановитьПараметр("СписокЗначений",ЕкспортерФорм2);
РезультатЗапроса=Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить(Выборка.Контрагент);
КонецЦикла;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua