table 50263 "Sales Order Ext"
{
    DataClassification = CustomerContent;

    fields
    {
        field(1; "No."; Code[20]) { }
        field(2; "Shipping Agent Code"; Code[10]) { TableRelation = "Shipping Agent"; }
        field(3; "Legacy Carrier Code"; Code[10]) { }
    }

    keys
    {
        key(PK; "No.") { Clustered = true; }
    }
}

codeunit 50261 "Upgrade All Companies"
{
    Subtype = Upgrade;

    trigger OnUpgradePerDatabase()
    var
        Company: Record Company;
        SalesOrderExt: Record "Sales Order Ext";
    begin
        // Reaches into every company from one session. Each company also has its own
        // upgrade session, triggers and subscribers run in the calling context, and a
        // data error in any company aborts the whole upgrade.
        if Company.FindSet() then
            repeat
                SalesOrderExt.ChangeCompany(Company.Name);
                SalesOrderExt.SetRange("Shipping Agent Code", '');
                if SalesOrderExt.FindSet(true) then
                    repeat
                        SalesOrderExt.Validate("Shipping Agent Code", SalesOrderExt."Legacy Carrier Code");
                        SalesOrderExt.Modify(true);
                    until SalesOrderExt.Next() = 0;
            until Company.Next() = 0;
    end;
}