Есть обработка для работы со сканером ШК.
При сканирование ШК, данные ШК попадают в ТЧ, внешней обработки.

Есть проблема, в том что нужно искать дубли по ШК (вдруг отсканировали 2 раза 1 и тот же ШК)

Не могу понять как это реализовать, и как зациклить проверку при каждом новом сканировании. Поиск нужен именно по полю ШК.

Процедура КнопкаВыполнитьНажатие(Кнопка)
Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
    Если Не ПустаяСтрока(Результат) Тогда  ШК = Результат;
    КонецЕсли;    
//Разбор ШК    
КодНоменклатура = Сред(ШК,10,7);
Количество =  Число(Сред(ШК,21,6));
ДатаВырГод = Сред(ШК,29,2);
ДатаВырМесяц = Сред(ШК,31,2);
ДатаВырДень = Сред(ШК,33,2);
ДатаВыработки = Формат(ДатаВырДень+ "." +ДатаВырМесяц+ "." + ДатаВырГод,"ДФ=ддММгг");
//Сообщить("Штрих-код номенклатуры: " + КодНоменклатура + " Вес: " + Количество*0.001 + " кг. Дата производства: " + ДатаВыработки);
ЭлементыФормы.НоменклатураДляВСД.ДобавитьСтроку();
ЭлементыФормы.НоменклатураДляВСД.ТекущаяСтрока.КодТовара = КодНоменклатура;
ОбъектShell = Новый COMОбъект("Wscript.Shell");
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys("{F4}");
    ОбъектShell.SendKeys("{F7}");
    ОбъектShell.SendKeys(КодНоменклатура);
    ОбъектShell.SendKeys("{ENTER}");
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys(Количество*0.001);
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys("КГ");
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys(ДатаВыработки);
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys(ШК);
    ОбъектShell.SendKeys("{TAB}");
    ОбъектShell.SendKeys("{ESC}");
//Разобрали ШК на код товара,Вес,Дату.    
КонецПроцедуры

https://www.meme-arsenal.com/memes/d8b610212cc1e6c4b2cbb69b61b5e205.jpg

Метод "Найти"?

(1) Это было очень срочно :)

(3) А что, просто в ТЧ строку добавить и в эту строку писать - намного дольше получилось бы?

(4) Возможно, но очень нужно чтобы в колонку куда записывается полностью ШК, не было возможности задублировать.
Как это сделать?

оптимизировать можно, когда не горит одно место.

(5) У ТЧ есть метод Найти() или НайтиСтроки()
В чём проблема найти что-то?

(6) ваше место похоже у многих не горит за наличием отсутствия оного)

(0) первый раз вижу чтобы так ТЧ заполняли программно) А может все таки:
Если Объект.НоменклатураДляВСД.НайтиСтроки(ТвояСтруктураПараметров).Количество()=0 Тогда
НовСтрока=Объект.НоменклатураДляВСД.Добавить();
ЗаполнитьЗначениеСвойств(НовсТрока,ТвояСтруктураПараметров);
КонецЕсли;
Да нуу лучше так ОбъектShell = Новый COMОбъект("Wscript.Shell"); и поехали)

(9) Может быть)

(9) Через вшелл быстрее, чем Добавить() ...

(11) Процедура КнопкаВыполнитьНажатие(Кнопка)
Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
    Если Не ПустаяСтрока(Результат) Тогда  ШК = Результат;
    КонецЕсли;    
//Разбор ШК    
КодНоменклатура = Сред(ШК,10,7);
Количество =  Число(Сред(ШК,21,6));
ДатаВырГод = Сред(ШК,29,2);
ДатаВырМесяц = Сред(ШК,31,2);
ДатаВырДень = Сред(ШК,33,2);
КодШК = ШК;
ДатаВыработки = Дата(Формат(ДатаВырДень+ "." +ДатаВырМесяц+ "." + ДатаВырГод,"ДФ=ддММгг"));
Сообщить("Штрих-код номенклатуры: " + КодНоменклатура + " Вес: " + Количество*0.001 + " кг. Дата производства: " + ДатаВыработки);
ЭлементыФормы.НоменклатураДляВСД.ДобавитьСтроку();
ЭлементыФормы.НоменклатураДляВСД.ТекущаяСтрока.КодТовара = КодНоменклатура;
ЭлементыФормы.НоменклатураДляВСД.ТекущаяСтрока.ШК = КодШК;  // 0100000002502384310300900011210219
ЭлементыФормы.НоменклатураДляВСД.ТекущаяСтрока.Вес = Количество*0.001;
ЭлементыФормы.НоменклатураДляВСД.ТекущаяСтрока.ДатаВыработки = ДатаВыработки;
КонецПроцедуры


не заполняет дату выработки , и не знаю как найти по коду весового товара номенклатуру, и вставить ее в поле номенклатура...

help me please....

Отладчиком пользоваться умеешь? Что там в ДатаВыработки?
ДатаВыработки = Дата(Формат(ДатаВырДень+ "." +ДатаВырМесяц+ "." + ДатаВырГод,"ДФ=ддММгг")); - сдается мне что уже тут проблемы, потому что чушь какая-то, зачем-то формат.
Надо сделать вот так: ДатаВыработки = Дата("" + ДатаВырГод + ДатаВырМесяц + ДатаВырДень);

+(13) и год должен быть 4 знака.

+(14) в Дата() должно получиться что-то типа Дата("20210305")

(15) Данные содержаться в штрих-коде, и там именно 210219 что означает 19.02.21
Вот её и нужно вытащить

(16) И че? Ты к году не можешь добавить впереди 20? Палка внизу большая а 1С совсем не того? За тебя еще и весь код писать? Ты элементарных вещей не знаешь.
Вот так должно быть:
ДатаВыработки = Дата("20" + ДатаВырГод + ДатаВырМесяц + ДатаВырДень);

И, блять, пройдись отладчиком, за тебя тут код писать не будут.

(17) Затупил , сорри

(18) ХуИбЕр, епта.

ДатаВыработки = Дата("20"+Сред(ШК,29,6);

(12)
ЭлементыФормы.НоменклатураДляВСД.ДобавитьСтроку(); //так писать не надо.
Нужно просто обращаться к реквизитам, а не к элементам формы