Page Comparison

...

• Table "MOB RefD Header Config Element" was is marked REMOVED since MOB5.14.
• Existing functions from "MOB RefD Header Config Element" was is moved to new table "MOB HeaderField Element"
• Existing functions "CreateConfigurationKey(...)" was renamed to "InitConfigurationKey(...)
• Existing functions "AddField_..." and "AndList_..." was renamed to "Create_...Field_..."
  
  
• Also, the event previously introduced in MOB5.00 OnGetReferenceData_OnAfterCreateHeaderConfigurations was removed and replaced by two new events:

...

Rewrite your existng OnGetReferenceData_OnAfterCreateHeaderConfigurations eventsubscriber to use OnGetReferenceData_OnAddHeaderConfigurations instead.

All references to Record "MOB RefD HeaderConfig Element" should now be Record "MOB HeaderField Element".
Existing calls to helper methods on this input parameter table must be changed to follow new naming conventions (see examples below).

Example - existing code from MOB5.00 - MOB5.13

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAfterCreateHeaderConfigurations', '', true, true)]

    local procedure OnGetReferenceData_OnAfterCreateHeaderConfigurations(var _HeaderConfigurationElement: Record "MOB RefD HeaderConfig Element")
    begin
        with _HeaderConfigurationElement do begin
            Create('CustomPrintLabel'); // New ConfigurationKey

            // ItemNumber
            Add_TextValue(
                1, //id
                'ItemNumber', //name
                CopyStr(MobWmsLanguage.GetMessage('ITEM') + ':', 1, 100), //label
                100, //label width
                true, //clear on clear
                true, //accept barcode
                30, //length
                false, //optional
                'ItemSearch', //search type
                CopyStr(MobBaseToolbox.GetItemNoGS1Ai(), 1, 30), //ean GS1Ai
                false); //locked

                // Lot Number
            Add_TextValue(
                2, //id
                'LotNumber', //name
                CopyStr(MobWmsLanguage.GetMessage('LOT_NO_LABEL') + ':', 1, 100), //label
                100, //label width
                true, //clear on clear
                true, //accept barcode
                30, //length
                false, //optional
                '', //search type
                CopyStr(MobBaseToolbox.GetLotNoGS1Ai(), 1, 30), //ean GS1Ai
                false); //locked
        end;
    end;

Example 1 - new code (1:1 conversion)

   [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddHeaderConfigurations', '', true, true)]
    local procedure My01OnGetReferenceData_OnAddHeaderConfigurations(var _HeaderFields: Record "MOB HeaderField Element")
    var
        MobToolbox: Codeunit "MOB Toolbox";
        MobWmsLanguage: Codeunit "MOB WMS Language";
    begin
        with _HeaderFields do begin
            InitConfigurationKey('CustomPrintLabel'); // New ConfigurationKey

            // ItemNumber
            Create_TextField(1, 'ItemNumber');
            Set_label(MobWmsLanguage.GetMessage('ITEM') + ':');
            Set_clearOnClear(true);
            Set_acceptBarcode(true);
            Set_length(20);
            Set_searchType('ItemSearch');
            Set_eanAi(MobToolbox.GetItemNoGS1Ai());
            // Default values no longer needs to be set:
            // Set_labelWidth(100);
            // Set_optional(false);
            // Set_locked(false);

            // LotNumber
            Create_TextField(2, 'LotNumber');
            Set_label(MobWmsLanguage.GetMessage('LOT_NO_LABEL') + ':');
            Set_clearOnClear(true);
            Set_acceptBarcode(true);
            Set_length(20);
            Set_eanAi(MobToolbox.GetLotNoGS1Ai());
            // Default values no longer needs to be set:
            // Set_searchType('');
        end;
    end;

Example 2 - new code using templates - then setting only properties different from the template (if any)

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddHeaderConfigurations', '', true, true)]
    local procedure My02OnGetReferenceData_OnAddHeaderConfigurations(var _HeaderFields: Record "MOB HeaderField Element")
    begin
        with _HeaderFields do begin
            InitConfigurationKey('CustomPrintLabel'); // New ConfigurationKey

            // ItemNumber by template
            Create_TextField_ItemNumber(1);
            Set_length(20);

            // LotNumber by template
            Create_TextField_LotNumber(2);
            Set_length(20);
        end;
    end;