IEtlFixedCodeBlock.Template

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Params: ISharedParams;
    Templates: IEtlTemplates;
    Template: IEtlTemplate;
    EtlTask: IEtlTask;
    Etl: IEtlFixedCodeBlock;
    XmlDoc: IXmlDomDocument3;
    XmlElement, SubElement: IXmlDomElement;
    Rect: IWxRectangle;
    WxETL: IWxEtlObject;
Begin
    MB := MetabaseClass.Active;
    // Создание шаблона для пользовательской процедуры
    Params := MB.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    Templates := Params.EtlTemplates(ETLTemplateType.CodeBlock);
    Template := Templates.Add;
    Template.Module := MB.ItemById("M_ETLPROCEDURE");
    Template.Class_ := "UserProcedure";
    Template.Id := "NewCodeBlock";
    Template.Name := "Пользовательская процедура (шаблон)";
    (Params As IMetabaseObject).Save;
    // Задача ETL
    EtlTask := MB.ItemById("ETL_TASK").Edit As IEtlTask;
    // Создание пользовательской процедуры на базе шаблона
    Etl := EtlTask.Create(EtlObjectType.FixedCodeBlock) As IEtlFixedCodeBlock;
    Etl.Id := "PlainFixedCodeBlock";
    Etl.Name := "Процедура на основе шаблона";
    Etl.Template := Template;
    XmlDoc := New FreeThreadedDOMDocument60.Create;
    XmlElement := XmlDoc.createElement("UserData") As IXmlDomElement;
    SubElement := XmlDoc.createElement("Info");
    SubElement.setAttribute("Version", "1");
    SubElement.setAttribute("Date", DateTime.Today.ToString);
    XmlElement.appendChild(SubElement);
    SubElement := XmlDoc.createElement("Data");
    SubElement.setAttribute("Prop1", "Value1");
    SubElement.setAttribute("Prop2", "Value2");
    XmlElement.appendChild(SubElement);
    XmlDoc.appendChild(XmlElement);
    Etl.UserData := XMLDoc.documentElement;
    // Визуальное представление процедуры
    Rect := EtlTask.Workspace.CreateRectangle;
    WxETL := New WxEtlObject.Create;
    WxETL.EtlObject := Etl;
    Rect.Style.TextPosition := WxTextPosition.Bottom;
    Rect.Style.PictureMarginTop := -10;
    Rect.PinPosition := New GxPointF.Create(50, 50);
    Rect.Extension := WxETL As IWxShapeExtension;
    // Сохранение изменений
    (EtlTask As IMetabaseObject).Save;
End Sub UserProc;