Codeunit 6457 Serv. Price Helper V16
- App
- Base Application
- Namespace
- Microsoft.Service.Pricing
- Versions
- 25-28
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Service/Pricing/ServPriceHelperV16.Codeunit.al38 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Service.Pricing;
using Microsoft.Pricing.Asset;
using Microsoft.Pricing.PriceList;
codeunit 6457 "Serv. Price Helper V16"
{
var
PriceHelperV16: Codeunit "Price Helper - V16";
[EventSubscriber(ObjectType::Table, Database::"Service Cost", 'OnAfterDeleteEvent', '', true, false)]
local procedure AfterDeleteServiceCost(var Rec: Record "Service Cost"; RunTrigger: Boolean);
var
AssetType: Enum "Price Asset Type";
begin
if Rec.IsTemporary() then
exit;
if RunTrigger then
PriceHelperV16.DeletePriceLines(AssetType::"Service Cost", Rec.Code, '');
end;
[EventSubscriber(ObjectType::Table, Database::"Service Cost", 'OnAfterRenameEvent', '', true, false)]
local procedure AfterRenameServiceCost(var Rec: Record "Service Cost"; var xRec: Record "Service Cost"; RunTrigger: Boolean);
var
AssetType: Enum "Price Asset Type";
begin
if Rec.IsTemporary() then
exit;
if RunTrigger then
PriceHelperV16.RenameAssetInPrices(AssetType::"Service Cost", xRec.Code, Rec.Code);
end;
}