Выбрать метаданные

Тема в разделе "1C и всё что с ней связано", создана пользователем nikh848, 13 июл 2009.

  1. nikh848

    nikh848 Гость

    Привет всем!
    Подскажите, пожалуйста, как можно извлечь данные из 1с 7.7 и 8.1:

    Справочник1
    ____Реквизит1____Свойства
    ____Реквизит2____Свойства
    Справочник2
    ____Реквизит1____Свойства
    ____Реквизит2____Свойства
    .....
    Документ1
    ____Реквизит1____Свойства
    ____Реквизит2____Свойства
    Документ2
    ____Реквизит1____Свойства
    ____Реквизит2____Свойства
    .....
     
  2. vbs

    vbs Well-Known Member

    Регистрация:
    18 фев 2007
    Сообщения:
    1.708
    Симпатии:
    3
    // для 7.7
    //RefList -список, содержащий все справочники конфигурации
    //AttrList -список, содержащий все реквизиты выбранного справочника
    for i = 1 to MetaData.Reference() do
    RefKind = MetaData.Reference(i).Identifier;
    RefList.AddValue(MetaData.Reference(i).Present());
    enddo;
    //N - выбранный справочник
    for i = 1 to MetaData.Reference(N).Attribute() do
    Ref = MetaData.Reference(N).Attribute(i);
    AttrList.AddValue(MetaData.Reference(N).Attribute(i).Identifier);
    enddo;

    //DocList -список, содержащий все документы конфигурации
    //DocAttrList -список, содержащий все реквизиты выбранного документа
    //DocIndex- выбранный документ
    for i = 1 to MetaData.Document() do
    Doc = MetaData.Document(i);
    DocList.AddValue(Doc.Identifier);
    enddo;

    //Заполнение списка общих реквизитов документа
    for N = 1 to MetaData.CommonDocAttribute() do
    DocAttrList.AddValue(N+1,MetaData.CommonDocAttribute(N).Identifier);
    enddo;
    CommonAttrN = MetaData.CommonDocAttribute();
    //Заполнение списка реквизитов шапки документа
    for i = 1 to MetaData.Document(DocIndex).HeadAttribute() do
    DocAttrList.AddValue(i+CommonAttrN,MetaData.Document(DocIndex).HeadAttribute(i).
    Identifier);
    enddo;
    AttrN = MetaData.HeadAttribute();
    //Заполнение списка реквизитов таблицы документа
    for i = 1 to MetaData.Document(DocIndex).TableAttribute() do
    DocAttrList.AddValue(i+CommonAttrN+AttrN,MetaData.Document(DocIndex).TableAttrib
    ute(i).Identifier);
    enddo;
    //Ну и свойства реквизитов можно вытащить по аналогии
     
  3. nikh848

    nikh848 Гость

    большое спасибо!

     
  4. unknown181538

    unknown181538 НеГуру
    1C Team

    Регистрация:
    28 дек 2008
    Сообщения:
    1.418
    Симпатии:
    0
    Есть СП по метаданным, в т.ч. выкладывался на этом форуме.
     
Загрузка...
Похожие Темы - Выбрать метаданные
  1. mazer1325
    Ответов:
    7
    Просмотров:
    198
  2. rownong
    Ответов:
    0
    Просмотров:
    760
  3. Shouldercannon
    Ответов:
    2
    Просмотров:
    855
  4. RadoXX
    Ответов:
    2
    Просмотров:
    1.435
  5. Jennifer
    Ответов:
    3
    Просмотров:
    1.557

Поделиться этой страницей