' Переименоывает все Refernces  в физической модели на мнемноческие имена
' Authro: Zhukov
' Note: Не удалось получить ForeignKeyConstraintName при автомтичском именовании 
Option Explicit

Dim mdl ' the current model

' get the current active model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no current Model"
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
   MsgBox "The current model is not an Physical Data model."
Else
   Dim referns 'current domain
   For each referns in mdl.References
        output "Changing domain code "& referns.code
        output "RF_" & referns.ChildTable.CODE & "#" & referns.ForeignKeyColumnList & "$" & referns.ParentTable.CODE
        referns.code = "RF_" & referns.ChildTable.CODE & "#" & referns.ForeignKeyColumnList & "$" & referns.ParentTable.CODE
        referns.SetNameToCode
   next
End If