AlterType(ClassId: Integer): MetabaseObjectAlterType;
ClassId - тип объекта репозитория. Следует использовать перечисление MetabaseObjectClass.
Свойство AlterType определяет, в каком случае объекты определенного класса будут пересоздаваться на уровне СУБД.
Свойство актуально только для следующих классов объектов: таблица, хранимая процедура, представление.
Sub UserProc;
Var
Mb: IMetabase;
U: IMetabaseUpdate;
N, N2,N3 : IMetabaseUpdateObjectNode;
Begin
Mb:= MetabaseClass.Active;
U:= Mb.CreateUpdate;
U.AlterType(MetabaseObjectClass.KE_CLASS_TABLE):= MetabaseObjectAlterType.Default_;
U.AlterType(MetabaseObjectClass.KE_CLASS_VIEW):= MetabaseObjectAlterType.Recreate;
U.AlterType(MetabaseObjectClass.KE_CLASS_PROCEDURE):= MetabaseObjectAlterType.Restrict;
N:= U.RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
N.Object := Mb.ItemById("TABLE");
N2:= u.RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
N2.Object := Mb.ItemById("PROC");
N3:= U.RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
N3.Object := Mb.ItemById("VIEW");
U.SaveToFileNF("c:\temp\Update1.pefx");
End Sub UserProc;
После выполнения примера будут создано обновление, для которого будут определены следующие параметры: пересоздавать таблицы, только если структура объекта изменилась; всегда пересоздавать представления; никогда не пересоздавать хранимые процедуры.
См. также: