Создание нестандартного отчёта

[prog1c7.7]

Код Выделить Развернуть

РодитИм             =    Номенкл.СоздатьПодчиненныйЭлемент("RODITIM");
РодитКод             =    Номенкл.СоздатьПодчиненныйЭлемент("RODITKOD");
РодНаим    =    СпрНоменклатура.ТекущийЭлемент().Родитель;
НаименРод = Роднаим.Наименование;
КодРод      = Роднаим.Код;
РодитИм.Значение    =    НаименРод;
РодитКод.Значение    =    КодРод;


[prog1c7.7]

"нафиг тогда вообще это всё нужно )"
Это нужно, как вариант выгрузки из 1с в теговый файл XML,
так же можно выгружать например  в текстовый, XLS, DBF.
Но самый емкий точный и хороший вариант, это тебе любой
скажет - XML - теговый файл, так как он совместим и структурирован почти с
любым приложением, например как у тебя - для вэба

[mark2011]

prog1c7.7

Спасибо огромное за помощь!!!

Вот код, который я развил до своих нужд )))

Код Выделить Развернуть


Процедура Сформировать()
Если ЗагрузитьВнешнююКомпоненту(КаталогИБ() + "v7plus.dll") <> 1 Тогда
        Если ЗагрузитьВнешнююКомпоненту(КаталогПрограммы() + "v7plus.dll") <> 1 Тогда
            Предупреждение("Компонента v7plus.dll не найдена!");
        КонецЕсли;
    КонецЕсли;

ФайлХМЛ = СоздатьОбъект("AddIn.XMLParser");
Корень =ФайлХМЛ.СоздатьДокумент();
    Данные =Корень.СоздатьПодчиненныйЭлемент("root");
    ТОПИК= Данные.СоздатьПодчиненныйЭлемент("Topic");
   СпрНоменклатура = СоздатьОбъект("Справочник.Номенклатура");
   СпрНоменклатура.ВыбратьЭлементы();
    Пока СпрНоменклатура.ПолучитьЭлемент() = 1 Цикл
      Номенкл = ТОПИК.СоздатьПодчиненныйЭлемент("Nomenkl");
  ЭлементКод =    Номенкл.СоздатьПодчиненныйЭлемент("ELEMID");
            РодитИм             =    Номенкл.СоздатьПодчиненныйЭлемент("RODITIM");
РодитКод             =    Номенкл.СоздатьПодчиненныйЭлемент("RODITKOD");
РодНаим    =    СпрНоменклатура.ТекущийЭлемент().Родитель;
НаименРод = Роднаим.Наименование;
КодРод      = Роднаим.Код;                                   
ЭлементКод.Значение = СпрНоменклатура.ТекущийЭлемент().Код;
РодитИм.Значение    =    ?(ПустоеЗначение(НаименРод)=1,0,НаименРод);
РодитКод.Значение   =    ?(ПустоеЗначение(КодРод)=1,0,КодРод);
            ИМЯ1              =    Номенкл.СоздатьПодчиненныйЭлемент("NAME");   
            ИМЯ1.Значение     =    СпрНоменклатура.ТекущийЭлемент().Наименование;             
     КонецЦикла;
     ИмяФайла    = "report.xml";
                       ПапкаФайла  = "C:\REPORT\";
                       Корень.Записать(ПапкаФайла+ИмяФайла);

КонецПроцедуры


Там, правда, ещё цены будут, т.е. это как бы тестовый вариант модуля, который впоследствии будет дорабатываться на реальной информационной базе.

[prog1c7.7]

ну молодца раз понял, что тут скажешь?