Codeunit 1407 Return Receipt Header - Edit, 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.Sales.History;

/// <summary>
/// Provides functionality to edit specific fields on posted sales return receipt headers.
/// </summary>
codeunit 1407 "Return Receipt Header - Edit"
{
    Permissions = TableData "Return Receipt Header" = rm;
    TableNo = "Return Receipt Header";

    trigger OnRun()
    var
        ReturnReceiptHeader: Record "Return Receipt Header";
    begin
        ReturnReceiptHeader := Rec;
        ReturnReceiptHeader.LockTable();
        ReturnReceiptHeader.Find();
        ReturnReceiptHeader."Bill-to County" := Rec."Bill-to County";
        ReturnReceiptHeader."Bill-to Country/Region Code" := Rec."Bill-to Country/Region Code";
        ReturnReceiptHeader."Shipping Agent Code" := Rec."Shipping Agent Code";
        ReturnReceiptHeader."Package Tracking No." := Rec."Package Tracking No.";
        OnBeforeReturnReceiptHeaderModify(ReturnReceiptHeader, Rec);
        ReturnReceiptHeader.TestField("No.", Rec."No.");
        ReturnReceiptHeader.Modify();
        Rec := ReturnReceiptHeader;

        OnRunOnAfterReturnReceiptHeaderEdit(Rec);
    end;

    [IntegrationEvent(false, false)]
    local procedure OnBeforeReturnReceiptHeaderModify(var ReturnReceiptHeader: Record "Return Receipt Header"; ReturnReceiptHeaderRec: Record "Return Receipt Header")
    begin
    end;

    [IntegrationEvent(false, false)]
    local procedure OnRunOnAfterReturnReceiptHeaderEdit(var ReturnReceiptHeader: Record "Return Receipt Header")
    begin
    end;
}