[Event request] codeunit 1605 "PEPPOL Management", procedure GetLineUnitCodeInfo

[tguyonnet]

Why do you need this change?

procedure GetLineUnitCodeInfo(SalesLine: Record "Sales Line"; var unitCode: Text; var unitCodeListID: Text)
var
    UOM: Record "Unit of Measure";
begin
    unitCode := '';
    unitCodeListID := GetUNECERec20ListID();

    if SalesLine.Quantity = 0 then begin
        unitCode := UoMforPieceINUNECERec20ListIDTxt; // unitCode is required
        exit;
    end;

    case SalesLine.Type of
        SalesLine.Type::Item, SalesLine.Type::Resource:
            if UOM.Get(SalesLine."Unit of Measure Code") then
                unitCode := UOM."International Standard Code"
            else
                Error(NoUnitOfMeasureErr, SalesLine."Document Type", SalesLine."Document No.", SalesLine.FieldCaption("Unit of Measure Code"));
        SalesLine.Type::"G/L Account", SalesLine.Type::"Fixed Asset", SalesLine.Type::"Charge (Item)":
            if UOM.Get(SalesLine."Unit of Measure Code") then
                unitCode := UOM."International Standard Code"
            else
                unitCode := UoMforPieceINUNECERec20ListIDTxt;

----------------- ADD EVENT ------------------
else
OnGetLineUnitCodeInfoOnElseCase(SalesLine, unitCode, unitCodeListID);
----------------- ADD EVENT ------------------
end;
end;

============== ADD EVENT===============
[IntegrationEvent(false, false)]
local procedure OnGetLineUnitCodeInfoOnElseCase(SalesLine: Record "Sales Line"; var unitCode: Text; var unitCodeListID: Text)
begin
end;
============== ADD EVENT===============

Describe the request

Considerate other sales line types
Internal work item: AB#620962

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Add an integration event OnGetLineUnitCodeInfoOnElseCase to handle other sales line types not covered in the current case statement.

Location in GetLineUnitCodeInfo procedure (around line 1320-1329):

case SalesLine.Type of
    SalesLine.Type::Item, SalesLine.Type::Resource:
        if UOM.Get(SalesLine."Unit of Measure Code") then
            unitCode := UOM."International Standard Code"
        else
            Error(NoUnitOfMeasureErr, SalesLine."Document Type", SalesLine."Document No.", SalesLine.FieldCaption("Unit of Measure Code"));
    SalesLine.Type::"G/L Account", SalesLine.Type::"Fixed Asset", SalesLine.Type::"Charge (Item)":
        if UOM.Get(SalesLine."Unit of Measure Code") then
            unitCode := UOM."International Standard Code"
        else
            unitCode := UoMforPieceINUNECERec20ListIDTxt;
    else
        OnGetLineUnitCodeInfoOnElseCase(SalesLine, unitCode, unitCodeListID);
end;

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

[IntegrationEvent(false, false)]
local procedure OnGetLineUnitCodeInfoOnElseCase(SalesLine: Record "Sales Line"; var unitCode: Text; var unitCodeListID: Text)
begin
end;

---

File: PEPPOLManagement.Codeunit.al