[Event Request] Table 11000000 "Proposal Line" - OnBeforeValidateShortcutDimCode

[UrbMigle]

Why do you need this change?

Hello,

On behalf of 4PS, I would like to request an integration event OnBeforeValidateShortcutDimCode in Table 11000000 "Proposal Line", procedure ValidateShortcutDimCode.

    procedure ValidateShortcutDimCode(FieldNo: Integer; var ShortcutDimCode: Code[20])
    begin
        OnBeforeValidateShortcutDimCode(Rec, xRec, FieldNo, ShortcutDimCode); <-- new
        DimManagement.ValidateShortcutDimValues(FieldNo, ShortcutDimCode, "Dimension Set ID");
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeValidateShortcutDimCode(var ProposalLine: Record "Proposal Line"; var xProposalLine: Record "Proposal Line"; FieldNo: Integer; var ShortcutDimCode: Code[20])
    begin
    end;

Describe the request

In many MS objects, before the actual validation of shortcut dimension code in the procedure ValidateShortcutDimCode, there is already an event included. For us to implement the same 4PS functionality before validation in "Proposal Line", as it is already implemented for other objects, it would be essential to have such an event here as well.

Thank you!
Internal work item: AB#622696

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add a new integration event OnBeforeValidateShortcutDimCode in the ValidateShortcutDimCode procedure of Table 11000000 "Proposal Line".

Location in ValidateShortcutDimCode procedure (around line 779):

[Scope('OnPrem')]
procedure ValidateShortcutDimCode(FieldNo: Integer; var ShortcutDimCode: Code[20])
begin
    OnBeforeValidateShortcutDimCode(Rec, xRec, FieldNo, ShortcutDimCode);
    DimManagement.ValidateShortcutDimValues(FieldNo, ShortcutDimCode, "Dimension Set ID");
end;

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

[IntegrationEvent(false, false)]
local procedure OnBeforeValidateShortcutDimCode(var ProposalLine: Record "Proposal Line"; var xProposalLine: Record "Proposal Line"; FieldNo: Integer; var ShortcutDimCode: Code[20])
begin
end;

---

File: ProposalLine.Table.al