OnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference

Use this event to

Populate new Item Cross Reference prior to record being inserted.

Template

    // [Template]
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference', '', true, true)]
    local procedure OnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference(var _RequestValues: Record "MOB NS Request Element"; var _ItemCrossReference: Record "Item Cross Reference")
    begin
    end;

Example

    // [Example] 
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Adhoc Registr.", 'OnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference', '', true, true)]
    local procedure MyOnPostAdhocRegistrationOnItemCrossReference_OnBeforeInsertItemCrossReference(var _RequestValues: Record "MOB NS Request Element"; var _ItemCrossReference: Record "Item Cross 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');

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

Version History