mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
aad3991d9f
- Barcode: drop the false claim that '*value*' is mismatched with the
IDAutomation Code 39 font; '*' is a documented start/stop form and
'(' / ')' an accepted alternative. Cue and article now route only
independently provable validation/checksum/font-binding defects.
- Dispatch good samples (and matching bad samples) now pass a
Sales Invoice Header with the S.Invoice usage, matching the record
the selected report (1306 "Standard Sales - Invoice") expects.
- custom-document-dispatch rule made disjunctive: a hardcoded report
or a hand-built email is each a bypass on its own; scoped to
customer/vendor-facing documents. Bad fixture shows the hardcoded
report alone.
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
31 lines
1.4 KiB
AL
31 lines
1.4 KiB
AL
codeunit 50102 "Sample Posted Invoice Send"
|
|
{
|
|
procedure SendPostedInvoice(SalesInvoiceHeader: Record "Sales Invoice Header")
|
|
var
|
|
ReportSelections: Record "Report Selections";
|
|
ReportDistributionMgt: Codeunit "Report Distribution Management";
|
|
begin
|
|
// Custom validation specific to this dispatch stays here...
|
|
CheckReadyToSend(SalesInvoiceHeader);
|
|
|
|
// ...but dispatch goes through the registered usage. "S.Invoice"
|
|
// resolves to a report built on "Sales Invoice Header" (by default
|
|
// report 1306 "Standard Sales - Invoice"), so the record passed in
|
|
// matches what the selected report expects, and per-account
|
|
// report/layout overrides and email attachment/body configuration
|
|
// on Report Selections all apply automatically.
|
|
SalesInvoiceHeader.SetRecFilter();
|
|
ReportSelections.SendEmailToCust(
|
|
"Report Selection Usage"::"S.Invoice".AsInteger(), SalesInvoiceHeader, SalesInvoiceHeader."No.",
|
|
ReportDistributionMgt.GetFullDocumentTypeText(SalesInvoiceHeader), true,
|
|
SalesInvoiceHeader."Bill-to Customer No.");
|
|
end;
|
|
|
|
local procedure CheckReadyToSend(SalesInvoiceHeader: Record "Sales Invoice Header")
|
|
var
|
|
Customer: Record Customer;
|
|
begin
|
|
Customer.Get(SalesInvoiceHeader."Bill-to Customer No.");
|
|
Customer.TestField("E-Mail");
|
|
end;
|
|
}
|