Objects/Codeunits/Codeunit 5524 API Fix Item Cat. Code

Codeunit 5524 API Fix Item Cat. Code, source in 29

Jonas Paprotka, Base Application, releases/29.x at a66254c3b8, checked 2026-09-20

Source29

src/Layers/W1/BaseApp/System/API/Upgrade/APIFixItemCatCode.Codeunit.al25 lines, Copyright (c) Microsoft Corporation. MIT

namespace Microsoft.API.Upgrade;

using Microsoft.Inventory.Item;

codeunit 5524 "API Fix Item Cat. Code"
{
    trigger OnRun()
    var
        Item: Record "Item";
        Item2: Record "Item";
        ItemCategory: Record "Item Category";
    begin
        Item.SetLoadFields(Item."Item Category Id", Item."Item Category Code");
        Item.SetRange(Item."Item Category Code", '');
        if Item.FindSet() then
            repeat
                Item2 := Item;
                if ItemCategory.GetBySystemId(Item2."Item Category Id") then begin
                    Item2."Item Category Code" := ItemCategory."Code";
                    Item2.Modify();
                end;
            until Item.Next() = 0;
    end;

}