Имя: Пароль:
1C
1С v8
печатная форма отчета
0 berendej
 
25.10.11
13:01
ТиС 7.7
   СпрСВойства = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
   СпрСВойства.ИспользоватьВладельца(Номенклатура);
   Если СпрСВойства.НайтиПоРеквизиту("ВидСвойства",СвойствоСертификат) = 1 Тогда
           ПечНомерСертификата = СокрЛП(СпрСвойства.ЗначениеСвойства)
       
       Иначе
           ПечНомерСертификата = "";
       
       КонецЕсли;        
   КонецЦикла;
Ругается на строчку СпрСВойства.ИспользоватьВладельца(Номенклатура); говорит переменная не определена. В качестве номенклатуры выступает справочник.
1 berendej
 
25.10.11
13:55
+
2 berendej
 
25.10.11
16:33
СпрВидыСвойств = СоздатьОбъект("Справочник.ВидыСвойств");
   СпрВидыСвойств.НайтиПоНаименованию("Номер Сертификата");
   СвойствоСертификат = СпрВидыСвойств.ТекущийЭлемент();
   
   СпрВидыСвойств.НайтиПоНаименованию("Дата выдачи");
   ДатаВыдачиСертификата = СпрВидыСвойств.ТекущийЭлемент();
   
   СпрВидыСвойств.НайтиПоНаименованию("Дата окончания");
   ДатаОкончанияСертификата = СпрВидыСвойств.ТекущийЭлемент();
   
   СпрВидыСвойств.НайтиПоНаименованию("Выдан");
   ВыдачаСертификата = СпрВидыСвойств.ТекущийЭлемент();
   
   СпрСВойства = СоздатьОбъект("Справочник.СвойстваНоменклатуры");
   
   Пока Докум.ПолучитьСтроку() = 1 Цикл
       НомСтроки = НомСтроки + 1;
       ИсхТабл.ВывестиСекцию("Строка" + СекцСкидка);
       
       СпрСВойства.ИспользоватьВладельца(Докум.Номенклатура);
       Если СпрСВойства.НайтиПоРеквизиту("ВидСвойства",СвойствоСертификат,0) = 1 Тогда
           ПечНомерСертификата = СокрЛП(СпрСвойства.ЗначениеСвойства)
       
       Иначе
           ПечНомерСертификата = "";
       
       КонецЕсли;        

           Если СпрСВойства.НайтиПоРеквизиту("ВидСвойства",ДатаВыдачиСертификата,0) = 1 Тогда
           ПечДатаВыдСертификата = СокрЛП(СпрСвойства.ЗначениеСвойства)
       
       Иначе
           ПечВыдСертификата = "";
       
       КонецЕсли;    
       
           Если СпрСВойства.НайтиПоРеквизиту("ВидСвойства",ДатаОкончанияСертификата,0) = 1 Тогда
           ПечДатаОкончанСертификата = СокрЛП(СпрСвойства.ЗначениеСвойства)
       
       Иначе
           ПечДатаОкончанСертификата = "";
       
       КонецЕсли;    
       
           Если СпрСВойства.НайтиПоРеквизиту("ВидСвойства",ВыдачаСертификата,0) = 1 Тогда
           ПечВыдачаСертификата = СокрЛП(СпрСвойства.ЗначениеСвойства)
       
       Иначе
           ПечВыдачаСертификата = "";
       
       КонецЕсли;    
       
   КонецЦикла;
Свойства заполнены значениями, а в печатную форму ничего не выводит, подскажите в чем может быть ошибка?
3 berendej
 
25.10.11
17:21
ап
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан