mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
3f0b6a41db
Co-authored-by: Copilot App <223556219+Copilot@users.noreply.github.com> Copilot-Session: 667c64a8-eb36-4440-bc41-6a97d8fb5542
25 lines
1.1 KiB
AL
25 lines
1.1 KiB
AL
codeunit 50100 "Document Router"
|
|
{
|
|
procedure Route(SalesHeader: Record "Sales Header")
|
|
begin
|
|
// Profiling shows Orders are the common case, so that 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"::Quote:
|
|
RouteQuote(SalesHeader);
|
|
SalesHeader."Document Type"::"Return Order":
|
|
RouteReturnOrder(SalesHeader);
|
|
end;
|
|
end;
|
|
|
|
local procedure RouteOrder(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteInvoice(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteQuote(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteCreditMemo(SalesHeader: Record "Sales Header") begin end;
|
|
local procedure RouteReturnOrder(SalesHeader: Record "Sales Header") begin end;
|
|
}
|