mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-07 15: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>
59 lines
2.4 KiB
AL
59 lines
2.4 KiB
AL
page 50101 "Sample Posted Invoice Card"
|
|
{
|
|
PageType = Card;
|
|
SourceTable = "Sales Invoice Header";
|
|
ApplicationArea = All;
|
|
Editable = false;
|
|
|
|
actions
|
|
{
|
|
area(Processing)
|
|
{
|
|
action(EmailDocument)
|
|
{
|
|
ApplicationArea = All;
|
|
Caption = 'Email';
|
|
Image = Email;
|
|
|
|
trigger OnAction()
|
|
var
|
|
SalesInvoiceHeader: Record "Sales Invoice Header";
|
|
ReportSelections: Record "Report Selections";
|
|
ReportDistributionMgt: Codeunit "Report Distribution Management";
|
|
begin
|
|
// Calls Report Selections directly - the button's outcome
|
|
// depends only on this customer's registered report/layout,
|
|
// not on any Document Sending Profile setting. Calling
|
|
// DocumentSendingProfile.TrySendToEMail(...) instead would
|
|
// be equally correct: it never Get's the customer's
|
|
// actually assigned profile, only a local, hardcoded one.
|
|
// "S.Invoice" resolves to a report on "Sales Invoice
|
|
// Header", which is the record passed here.
|
|
SalesInvoiceHeader := Rec;
|
|
CurrPage.SetSelectionFilter(SalesInvoiceHeader);
|
|
ReportSelections.SendEmailToCust(
|
|
"Report Selection Usage"::"S.Invoice".AsInteger(), SalesInvoiceHeader, Rec."No.",
|
|
ReportDistributionMgt.GetFullDocumentTypeText(Rec), true, Rec."Bill-to Customer No.");
|
|
end;
|
|
}
|
|
action(PrintDocument)
|
|
{
|
|
ApplicationArea = All;
|
|
Caption = 'Print';
|
|
Image = Print;
|
|
|
|
trigger OnAction()
|
|
var
|
|
SalesInvoiceHeader: Record "Sales Invoice Header";
|
|
ReportSelections: Record "Report Selections";
|
|
begin
|
|
SalesInvoiceHeader := Rec;
|
|
CurrPage.SetSelectionFilter(SalesInvoiceHeader);
|
|
ReportSelections.PrintWithDialogForCust(
|
|
"Report Selection Usage"::"S.Invoice", SalesInvoiceHeader, true,
|
|
SalesInvoiceHeader.FieldNo("Bill-to Customer No."));
|
|
end;
|
|
}
|
|
}
|
|
}
|
|
}
|