Page Comparison

Use this event to

...

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Item Reference Mgt.", 'OnBeforeGetBarcodeList', '', true, true)]
    local procedure OnBeforeGetBarcodeList(_ItemNo: Code[20]; _VariantCode: Code[10]; var _BarcodeListToReturn: Text; var _IsHandled: Boolean)
    begin
    end;

Example

    // [Example]: Add Item GTIN to _BarcodeList
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Item Reference Mgt.", 'OnBeforeGetBarcodeList', '', true, true)]
    local procedure MyOnBeforeGetBarcodeList(_ItemNo: Code[20]; _VariantCode: Code[10]; var _BarcodeListToReturn: Text; var _IsHandled: Boolean)
    var
        Item: Record Item;
    begin
        // Intentionally do not exit here if _IsHandled but always add GTIN to BarcodeList

        if Item.Get(_ItemNo) then
            if _BarcodeListToReturn = '' then
                _BarcodeListToReturn := Item.GTIN
            else
                _BarcodeListToReturn += ';' + Item.GTIN;

        _IsHandled := true;
    end;

Version History