Всем привет! Подскажите пожалуйста, буду очень благодарна. Версия 7.7, в отчете формируется список с номенклатурой, при выборе строки хотелось бы получить элемент из справочника

расшифровка

(0) в таблице, в поле, где выводится этот элемент, в свойствах/расшифровка указываешь этот элемент еще раз

открыть из печатной формы или из списка на форме?

Спасибо. Но у меня стоит расшифровка (

(4) Ой, не верю... НЕ ВЕ РЮ!

толькопросмотр включи тогда

ТолькоПросмотр, где включить?

таб.толькопросмотр()
таб.показать()

(4) Скорей всего, расшифровка у тебя представляет собой список значений, и предназначен этот СЗ для процедуры "ОбработкаЯчейкиТаблицы"

Если так уж нужно открыть только номенклатуру, выполни то, что я написал в (2), иначе - вопрос чуток сложнее

ТолькоПросмотр тоже не помогает (

(10) Что в расшифровке (код)?

вот пример вывода элемента номенклатуры в поле, и прямой расшифровки - показа этого элемента:
http://savepic.su/5510244.htm

Запрос.Товар

(13) Кусок кода, где инициализируется Запрос.Товар...

(14)+1 и в свойствах примерно должно быть так: http://savepic.su/5537895.htm

//*******************************************
Процедура Сформировать()
    
        
    ВыбСотрудник=ВыбклиентФорма;
    Запрос=СоздатьОбъект("Запрос");      
    ТекстЗапроса =  
    "//{{ЗАПРОС(ТоварыЗаПериоды)  
    |Период с ДатаНачала по ДатаКонец;
    |Автор = Документ.РасходнаяНал.Автор, Документ.РасходнаяКредит.Автор  ;
    |Клиент = Документ.РасходнаяНал.Клиент, Документ.РасходнаяКредит.Клиент;  
    |Группировка Клиент упорядочить по Клиент.Наименование Без Групп;
//    |Условие  ((Автор = ВыбСотрудникФорма) и (Клиент = ВыбКлиентФорма));    
    |"//}}ЗАПРОС
    ;
    
    Если ВыбКлиентФорма.Выбран()=0 Тогда
        Заг = "По всем клиентам";
    ИначеЕсли ВыбКлиентФорма.ЭтоГруппа()=1 Тогда
        ТекстЗапроса = ТекстЗапроса + "Условие (Клиент в ВыбКлиентФорма);";
        Заг = "По клиентам группы " + ВыбКлиентФорма.Наименование;
    Иначе
        ТекстЗапроса = ТекстЗапроса + "Условие (Клиент в ВыбКлиентФорма);";
        Заг = "По клиенту " + ВыбКлиентФорма.Наименование;
    КонецЕсли;
    Если ПустоеЗначение(ВыбКлиентФорма)= 1 Тогда
        ТекстЗапроса=СтрЗаменить(ТекстЗапроса, "и (Клиент = ВыбКлиентФорма)", "");
    КонецЕсли;  
    
    
    Таб=СоздатьОбъект("Таблица");  
    Таб.ИсходнаяТаблица("Таблица");
    Таб.ТолькоПросмотр(0);
    Таб.ВывестиСекцию("Отчет");
    Таб.ВывестиСекцию("Шапка");
    
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    КолТТ=0;
    Пока Запрос.Группировка(1) = 1 Цикл
        //Сообщить ("123");  
        ВыбКлиент=Запрос.Клиент;
        //ВыбСотрудник=ВыбСотрудникФорма;
        ВыбКлиентАдрес=Строка(ВыбКлиент)+" /"+Запрос.Клиент.Адрес;
        //ВыбКлиент=ВыбКлиент+" адрес:"+ВыбКлиент.адрес;
        Таб.ВывестиСекцию("Строка");  
        КолТТ=КолТТ+1;
    КонецЦикла;    
    Таб.ВывестиСекцию("КоличествоТТ");
    
    Запрос=СоздатьОбъект("Запрос");      
    ТекстЗапроса =  
    "//{{ЗАПРОС(ТоварыЗаПериоды)  
    |Период с ДатаНачала по ДатаКонец;
    |Автор = Документ.РасходнаяНал.Автор, Документ.РасходнаяКредит.Автор  ;
    |Клиент = Документ.РасходнаяНал.Клиент, Документ.РасходнаяКредит.Клиент;  
    |Товар = Документ.РасходнаяНал.Товар, Документ.РасходнаяКредит.Товар;
    |Количество = Документ.РасходнаяНал.Количество, Документ.РасходнаяКредит.Количество;
    |Сумма = Документ.РасходнаяНал.Сумма, Документ.РасходнаяКредит.Сумма;
    |Кг = Документ.РасходнаяНал.Товар.zref_цена, Документ.РасходнаяКредит.Товар.zref_цена;
    |Функция СумКол = Сумма(Количество);
    |Функция СумСумма = Сумма(Сумма);
    |Функция СумКг = Сумма(Кг);
    |Группировка Клиент упорядочить по Клиент.Наименование Без Групп;  
    |Группировка Товар упорядочить по Товар.Наименование Без Групп;
    |"//}}ЗАПРОС
    ;  
      Если ВыбКлиентФорма.Выбран()=0 Тогда
        Заг = "По всем клиентам";
    ИначеЕсли ВыбКлиентФорма.ЭтоГруппа()=1 Тогда
        ТекстЗапроса = ТекстЗапроса + "Условие (Клиент в ВыбКлиентФорма);";
        Заг = "По клиентам группы " + ВыбКлиентФорма.Наименование;
    Иначе
        ТекстЗапроса = ТекстЗапроса + "Условие (Клиент в ВыбКлиентФорма);";
        Заг = "По клиенту " + ВыбКлиентФорма.Наименование;
    КонецЕсли;
    
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;
    Таб.ВывестиСекцию("Шапка2");
    Пока Запрос.Группировка(1) = 1 Цикл
        ВыбКлиент=Запрос.Клиент;
        КоличествоГрупп=Запрос.СумКол;
        КгГрупп=Запрос.СумКг;
        СуммаГрупп=Запрос.СумСумма;
        Таб.ВывестиСекцию("ИтогоГрупп");
        Пока Запрос.Группировка(2) = 1 Цикл
            ВыбТовар=Запрос.Товар;
            ВыбКоличество=Формат(Запрос.СумКол, "Ч015.2");
            ВыбКг=Запрос.Кг*Запрос.Количество;
            выбКг=Формат(ВыбКг, "Ч015.2");
            ВыбСумма=Формат(Запрос.СумСумма, "Ч015.2");
            Таб.ВывестиСекцию("Строка2");
            ВыбКлиент="";
            
        КонецЦикла;    
        
        
    КонецЦикла;    
    СуммаИтого=Запрос.СумСумма;
    КолИтого=Запрос.СумКол;
    КгИтого="";
    Таб.ВывестиСекцию("Итого");
    Таб.Показать();
КонецПроцедуры

(16) внимательно см. (8)

+17 и в свойствах ячейки, где выводится ВыбТовар, в расшифровке поставь тоже ВыбТовар

(16)    |Товар = Документ.РасходнаяНал.Товар, Документ.РасходнаяКредит.Товар;
А в этих док-ах реквизит Товар = справочник?

(19) да справочник

И почему-то у меня не реагирует программа, на только просмотр. Все равно можно редактировать

(20) А "Защита" у ячейки стоит? Ну, и стоит попробовать (18).

(17)  а что там ни так?

(21) (23) тебе-ж написали: в конце кода должно быть:
таб.ТолькоПросмотр(1);
Таб.Показать();

(21) Просмотр в конце надо. Перед Показать.

(22) попробовала, не помогает. Защита стоит

(25) там тоже не реагирует

вот теперь и я НЕ ВЕ РЮ :)

(28) да я и сама не верю, какая-то засада

(0) Процедура и скрин печатной формы не соответствуют друг другу.

(29) Еще раз: ТолькоПросмотр(1);

(30), что неправильно?

+31 В скобочках - единичка :)

(33) в 12 вывод Рег.Товар В процедуре Рег Неопределена

О боже, свершилось!!!  Всем огромное человеческое спасибо!!!

(35) Ну и что было?

(33) за единичку особое )))) Себя такой дурочкой ощущаю

Таб.ТолькоПросмотр(1);   стоял 0

(37) Пожалуйста :)
А дурочкой себя никогда не надо считать.. просто нет опыта