Поиск значений в табличной части

Форум Программирование Общие вопросы программирования (Dev)

1. Farhat95 21.02.23 18:03 Сейчас в теме

Результат=ЭлементыФормы.ПоискПоШтрих.Значение;
	
	
	                
	Если Не ПустаяСтрока(Результат) Тогда
			ТЗ = Товары.ВыгрузитьКолонку("Штрихкод");
			Штрих = ТЗ.Найти(Результат);
		      
		Если Не Штрих = Неопределено Тогда
			РежимД = РежимДиалогаВопрос.ДаНет;
			Ответ = Вопрос("Метраж совпадает?", РежимД, 0);
			Если Ответ = КодВозвратаДиалога.Да Тогда
				
			ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
				Возврат;
			КонецЕсли;
		КонецЕсли;

Показать

Подскажите уважаемые, надо найти значение введенное в --- Результат=ЭлементыФормы.ПоискПоШтрих.Значение;
в таблице Товары.

По теме из базы знаний

Найденные решения

10. Farhat95 27.02.23 12:34 Сейчас в теме

Если кому надо будет, вопрос решил следующим кодом.

ОчиститьДанныеВвода();
	
	Результат = ЭлементыФормы.ПоискПоШтрих.Значение;
	ОчиститьДанныеВвода();
	
	Если Не ПустаяСтрока(Результат) Тогда
		
		Отбор = Новый Структура;
		Отбор.Вставить("Штрихкод", Результат);
		
		СтрокаТабЧасти = ОбработкаТабличныхЧастей.НайтиСтрокуТабЧасти(Товары, Отбор);
		мСтрокаТабЧасти = СтрокаТабЧасти;
		Если СтрокаТабЧасти <> Неопределено Тогда
			
			РежимД = РежимДиалогаВопрос.ДаНет;
			Ответ = Вопрос("Штрих: "+СтрокаТабЧасти.Штрихкод+" Метраж: "+СтрокаТабЧасти.Метраж, РежимД, 0);
			Если Ответ = КодВозвратаДиалога.Да Тогда
				СтрокаТабЧасти.Проверка = Истина;
				
			ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
				Возврат;
			КонецЕсли;
		Иначе 
			Сообщить("Штрихкод не найден в документе!!!");
		КонецЕсли;
		
	КонецЕсли;

Показать

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Farhat95 21.02.23 18:04 Сейчас в теме

Этот код не делает поиск (

3. пользователь 21.02.23 19:24

Сообщение было скрыто модератором.

...

4. nikolasx 59 21.02.23 21:19 Сейчас в теме

А так не пробовали?

НайденыеСтроки = Товары.НайтиСтроки(Новый Структура("Штрихкод", Результат));
Если НайденыеСтроки.Количество() <> 0 Тогда
Сообщить("Строка найдена"); 
КонецЕсли;

6. Farhat95 22.02.23 09:36 Сейчас в теме

(4)Строка не найдена пишет.

9. Farhat95 22.02.23 12:36 Сейчас в теме

(4) А можно как то поменять цвет фона найденной строки?

5. Farhat95 22.02.23 09:30 Сейчас в теме

(4) Сейчас попробую.

7. Farhat95 22.02.23 09:37 Сейчас в теме

НайденыеСтроки = Товары.НайтиСтроки(Новый Структура("Штрихкод", Результат));
Если НайденыеСтроки.Количество() <> 0 Тогда
Сообщить("Строка найдена"); 
Иначе
Сообщить("Строка не найдена");
КонецЕсли;

8. Farhat95 22.02.23 10:19 Сейчас в теме

Все разобрался! Текст не правильно отображался

10. Farhat95 27.02.23 12:34 Сейчас в теме

Если кому надо будет, вопрос решил следующим кодом.

ОчиститьДанныеВвода();
	
	Результат = ЭлементыФормы.ПоискПоШтрих.Значение;
	ОчиститьДанныеВвода();
	
	Если Не ПустаяСтрока(Результат) Тогда
		
		Отбор = Новый Структура;
		Отбор.Вставить("Штрихкод", Результат);
		
		СтрокаТабЧасти = ОбработкаТабличныхЧастей.НайтиСтрокуТабЧасти(Товары, Отбор);
		мСтрокаТабЧасти = СтрокаТабЧасти;
		Если СтрокаТабЧасти <> Неопределено Тогда
			
			РежимД = РежимДиалогаВопрос.ДаНет;
			Ответ = Вопрос("Штрих: "+СтрокаТабЧасти.Штрихкод+" Метраж: "+СтрокаТабЧасти.Метраж, РежимД, 0);
			Если Ответ = КодВозвратаДиалога.Да Тогда
				СтрокаТабЧасти.Проверка = Истина;
				
			ИначеЕсли Ответ = КодВозвратаДиалога.Нет Тогда
				Возврат;
			КонецЕсли;
		Иначе 
			Сообщить("Штрихкод не найден в документе!!!");
		КонецЕсли;
		
	КонецЕсли;

Показать

Оставьте свое сообщение

E-mail: