Добрый день, помогите, пожалуйста, разобраться
не заполняется табличная часть документа поступления



Процедура Инициализировать(ПереданныйОбъект, ИмяТЧ, ТабличноеПоле)Экспорт

СсылкаНаОбъект = ПереданныйОбъект.Ссылка;
//сообщить(ПереданныйОбъект + ИмяТЧ);
ИмяТаблЧасти = ИмяТЧ;
ТаблЧасть = ТабличноеПоле.Значение;    
Если ТаблЧасть.Количество()>0 Тогда
Ответ = Вопрос("Очистить табличную часть?", РежимДиалогаВопрос.ДаНет);
   Если Ответ = КодВозвратаДиалога.Да Тогда
       ТаблЧасть.Очистить();
   КонецЕсли;
КонецЕсли;
адресФайла = "C:\tov.txt";
файл = Новый ТекстовыйДокумент;
файл.Прочитать(адресФайла);
   
Для сч=1 По файл.КоличествоСтрок() Цикл    
   стр = файл.ПолучитьСтроку(сч);

новЗапрос=Новый Запрос;
новЗапрос.Текст=
"ВЫБРАТЬ ПЕРВЫЕ 1
| Штрихкоды.Владелец КАК Владелец,
| Штрихкоды.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
| Штрихкоды.Штрихкод КАК Штрихкод
| ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
| ГДЕ
| Штрихкоды.Штрихкод=&стр";
           
           
новЗапрос.УстановитьПараметр("стр",стр);
РезультатЗапроса = новЗапрос.Выполнить();
Если Не РезультатЗапроса.Пустой() Тогда
 Сообщить("не пустой");
 Выборка = РезультатЗапроса.Выгрузить();
 Для каждого ТекСтрока из Выборка цикл
       ПолучВладелец = ТекСтрока.Владелец;
       Сообщить(ПолучВладелец);
 КонецЦикла;
КонецЕсли;
Если НЕ ПустаяСтрока(ПолучВладелец)  тогда
               
Попытка ном =  Справочники.Номенклатура.НайтиПоНаименованию(ПолучВладелец);
Исключение
Попытка ном = Справочники.Номенклатура.НайтиПоРеквизиту( "НаименованиеПолное", ПолучВладелец) ;
                           
Исключение
 Сообщить("   !!!   ошибка, не найден товар с штрихкод = "+стр);        
КонецПопытки;
КонецПопытки;
КонецЕсли;
товарыСтрока= ТаблЧасть.Добавить();  
 Если НЕ ПустаяСтрока(ном)  тогда
   //сообщить("Тест "+ном.Наименование);
   товарыСтрока.Номенклатура=ном.Наименование; //здесь ошибка говорит не найдено поле объекта Номенклатура
   товарыСтрока.Количество = ном.Количество;            
   //товарыСтрока.Наименование=ном.Наименование;
   //товарыСтрока.ЕдиницаИзмерения=ном.ЕдиницаИзмерения;
   //товарыСтрока.Характеристика=ном.Артикул;
   //товарыСтрока.Коэффициент=ном.Коэффициент;
   //товарыСтрока.Качество = ном.Качество;

 КонецЕсли;
КонецЦикла;

>говорит не найдено поле объекта Номенклатура
думаешь, мы его найдём?

и почему берётся любой один владелец из выборки?

ИмяТаблЧасти = ИмяТЧ;
ТаблЧасть = ТабличноеПоле.Значение;

двойка

(2) первые 1. не из выборки, а из регистра

попытка
исключение
попытка
исключение
конецпопытки
конецпопытки
Жесть какая..

ном.Наименование

ты в курсе, чем "холлов82" отличается от тебя?

(5)
подстрахуй не подстрахуй
все равно получишь ...двойка

вроде не пятница, но код доставляет )))

на первый взгляд всё. если что-то упустил, остальные дозакидают ;) исправляй и возвращайся.

Ну блин весело
Скажу сразу, многое копипаста, так как делаю что либо в 1С первый раз

ИмяТаблЧасти = ИмяТЧ;
ТаблЧасть = ТабличноеПоле.Значение;

двойка

ну я понял что двойка, здесь вопросы новичкам задавать запрещается?

(10) нет. перед тем, как задать вопрос, придумай ответ:
1 строка: зачем?
2 строка: обращайся к данным, а не к тому, что ты видишь на форме

Если бы я понимал, что Вы имеете ввиду...
ИмяТаблЧасти = ИмяТЧ; - осталось от подобной обработки заполнения табл.части
я тоже заметил, что негде не используется... смешно, наверное
ТабличноеПоле не понимаю что такое, и зачем берется его значение, не знаю
понимаю только что передается при инициализации это обработки
И принимает значение
ДокументТабличнаяЧасть.ПоступлениеТоваровУслуг.Товары

(12) не тащи с формы, говори сразу ТвойДокумент.ТЧ

(12) Он имеет в виду, что логичнее было бы

ТаблЧасть=ПереданныйОбъект[ИмяТЧ];

вместо
ИмяТаблЧасти = ИмяТЧ;
ТаблЧасть = ТабличноеПоле.Значение;

Это понял.
Теперь ошибок нету, но табл. часть не заполняет

(15) в 18й строке ошибка

Считая пустые строки или нет
Тоесь В запросе или при обращении к текстовому файлу?

(17) тебе намекают, что х его з после твоих исправлений. или ты сочувствия ждёшь на (15)?

Ясно

(0) Код, конечно, замечательный.
ТС, ты, как я понимаю, имеешь текстовый файл со списком штрихкодов?
Ты в запросе ищешь владельца штрихкода и, наверно, находишь (и это уже ссылка на элемент справочника Номенклатура). Тогда за каким таким ты после этого пытаешься найти в справочнике Номенклатура элемент, у которого наименование равно ссылке на элемент справочника Номенклатура? Если даже предположить, что эта дикая затея удалась, то реквизит Количество в табличную часть документа записывается из одноименного реквизита найденной номенклатуры?

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

   адресФайла = "C:\tov.txt";
       файл = Новый ТекстовыйДокумент;
       файл.Прочитать(адресФайла);
   
       Для сч=1 По файл.КоличествоСтрок() Цикл    
           стр = файл.ПолучитьСтроку(сч);
                   
           
           новЗапрос=Новый Запрос;
           новЗапрос.Текст=
           "ВЫБРАТЬ ПЕРВЫЕ 1
           | Штрихкоды.Владелец КАК Владелец,
           | Штрихкоды.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
           | Штрихкоды.Штрихкод КАК Штрихкод
           | ИЗ
           | РегистрСведений.Штрихкоды КАК Штрихкоды
           | ГДЕ
           | Штрихкоды.Штрихкод=&стр";
           
           
           новЗапрос.УстановитьПараметр("стр",стр);
           //сообщить(новЗапрос.Текст);
           РезультатЗапроса = новЗапрос.Выполнить();
               //сСтрук = Новый Структура;
               
           Если Не РезультатЗапроса.Пустой() Тогда
               сообщить("не пустой");
               Выборка = РезультатЗапроса.Выгрузить();
               Для каждого ТекСтрока из Выборка цикл
                         
                         ПолучВладелец = ТекСтрока.Владелец;
                         Сообщить(ПолучВладелец);
                         
               КонецЦикла;
           КонецЕсли;
           //сообщить("пустой");
                       
           Если НЕ ПустаяСтрока(ПолучВладелец)  тогда
               
               Попытка ном =  Справочники.Номенклатура.НайтиПоНаименованию(ПолучВладелец);
                   сообщить("11");
                    Исключение
                        Попытка ном = Справочники.Номенклатура.НайтиПоРеквизиту( "НаименованиеПолное", ПолучВладелец) ;
                           
                           Исключение
                               Сообщить("   !!!   ошибка, не найден товар с штрихкод = "+стр);        
                       КонецПопытки;
               КонецПопытки;
           КонецЕсли;
           //
           //
           ////    
           товарыСтрока= ТаблЧасть.Добавить();
           сообщить(ТаблЧасть);  
           Если НЕ ПустаяСтрока(ном)  тогда
               ЗаполнитьЗначенияСвойств(товарыСтрока,ном);
               товарыСтрока.Номенклатура=ном.наименование;
               //товарыСтрока.Количество = ном.Количество;            
               //товарыСтрока.Номенклатура=ном.Наименование;
               //

               //            товарыСтрока.Номенклатура=ном.ЕдиницаИзмерения;
               //товарыСтрока.Характеристика=ном.Артикул;
               //товарыСтрока.Коэффициент=ном.Коэффициент;
               //товарыСтрока.Качество = ном.Качество;

           КонецЕсли;
   КонецЦикла;

(20) Я думаю, количество у него тоже в текстовом файле

(21) > товарыСтрока.Номенклатура=ном.наименование;
повторяю вопрос: в чём разница между "холлов82" и тобой?

Что-то типа импорта с ТСД ваяет

Да именно эту чешь я и делаю.
Потому что тсд под терминал работает плохо.

Я не понимаю намека, в чем разница
hollow82 -ник
я человек, на это намекаешь?

(25) ага. пытаешься на место номенклатуры засунуть строку

(25) Он именно на это намекает.
и (20) в первом предложении

В третьем*

Пардон с самого начала я не понял этого

Значит строку как то преобразовать надо?

(29) Я бы предложил с прояснения, откуда ты собирался количество брать и формата файла

(30) "предложил начать"

(20) Да, я конечно и не ожидал, что с первого раза получится что то осмсленное

"вопросы новичкам задавать запрещается"
Вопросы не запрещается. У тебя же кривая попытка решения задачи, без описания ее (задачи). Поэтому энтузиазма у отвечающих и нема

до количества дело и не дошло пока, оно будет в дальнейшем из текстовика
тоже выбираться.
с этим думаю разберусь.
мне бы хотябы вставить в таблицу номенклатуру

(34) Повторяю намек. Ты запросом по штрихкоду Уже.Нашел.Номенклатуру.

пардон, я собирался все описать в сообщении после кода но опешил слегка от ответов
Задача как описала шапокляк.
из текстовика взять штрихкоды и по ним заполнить табличнуючасть скажем в документе поступления
Я понял, что лишнее сделал.
но в результате же получил ном...

(0) нельзя ссылке присвоить наименование (текст).
ссылка уже найдена запросом. ее и вставляй. Количество берется не из номенклатуры, а из текстового файла.
Поиск по наименованию не вернет исключение.

(35) Как по ссылке получить объект?

(38) тут даже Капитан О бессилен

(38) только в ТЧ кладётся ссылка, а не объект

(38) А в вашей табличной часть объекты хранятся? Прикольно.

Я причесал твой код из (0).
Не факт, что он безошибочен (наверняка есть ошибки).
Но по кр мере, его можно исп как рыбу для задачи считывания товаров по шк, без количества


Процедура Инициализировать(ПереданныйОбъект, ИмяТЧ, ТабличноеПоле)Экспорт

ТаблЧасть=ПереданныйОбъект[ИмяТЧ];

Если ТаблЧасть.Количество()>0 Тогда
Ответ = Вопрос("Очистить табличную часть?", РежимДиалогаВопрос.ДаНет);
   Если Ответ = КодВозвратаДиалога.Да Тогда
       ТаблЧасть.Очистить();
   КонецЕсли;
КонецЕсли;

адресФайла = "C:\tov.txt";
файл = Новый ТекстовыйДокумент;
файл.Прочитать(адресФайла);
   
Для сч=1 По файл.КоличествоСтрок() Цикл    
   стр = файл.ПолучитьСтроку(сч);

новЗапрос=Новый Запрос;
новЗапрос.Текст=
"ВЫБРАТЬ ПЕРВЫЕ 1
|    Штрихкоды.Владелец КАК Владелец,
|    Штрихкоды.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
|    Штрихкоды.Штрихкод КАК Штрихкод
|ИЗ
|    РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
|    Штрихкоды.Штрихкод = &стр";
           
           
новЗапрос.УстановитьПараметр("стр",стр);
РезультатЗапроса = новЗапрос.Выполнить();

Если РезультатЗапроса.Пустой() Тогда
 Сообщить("Не найден штрихкод <"+стр+">");
 продолжить;
КонецЕсли;
 Выборка = РезультатЗапроса.Выгрузить();
 
 Если Выборка.Количество()>1 тогда
     Сообщить("Найдено более 1 владельца штрихкода <"+стр+">");
     Сообщить("Что делать, хз");
     Продолжить;
 КонецЕсли;
 Выборка.Следующий();
 
товарыСтрока= ТаблЧасть.Добавить();  
товарыСтрока.Номенклатура=Выборка.Владелец; //здесь ошибка говорит не найдено поле объекта Номенклатура
товарыСтрока.ХарактеристикаНоменклатуры=Выборка.ХарактеристикаНоменклатуры;
   //товарыСтрока.Количество = ном.Количество;    // ??
   
   //товарыСтрока.Наименование=ном.Наименование;
   //товарыСтрока.ЕдиницаИзмерения=ном.ЕдиницаИзмерения;
   //товарыСтрока.Характеристика=ном.Артикул;
   //товарыСтрока.Коэффициент=ном.Коэффициент;
   //товарыСтрока.Качество = ном.Качество;
   
КонецЦикла;




Все, хватит на сегодня добрых дел ( и так уже в top100 попал :D)

(42)"ВЫБРАТЬ ПЕРВЫЕ 1
Если Выборка.Количество()>1

Вот я получил эту ссылку запросом,
Далее получается нужно было заполнить табл часть прямо из выборки...?
Это меня один спец сбил...
Я структуру данных 1С не очень понимаю, трудно мозги перестроить немножко...
Спасибо за код посижу поразбирвюсь.

(44) (42) Убрать "первые 1"
да много там еще, я не вдумываясь правил

(46) ага. файл.Прочитать(адресФайла); без проверки, адрес статический...

просто так из выборки.владелец взять не получается.
я почему и сделал тогда
Для каждого ТекСтрока из Выборка цикл
                         
ПолучВладелец = ТекСтрока.Владелец;
                       
КонецЦикла;

Пробовал и так

Выборка["Владелец"]

тоже поле объекта не обнаруженно...

(48) Потому что у тебя Выгрузить() метод вместо Выбрать()  [я это тоже скопипастил]

p.s.
Еслиб сам делал, Шк читал бы в тз, потом номенклатуру вытаскивал одним запросом, без цикла.
Но это другая история.

Все, ушел домой

Спасибо. попробую разобраться

Вот так вроде в табличную часть вставляется характеристика и номенклатура
По поводу остальных параметров типа цена, ед. измерения, которых в этой выборке нет, как поступить?

ТаблЧасть=ПереданныйОбъект[ИмяТЧ];

Если ТаблЧасть.Количество()>0 Тогда
Ответ = Вопрос("Очистить табличную часть?", РежимДиалогаВопрос.ДаНет);
   Если Ответ = КодВозвратаДиалога.Да Тогда
       ТаблЧасть.Очистить();
   КонецЕсли;
КонецЕсли;

адресФайла = "C:\tov.txt";
файл = Новый ТекстовыйДокумент;
файл.Прочитать(адресФайла);
   
Для сч=1 По файл.КоличествоСтрок() Цикл    
   стр = файл.ПолучитьСтроку(сч);

новЗапрос=Новый Запрос;
новЗапрос.Текст=
"ВЫБРАТЬ
|    Штрихкоды.Владелец КАК Владелец,
|    Штрихкоды.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
|    Штрихкоды.Штрихкод КАК Штрихкод
|ИЗ
|    РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
|    Штрихкоды.Штрихкод = &стр";
           
           
новЗапрос.УстановитьПараметр("стр",стр);
РезультатЗапроса = новЗапрос.Выполнить();

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

  сообщить(Выборка.Владелец);

     
   товарыСтрока= ТаблЧасть.Добавить();  
   товарыСтрока.Номенклатура=Выборка.Владелец;
   товарыСтрока.ХарактеристикаНоменклатуры=Выборка.ХарактеристикаНоменклатуры;
       
 //Выборка.следующий();
 
   

   
   

   //товарыСтрока.ЕдиницаИзмерения=ном.ЕдиницаИзмерения;

   //товарыСтрока.Характеристика=ном.Артикул;

   //товарыСтрока.Коэффициент=ном.Коэффициент;

   //товарыСтрока.Качество = ном.Качество;

   
КонецЦикла;

(52) Стоит поглядеть, что происходит с колонками ТЧ при изменении номенклатуры - там ведь тоже заполняются единицы, цены и все такое.

там функциями какими то все заполняется

ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);

   // Заполняем реквизиты табличной части.
   ОбработкаТабличныхЧастей.ЗаполнитьСтавкуНДСТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект, "Приобретение");

а как то из справочника номенклатуры то я могу это все выбрать?

А что мешает использовать штатный механизм? Заполнил строку, передал ее в функции как аргумент СтрокаТабличнойЧасти в (54).

Как то вот так?
ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(ТаблЧасть.Номенклатура, ЭтотОбъект)

нет, не работает

Но ведь я изменил номенклатуру в ТЧ
по идее же эти функции сработать должны

в visual studio бы сработали

(59) эти функции - обработчики интерактивных событий

(57) ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);
ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(ТаблЧасть.Номенклатура, ЭтотОбъект)
Вы видите разницу в первом аргументе? Если нет, попробую вообразить себя Капитаном Очевидность.
СтрокаТабличнойЧасти - это строка табличной части.
ТаблЧасть.Номенклатура вообще неведомая хня. в (52) вы что добавляете в табличную часть? Вот это самое и есть строка табличной части.

Боюсь опять ошибиться но добавляю я вроде
товарыСтрока.Номенклатура

или Выборка.Владелец?

товарыСтрока= ТаблЧасть.Добавить();

то есть добавляешь товарыСтрока

а в этой строке штук 30 колонок. И одна из них называется "Номенклатура". То есть ты в этой строке заполнил 2 значения, осталось еще 28 полей присвоить.

В том то и дело что в выборке только 3 колонки, которые я выбрал
одна из них ссылка на владельца штрихкода, тоесть на справичник.номенклатура
как мне остальные колонки получить?
Как проставить цену и расчитать ндс..
Поэтому и хотел функциями воспользоваться

ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект)
понял что вызывать надо как то так
СтрокаТабличнойЧасти = товарыСтрока;
ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект);

Но что то не работает...

>СтрокаТабличнойЧасти = товарыСтрока;
на кой лишние переменные плодить?
>Но что то не работает...
а всё от того, что ЭтотОбъект в модуле формы документа и в твоей обработке - это разные ЭтиОбъекты

Спасибо большое, разобрался, что надо:

ОбработкаТабличныхЧастей.ПриИзмененииНоменклатурыТабЧасти(СтрокаТабличнойЧасти, ПереданныйОбъект);


Еще бы как-то с функцией ЗаполнитьЕдиницуЦенуПокупкиТабЧасти  разобраться.

При изменении номенклатуры в табличной части она вызывается так.

СтруктураШапкиДокумента = Новый Структура("Контрагент, ТипЦен, ДоговорКонтрагента, ДатаДокумента, ВалютаДокумента, УчитыватьНДС, СуммаВключаетНДС",
                                            Контрагент, ТипЦен, ДоговорКонтрагента, Дата,ВалютаДокумента, УчитыватьНДС,СуммаВключаетНДС);
ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПокупкиТабЧасти(СтрокаТабличнойЧасти, ЭтотОбъект, СтруктураШапкиДокумента, мВалютаРегламентированногоУчета);


не понять только откуда берутся Контрагент, ТипЦен, ДоговорКонтрагента, Дата,ВалютаДокумента, УчитыватьНДС,СуммаВключаетНДС

модуль ОбработкаТабличныхЧастей просмотрел, там вроде ничего такого
в начале не обьявляется...

ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПокупкиТабЧасти(СтрокаТабличнойЧасти, ПереданныйОбъект, ПереданныйОбъект, мВалютаРегламентированногоУчета);

Получилось вот так, и работает вроде...
СтруктураШапкиДокумента = Новый Структура("Контрагент, ТипЦен, ДоговорКонтрагента, ДатаДокумента, ВалютаДокумента, УчитыватьНДС, СуммаВключаетНДС",
   ПереданныйОбъект.Контрагент, ПереданныйОбъект.ТипЦен, ПереданныйОбъект.ДоговорКонтрагента, ПереданныйОбъект.Дата,ПереданныйОбъект.ВалютаДокумента, ПереданныйОбъект.УчитыватьНДС,ПереданныйОбъект.СуммаВключаетНДС);
                                           
   ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуЦенуПокупкиТабЧасти(СтрокаТабличнойЧасти, ПереданныйОбъект,СтруктураШапкиДокумента, мВалютаРегламентированногоУчета);

Огромное спасибо за помощь!!! :)