Доброго времени суток!

Можно ли строить отчеты по связям между атрибутами, которые добавляются через Mapping Editor? К примеру есть две сущности Е1 и Е2, атрибуты которых связаны и требуется получить для каждого атрибута Е1 перечень связанных атрибутов Е2.

Спасибо.

Разобрался с ответом на простой вопрос, но возник более сложный.

Простой отчет, показывающий связ атрибутов двух сущностей, можно получить в Multi-Model Report
при помощи Entity >> Entity Mapping >> List of Entity Attribute Mapping

Но как быть, если есть два маппинга Е1 -> Е2 -> Е3 и нужно для каждого из атрибутов сущности Е1 получить перечень зависимых атрибутов сущности Е3, в которые через атрибуты сущности Е2 выполняется маппинг?

Задам вопрос по-другому.

Можно сделать отчет на основе результатов выполнения скрипта?

..или выгрузить результаты работы скрипта формате ms word?

...похоже как то так:

'создаём новый экземпляр Word-a
Set WordApp = CreateObject("Word.Application")
'определяем видимость Word-a по True - видимый,
'по False - не видимый (работает только ядро)
WordApp.Visible = True
'создаём новый документ в Word-e
Set DocWord = WordApp.Documents.Add
'активируем его
DocWord.Activate

'Далее заполняем данными из модели

'сохраняем документ как
DocWord.SaveAs "c:\temp\test.doc"
'закрываем документ (без запроса на сохранение)
DocWord.Close True
'закрываем Word (без запроса на сохранение)
WordApp.Quit True
'уничтожаем обьект - документ
Set DocWord = Nothing
'уничтожаем обьект - Word
Set WordApp = Nothing

Осталось научиться перемещаться по связям модели.

Кто-нибудь пользовался в VB Entity.DefaultMapping? Судя по результатам выполнения скрипта:

dim entity
for each entity in ActiveModel.entities
'MsgBox entity.name
If IsEmpty(entity.DefaultMapping) Then
Desc = "<Empty!>"
ElseIf IsObject(entity.DefaultMapping) Then
If entity.DefaultMapping Is Nothing Then
Desc = "<Nothing>"
Else
MsgBox entity.DefaultMapping.Name
End If
End If
next

в entity.DefaultMapping содержится та карта, которая мне нужна. Видимо свойство возвращает объект типа BaseObjectMapping.
Единственный метод, который, как мне кажется, служит для доступа к карте, GetReverseMapping.
Но как его правильно позвать и счто он возвращает?

В доках написано следующее:
GetReverseMapping(ByVal Source As BaseObject, ByVal Code As String = "") As BaseObject
Returns the reverse mapping associated to a data source object.

Что это значит? Какого типа вернется ссылка?

Повторюсь, задача - перебрать все связи атрибутов маппинга сущности.

Дайте пожалуйста ссылку на какую-нибуть литературу по использованию VB в PowerDesigner, кроме встроенной справки

Поиск атрибутов сущности "Source", связанных с атрибутами сущности "Target" через карту:

If IsEmpty(entity.Mappings) Then
Desc = "<Empty!>"
ElseIf IsObject(entity.Mappings) Then
If entity.Mappings Is Nothing Then
Desc = "<Nothing>"
Else
For each map in entity.Mappings
if map.ObjectType = "DefaultObjectMapping" then
For each structural in map.StructuralFeatureMaps 'BaseStructuralFeatureMapping
Output structural.Feature
Output structural.Feature.Entity
Output structural.SourceFeature
Output structural.SourceFeature.Entity
next
end if
next
End If

Может кому понадобится.

Тема закрыта.
Спасибо за молчаливую помощь)