Page Comparison

Use this event to

...

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS LookupAdhoc Registr.", 'OnLookupOnBinContentOnPostAdhocRegistrationOnBulkMove_OnSetFilterBinContent', '', true, true)]
    localprocedure OnLookupOnBinContent OnPostAdhocRegistrationOnBulkMove_OnSetFilterBinContent(var _RequestValues: Record"MOB NS Request Element"; var _BinContent: Record"Bin Content")
    begin
    end;

Example

...

: Implement at PackageNumber filter at LookupBinContent and BulkMove

    //
    // [Example] Implement a PackageNumber filter at LookupBinContent and BulkMove
    //

    //
    // LookupBinContent
    //

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Reference Data", 'OnGetReferenceData_OnAddHeaderConfigurations', '', true, true)]
    localprocedure My01OnGetReferenceData_OnAddHeaderConfigurations(var _HeaderFields: Record"MOB HeaderField Element")
    var
        MobTrackingSetup: Record"MOB Tracking Setup";
        MobToolbox: Codeunit"MOB Toolbox";
    begin
        // Add a field to an existing ConfigurationKey from standard Mobile WMS
        _HeaderFields.InitConfigurationKey_BinContentCfgHeader();

        // Id 10000 = display after current header fields (id 10 to 30)
        _HeaderFields.Create_TextField(10000, 'PackageNumber', false);    // false = No AutoSave for better performance when creating field (must call Save manually later)
        _HeaderFields.Set_label(MobTrackingSetup.FieldCaption("Package No.") + ':');
        _HeaderFields.Set_eanAi(MobToolbox.GetPackageNoGS1Ai());
        _HeaderFields.Set_length(50);
        _HeaderFields.Set_optional(true);
        _HeaderFields.Save();
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Lookup", 'OnLookupOnBinContent_OnSetFilterBinContent', '', true, true)]
    localprocedure My01OnLookupOnBinContent_OnSetFilterBinContent(var _RequestValues: Record"MOB NS Request Element"; var _BinContent: Record"Bin Content")
    var
        MobTrackingSetup: Record"MOB Tracking Setup";
    begin
        _BinContentMobTrackingSetup.SetRangeCopyTrackingFromRequestValues(Quantity_RequestValues); // Include all Bin Content records regardless of Quantity on handSupport for all Item Tracking fields (LotNumber, SerialNumber, PackageNumber)
        MobTrackingSetup.SetTrackingFilterForBinContentIfNotBlank(_BinContent);
    end;

...

    //
    // BulkMove
    // [Example 02]: Combination of OnSetFilter and OnInclude -events. Display all fixed bins, but only floating bins with inventory

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS LookupReference Data", 'OnLookupOnBinContentOnGetReferenceData_OnSetFilterBinContentOnAddHeaderConfigurations', '', true, true)]
    localprocedure My02OnLookupOnBinContent My02OnGetReferenceData_OnSetFilterBinContentOnAddHeaderConfigurations(var _RequestValuesHeaderFields: Record"MOB NS Request HeaderField Element"; var _BinContent: Record "Bin Content")
    begin)
    var
        MobTrackingSetup: Record"MOB Tracking Setup";
        MobToolbox: Codeunit"MOB Toolbox";
    begin
        // Add a field to an existing ConfigurationKey from standard Mobile WMS
        _HeaderFields.InitConfigurationKey_BulkMoveHeader();

        // Id 10000 = display after current header fields (id 10 to 30)
        _BinContentHeaderFields.SetRange(QuantityCreate_TextField(10000, 'PackageNumber', false); // Include all Bin Content records regardless of Quantity on hand   // false = No AutoSave for better performance when creating field (must call Save manually later)
        _HeaderFields.Set_label(MobTrackingSetup.FieldCaption("Package No.") + ':');
        _HeaderFields.Set_eanAi(MobToolbox.GetPackageNoGS1Ai());
        _HeaderFields.Set_length(50);
        _HeaderFields.Set_optional(true);
        _HeaderFields.Save();
    end;

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS LookupAdhoc Registr.", 'OnLookupOnBinContentOnPostAdhocRegistrationOnBulkMove_OnIncludeBinContentOnSetFilterBinContent', '', true, true)]
    localprocedure My02OnLookupOnBinContent My02OnPostAdhocRegistrationOnBulkMove_OnIncludeBinContent(OnSetFilterBinContent(var _RequestValues: Record"MOB NS Request Element"; var _BinContent: Record"Bin Content"; var _IncludeInLookup: Boolean))
    var
        MobTrackingSetup: Record"MOB Tracking Setup";
    begin
        _IncludeInLookup := _IncludeInLookup and ((_BinContent.Quantity <> 0) or _BinContent.Fixed);   // Exclude floating bins with no inventoryMobTrackingSetup.CopyTrackingFromRequestValues(_RequestValues); // Support for all Item Tracking fields (LotNumber, SerialNumber, PackageNumber)
        MobTrackingSetup.SetTrackingFilterForBinContentIfNotBlank(_BinContent);
    end;

Version History