JOP-AL

Objects/Codeunits

Codeunit 5524 API Fix Item Cat. Code

, Base Application 28.5.54151.54365, checked

App
Base Application
Namespace
Microsoft.API.Upgrade
Versions
20-28

Versions171819202122232425262728

Source29

Source in 29

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;

}