Fob file

Durand

Hello,
Is it possible to make a report which create a backup (production of a FOB file).

Benoît Durand

Luc_VanDyck

Here is some code you can use. Mind you that the fob-files are not identical as the ones you export using the object designer.

</font><blockquote><font size="1" face="Verdana, Arial">code:</font><hr /><pre style="font-size:x-small; font-family: fixed;">
OBJECT Codeunit 50000 Export/Import objects
{
OBJECT-PROPERTIES
{
Date=24/04/02;
Time=[ 9:30:22];
Modified=Yes;
Version List=;
}
PROPERTIES
{
OnRun=BEGIN
{
myObject.SETRANGE(Type,myObject.Type::Codeunit);
myObject.SETRANGE(ID,50000);
IF myObject.FIND('-') THEN
ExportObject(myObject,'c:\50000.fob');
}

myObject.Type := myObject.Type::Codeunit;
myObject.ID := 50001;
myObject.Name := 'myObject';
myObject.Compiled := TRUE;
myObject.INSERT;
ImportObject(myObject,'c:\50000.fob');
END;

}
CODE
{
VAR
myObject : Record 2000000001;

PROCEDURE ExportObject@1(VAR Object : Record 2000000001;BLOB : Text[80]);
BEGIN
myObject.CALCFIELDS(myObject."BLOB Reference");
myObject."BLOB Reference".EXPORT(BLOB,FALSE);
END;

PROCEDURE ImportObject@2(Object : Record 2000000001;BLOB : Text[80]);
BEGIN
myObject."BLOB Reference".IMPORT(BLOB,FALSE);
myObject.MODIFY;
END;

BEGIN
END.
}
}</pre><hr /></blockquote><font size="2" face="Verdana, Arial">The first part (now in comments) exports codeunit 5000. The second part, creates object 50001 and imports the "fob".

Hope this helps.