Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Comment: Removed helper function because of mob function that does the same

Use this event to

Excerpt
Modify existing response for online search 'BinSearch' (values transferred from "Bin" table).

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Online Search", 'OnSearchOnBinSearch_OnAfterSetFromBin', '', true, true)]
    localprocedure OnSearchOnBinSearch_OnAfterSetFromBin(_Bin: Record Bin; var _SearchResponseElement: Record"MOB NS SearchResult Element")
    begin
    end;

Example: Display "Qty. Base" on Hand for Bins with content

    // [Example] Display "Qty. Base" on Hand for Bins with content
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Online Search", 'OnSearchOnBinSearch_OnAfterSetFromBin', '', true, true)]
    localprocedure MyOnSearchOnBinSearch_OnAfterSetFromBin(_Bin: Record Bin; var _SearchResponseElement: Record"MOB NS SearchResult Element")
    var
        WarehouseEntry: Record"Warehouse Entry";
        MobWmsToolbox: Codeunit"MOB WMS Toolbox";
    begin
        if _SearchResponseElement.Get_DisplayLine3() = ''thenbegin// Not having existing text 'Empty'
            WarehouseEntry.SetCurrentKey("Bin Code", "Location Code");
            WarehouseEntry.SetRange("Bin Code", _Bin.Code);
            WarehouseEntry.SetRange("Location Code", _Bin."Location Code");
            WarehouseEntry.CalcSums("Qty. (Base)");

            _SearchResponseElement.Set_DisplayLine3(WarehouseEntry.FieldCaption("Qty. (Base)") + ': ' + MobWmsToolbox.Decimal2TextAsDisplayFormat(WarehouseEntry."Qty. (Base)", false));
        end;
    end;


Filter by label (Content by label)
showLabelsfalse
showSpacefalse
sorttitle
titleMore examples
excerptTypesimple
cqllabel = "bc" and label = "search" and label = "onaftersetfrom" and label = "example"

Version History

VersionChanges
MOB5.43Introduced