Codeunit 5033 P.Phys.InvRec PDF Doc.Handler, source in 29
Source29
src/Layers/W1/BaseApp/Inventory/eServices/EDocument/PPhysInvRecPDFDocHandler.Codeunit.al46 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.EServices.EDocument;
using Microsoft.Foundation.Reporting;
using Microsoft.Integration.Graph;
using Microsoft.Inventory.Counting.History;
using System.EMail;
using System.Utilities;
codeunit 5033 "P.Phys.InvRec PDF Doc.Handler" implements IPdfDocumentHandler
{
var
PostedPhysInvtRecordingLbl: Label 'Posted Phys. Invt. Recording';
/// <summary>
/// Generates a PDF blob for Posted Physical Inventory Recording
/// </summary>
/// <param name="DocumentId">Document ID</param>
/// <param name="DocumentType">Document Type</param>
/// <param name="TempAttachmentEntityBuffer">The buffer to store successfully generated report</param>
/// <returns>True if the generated report successfully added to the buffer, otherwise false.</returns>
procedure GeneratePdfBlobWithDocumentType(DocumentId: Guid; DocumentType: Enum "Attachment Entity Buffer Document Type"; var TempAttachmentEntityBuffer: Record "Attachment Entity Buffer" temporary): Boolean
var
PstdPhysInvtRecordHdr: Record "Pstd. Phys. Invt. Record Hdr";
ReportSelections: Record "Report Selections";
DocumentMailing: Codeunit "Document-Mailing";
PDFDocumentManagement: Codeunit "PDF Document Management";
TempBlob: Codeunit "Temp Blob";
Name: Text[250];
ReportUsage: Enum "Report Selection Usage";
begin
if not PstdPhysInvtRecordHdr.GetBySystemId(DocumentId) then
exit(false);
PstdPhysInvtRecordHdr.SetRange("Order No.", PstdPhysInvtRecordHdr."Order No.");
PstdPhysInvtRecordHdr.SetRange("Recording No.", PstdPhysInvtRecordHdr."Recording No.");
ReportUsage := "Report Selection Usage"::"P.Phys.Invt.Rec.";
ReportSelections.GetPdfReportForTable(TempBlob, ReportUsage, PstdPhysInvtRecordHdr, Database::"Pstd. Phys. Invt. Record Hdr");
DocumentMailing.GetAttachmentFileName(Name, PstdPhysInvtRecordHdr."Order No.", PostedPhysInvtRecordingLbl, ReportUsage.AsInteger());
exit(PDFDocumentManagement.AddToTempAttachmentEntityBuffer(DocumentId, DocumentType, TempBlob, Name, TempAttachmentEntityBuffer));
end;
}