From 048ce95ff884f149f375fd97dc86f7667e5e9c35 Mon Sep 17 00:00:00 2001 From: AndreasHans Date: Fri, 1 May 2026 09:38:57 +0200 Subject: [PATCH] Access to CreateBillingProposalForPurchaseLine / CreateBillingProposalForPurchaseHeader / CreatePurchaseLines Cherry-pick of PR #7127 - Change internal to public for three procedures in BillingProposal.Codeunit.al Fixes AB#622411 Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com> --- .../App/Billing/Codeunits/BillingProposal.Codeunit.al | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Apps/W1/Subscription Billing/App/Billing/Codeunits/BillingProposal.Codeunit.al b/src/Apps/W1/Subscription Billing/App/Billing/Codeunits/BillingProposal.Codeunit.al index f00cf2b49c..81bfa4d6c0 100644 --- a/src/Apps/W1/Subscription Billing/App/Billing/Codeunits/BillingProposal.Codeunit.al +++ b/src/Apps/W1/Subscription Billing/App/Billing/Codeunits/BillingProposal.Codeunit.al @@ -701,14 +701,14 @@ codeunit 8062 "Billing Proposal" ProcessContractServiceCommitments(TempBillingTemplate, ContractNo, ContractLineFilter, BillingDate, BillingToDate, BillingRhythmFilter, false); end; - internal procedure CreateBillingProposalForPurchaseHeader(ServicePartner: Enum "Service Partner"; var TempServiceCommitment: Record "Subscription Line" temporary; BillingDate: Date; BillingToDate: Date) + procedure CreateBillingProposalForPurchaseHeader(ServicePartner: Enum "Service Partner"; var TempServiceCommitment: Record "Subscription Line" temporary; BillingDate: Date; BillingToDate: Date) var DummyPurchaseLine: Record "Purchase Line"; begin CreateBillingProposalForPurchaseLine(ServicePartner, TempServiceCommitment, BillingDate, BillingToDate, DummyPurchaseLine); end; - internal procedure CreateBillingProposalForPurchaseLine(ServicePartner: Enum "Service Partner"; var TempServiceCommitment: Record "Subscription Line" temporary; BillingDate: Date; BillingToDate: Date; var PurchaseLine: Record "Purchase Line") + procedure CreateBillingProposalForPurchaseLine(ServicePartner: Enum "Service Partner"; var TempServiceCommitment: Record "Subscription Line" temporary; BillingDate: Date; BillingToDate: Date; var PurchaseLine: Record "Purchase Line") var TempBillingTemplate: Record "Billing Template" temporary; ServiceCommitment: Record "Subscription Line"; @@ -728,7 +728,7 @@ codeunit 8062 "Billing Proposal" AddRecurringBillingFlagToExistingPurchaseHeader(PurchaseLine."Document Type", PurchaseLine."Document No."); end; - internal procedure CreatePurchaseLines(PurchaseHeader: Record "Purchase Header") + procedure CreatePurchaseLines(PurchaseHeader: Record "Purchase Header") var BillingLine: Record "Billing Line"; CreateBillingDocuments: Codeunit "Create Billing Documents";