Quantcast
Channel: Клерк.Ру - 1C
Viewing all articles
Browse latest Browse all 10218

Не выводит значение реквизита

$
0
0
Код:

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

Выдает пустое значение - Спр.Книга.ПолноеНаименование

Что не так делаю?

Viewing all articles
Browse latest Browse all 10218

Trending Articles