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.
18 lines
561 B
AL
18 lines
561 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
|
|
// Set the customer number
|
|
SalesHeader.Validate("Sell-to Customer No.", CustomerNo);
|
|
// Insert the line
|
|
SalesLine.Insert(true);
|
|
// Check if the amount is positive
|
|
if Amount > 0 then
|
|
// Post the entry
|
|
PostEntry(Amount);
|
|
end;
|
|
|
|
local procedure PostEntry(Amount: Decimal)
|
|
begin
|
|
end;
|
|
}
|