To complete this walkthrough, you will need:

• Microsoft Dynamics NAV 2009 SP1 with a developer license.

• The CRONUS International Ltd. demo data company.

1. In the Classic client, on the Tools menu, click Options.

2. In the Options window, in the Show C/AL Testability properties field, enter Yes, and then click OK.

1. In the Classic client, on the Tools menu, click Object Designer.

2. In Object Designer, click Codeunit, and then click New.

3. On the View menu, click Properties.

4. In the Properties window, in the Subtype field, select Test to specify that this is a test codeunit.

5. On the View menu, click C/AL Globals.

6. In the C/AL Globals window, on the Functions tab, enter CalculateVendorDiscount. This is the name of the test function.

   Note
   By default, functions that you add to test codeunits have the FunctionType property set to Test.

7. On the Functions tab, click Locals.

8. In the C/AL Locals window, on the Variables tab, enter the following variables, which you will use in the CalculateVendorDiscount test function.

   Name	DataType	Subtype
   VendorDiscount	Record	Vendor Invoice Disc.
   PurchaseLine	Record	Purchase Line
   Discount	Decimal
   PurchCalcDisc	Codeunit	Purch-Calc.Discount

   Important
   Be sure to create these variables on the Variables tab, not on the Parameters tab. If you create them on the Parameters tab, then you get an error when you compile that says the test method signature is invalid.

9. In the C/AL Locals window, on the Text Constants tab, in the Name field, enter VendorDiscountError. In the ConstValue field, enter Vendor Discount Error - Line Amount: %1, Discount: %2, Discount Amount: %3.

10. Close the C/AL Locals window and the C/AL Globals window.

11. In the C/AL Editor, in the CalculateVendorDiscount function, enter the following code.

    Copy Code

    Discount := RANDOM(99) + 1; // Set Discount > 0, <= 100 // Find purchase line. PurchaseLine.SETFILTER("Line Amount", '>0'); PurchaseLine.SETFILTER("Allow Invoice Disc.", '=%1', TRUE); IF NOT (PurchaseLine.FINDFIRST) THEN ERROR('No Purchase Line found for the Calculate Vendor Discount test'); // Create vendor discount. WITH PurchaseLine DO BEGIN IF NOT (VendorDiscount.GET("Buy-from Vendor No.", "Currency Code", "Line Amount")) THEN BEGIN VendorDiscount.INIT; VendorDiscount.Code := "Buy-from Vendor No."; VendorDiscount.VALIDATE("Currency Code","Currency Code"); VendorDiscount.VALIDATE("Minimum Amount","Line Amount"); VendorDiscount.INSERT(TRUE); END; END; VendorDiscount.VALIDATE("Discount %", Discount); VendorDiscount.MODIFY(TRUE); // Run codeunit "Purch.-Calc.Discount" for calculating discount. PurchCalcDisc.RUN(PurchaseLine); PurchaseLine.GET(PurchaseLine."Document Type",PurchaseLine."Document No.",PurchaseLine."Line No."); // Validate purchase discount amount WITH PurchaseLine DO BEGIN IF NOT (ROUND("Line Amount" * Discount / 100) = "Inv. Discount Amount") THEN ERROR(VendorDiscountError, "Line Amount", Discount, "Inv. Discount Amount" ); END;

    The code in this test function prepares the test data by setting a random discount amount, getting a record from the Purchase Line table that satisfies two filters, and creating a record in the Vendor Invoice Disc. Table with the random discount amount. Next, it runs the Purch-Calc.Discount codeunit, which contains the code that is being tested. Finally, it validates the results of running the Purch-Calc.Discount codeunit and raises an error if the results are not as expected.

    Note
    This test code does not guarantee that the state of the database after you run the test is the same as the state of the database before you run the test.

12. On the File menu, click Save.

13. In the Save As window, in the ID field, enter 50005. In the Name field, enter VendorDiscount. Verify that the Compiled check box is selected, and then click OK.

1. In the Classic client, on the Tools menu, click Object Designer.

2. In Object Designer, click Codeunit, select the existing test runner codeunit, and then click Design.

   Note
   If you do not have an existing test runner codeunit, you can create a new one. For more information, see How to: Create a Test Runner Codeunit. You do not need to create the OnBeforeTestRun and OnAfterTestRun triggers for this walkthrough. If you create the OnAfterTestRun trigger, then it suppresses the automatic display of the results message after the test codeunit runs.

3. In the C/AL Editor, in the OnRun function, add the following code.

   	Copy Code
   CODEUNIT.RUN(CODEUNIT::VendorDiscount);

4. On the File menu, click Save.