'  Auto Rename Migrating Column Script


Sub Evaluate_OnLoad()


    Dim Context


    Set Context = CreateObject("SCF.ScriptContext")


    Dim Document


    Set Document = Context.ScriptDocument


    Dim MigratingColumn


    Set MigratingColumn = Context.MigratingColumn


    Dim MigratingRelation


    Set MigratingRelation = Context.MigratingRelation


	Dim ParentTable


	Set ParentTable = MigratingRelation.Property("Parent Table").AsObject


    Document.Write(ParentTable.Property("Name").AsString & "_" & MigratingColumn.Property("Name").AsString)


End Sub