Function %Get%(obj)
Dim ComputedCode
Dim Constraint
Dim refJoin
Dim Column
   
   ComputedCode = obj.GetExtendedAttribute("%CurrentTargetCode%.ComputedCode")
   If not ComputedCode = "" Then
      Constraint = ComputedCode
   End If
   ' формируем строку с полями по которым делается связь (только ChildTableColumn)
   For Each refJoin In obj.Joins
      Set Column = refJoin.ChildTableColumn
      Constraint = Constraint + "_" + Column.Code
   Next
   %Get% = mid(Constraint,1,30)
End Function

Function %Check%(obj)
Dim Result
   Result = True
   If not obj.ForeignKeyConstraintName = obj.GetExtendedAttribute("%CurrentTargetCode%.ComputedConstraintName") then
      Result = false
   End If
%Check% = Result 
End Function

Function %Fix%(obj, outmsg)
Dim Constraint
   
   Constraint = obj.GetExtendedAttribute("%CurrentTargetCode%.ComputedConstraintName")
   Obj.ForeignKeyConstraintName = Constraint
   outmsg = "The Constraint Name has been renamed"

   %Fix% = True
End Function