hackman
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день! никак не могу получить процент транспорта по магазинах.
Есть подчиненный справочник Контрагента "Підлеглі структури", і є реквізит "ПроцентТрПослуг".
Код:
Процедура Сформировать()
Тз=СоздатьОбъект("ТаблицаЗначений");
спр=СоздатьОбъект("Справочник.ПдлСтруктури");
Тз.НоваяКолонка("ТМЦ");
Тз.НоваяКолонка("Контрагент");
Тз.НоваяКолонка("Одержувач","Справочник.ПдлСтруктури");
Тз.НоваяКолонка("Кво","Число");
Тз.НоваяКолонка("СуммаБезНДС","Число");
Тз.НоваяКолонка("СуммаСНДС","Число");
док=СоздатьОбъект("Документ.Продаж");
Док.ВыбратьДокументы(НачДата,КонДата);
Тд = СОздатьОбъект("ТаблицаЗначений");
Сумвага=0;
СумКво=0;
СумСамовивіз=0;
Пока Док.ПолучитьДокумент() = 1 Цикл
Если (Док.Проведен() = 0) или (Док.ПометкаУдаления()=1) Тогда
Продолжить;
КонецЕсли;
//По ЦВ
розмірспискуцв =ЦВ.РазмерСписка();
Если розмірспискуцв>0 тогда
Если ЦВ.Принадлежит(ДОк.Центрвідповідальності)=0 Тогда
Продолжить;
КонецЕсли;
КонецЕсли;
Состояние(Док.ДатаДОк);
Док.ВыгрузитьТабличнуюЧасть(Тд,);
Тд.Свернуть("ТМЦ,Контрагент,Одержувач","Кво,СуммаБезСкидки, СуммаСНДС");;
Тд.ВыбратьСтроки();
Пока Тд.ПолучитьСтроку()=1 Цикл
Тз.НоваяСтрока();
ТЗ.ТМЦ=ТД.ТМЦ;
ТЗ.Контрагент=Тд.Контрагент;
ТЗ.Одержувач=Тд.Одержувач;
Тз.Кво=Тд.Кво;
Тз.СуммаБезНДС=Тд.СуммаБезСкидки;
Тз.СуммаСНДС=Тд.СуммаСНДС;
КонецЦикла;
КонецЦикла;
Тз.Свернуть("ТМЦ,Контрагент,Одержувач","Кво,СуммаБезНДС,СуммаСНДС");
ТЗ.НоваяКолонка("трансп");
Тз.ВыбратьСтроки();
Пока Тз.ПолучитьСтроку()=1 Цикл
Сообщить(Тз.Одержувач.ПроцентТрПослуг);
КонецЦикла;
|
на строке Сообщить(Тз.Одержувач.ПроцентТрПослуг); выдает ошыбку
НеизвестныйОбъект
Подскажите в чем проблема. Процент транспорта в справочнике Підлеглі структури есть
|
Программы » 
Варезник » 
///В обработчике показывает ХХХВРуб = "НоминалВРуб"