'*****************************************************************************
dim model 'current model
set model = ActiveModel
If (model Is Nothing) Then
MsgBox "There is no current Model"
ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model."
Else
ProcessTables model
End If
'*****************************************************************************
'*****************************************************************************
sub ProcessTables(folder)
dim table
for each table in folder.tables
if not table.IsShortCut then
ProcessTable table
end if
next
dim subFolder
for each subFolder in folder.Packages
ProcessTables subFolder
next
end sub
'*****************************************************************************
'*****************************************************************************
sub ProcessTable(table)
dim col
for each col in table.Columns
if col.Primary and not col.ForeignKey then
col.Identity = true
end if
next
end sub
