PDM Generation Database-2 removing constraint items for each field in PDM

Option Explicit

Validationmode = True

Interactivemode = Im_batch

Dim MDL ' 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 ' if it's processing PDM, here's Pdpdm.cls_model

MsgBox "The current model isn't an physical Data model."

Else

ProcessFolder MDL

End If

' This routine copy name to comment for each table, each column and each view

' of the current folder

Private Sub ProcessFolder (folder)

Dim item ' object to be processed

' Process the name and code of each entity or class first

Dim tab

For all tab in Folder.tables

If not Tab.isshortcut then

Dim col

For each col in Tab.columns

Col. Servercheckexpression= ""

Col. Listofvalues = ""

Col.lowvalue= ""

Col.highvalue= ""

Next

End If

Next

' Recursive traversal of subfolders

Dim F ' Sub-folder

For each F in folder. Packages

If not F.isshortcut then

ProcessFolder F

End If

Next

End Sub

PDM Generation Database-2 removing constraint items for each field in PDM