mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-08-06 17:36:53 +01:00
292bdabe27
Pure git-mv relocation of all 7 performance articles from community/knowledge/performance/ to microsoft/knowledge/performance/. No content changes. Co-authored-by: Jesper Schulz-Wedde <jesper.schulzwedde@microsoft.com> Co-authored-by: Copilot <223556219+Copilot@users.noreply.github.com>
23 lines
972 B
AL
23 lines
972 B
AL
codeunit 50100 "Sales Document Processor"
|
|
{
|
|
procedure ProcessDocument(var SalesHeader: Record "Sales Header")
|
|
begin
|
|
// Single top-level load pulls every field any branch might touch.
|
|
// Order records pay for Posting Date and Amount Including VAT that
|
|
// only the Invoice branch reads, and vice versa.
|
|
SalesHeader.SetLoadFields(
|
|
"Document Type", "No.", "Sell-to Customer No.",
|
|
"Order Date", "Shipment Date", "Completely Shipped",
|
|
"Posting Date", "Amount Including VAT");
|
|
|
|
case SalesHeader."Document Type" of
|
|
SalesHeader."Document Type"::Order:
|
|
ProcessOrder(SalesHeader);
|
|
SalesHeader."Document Type"::Invoice:
|
|
ProcessInvoice(SalesHeader);
|
|
end;
|
|
end;
|
|
|
|
local procedure ProcessOrder(var SalesHeader: Record "Sales Header") begin end;
|
|
local procedure ProcessInvoice(var SalesHeader: Record "Sales Header") begin end;
|
|
}
|