Как обратиться к реквизиту табличной части обработки

Моха Лёхов

19 — 09.09.06 — 13:39

1. Здравствуйте, уважаемые форумчане. Я совсем недавно начал изучать 1с и надеюсь на вашу помощь. Дело в том, что я перепробовал уже кучу способов, описанных в интернете обращения к элементам табличной части внешней обработки . И ни один из них у меня так и не заработал. Я уже совсем отчаялся. В общем вот, у меня есть табличная часть (на картинке слева) — «Средства измерения». Все реквизиты данной табличной части имеют тип данных «строка», то есть ни на что не ссылаются. Собственно как мне получить эти три переменные? Чтобы в переменная1 хранилось бы «рулетка измерительная», в переменная2 — «б/н», а в переменная3 — «07.2014», чтобы я дальше мог вывести эти переменные в макет? Подскажите пожалуйста.

2. 
   

   Offline

   nbIpKuH_BaH9I
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   16 сен 2009

   Сообщения:

   8.120

   Симпатии:

   550

   Баллы:

   204

   Это делается перебором строк табличной части.

   Для каждого ТекСтрока Из ВашаТаблЧасть Цикл
   ТекСтрока.ВашаПеременная
   КонецЦикла;

3. То есть в моем конкретном случае будет так:

   Для каждого НаименованиеСредства Из СредстваИзмерения Цикл
        НаименованиеСредства.переменная1
     КонецЦикла;

   ?

4. 
   

   Offline

   nbIpKuH_BaH9I
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   16 сен 2009

   Сообщения:

   8.120

   Симпатии:

   550

   Баллы:

   204

   Ну наверное. Отладчиком если не умеете пользоваться, то научитесь.

   — Объединение сообщений, 21 июл 2014 —

   Только переменные надо присваивать.

   — Объединение сообщений, 21 июл 2014 —

   Такая конструкция НаименованиеСредства.переменная1 даже не сохранится.

   — Объединение сообщений, 21 июл 2014 —

   переменная1 = НаименованиеСредства.переменная1;

5. Вообще ничего не понимаю… Теперь среда ругается:
   {ВнешняяОбработка.ИзмерениеОбъема(61,2)}: Неопознанный оператор
   <<?>>КонецЦикла;

6. 
   

   Offline

   nbIpKuH_BaH9I
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   16 сен 2009

   Сообщения:

   8.120

   Симпатии:

   550

   Баллы:

   204

   Прочтите мое предыдущее сообщение.

7. Компилируется без ошибок, но при запуске выдает ошибку: поле объекта не обнаружено (переменная1)

8. 
   

   Offline

   nbIpKuH_BaH9I
   Модераторы
   Команда форума
   Модератор

   Регистрация:

   16 сен 2009

   Сообщения:

   8.120

   Симпатии:

   550

   Баллы:

   204

   Ну Вы логически то подумайте. Раз Вы перебираете свою табличную часть под именем «Средства измерения» то значит в ней должны быть такие колонки как «Наименование средства», «Заводской номер» и «Дата проверки». Смекаете?

9. Дошло!

   Для каждого НаименованиеСредства Из СредстваИзмерения
   Цикл
   переменная1 = НаименованиеСредства.НаименованиеСредства;
   переменная2 = НаименованиеСредства.ЗаводскойНомер;
   переменная3 = НаименованиеСредства.ДатаПоверки;
   КонецЦикла;

   Спасибо Вам большое, nbIpKuH_BaH9I!
   Но если честно, это выглядит не совсем логично, поэтому я так и мучался долго. Я думал нужно искать подход с точки зрения иерархии, мол сначала указываем имя табличной части, затем указываем имя собственно колонки, что-то вроде «переменная1 = СредстваИзмерения.НаименованиеСредства». Мне кажется так было бы логичнее
   Особенно смущает конструкция «переменная1 = НаименованиеСредства.НаименованиеСредства;» — тавтология какая-то
   Спасибо вам большое еще раз!

10. 
    

    Offline

    nbIpKuH_BaH9I
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    16 сен 2009

    Сообщения:

    8.120

    Симпатии:

    550

    Баллы:

    204

    Поверьте, все логично до предела. Значение хранится не в колонке, а в ячейке. Табличная часть может содержать до 99999 записей, а не одну как у Вас. Или строки по-другому. Как Вы найдете значение в 49746 строке. Найдете не вопрос. Можно обращаться по индексу еще. Т.е. в Вашем случае будет так

    НаименованиеСредства = СредстваИзмерения[0].НаименованиеСредства;

    и т.д.
    Никакой тавтологии. Вы берете значение из табличной части и что Вы будете с ним делать?! Поэтому Вы просто присваиваете это значение переменной.
    Не за что!!!

11. 
    

    Offline

    Tiger86
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    24 мар 2011

    Сообщения:

    6.407

    Симпатии:

    108

    Баллы:

    104

    ну обзовите каждую строку табчасти по другому

    Для каждого стр Из СредстваИзмерения
    Цикл
    переменная1 = стр .НаименованиеСредства;
    переменная2 = стр .ЗаводскойНомер;
    переменная3 = стр .ДатаПоверки;
    КонецЦикла;

12. Смотрите синтасис помощник, кроме указанных выше способов, у табличных частей есть метод «Загрузить()», с помощью которого в ТЧ можно поместить таблицу значений, полученную каким либо способом (например в результате запроса)

13. 
    

    Offline

    nbIpKuH_BaH9I
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    16 сен 2009

    Сообщения:

    8.120

    Симпатии:

    550

    Баллы:

    204

    Не понимаю причем тут Загрузить() вообще. Автор четко написал, что ему необходимо обратиться к значениям в табличной части.

14. Подскажите еще пожалуйста. Сейчас возникла такая проблема: в мою обработку в табличную часть вводятся некие транспортные пакеты, которые берутся из Справочника «Транспортные пакеты». Мне нужно вытащить некоторые значения из выбранных в моей обработке пакетов. Но вот незадача: в справочнике «транспортные пакеты» вообще отсутствуют реквизиты «код» и «наименование», которые являются уникальными, и не совсем понятно, тогда как они заполняются, но самое главное — как мне обратиться к пакетам, которые вводятся в моей обработке, если у них отсутствуют эти реквизиты?

    Точнее понятно, что код заполняется автоматически, но мне же нужно по идее обращаться по наименованию?

15. 
    

    Offline

    nbIpKuH_BaH9I
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    16 сен 2009

    Сообщения:

    8.120

    Симпатии:

    550

    Баллы:

    204

    Эти реквизиты не могут отсутствовать. Значит Вы их просто не видите. И вообще причем тут эти реквизиты?! У Вас есть пакет в вашей табличной части. А значит и есть все его значения, ну если конечно он по ссылке передается.

16. Да, он передается по ссылке, в моей обработке это реквизит, ссылающийся на «Справочник.ТранспортныеПакеты». Но в справочнике «Транспортные пакеты» действительно нет этих реквизитов. И не подскажете, как можно вытащить значения пакета? Я понимаю, что завалил глупыми вопросами, но я еще совсем начинающий.
    

17. 
    

    Offline

    Tiger86
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    24 мар 2011

    Сообщения:

    6.407

    Симпатии:

    108

    Баллы:

    104

    Костя, судя по скрину именно ссылка на «Транспортный пакет» идет.

    2ТС: Код и наименование — это стандартные реквизиты справочника. Где вы их не находите?

18. 
    

    Offline

    nbIpKuH_BaH9I
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    16 сен 2009

    Сообщения:

    8.120

    Симпатии:

    550

    Баллы:

    204

    Прям так через точку и обращайтесь. Сначала получаете ваш пакет в табличной части, а потом просто через «.» к его реквизитам. Что-то типа этого

19. 
    

    Offline

    Tiger86
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    24 мар 2011

    Сообщения:

    6.407

    Симпатии:

    108

    Баллы:

    104

    обращайтесь к ним как к обычным реквизитам

20. 
    

    Offline

    nbIpKuH_BaH9I
    Модераторы
    Команда форума
    Модератор

    Регистрация:

    16 сен 2009

    Сообщения:

    8.120

    Симпатии:

    550

    Баллы:

    204

    Я вижу. Ну мало ли

ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
ДокОбъект = ДокСсылка.ПолучитьОбъект();
 
ФормаОбъекта = ДокОбъект.ПолучитьФорму();
Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
        Сообщить(Элемент);
КонецЦикла;     
 

 
Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
        Сообщить(Элемент.Имя);
        Если Тип(Элемент) = Тип("ТабличноеПоле") Тогда
                Сообщить(" Это табличное поле! "  + Элемент.Имя );
                Для Каждого Колонка Из Элемент.Колонки Цикл
                        ИмяКолонки = Колонка.Имя;
                        Сообщить(ИмяКолонки);
                КонецЦикла;
        КонецЕсли;      
КонецЦикла;     
 

 
ФормаОбъекта = ДокОбъект.ПолучитьФорму("ФормаДокумента");
Поставщик = ФормаОбъекта.ЭлементыФормы.Поставщик;
Поставщик = ФормаОбъекта.ЭлементыФормы.Получатель;
Сообщить(ФормаОбъекта.ЭлементыФормы.ТаблПоле.Колонки.Количество());
 

 
  ДокОбъект = Док.ПолучитьОбъект(); //здесь Док - ссылка на объект
  //просканируем построчно таб часть документа
  Для Каждого Стр из ДокОбъект.Товары Цикл
      Номенклатура = Стр.Номенклатура;
      Стр.Коэффициент = 1;
  КонецЦикла;
 

      Номенклатура = Стр.Номенклатура;

 
        ДокСсылка = СсылкаНаДокумент(ТипДокумента, НомерДок);
        ДокОбъект = ДокСсылка.ПолучитьОбъект();
                                
        ФормаОбъекта = ДокОбъект.ПолучитьФорму();
        Для Каждого Элемент Из ФормаОбъекта.ЭлементыФормы Цикл
                Если Тип(Элемент) = Тип("ТабличноеПоле") Тогда //элемент формы - табличное поле
                                                        
                        Если Элемент.Имя = "Товары" Тогда
                                Сообщить("Это табличное поле!! "  + Элемент.Имя );
                                
                                //ТабПоле = ФормаОбъекта.ЭлементыФормы.Товары.Значение;
                                ТабПоле = Элемент.Значение;
                                Колво = ТабПоле.Количество();
                                Сообщить("Количество строк: " + Колво); 
                                
                                Для Каждого ТекущаяСтрока Из ТабПоле Цикл
                                        
                                        Имя = ТекущаяСтрока.Номенклатура;
                                        Сообщить(Имя); 
                
                                КонецЦикла;                             
                                
                        КонецЕсли;      
                                                        
                КонецЕсли;                                      
        КонецЦикла;  
 

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

Это табличное поле!! ВыданныеАвансы
=======================
НомерСтроки 1
ДокументАванса Расходный кассовый ордер ТК000000004 от 15.02.2007 19:24:03
СуммаДокументаАванса 300
ВалютаДокументаАванса USD
Выдано 300
Сумма 174

 Такое двойное сканирование удобно использовать для быстрой проверки того, что все колонки таб части формы имеют связь с реквизитами таб части объекта. Если такой связи у какой-либо колонки нет, система сгенерирует ошибку.

Для каждого Строка из ТабличнаяЧасть Цикл

Сообщить(Строка.РеквизитТабличнойЧасти);

КонецЦикла;

ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;

ВыделенныеСтроки=ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки;

Для каждого Строка из ВыделенныеСтроки Цикл

//содержимое цикла

КонецЦикла;

ЭлементыФормы.ИмяТабличногоПоля.ВыделенныйСтроки.Очистить();

Для каждого ТекущаяСтрока Из ТабличнаяЧасть Цикл
ЭлементыФормы.ИмяТабличногоПоля.ВыделенныеСтроки.Добавить(ТекущаяСтрока);
КонецЦикла;

ТабличнаяЧасть.Очистить();

ЭлементыФормы.ИмяТабличногоПоля.ТекущиеДанные;

Элементы.ИмяТабличногоПоля.ТекущиеДанные;

НоваяСтрока=ТабличнаяЧасть.Добавить();
НоваяСтрока.Реквизит1=«Значение»;

НоваяСтрока=ТабличнаяЧасть.Вставить(Индекс)
//Индекс — номер добавляемой строки. Нумерация строк начинается с нуля.

НоваяСтрока.Реквизит1=«Значение»;

Процедура ТабличнаяЧастьПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)

//Если пользователь редактирует существующую строку, то ничего не делаем
Если НЕ НоваяСтрока Тогда
Возврат;
КонецЕсли;

//Если же строка новая, устанавливаем счет учета
ТекСтрока = Элемент.ТекущиеДанные; //Получили текущую строку табличной части
ТекСтрока.СчетУчета = ПланыСчетов.Хозрасчетый.НужныйСчетУчета;
КонецПроцедуры