mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
78eeb86a37
Pure git-mv relocation of all 7 performance articles from community/knowledge/performance/ to microsoft/knowledge/performance/. No content changes. Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
25 lines
1.1 KiB
AL
25 lines
1.1 KiB
AL
codeunit 50100 "Document Router"
|
|
{
|
|
procedure Route(SalesHeader: Record "Sales Header")
|
|
begin
|
|
// In this deployment Orders are ~85% of posting calls, Invoices ~12%,
|
|
// and the rest are edge cases. The hot branch goes first.
|
|
case SalesHeader."Document Type" of
|
|
SalesHeader."Document Type"::Order:
|
|
RouteOrder(SalesHeader);
|
|
SalesHeader."Document Type"::Invoice:
|
|
RouteInvoice(SalesHeader);
|
|
SalesHeader."Document Type"::"Credit Memo":
|
|
RouteCreditMemo(SalesHeader);
|
|
SalesHeader."Document Type"::"Return Order":
|
|
RouteReturnOrder(SalesHeader);
|
|
else
|
|
Error('Unexpected document type %1', SalesHeader."Document Type");
|
|
end;
|
|
end;
|
|
|
|
local procedure RouteOrder(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteInvoice(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteCreditMemo(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteReturnOrder(SalesHeader: Record "Sales Header") begin end;
|
|
}
|