OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine

Use this event to

Populate values displayed for indented OrderLinesList-elements representing 'Consumption' (derived from Assembly Lines).

Template

    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine', '', true, true)]
    local procedure OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine(_AssemblyLine: Record "Assembly Line"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    begin
    end;

Example

    // [Example]  Display special equipment for this 'Consumption' item
    [EventSubscriber(ObjectType::Codeunit, Codeunit::"MOB WMS Assembly", 'OnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine', '', true, true)]
    local procedure MyOnGetAssemblyOrderLines_OnAfterSetFromAssemblyLine(_AssemblyLine: Record "Assembly Line"; _TrackingSpecification: Record "Tracking Specification"; var _BaseOrderLineElement: Record "MOB Ns BaseDataModel Element")
    var
        Item: Record Item;
    begin
        if _AssemblyLine.Type <> _AssemblyLine.Type::Item then
            exit;

        Item.Get(_AssemblyLine."No.");
        if (Item."Special Equipment Code" <> '') then begin
            _BaseOrderLineElement.Set_DisplayLine9('    ' + 'Using special equipment is mandatory');    // Indentation on Output Lines
            _BaseOrderLineElement.SetValue('SpecialequipmentCode', 'SpecialequipmentCode: ' + Item."Special Equipment Code");
        end else begin
            _BaseOrderLineElement.Set_DisplayLine9('');
            _BaseOrderLineElement.SetValue('SpecialEquipmentCode', '');
        end;
    end;

Version History