v7: Запись в реквизит табличной формы документа

Приветствую,не понимаю как я могу записать значение переменной в реквизит табличной части
есть реквизит табличной части который я создал назвал КодМаркировки, есть переменная Штрихкодвр которая принимает значения со сканера, необходимо содержимое Штрихкодвр записать в реквизит табличной части КодМаркировки


Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
    // Процедура разбирает штрих-код, считанный сканером
    // и заполняет строки накладной
    Перем Упаковка,ТекКоличество, Спецификация;
    Перем ВремТовар, ВремЕдиница, ВремКоличество, ВремЦена;
    
    Перем СтрокаВозврЦена;
    
    Если Событие = "BarCodeValue" Тогда
        Если Форма.ТолькоПросмотр() = 0 Тогда
            Если ПустоеЗначение(БанкНом)=1 тогда
                Если ПустоеЗначение(Итог("СкидкаСпасибо"))=1 тогда
                    //---добавленные строки---{
                    Штрихкодвр = СокрЛП(Данные);
                    ПрефиксШтрихкода = глПрефиксШтрихкода();
                    Если ПустоеЗначение(ПрефиксШтрихкода) = 0 Тогда
                        Если Найти(ПрефиксШтрихкода, Лев(Штрихкодвр, 1)) <> 0 Тогда
                            // Удаляем спец. символ из штрих-кода
                            Штрихкодвр = Сред(Штрихкодвр, 2);
                        Иначе
                            Сообщить("Формат считанного штрих-кода не предназначен для товаров");
                            глСканерПосылкаДанных(1);
                            АктивизироватьПослеВвода();
                            Возврат;
                        КонецЕсли;
                    КонецЕсли;
                    
                    Если Лев(Штрихкодвр,2) = "28" Тогда
                        Спр=СоздатьОбъект("Справочник.КартыЛояльности");
                        Если Спр.НайтиПоКоду(Сред(Штрихкодвр,3,10),0)=1 Тогда
                            КартаЛояльности=Спр.ТекущийЭлемент();
                            ПриИзмКартыЛояльности();
                        Иначе
                            Сообщить("Неверный номер карты лояльности.");
                        КонецЕсли;
                        глСканерПосылкаДанных(1);
                        АктивизироватьПослеВвода();
                        Возврат;
                    КонецЕсли;
                    Если (Лев(Штрихкодвр,8) = "21928100") и (Штрихкодвр <> "2192810000023") и (Штрихкодвр <> "2192810000025") Тогда
                        Спр=СоздатьОбъект("Справочник.Скидки");
                        Если Спр.НайтиПоКоду("ГЛ005",0)=1 Тогда
                            Скидка=Спр.ТекущийЭлемент();
                            КартаЛояльности="";
                            ПриИзмененииСкидки();
                        КонецЕсли;
                        глСканерПосылкаДанных(1);
                        АктивизироватьПослеВвода();
                        Возврат;
                    КонецЕсли;
                    Если Штрихкодвр = "2192810000023" Тогда
                        Спр=СоздатьОбъект("Справочник.Скидки");
                        Если Спр.НайтиПоКоду("ГЛ004",0)=1 Тогда
                            Скидка=Спр.ТекущийЭлемент();
                            КартаЛояльности="";
                            ПриИзмененииСкидки();
                        КонецЕсли;
                        глСканерПосылкаДанных(1);
                        АктивизироватьПослеВвода();
                        Возврат;
                    КонецЕсли;
                    
                    
                    Если Штрихкодвр = "2192810000025" Тогда
                        Спр=СоздатьОбъект("Справочник.Скидки");
                        Если Спр.НайтиПоКоду("ГЛ006",0)=1 Тогда
                            Скидка=Спр.ТекущийЭлемент();
                            КартаЛояльности="";
                            ПриИзмененииСкидки();
                        КонецЕсли;
                        глСканерПосылкаДанных(1);
                        АктивизироватьПослеВвода();
                        Возврат;
                    КонецЕсли;
                    
                    //---конец доб. строк-----}
                    Если ПустоеЗначение(Номенклатура) = 1 Тогда
                        Если НомерСтроки > 0 Тогда
                            УдалитьСтроку();    
                        КонецЕсли;
                    КонецЕсли;
                    
                    Если глПолучитьТоварПоШтрихкоду(Данные, ВремТовар, ВремЕдиница, ВремКоличество) <> 0 Тогда
                        //--добавленные строки---{
                        НомС=глЭтоСертификат(ВремТовар);
                        Если НомС>0 Тогда
                            РегСерт = Регистр.ПодарочныеСертификаты;
                            Акт=РегСерт.Остаток(ВремТовар,"Количество");
                            Если Акт>1 Тогда
                                глСканерПосылкаДанных(1);
                                Предупреждение("Сертификат активирован в нескольких магазинах, требуется проверка, операция прервана!",60);
                                АктивизироватьПослеВвода();
                                Возврат;
                            ИначеЕсли Акт<0 Тогда
                                глСканерПосылкаДанных(1);
                                Предупреждение("Сертификат был предъявлен в нескольких магазинах, требуется проверка, операция прервана!",60);
                                АктивизироватьПослеВвода();
                                Возврат;
                            ИначеЕсли Акт=1 Тогда
                                Ост=Регистр.ОстаткиТМЦ.СводныйОстаток(ВремТовар,Склад,,"Количество");
                                Если Ост>0 Тогда
                                    глСканерПосылкаДанных(1);
                                    Предупреждение("Сертификат есть на остатках, но при этом активирован, требуется проверка, операция прервана!",60);
                                    АктивизироватьПослеВвода();
                                    Возврат;
                                ИначеЕсли Ост<0 Тогда
                                    глСканерПосылкаДанных(1);
                                    Предупреждение("Отрицательный остаток на магазине и числится активированным, требуется проверка, операция прервана!",60);
                                    АктивизироватьПослеВвода();
                                    Возврат;
                                КонецЕсли;
                                ВыбратьСтроки();
                                Пока ПолучитьСтроку()=1 Цикл
                                    Если Номенклатура=ВремТовар Тогда
                                        Если Количество>=0 Тогда
                                            глСканерПосылкаДанных(1);
                                            Предупреждение("Сертификат выбран для продажи, но он активирован, требуется проверка, операция прервана!",60);
                                            АктивизироватьПослеВвода();
                                            Возврат;
                                        КонецЕсли;
                                        глСканерПосылкаДанных(1);
                                        Предупреждение("Сертификат уже добавлен в качестве оплаты.",60);
                                        АктивизироватьПослеВвода();
                                        Возврат;
                                    КонецЕсли;
                                КонецЦикла;
                                НоваяСтрока();
                                Номенклатура=ВремТовар;
                                ШтрихКод=Данные;
                                Количество=-1;
                                СертНом=СертНом+?(СокрП(СертНом)="","",",")+глНомерСертификата(ВремТовар);
                                ПриИзмСерт();
                                СертСум=СертСум+НомС;
                                глСканерПосылкаДанных(1);
                                АктивизироватьПослеВвода();
                                Возврат;
                            Иначе
                                ВыбратьСтроки();
                                Пока ПолучитьСтроку()=1 Цикл
                                    Если Номенклатура=ВремТовар Тогда
                                        Если Количество<0 Тогда
                                            глСканерПосылкаДанных(1);
                                            Предупреждение("Сертификат выбран как оплата, но при этом неактивен, требуется проверка, операция прервана!",60);
                                            АктивизироватьПослеВвода();
                                            Возврат;
                                        КонецЕсли;
                                        глСканерПосылкаДанных(1);
                                        Предупреждение("Сертификат уже добавлен к продаже.",60);
                                        АктивизироватьПослеВвода();
                                        Возврат;
                                    КонецЕсли;
                                КонецЦикла;
                            КонецЕсли;
                        КонецЕсли;
                        //--конец доб. строк-----}
        
                        ТаблицаПодбора = СоздатьОбъект("ТаблицаЗначений");
                        ТаблицаПодбора.НоваяКолонка("Номенклатура");
                        ТаблицаПодбора.НоваяКолонка("Единица");
                        ТаблицаПодбора.НоваяКолонка("Количество", "Число");
                        ТаблицаПодбора.НоваяКолонка("Цена", "Число");
                        
                        ТаблицаПодбора.НоваяСтрока();
                        ТаблицаПодбора.Номенклатура = ВремТовар;
                        ТаблицаПодбора.Единица      = ВремЕдиница;
                        ТаблицаПодбора.Количество   = ВремКоличество;
                        
                        ПараметрыПодбора = СоздатьОбъект("СписокЗначений");
                        ПараметрыПодбора.ДобавитьЗначение(0, "ЕстьВидТМЦ");
                        
                        Если (ВремТовар.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Услуга)
                        или (ВремТовар.ВидНоменклатуры = Перечисление.ВидыНоменклатуры.Работа) Тогда
                            
                            ТаблицаПодбора.Цена    = глПолучитьЦену(ВремТовар,  Константа.РозничныйТипЦен, ДатаДок, ВремЕдиница, Валюта, Курс, Кратность);
                            
                            ПараметрыПодбора.ДобавитьЗначение("ИзСправочника"          , "ЦенаВподборе");
                            ПараметрыПодбора.ДобавитьЗначение(Константа.РозничныйТипЦен, "ТипЦен");
                            
                            
                        ИначеЕсли Склад.РозничныйСклад = 0 Тогда
                            
                            ТаблицаПодбора.Цена    = глПолучитьЦену(ВремТовар, глЗначениеПоУмолчанию("ОсновнойТипЦенПродажи"), ДатаДок, ВремЕдиница, Валюта, Курс, Кратность);
                            
                            ПараметрыПодбора.ДобавитьЗначение("ИзСправочника", "ЦенаВподборе");
                            ПараметрыПодбора.ДобавитьЗначение(глЗначениеПоУмолчанию("ОсновнойТипЦенПродажи"), "ТипЦен");
                            
                        Иначе    // цена из остатков регистра
                            ТовОстатки = СоздатьОбъект("Регистр.ОстаткиТМЦ");
                            ФирмаДляОстатковТМЦ = глФирмаДляОстатковТМЦ(Фирма);
                            //ТовОстатки.УстановитьЗначениеФильтра("Фирма", ФирмаДляОстатковТМЦ, 2);
                            ТовОстатки.УстановитьЗначениеФильтра("Склад", Склад, 1);
                            
                            глПолучитьРозничныйОстатокЦену(ВремТовар, ВремЕдиница, ТовОстатки, , СтрокаВозврЦена);
                            
                            СписВозврЦен = ЗначениеИзстроки(СтрокаВозврЦена);
                            Если СписВозврЦен.РазмерСписка() = 1 Тогда
                                ТаблицаПодбора.Цена  = глПересчет(СписВозврЦен.ПолучитьЗначение(1), глРубли, ДатаДок, Валюта, Курс,, Кратность);
                                
                            ИначеЕсли СписВозврЦен.РазмерСписка() > 1 Тогда
                                
                                Если СписВозврЦен.ВыбратьЗначение(ВремЦена,"Выберите цену для товара " + ВремТовар.Наименование, , 60) = 1 Тогда
                                    ТаблицаПодбора.Цена  = глПересчет(ВремЦена, глРубли, ДатаДок, Валюта, Курс,, Кратность);
                                Иначе    
                                    ТаблицаПодбора.Цена  = 0;
                                КонецЕсли;
                            Иначе
                                ТаблицаПодбора.Цена  = 0;
                            КонецЕсли;
                            
                            ПараметрыПодбора.ДобавитьЗначение("Розница", "ЦенаВподборе");
                        КонецЕсли;
                        
                        ПараметрыПодбора.ДобавитьЗначение(ТаблицаПодбора , "ТаблицаПодбора");
                        
                        глОбработкаПодбора(Контекст, ПараметрыПодбора, 0, 0, 1);
                        
                        ВыбратьСтроки();
                        Пока ПолучитьСтроку() = 1 Цикл
                            ШтрихКод = Единица.ШтрихКод; // прописываем штрих - код
                        КонецЦикла;
                        
                        //---добавленные строки---{
                        //СпецПересчетСкидок();
                        ПересчитатьСкидки();
                        //---конец доб. строк-----}
                    КонецЕсли;
                КонецЕсли;
            иначе
                глСканерПосылкаДанных(1);
                Возврат;
            КонецЕсли;
        КонецЕсли;

        Если ПустоеЗначение(Итог("СкидкаСпасибо"))=1 тогда
            глСканерПосылкаДанных(1);
            АктивизироватьПослеВвода();
        иначе
            глСканерПосылкаДанных(1);
            Возврат;    
        КонецЕсли;        
        
        Если ПустоеЗначение(БанкНом)=1 тогда
            глСканерПосылкаДанных(1);
            АктивизироватьПослеВвода();
        иначе
            глСканерПосылкаДанных(1);
            Возврат;    
        КонецЕсли;
// Обработка закончена. Готовы к получению нового штрихкода.        
    Иначе
        глОбработкаВнешнегоСобытия(Источник, Событие, Данные);    
    КонецЕсли;
    глСканерПосылкаДанных(1);
КонецПроцедуры // ОбработкаВнешнегоСобытия()

код для наглядности,подскажите как мне к нему обратится чтоб записать ибо простое КодМаркировки = ТаблицаДокумента.КодМаркировки КодМаркировки = Штрихкодвр не работает)

(1) Брат я знал что ты будешь ругаться))

(1) Хотяб намекни в какую часть кода смотреть, просто создается куча таблиц которые передаются куда то голова уже пухнет

(4) Правый,последний,я понял про что ты,щас попробую

(8) В новосозданный реквизит КодМаркировки

(7) Он нигде не записывается, но пытался подставить его вот сюда

НоваяСтрока();
Номенклатура=ВремТовар;
ШтрихКод=Данные;

Количество=-1;
!-!

(10) Почему 10,когда реквизитов более

(6) Это то что я увидел как делалось, я предположил что присвоил переменной значение реквизита, чтоб потом туда записать штрихкодвр

(14) КодМаркировки строка 90 симв
А найден шк еан13, а в штрихкодвр еще будет записываться datamatrix код,и вот этот код должен будет заносится в КодМаркировки

(14) логика в чем, кассир пикнул обычный еан13 шк, затем пикнула маркировку datamatrix и текст расшифрованный сканером записался в КодМаркировки

(17) Привел в первозданный вид,ибо куда я только не вставлял этот кодмаркировки

(19) Я думал это сделать через условие типо, если штрихкодвр = текст то записывать в код маркировки,иначе это обычный шк

(20) Я хочу узнать куда мне его следует вставлять

(23) Его надо заполнить именно после пика

(23) вдруг второй строки в чеке не будет (чек на 1 позицию)

(25) признак хранится в товаре, тот товар что маркируемый он видит,и далее с ним ничего не делает

(27) красавчик)))

(33) Когда происходит пик,первая строка уже есть

(36) Помогли)

(39) Буду пробывать,спасибо за суету брат)

(39) Брат,а зачем так делать

(42) (39) Я только щас врубился,что это заморочка

(41) Я пикаю обычный шк еан13,он находит позицию в номенклатуре согласно данного шк проверяет на наличие маркера,если есть нужно его пикнуть еще раз,но в это время позиция из номенклатуры уже в табл части

(39) У меня же переменная принимает значение со сканера,мне его просто нужно записать туда

(46) хорошо,твой вариант?

(47) Да все верно,но запускать внешнюю форму не удобно со стороны кассира

(50) Она откроется (фоном выполнит и закроется?) глаз кассира ничего не увидит?

(51) Мой вариант плохой вариант,действительно затупит пикнет тот же шк,или не пикнет совсем

(54) нет,кроме кассира нет сторон)

(39) Брат не совсем понял про глобальник, он у меня проверяет на наличие маркера,если он есть что мне делать,и если его нет то же что

(63) У меня в номенклатуре есть реквизит маркер, у каждого товара он либо 1 либо 0, если 1 значит маркер есть и будет,но при этом позиции в кассовый чек забивают по еан13

(63) Тоесть я кассир, пикнул еан 13 в документе чекиккм вышла позиция на табл часть,сказало мне пикнуть маркировку если она есть

(67) (61) Поцаны короче,никаких проверок не надо, просто скажите как мне вставить текст в тот реквизит,где в коде я должен поставить свой код,я не могу разобраться в чужом коде,а дальше я сам