Codeunit 7014 Price Source Group - Vendor, source in 29

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Pricing.Source;

using Microsoft.Purchases.Pricing;

codeunit 7014 "Price Source Group - Vendor" implements "Price Source Group"
{
    var
        PurchaseSourceType: Enum "Purchase Price Source Type";

    procedure IsSourceTypeSupported(SourceType: Enum "Price Source Type"): Boolean;
    var
        Ordinals: list of [Integer];
    begin
        Ordinals := PurchaseSourceType.Ordinals();
        exit(Ordinals.Contains(SourceType.AsInteger()))
    end;

    procedure GetGroup() SourceGroup: Enum "Price Source Group";
    begin
        exit(SourceGroup::Vendor);
    end;
}