Форум Программирование Общие вопросы программирования (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 57 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:

Вакансии

1С-Программист (интегратор Битрикс24)
Санкт-Петербург
зарплата от 150 000 руб. до 250 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 100 000 руб.
Временный (на проект)

Разработчик 1С
Москва
зарплата от 150 000 руб.
Полный день

Программист
Санкт-Петербург
зарплата от 180 000 руб. до 240 000 руб.
Полный день

Разработчик 1С
Москва
зарплата от 150 000 руб. до 250 000 руб.
Полный день