[Event Request] Table Assembly Line- OnUpdateDescriptionsFromItem and OnUpdateDescriptionsFromVariantCode

[CrematoRina]

Why do you need this change?

In order to be able to transfer additional description field from Item or Variant to Assembly Line, additional integration events are needed.

Descriptions From Item

In OnValidate trigger for "Variant Code" field add event OnUpdateDescriptionsFromItem:

field(12; "Variant Code"; Code[10])
        {
            Caption = 'Variant Code';
            TableRelation = if (Type = const(Item)) "Item Variant".Code where("Item No." = field("No."), Code = field("Variant Code"));

            trigger OnValidate()
            var
                ItemVariant: Record "Item Variant";
            begin
                TestField(Type, Type::Item);
                TestField("Consumed Quantity", 0);
                CalcFields("Reserved Quantity");
                TestField("Reserved Quantity", 0);
                AssemblyWarehouseMgt.AssemblyLineVerifyChange(Rec, xRec);
                CheckItemAvailable(FieldNo("Variant Code"));
                VerifyReservationChange(Rec, xRec);
                TestStatusOpen();

                if Rec."Variant Code" = '' then begin
                    GetItemResource();
                    Description := Item.Description;
                    "Description 2" := Item."Description 2";
/// Change Start
                   OnUpdateDescriptionsFromItem(Rec,Item);
/// Change End
                end else begin
                    ItemVariant.SetLoadFields(Description, "Description 2", Blocked);
                    ItemVariant.Get("No.", "Variant Code");
                    ItemVariant.TestField(Blocked, false);
                    Description := ItemVariant.Description;
                    "Description 2" := ItemVariant."Description 2";
                end;

                GetDefaultBin();
                "Unit Cost" := GetUnitCost();
                "Cost Amount" := CalcCostAmount(Quantity, "Unit Cost");
            end;
        }

integration event

    [IntegrationEvent(false, false)]
    local procedure OnUpdateDescriptionsFromItem(var AssemblyLine: Record "Assembly Line"; Item: Record Item)
    begin
    end;

Descriptions from Variant Code

In OnValidate trigger for "Variant Code" field add event OnUpdateDescriptionsFromVariantCode:

field(12; "Variant Code"; Code[10])
        {
            Caption = 'Variant Code';
            TableRelation = if (Type = const(Item)) "Item Variant".Code where("Item No." = field("No."), Code = field("Variant Code"));

            trigger OnValidate()
            var
                ItemVariant: Record "Item Variant";
            begin
                TestField(Type, Type::Item);
                TestField("Consumed Quantity", 0);
                CalcFields("Reserved Quantity");
                TestField("Reserved Quantity", 0);
                AssemblyWarehouseMgt.AssemblyLineVerifyChange(Rec, xRec);
                CheckItemAvailable(FieldNo("Variant Code"));
                VerifyReservationChange(Rec, xRec);
                TestStatusOpen();

                if Rec."Variant Code" = '' then begin
                    GetItemResource();
                    Description := Item.Description;
                    "Description 2" := Item."Description 2";
                end else begin
                    ItemVariant.SetLoadFields(Description, "Description 2", Blocked);
                    ItemVariant.Get("No.", "Variant Code");
                    ItemVariant.TestField(Blocked, false);
                    Description := ItemVariant.Description;
                    "Description 2" := ItemVariant."Description 2";
/// Change Start
                    OnUpdateDescriptionsFromVariantCode(Rec,ItemVariant);
/// Change End
                end;

                GetDefaultBin();
                "Unit Cost" := GetUnitCost();
                "Cost Amount" := CalcCostAmount(Quantity, "Unit Cost");
            end;
        }

integration event

[IntegrationEvent(false, false)]
local procedure OnUpdateDescriptionsFromVariantCode(var AssemblyLine: Record "Assembly Line"; ItemVariant: Record "Item Variant")
begin
end;

Describe the request

In our product for the Items and Variants we have additional description field witch need to be transferred to Assembly Line.
Internal work item: AB#617077

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add two integration events in the OnValidate trigger of field 12 "Variant Code" in Table 901 "Assembly Line":

1. OnUpdateDescriptionsFromItem - Called when variant code is empty, after descriptions are set from Item
2. OnUpdateDescriptionsFromVariantCode - Called when variant code is not empty, after descriptions are set from ItemVariant

Location in OnValidate trigger for "Variant Code" field (around line 142):

if Rec."Variant Code" = '' then begin
    GetItemResource();
    Description := Item.Description;
    "Description 2" := Item."Description 2";
    OnUpdateDescriptionsFromItem(Rec, Item);  // <-- New event
end else begin
    ItemVariant.SetLoadFields(Description, "Description 2", Blocked);
    ItemVariant.Get("No.", "Variant Code");
    ItemVariant.TestField(Blocked, false);
    Description := ItemVariant.Description;
    "Description 2" := ItemVariant."Description 2";
    OnUpdateDescriptionsFromVariantCode(Rec, ItemVariant);  // <-- New event
end;

Event Publishers (add at the end of the table with other events):

[IntegrationEvent(false, false)]
local procedure OnUpdateDescriptionsFromItem(var AssemblyLine: Record "Assembly Line"; Item: Record Item)
begin
end;

[IntegrationEvent(false, false)]
local procedure OnUpdateDescriptionsFromVariantCode(var AssemblyLine: Record "Assembly Line"; ItemVariant: Record "Item Variant")
begin
end;

---

File: AssemblyLine.Table.al