Page 780 Certificates of Supply, 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.Utilities;

page 780 "Certificates of Supply"
{
    ApplicationArea = Basic, Suite, Service;
    Caption = 'Certificates of Supply';
    DeleteAllowed = false;
    InsertAllowed = false;
    PageType = List;
    SourceTable = "Certificate of Supply";
    UsageCategory = Lists;

    layout
    {
        area(content)
        {
            repeater(Group)
            {
                field("Document Type"; Rec."Document Type")
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                }
                field("Document No."; Rec."Document No.")
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                }
                field(Status; Rec.Status)
                {
                    ApplicationArea = Basic, Suite;
                }
                field("No."; Rec."No.")
                {
                    ApplicationArea = Basic, Suite;
                }
                field("Receipt Date"; Rec."Receipt Date")
                {
                    ApplicationArea = Basic, Suite;
                }
                field(Printed; Rec.Printed)
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                }
                field("Customer/Vendor Name"; Rec."Customer/Vendor Name")
                {
                    ApplicationArea = Basic, Suite;
                }
                field("Shipment Date"; Rec."Shipment/Posting Date")
                {
                    ApplicationArea = Basic, Suite;
                }
                field("Shipment Country"; Rec."Ship-to Country/Region Code")
                {
                    ApplicationArea = Basic, Suite;
                }
                field("Customer/Vendor No."; Rec."Customer/Vendor No.")
                {
                    ApplicationArea = Basic, Suite;
                    Editable = false;
                }
                field("Shipment Method"; Rec."Shipment Method Code")
                {
                    ApplicationArea = Suite;
                }
                field("Vehicle Registration No."; Rec."Vehicle Registration No.")
                {
                    ApplicationArea = Basic, Suite;
                }
            }
        }
    }

    actions
    {
        area(processing)
        {
            action(PrintCertificateofSupply)
            {
                ApplicationArea = Basic, Suite;
                Caption = 'Print Certificate of Supply';
                Image = PrintReport;
                ToolTip = 'Print the certificate of supply that you must send to your customer for signature as confirmation of receipt.';

                trigger OnAction()
                var
                    CertificateOfSupply: Record "Certificate of Supply";
                begin
                    if not Rec.IsEmpty() then begin
                        CertificateOfSupply.Copy(Rec);
                        CertificateOfSupply.SetRange("Document Type", Rec."Document Type");
                        CertificateOfSupply.SetRange("Document No.", Rec."Document No.");
                    end;
                    CertificateOfSupply.Print();
                end;
            }
        }
        area(Promoted)
        {
            group(Category_Process)
            {
                Caption = 'Process';

                actionref(PrintCertificateofSupply_Promoted; PrintCertificateofSupply)
                {
                }
            }
        }
    }

    trigger OnOpenPage()
    begin
        if Rec.GetFilters = '' then
            Rec.SetFilter(Status, '<>%1', Rec.Status::"Not Applicable")
        else
            if Rec."Document No." <> '' then
                Rec.InitRecord(Rec."Document Type".AsInteger(), Rec."Document No.")
    end;
}