mirror of
https://github.com/microsoft/BCQuality.git
synced 2026-10-05 14:46:55 +01:00
a4d85c3e9e
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.
15 lines
554 B
Perl
15 lines
554 B
Perl
[Test]
|
|
procedure PostSalesOrder_CreatesInvoice()
|
|
var
|
|
Customer: Record Customer;
|
|
SalesHeader: Record "Sales Header";
|
|
begin
|
|
// [GIVEN] a customer with a full posting-group chain and VAT setup
|
|
LibrarySales.CreateCustomerWithPostingSetup(Customer);
|
|
// [GIVEN] a sales order for that customer, dated explicitly
|
|
LibrarySales.CreateSalesOrderForCustomer(SalesHeader, Customer."No.", WorkDate());
|
|
// [WHEN]
|
|
LibrarySales.PostSalesOrder(SalesHeader, false, true);
|
|
// [THEN]
|
|
Assert.RecordIsNotEmpty(SalesInvoiceHeader);
|
|
end;
|