0
alex_reglament
02.02.12
✎
15:23
|
СчетПоКоду(01) имеет одно субконто"спр.ОсновныеСредства"
Выгрузка = СоздатьОбъект("Текст");
ДатаЗапроса = _Дата;
спрОС = СоздатьОбъект("Справочник.ОсновныеСредства");
БИ = СоздатьОбъект("БухгалтерскиеИтоги");
БИ.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства);
Если БИ.ВыполнитьЗапрос(,ДатаЗапроса, СчетПоКоду("01")) = 0 Тогда
Возврат;
КонецЕсли;
БИ.ВыбратьСубконто(1);
Пока БИ.ВыбратьСубконто(1) = 1 Цикл
//Если ПустоеЗначение(БИ.субконто(1)) = 1 Тогда
// Продолжить;
//КонецЕсли;
ОсновноеСредство = "";
Код = "";
Шафр = "";
ДатаВвода = "";
ПредпиниматДеятельность = "";
ПервоночальнаяСтоимость = "";
НачАмортизации = "";
Если спрОС.НайтиПоКоду(БИ.субконто(1).Код) = 1 Тогда
ОсновноеСредство = спрОС.ТекущийЭлемент();
КонецЕсли;
Выгрузка.ДобавитьСтроку("ОС"+БИ.субконто(1));//ОсновноеСредство);
Код = ОсновноеСредство.Код;
Выгрузка.ДобавитьСтроку("KO"+Код);
Шафр = ОсновноеСредство.ЕдинНорма;
Выгрузка.ДобавитьСтроку("ШИ"+Шафр);
ДатаВвода = ОсновноеСредство.ДатаВводаВЭксплуатацию;
Выгрузка.ДобавитьСтроку("ДВ"+ДатаВвода);
ПредпиниматДеятельность = "";//////////////////;
Выгрузка.ДобавитьСтроку("БУ"+ПредпиниматДеятельность);
ПервоночальнаяСтоимость = БИ.СКД();
Выгрузка.ДобавитьСтроку("ПС"+ПервоночальнаяСтоимость);
би_ = СоздатьОбъект("БухгалтерскиеИтоги");
би_.ИспользоватьСубконто(ВидыСубконто.ОсновныеСредства,БИ.Субконто(1).ТекущийЭлемент());
Если би_.ВыполнитьЗапрос(, ДатаЗапроса, СчетПоКоду("02")) = 0 Тогда
Возврат;
КонецЕсли;
би_.ВыбратьСубконто(1);
Пока би_.ВыбратьСубконто(1) = 1 Цикл
НачАмортизации = би_.СКК();
КонецЦикла;
КонецЦикла;
Значение не представляет агрегатный объект (Код)
отладчиком смотрю БИ.Субконто(1) = нечему пусто
почему в оборотке все ок
|
|