[Access Request] - table 83 Item Journal Line - IsEntryTypeConsumption, IsEntryTypeProduction, IsOrderTypeAsmOrProd

[pri-kise]

Why do you need this change?

We would like to prepare our code for the BaseApp Manufacturing refactoring.
For this we would like to call the procedures IsEntryTypeConsumption IsEntryTypeProduction, IsOrderTypeAsmOrProd from our app,.

Describe the request

Make procedures IsEntryTypeConsumption and IsEntryTypeProduction accesible.

    //>>Change
    //local procedure IsEntryTypeConsumption() Result: Boolean
    procedure IsEntryTypeConsumption() Result: Boolean
    //<<Change
    begin
        OnAfterIsEntryTypeConsumption(Rec, Result);
    end;

    procedure IsEntryTypeOutput() Result: Boolean
    begin
        OnAfterIsEntryTypeOutput(Rec, Result);
    end;

    //>>Change
    //-local procedure IsEntryTypeProduction() Result: Boolean
    procedure IsEntryTypeProduction() Result: Boolean
    //<<Change
    begin
        OnAfterIsEntryTypeProduction(Rec, Result);
    end;

    //>>Change
    //-local procedure IsOrderTypeAsmOrProd() Result: Boolean
    procedure IsOrderTypeAsmOrProd() Result: Boolean
    //<<Change
    begin
        OnAfterIsOrderTypeAsmOrProd(Rec, Result);
    end;

Internal work item: AB#623071

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Make the three procedures in table 83 "Item Journal Line" externally accessible by removing the local scope modifier from:

• IsEntryTypeConsumption()
• IsEntryTypeProduction()
• IsOrderTypeAsmOrProd()

Current code:

local procedure IsEntryTypeConsumption() Result: Boolean
begin
    OnAfterIsEntryTypeConsumption(Rec, Result);
end;

local procedure IsEntryTypeProduction() Result: Boolean
begin
    OnAfterIsEntryTypeProduction(Rec, Result);
end;

local procedure IsOrderTypeAsmOrProd() Result: Boolean
begin
    OnAfterIsOrderTypeAsmOrProd(Rec, Result);
end;

Proposed change:

procedure IsEntryTypeConsumption() Result: Boolean
begin
    OnAfterIsEntryTypeConsumption(Rec, Result);
end;

procedure IsEntryTypeProduction() Result: Boolean
begin
    OnAfterIsEntryTypeProduction(Rec, Result);
end;

procedure IsOrderTypeAsmOrProd() Result: Boolean
begin
    OnAfterIsOrderTypeAsmOrProd(Rec, Result);
end;

---

File: ItemJournalLine.Table.al