0

枚举是/将是 Business Central 365 的选项替代品。可以这么说，最近我有机会使用一些并弄湿我的脚。似乎经常发生的情况是，您需要的大约 80% 的功能是现成的，但剩下的 20% 需要做更多的工作。

在枚举的情况下，您会获得名称的文本列表和关联的序数值的整数列表，但您不会获得标题列表。在下面的 Enum FourStates 部分示例中，Default、OH 和 TX 是名称，0、1 和 2 是序数和空格，Ohio 和 Texas 是标题。请注意，序数是定义的数值，而不是索引。以下示例中完全有效的序数可以是 1、5 和 7。

value(0; Default) { Caption = ' '; }
value(1; OH) { Caption = 'Ohio'; }
value(2; TX) { Caption = 'Texas'; }

如果将表或页面字段定义为枚举，则标题将显示在下拉列表中。要获取标题，您可以使用 Format(EnumType::Name) 但我们需要迭代给定枚举的所有标题。

4

2 回答 2

0

在浏览了一些博客和文档之后，这里是我发现的摘要。

  1. 首先，有一个主要限制，因为 Captions 只能在 Enum 类型的上下文中处理，并且至少到目前为止，Business Central 365 SaaS 解决方案不支持通用 Enum（例如 EnumRef，如 RecordRef 和 FieldRef）。这意味着必须在逐个枚举的基础上创建字幕的文本列表。

  2. 但是，一旦创建了 Captions 列表，然后使用 [Text] 的 Name、Ordinal 和 Caption Lists 的组合，您就可以编写适用于任何 Enum 的通用代码。

  3. 一个问题，当你在 VS Code 中使用 TEnum 代码片段时，它会将第一个元素默认为 0。我们已经学会了像上面的部分代码那样将其设为 Default，或者将其更改为 1。这样做的原因是如果有任何机会每次都将 Enum 与 StrMenu 命令一起使用，则 StrMenu 默认 0 作为 Cancel 返回值。在这种情况下，您永远不能选择 0 Ordinal Enum，因为 ti 将被视为已取消。

  4. 要创建要在代码中使用的 Enum 实例，请创建类似于 MyChoices: Enum "Defined Choices"; 的 Var 变量。如果您还定义了 MyChoice: Enum: "Defined Choices"，则可以将它们与 if MyChoice = MyChoices::FirstChoice then 等进行比较。

  5. 下面是一些示例代码，其中包含一些不同的 Enum 样式以及一种允许您为 Captions 创建 [Text] 列表的方法。同样，必须为每个特定的枚举进行编码。一个。在 VS Code 中，使用 AL Go 创建一个新的 HelloWorld 应用 b. 更改 app.json 文件名称和发布者，我命名为 EnumHelper 注意：我们总是定义发布者，因为您无法在 SaaS 中过滤默认发布者 c。将 HelloWorld.al 文件中的所有代码替换为以下代码 注意：为简化起见，以下所有内容都在同一个文件中 d. 该代码是会计科目表页面的 PageExtension 并运行 OnOpenPage 触发器 这允许轻松调用代码，而无需一堆设置代码。

  6. 这是允许您创建字幕列表的代码。变量 myOrdinal 是一个整数，而 Flagged 是一个定义的枚举。注意 Enum::EnumName，类似于 Page::PageName 或 Database::TableName。

     foreach myOrdinal in Flagged.Ordinals do begin
     // Enum definition, NOT an enum instance.
     captions.Add(Format(Enum::Flagged.FromInteger(myOrdinal)));
 end;

  7. 所有代码（抱歉，格式不完全正确）

枚举 50200 FourStates { 可扩展 = true;

value(0; Default) { Caption = ' '; }
value(1; OH) { Caption = 'Ohio'; }
value(2; TX) { Caption = 'Texas'; }
value(3; NC) { Caption = 'North Carolina'; }
value(4; IA) { Caption = 'Iowa'; }
value(5; MO) { Caption = 'Missouri'; }

}

枚举 50201 标记 { 可扩展 = true;

value(0; Default) { Caption = ' '; }
value(1; Bold) { Caption = 'Bold'; }
value(2; ITalic) { Caption = 'Italid '; }
value(4; Underline) { Caption = 'Underline'; } 
value(8; BoldItalic) { Caption = 'Bold & Italic'; }
value(16; BoldUnderline) { Caption = 'Bold & Underline '; }
value(32; ItalicUnderline) { Caption = 'Italic & Underline'; }
value(64; All3Options) { Caption = 'All 3 Options'; }

}

枚举 50202 随机 { 可扩展 = true;

value(0; Default) { Caption = ' '; }
value(7; Good) { Caption = 'The Good'; }
value(5; Bad) { Caption = 'The Bad'; }
value(11; Ugly) { Caption = 'The Ugly'; }

}

枚举 50203 ProcessFlowOptions { 可扩展 = true;

value(0; Default) { Caption = ' '; }
value(1; Flagged) { Caption = 'Flagged'; }
value(2; Randomized) { Caption = 'Randomized'; }
value(4; FourStates) { Caption = 'FourStates'; }

}

pageextension 50200 "Chart of Accounts EH" extends "Chart of Accounts" { var // 枚举实例变量。myFlagged：枚举标记；myFourStates：枚举 FourStates；myRandomized：随机枚举；

trigger OnOpenPage();
begin
    case UserID.ToLower() of
        'larry':
            Message('Hello Larry, this is an extension for October testing.');
        'vicki':
            Message('Good morning Vicki, this is an extension for October testing.');
        else
            if Confirm('Hello %1 from EnumHelper.\\Click Yes to process or no to cancel.', true, UserID) then begin
                ProcessEnumerations();
            end;
    end;
end;

local procedure ProcessEnumerations()
var
    allLines: TextBuilder;
    randomCaptions: List of [Text];
    flaggedCaptions: List of [Text];
    fourStatesCaptions: List of [Text];
begin
    GetEnumCaptions(randomCaptions, flaggedCaptions, fourStatesCaptions);
    IterateEnumNamesOrdinalsAndCaptions(allLines, randomCaptions, flaggedCaptions, fourStatesCaptions);
    Message(allLines.ToText());
end;

local procedure GetEnumCaptions(randomCaptions: List of [Text]; flaggedCaptions: List of [Text]; fourStatesCaptions: List of [Text])
begin
    GetCaptions(randomCaptions, ProcessFlowOptions::Randomized);
    GetCaptions(flaggedCaptions, ProcessFlowOptions::Flagged);
    GetCaptions(fourStatesCaptions, ProcessFlowOptions::FourStates);
end;

local procedure IterateEnumNamesOrdinalsAndCaptions(allLines: TextBuilder; randomCaptions: List of [Text]; flaggedCaptions: List of [Text]; fourStatesCaptions: List of [Text])
begin
    IterateEnumNamesOrdinalsAndCaptions('Flagged Enum', allLines, myFlagged.Names, myFlagged.Ordinals, flaggedCaptions);
    IterateEnumNamesOrdinalsAndCaptions('Randomized Enum', allLines, myRandomized.Names, myRandomized.Ordinals, randomCaptions);
    IterateEnumNamesOrdinalsAndCaptions('FourStates Enum', allLines, myFourStates.Names, myFourStates.Ordinals, fourStatesCaptions);
end;

local procedure IterateEnumNamesOrdinalsAndCaptions(title: Text; allLines: TextBuilder; enumNames: List of [Text]; enumOrdinals: List of [Integer]; enumCaptions: List of [Text])
var
    i: Integer;
    enumLine: TextBuilder;
    enumLines: TextBuilder;
begin
    allLines.AppendLine(title);
    allLines.appendLine();
    for i := 1 to enumNames.Count do begin
        Clear(enumLine);
        enumLine.AppendLine('EnumName: ''' + enumNames.Get(i) + ''',');
        enumLine.AppendLine('EnumOrdinal: ' + Format(enumOrdinals.Get(i)) + ',');
        enumLine.AppendLine('EnumCaption: ''' + enumCaptions.Get(i) + '''.');
        //enumLine.AppendLine('EnumName: ''' + enumNames.Get(i) + ''', EnumOrdinal: ' + ordinal + ', EnumCaption: ''' + enumCaptions.Get(i) + '''');
        enumLines.AppendLine(enumLine.ToText());
    end;
    allLines.AppendLine(enumLines.ToText());
end;

local procedure GetCaptions(captions: List of [Text]; processFlowOption: Enum ProcessFlowOptions)
var
    myOrdinal: Integer;
    myProcessFlowOptions: Enum ProcessFlowOptions;
begin
    // Load captions by iterating specific Enums.
    case processFlowOption of
        myProcessFlowOptions::Flagged:
            begin
                foreach myOrdinal in Flagged.Ordinals do begin
                    // Enum definition, NOT an enum instance.
                    captions.Add(Format(Enum::Flagged.FromInteger(myOrdinal)));
                end;
            end;
        myProcessFlowOptions::Randomized:
            begin
                foreach myOrdinal in Randomized.Ordinals do begin
                    // Enum definition, NOT an enum instance.
                    captions.Add(Format(Enum::Randomized.FromInteger(myOrdinal)));
                end;
            end;
        myProcessFlowOptions::FourStates:
            begin
                foreach myOrdinal in FourStates.Ordinals do begin
                    // Enum definition, NOT an enum instance.
                    captions.Add(Format(Enum::FourStates.FromInteger(myOrdinal)));
                end;
            end;
    end;
end;

}

享受

于 2020-09-05T19:40:25.977 回答
0

我为 BC14 实施了更好的解决方法。这也应该适用于较新的版本，但我只在 BC14 上进行了测试。

var
  RecRef: RecordRef;
  FRef: FieldRef;
  OptionNames: List of [Text];
  OptionCaptions: List of [Text];
  i: Integer;

RecRef.GetTable(Rec); // Some record
FRef := RecRef.Field(20); // Some field of type Enum
OptionNames := FRef.OptionMembers().Split(',');
OptionCaptions := FRef.OptionCaption().Split(',');
for i := 1 to OptionNames.Count() do begin
  Evaluate(FRef, OptionNames.Get(i));
  Message('Ordinal = %1\Name = %2\Caption = %3',
    format(FRef, 0, 9),
    OptionNames.Get(i),
    format(FRef, 0, 1)); // or OptionCaptions.Get(i)
end;
于 2020-10-11T20:06:59.813 回答