mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
Second contribution from CURABIS ApS, generalized from patterns observed across real AppSource/PTE development. Cross-checked against the current microsoft/knowledge corpus before opening; several originally-drafted candidates were dropped as duplicates of existing files.
20 lines
619 B
AL
20 lines
619 B
AL
codeunit 50101 "Credit Memo Routing"
|
|
{
|
|
procedure PostSalesLine(var SalesHeader: Record "Sales Header"; var SalesLine: Record "Sales Line"; CustomerNo: Code[20]; Amount: Decimal)
|
|
begin
|
|
SalesHeader.Validate("Sell-to Customer No.", CustomerNo);
|
|
SalesLine.Insert(true);
|
|
|
|
// Negative amounts arrive from credit memos routed through this
|
|
// codeunit; PostEntry() rejects them, so they're filtered here.
|
|
if Amount < 0 then
|
|
exit;
|
|
|
|
if Amount > 0 then
|
|
PostEntry(Amount);
|
|
end;
|
|
|
|
local procedure PostEntry(Amount: Decimal)
|
|
begin
|
|
end;
|
|
}
|