MobItemReferenceMgt - OnPostAdhocRegistrationOnItemReference_OnBeforeInsertItemReference

Use this event to

Populate new Item Reference prior to record being inserted.

Requires Business Central 17 (or newer) with feature "Item Reference" enabled.

See also: MobItemCrossReferenceMgt - OnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference

Template

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Item Reference Mgt.", 'OnPostAdhocRegistrationOnItemReference_OnBeforeInsertItemReference', '', true, true)]
    local procedure OnPostAdhocRegistrationOnItemReference_OnBeforeInsertItemReference(var _RequestValues: Record "MOB NS Request Element"; var _ItemReference: Record "Item Reference")
    begin
    end;

Example

    // [Example]: Populate Description on new Item Reference
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB Item Reference Mgt.", 'OnPostAdhocRegistrationOnItemReference_OnBeforeInsertItemReference', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnItemReference_OnBeforeInsertItemReference(var _RequestValues: Record "MOB NS Request Element"; var _ItemReference: Record "Item Reference")
    var
        RegistrationType: Text;
        ItemNo: Text;
        VariantCode: Text;
        UoM: Text;
    begin
        RegistrationType := _RequestValues.GetValue('RegistrationType');
        ItemNo := _RequestValues.GetValue('ItemNumber');
        VariantCode := _RequestValues.GetValue('Variant');
        UoM := _RequestValues.GetValue('UoM');

        _ItemReference.Validate(Description, CopyStr(StrSubstNo('%1 Item: %2 Variant: %3 UoM: %4', RegistrationType, ItemNo, VariantCode, UoM), 1, MaxStrLen(_ItemReference.Description)));
    end;

Version History