IDefCalculationAlgorithmsCollection.Add

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

Public Sub AddAlgorithm(Report: IPrxReport);
Var
    Mb: IMetabase;
    //Sheet: IPrxSheet;
    DEForm: IDataEntryForm;
    TArea: IDefTableArea;
    Algs: IDefCalculationAlgorithmsCollection;
    Algo: IDefCalculationAlgorithm;
Begin
    Mb := MetabaseClass.Active;
    // Экземпляр текущей формы ввода    
    DEForm := New DataEntryForm.CreateByReport(report);
    // Получение табличной области
    TArea := DEForm.inpuTAreas.Item(0) As IDefTableArea;
    DEForm.Parameters.Item(0);
    TArea.UpdateAfterSave := True;
    // Алгоритмы расчёта
    Algs := TArea.CalculationAlgorithms;
    // Добавление алгоритмов расчёта на изменение
    Algo := Algs.Add(Mb.GetObjectKeyById("ALGO_CALC"), CalcType.CalcAfterEdit);
    ConfigureAlgo(Algo);
    Algo := Algs.Add(Mb.GetObjectKeyById("ALGO_CONTROL"), CalcType.CalcAfterEdit);
    ConfigureAlgo(Algo);
    // Добавление алгоритма расчёта на сохранение
    Algs.Add(Mb.GetObjectKeyById("ALGO_END"), CalcType.CalcAfterSave);
    // Просмотр информации о полученной коллекции алгоритмов расчёта
    ShowAlgsInfo(Algs);
    // Применить изменения к форме ввода
    DEForm.inpuTAreas.ApplyAreaToReport(TArea.id);
    DEForm._Dispose;
End Sub AddAlgorithm;

Sub ConfigureAlgo(Algo: IDefCalculationAlgorithm);
Var
    Style: ITabCellStyle;
    Params: IDefCalculationAlgorithmParametersCollection;
    Param: IDefCalculationAlgorithmParameter;
    MapInfo: IDefCalculationAlgorithmMapInfo;
    MapParamInf: IDefCalclulationAlgorithmMapParamInfo;
Begin
    If Algo.HasCalcBlock Then
        Algo.SaveDataOption := True;
        Algo.ExtendLoadSelection := True;
        Algo.CalcPeriod := CalcPeriodMode.AllSelectionFromAlgorithm;
        // Привязка параметров алгоритма расчёта
        Params := Algo.Parameters;
        Param := Params.Item(0);
        Param.Type := CalcParamType.param;
        Param.SelectionMode := CalcParamSchema.selected;
        Param.FormParameterId := "P_CALENDAR";
        // Привязка формы ввода к алгоритму для детализации формул
        MapInfo := Algo.MapInfo.Item(0);
        MapInfo.FormKey := 11403;
        MapParamInf := MapInfo.MapParameters.Item(0);
        MapParamInf.ThisFormParameterId := "P_CALENDAR";
    Elseif Algo.HasValidationBlock Then
        Style := New TabCellStyle.Create;
        Style.Font.Bold := TriState.OnOption;
        Style.Font.Color := GxColor.FromKnownColor(GxKnownColor.Red);
        Algo.ControlStyle := Style;
        Algo.BlockSaveData := True;
    End If;
End Sub ConfigureAlgo;

Sub ShowAlgsInfo(Algs: IDefCalculationAlgorithmsCollection);
Var
    Algo: IDefCalculationAlgorithm;
    i, c: Integer;
Begin
    c := Algs.Count;
    For i := 0 To c - 1 Do
        Algo := Algs.Item(i);
        Debug.WriteLine(Algo.Name + "(Ключ: " + Algo.Key.ToString + ". Уникальный идентификатор: " + Algo.Unical.ToString + ')');
        Debug.Indent;
        Debug.WriteLine("Вариант использования: " + (Algo.Type = CalcType.CalcAfterEdit ? "На изменение" : "На сохранение"));
        Debug.WriteLine("Блок вычисления: " + Algo.HasCalcBlock.ToString + "; Блок контроля: " + Algo.HasValidationBlock.ToString);
        Debug.Unindent;
    End For;
End Sub ShowAlgsInfo;