[Request for External] Make ConvertToPurchaseDocumentTypeFrom external function in codeunit 6620 "Copy Document Mgt."

[tuan-nguyen-fenwick]

Why do you need this change?

We want to use the ConvertToPurchaseDocumentTypeFrom function in our app without having to create a copy of this function.

Describe the request

Hi Microsoft BC Dev Team,

Could you make the ConvertToPurchaseDocumentTypeFrom an external function in codeunit 6620 "Copy Document Mgt."?

Kind regards,
Tuan
Internal work item: AB#630374

[AleksandricMarko]

✅ Analysis complete - approved for implementation

---

Implementation:

Make ConvertToPurchaseDocumentTypeFrom in Codeunit 6620 "Copy Document Mgt." externally accessible by removing the local modifier. No logic change is required.

Current code:

local procedure ConvertToPurchaseDocumentTypeFrom(PurchaseDocType: Enum "Purchase Document Type") PurchaseDocTypeFrom: Enum "Purchase Document Type From"
begin
    case PurchaseDocType of
        PurchaseDocType::Quote:
            exit(PurchaseDocTypeFrom::Quote);
        PurchaseDocType::Order:
            exit(PurchaseDocTypeFrom::Order);
        PurchaseDocType::Invoice:
            exit(PurchaseDocTypeFrom::Invoice);
        PurchaseDocType::"Credit Memo":
            exit(PurchaseDocTypeFrom::"Credit Memo");
        PurchaseDocType::"Blanket Order":
            exit(PurchaseDocTypeFrom::"Blanket Order");
        PurchaseDocType::"Return Order":
            exit(PurchaseDocTypeFrom::"Return Order");
    end;
end;

Proposed change:

procedure ConvertToPurchaseDocumentTypeFrom(PurchaseDocType: Enum "Purchase Document Type") PurchaseDocTypeFrom: Enum "Purchase Document Type From"
begin
    case PurchaseDocType of
        PurchaseDocType::Quote:
            exit(PurchaseDocTypeFrom::Quote);
        PurchaseDocType::Order:
            exit(PurchaseDocTypeFrom::Order);
        PurchaseDocType::Invoice:
            exit(PurchaseDocTypeFrom::Invoice);
        PurchaseDocType::"Credit Memo":
            exit(PurchaseDocTypeFrom::"Credit Memo");
        PurchaseDocType::"Blanket Order":
            exit(PurchaseDocTypeFrom::"Blanket Order");
        PurchaseDocType::"Return Order":
            exit(PurchaseDocTypeFrom::"Return Order");
    end;
end;

---

File: CopyDocumentMgt.Codeunit.al