SaveFormToFile(Form: IForm; FileName: String);
SaveFormToFile(Form: Prognoz.Platform.Interop.Metabase.IForm; FileName: String);
Form - форма репозитория, которую необходимо сохранить в файл.
FileName - путь и наименование файла, в который будет сохранена форма.
Метод SaveFormToFile сохраняет форму в указанный файл.
Для файла, в который будет сохранена форма, должно быть указано расширение «ppform».
Для выполнения примера предполагается наличие в репозитории формы с идентификатором «Form_1».
Sub UserProc;
Var
MB: IMetabase;
Fs: IForeSerializer;
MObj: IMetabaseObjectDescriptor;
ForeForm: IForm;
Begin
MB := MetabaseClass.Active;
Fs := New ForeSerializer.Create;
MObj := MB.ItemById("Form_1");
ForeForm := MObj.Bind As IForm;
Fs.SaveFormToFile(ForeForm, "c:\" + MObj.Id + ".ppform");
End Sub UserProc;
После выполнения примера указанная форма будет сохранена в файл в корневом каталоге диска С.
Для выполнения примера предполагается наличие в репозитории формы с идентификатором «Form_1».
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.KeFore;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Fs: IForeSerializer = New ForeSerializerClass();
MObj: IMetabaseObjectDescriptor;
ForeForm: IForm;
Begin
MB := Params.Metabase;
MObj := MB.ItemById["Form_1"];
ForeForm := MObj.Bind() As IForm;
Fs.SaveFormToFile(ForeForm, "c:\" + MObj.Id + ".ppform");
End Sub;
Данная процедура является точкой входа для .NET-сборки. При выполнении процедуры указанная форма будет сохранена в файл в корневом каталоге диска С.
См. также: