diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedPurchDocument.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedPurchDocument.Codeunit.al index c8738e4834..a7346a6111 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedPurchDocument.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedPurchDocument.Codeunit.al @@ -5,13 +5,13 @@ namespace Microsoft.DemoData.Analytics; -using Microsoft.Purchases.Document; -using Microsoft.DemoTool.Helpers; +using Microsoft.DemoData.Bank; using Microsoft.DemoData.Foundation; -using Microsoft.DemoTool; using Microsoft.DemoData.Inventory; -using Microsoft.DemoData.Bank; using Microsoft.DemoData.Purchases; +using Microsoft.DemoTool; +using Microsoft.DemoTool.Helpers; +using Microsoft.Purchases.Document; codeunit 5688 "Create Extended Purch Document" { @@ -23,11 +23,11 @@ codeunit 5688 "Create Extended Purch Document" ContosoCoffeeDemoDataSetup: Record "Contoso Coffee Demo Data Setup"; PurchaseHeader: Record "Purchase Header"; ContosoPurchase: Codeunit "Contoso Purchase"; - CreateVendor: Codeunit "Create Vendor"; ContosoUtilities: Codeunit "Contoso Utilities"; - CreatePaymentTerms: Codeunit "Create Payment Terms"; CreateItem: Codeunit "Create Item"; CreatePaymentMethod: Codeunit "Create Payment Method"; + CreatePaymentTerms: Codeunit "Create Payment Terms"; + CreateVendor: Codeunit "Create Vendor"; DocumentDate: Date; StartingDate: Date; begin diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedSalesDocument.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedSalesDocument.Codeunit.al index a026e93f0b..88f52a2c7c 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedSalesDocument.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/3.Transactions/CreateExtendedSalesDocument.Codeunit.al @@ -5,13 +5,15 @@ namespace Microsoft.DemoData.Analytics; -using Microsoft.Sales.Document; -using Microsoft.DemoTool.Helpers; +using Microsoft.DemoData.Bank; +using Microsoft.DemoData.CRM; +using Microsoft.DemoData.Finance; using Microsoft.DemoData.Foundation; -using Microsoft.DemoTool; using Microsoft.DemoData.Inventory; -using Microsoft.DemoData.Bank; using Microsoft.DemoData.Sales; +using Microsoft.DemoTool; +using Microsoft.DemoTool.Helpers; +using Microsoft.Sales.Document; codeunit 5692 "Create Extended Sales Document" { @@ -29,207 +31,209 @@ codeunit 5692 "Create Extended Sales Document" var SalesHeader: Record "Sales Header"; ContosoSales: Codeunit "Contoso Sales"; - CreateCustomer: Codeunit "Create Customer"; ContosoUtilities: Codeunit "Contoso Utilities"; - CreatePaymentTerms: Codeunit "Create Payment Terms"; + CreateCustomer: Codeunit "Create Customer"; + CreateDeferralTemplate: Codeunit "Create Deferral Template"; CreateItem: Codeunit "Create Item"; CreatePaymentMethod: Codeunit "Create Payment Method"; + CreatePaymentTerms: Codeunit "Create Payment Terms"; + CreateSalespersonPurchaser: Codeunit "Create Salesperson/Purchaser"; FirstDayOfTheMonth: Date; LastDayOfTheMonth: Date; begin // Starting Date minus 5 months CalculateDatesForThisMonth('<-5M>', FirstDayOfTheMonth, LastDayOfTheMonth); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 3); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS60(), '', CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 6); // Starting Date minus 4 months CalculateDatesForThisMonth('<-4M>', FirstDayOfTheMonth, LastDayOfTheMonth); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 5); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS15(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 5, CreateDeferralTemplate.DeferralCode3M()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 4, CreateDeferralTemplate.DeferralCode1Y()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS10(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 5); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 6, CreateDeferralTemplate.DeferralCode3M()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 4, '', 2); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+12D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 9, CreateDeferralTemplate.DeferralCode1Y()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2, CreateDeferralTemplate.DeferralCode3M()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 4, CreateDeferralTemplate.DeferralCode3M()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+26D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+26D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+26D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+26D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 10); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS30(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6, '', 2); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 10, '', 3); // Starting Date minus 3 months CalculateDatesForThisMonth('<-3M>', FirstDayOfTheMonth, LastDayOfTheMonth); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS30(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 7); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 6); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+3D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+4D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+4D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+4D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+4D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+6D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 6, '', 2); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+9D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 9); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 4, '', 3); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS15(), '', CalcDate('<+18D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 10, '', 5); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+24D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-3D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-3D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-3D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS10(), '', CalcDate('<-3D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<-2D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS21(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 2); // Starting Date minus 2 months CalculateDatesForThisMonth('<-2M>', FirstDayOfTheMonth, LastDayOfTheMonth); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS21(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS15(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 7); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+7D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+7D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+7D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+7D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+8D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2, CreateDeferralTemplate.DeferralCode3M()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+13D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 7); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+14D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+17D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+17D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+17D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+17D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+19D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 3); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 7); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.GuestSection1(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.GuestSection1(), 4, CreateDeferralTemplate.DeferralCode1Y()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticRelecloud(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+21D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 12); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<-4D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 3); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-1D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-1D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-1D>', LastDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-1D>', LastDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS21(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 4); // Previous Month CalculateDatesForThisMonth('<-1M>', FirstDayOfTheMonth, LastDayOfTheMonth); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), FirstDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS30(), '', FirstDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 7); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 3); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 6); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS15(), '', CalcDate('<+1D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 4, CreateDeferralTemplate.DeferralCode1Y()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+2D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 6, '', 2); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 8, '', 2); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+5D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+10D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+11D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.GuestSection1(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<+15D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 1); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+16D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+16D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+16D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalcDate('<+16D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+20D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+22D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 5, '', 5); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalcDate('<+23D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentTerms.PaymentTermsDAYS10(), '', CalcDate('<+25D>', FirstDayOfTheMonth), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsCM(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticAdatumCorporation(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS14(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 8, CreateDeferralTemplate.DeferralCode3M()); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.DomesticTreyResearch(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), LastDayOfTheMonth, CreatePaymentTerms.PaymentTermsDAYS21(), '', LastDayOfTheMonth, CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 8); // Current month - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-CM>', StartingDate), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-CM>', StartingDate), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.ExportSchoolofArt(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-CM>', StartingDate), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-CM>', StartingDate), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 5); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-CM>', StartingDate), CreatePaymentTerms.PaymentTermsCM(), '', CalcDate('<-CM>', StartingDate), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Invoice, CreateCustomer.EUAlpineSkiHouse(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), CalcDate('<-CM>', StartingDate), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalcDate('<-CM>', StartingDate), CreatePaymentMethod.Cash(), '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 10); end; @@ -237,63 +241,111 @@ codeunit 5692 "Create Extended Sales Document" var SalesHeader: Record "Sales Header"; ContosoSales: Codeunit "Contoso Sales"; - CreateCustomer: Codeunit "Create Customer"; ContosoUtilities: Codeunit "Contoso Utilities"; - CreatePaymentTerms: Codeunit "Create Payment Terms"; + CreateCustomer: Codeunit "Create Customer"; + CreateDeferralTemplate: Codeunit "Create Deferral Template"; CreateItem: Codeunit "Create Item"; + CreatePaymentTerms: Codeunit "Create Payment Terms"; CreateSalesDocument: Codeunit "Create Sales Document"; + CreateSalespersonPurchaser: Codeunit "Create Salesperson/Purchaser"; + CreateShippingData: Codeunit "Create Shipping Data"; begin + // Orders + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 24); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 6); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.ExportSchoolofArt(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 12); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 8); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-5W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 24); + + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-4W>'), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SydneySwivelChairGreen(), 9, CreateDeferralTemplate.DeferralCode1Y()); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-4W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 12); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-2W>'), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 20); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 1); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-1W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10, CreateDeferralTemplate.DeferralCode1Y()); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.ExportSchoolofArt(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19030422D), ContosoUtilities.AdjustDate(19030422D), CreatePaymentTerms.PaymentTermsDAYS30(), '', ContosoUtilities.AdjustDate(19030422D), '', CreateShippingData.DHL(), ContosoUtilities.AdjustDate(19030423D), CreateShippingData.OverNight(), '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 12); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 10); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19030513D), ContosoUtilities.AdjustDate(19030513D), CreatePaymentTerms.PaymentTermsM8D(), '', ContosoUtilities.AdjustDate(19030513D), '', CreateShippingData.DHL(), ContosoUtilities.AdjustDate(19030514D), CreateShippingData.Standard(), '', CreateSalespersonPurchaser.LinaTownsend()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 16); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 20); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 7); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19030422D), ContosoUtilities.AdjustDate(19030422D), CreatePaymentTerms.PaymentTermsCM(), '', ContosoUtilities.AdjustDate(19030422D), '', CreateShippingData.Fedex(), ContosoUtilities.AdjustDate(19030423D), CreateShippingData.Standard(), '', CreateSalespersonPurchaser.OtisFalls()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 6); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.SeoulGuestChairRed(), 12); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 6); + + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Order, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19030422D), ContosoUtilities.AdjustDate(19030422D), CreatePaymentTerms.PaymentTermsDAYS14(), '', ContosoUtilities.AdjustDate(19030422D), '', CreateShippingData.DHL(), ContosoUtilities.AdjustDate(19030423D), CreateShippingData.Standard(), '', CreateSalespersonPurchaser.JimOlive()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MoscowSwivelChairRed(), 20, CreateDeferralTemplate.DeferralCode3M()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 20, CreateDeferralTemplate.DeferralCode3M()); // Quotes - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 24); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-19W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-19W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-19W>'), CreatePaymentTerms.PaymentTermsDAYS15(), '', CalculateDate('<-19W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 28); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 20); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 10); SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-10W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-10W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 16); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 16, CreateDeferralTemplate.DeferralCode3M()); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-8W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-8W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-8W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-8W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 8); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8, CreateDeferralTemplate.DeferralCode1Y()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 8, CreateDeferralTemplate.DeferralCode1Y()); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.ExportSchoolofArt(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-26W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-26W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 10); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 16); - ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 20); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.ExportSchoolofArt(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-26W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-26W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensDesk(), 10, CreateDeferralTemplate.DeferralCode1Y()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 16, CreateDeferralTemplate.DeferralCode1Y()); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 20, CreateDeferralTemplate.DeferralCode1Y()); // Return Orders - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-17W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-17W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-17W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-17W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 1); SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-6W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-6W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 3); @@ -308,13 +360,13 @@ codeunit 5692 "Create Extended Sales Document" ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 3); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-6W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-6W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-6W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-6W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 4); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 2); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-18W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-18W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-18W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-18W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 4); SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::"Return Order", CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); @@ -322,31 +374,31 @@ codeunit 5692 "Create Extended Sales Document" // Quotes - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticAdatumCorporation(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-15W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-15W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MunichSwivelChairYellow(), 24); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-17W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-17W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.EUAlpineSkiHouse(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-17W>'), CreatePaymentTerms.PaymentTermsDAYS60(), '', CalculateDate('<-17W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 28); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.ParisGuestChairBlack(), 20); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-12W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-12W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-12W>'), CreatePaymentTerms.PaymentTermsDAYS30(), '', CalculateDate('<-12W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 16); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-9W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-9W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AntwerpConferenceTable(), 10); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsDAYS15(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 6); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticRelecloud(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-3W>'), CreatePaymentTerms.PaymentTermsDAYS21(), '', CalculateDate('<-3W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.TokyoGuestChairBlue(), 8); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.RomeGuestChairGreen(), 8); - SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsCM(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); + SalesHeader := ContosoSales.InsertSalesHeader(Enum::"Sales Document Type"::Quote, CreateCustomer.DomesticTreyResearch(), CreateSalesDocument.OpenYourReference(), ContosoUtilities.AdjustDate(19020101D), CalculateDate('<-7W>'), CreatePaymentTerms.PaymentTermsDAYS14(), '', CalculateDate('<-7W>'), '', '', ContosoUtilities.AdjustDate(0D), '', ''); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AtlantaWhiteboardBase(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AthensMobilePedestal(), 10); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.LondonSwivelChairBlue(), 6); @@ -392,6 +444,6 @@ codeunit 5692 "Create Extended Sales Document" end; var - AnalyticsReferenceTok: Label 'ANALYTICS', MaxLength = 35; StartingDate: Date; + AnalyticsReferenceTok: Label 'ANALYTICS', MaxLength = 35; } \ No newline at end of file diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/4.Historical/CreatePostedAnalyticsData.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/4.Historical/CreatePostedAnalyticsData.Codeunit.al index 6b2fe60d2d..fbbc771342 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/4.Historical/CreatePostedAnalyticsData.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoData/Analytics/4.Historical/CreatePostedAnalyticsData.Codeunit.al @@ -5,14 +5,20 @@ namespace Microsoft.DemoData.Analytics; -using Microsoft.Sales.Document; -using Microsoft.Sales.Posting; using Microsoft.Purchases.Document; using Microsoft.Purchases.Posting; +using Microsoft.Sales.Document; +using Microsoft.Sales.Posting; codeunit 5698 "Create Posted Analytics Data" { trigger OnRun() + begin + PostSalesInvoicesForAnalytics(); + PostPurchaseOrdersForAnalytics(); + end; + + procedure PostSalesInvoicesForAnalytics() var SalesHeader: Record "Sales Header"; CreateExtendedSalesDocument: Codeunit "Create Extended Sales Document"; diff --git a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoSales.Codeunit.al b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoSales.Codeunit.al index 45628ddfed..41c221fc9c 100644 --- a/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoSales.Codeunit.al +++ b/Apps/W1/ContosoCoffeeDemoDataset/app/DemoTool/Contoso Helpers/ContosoSales.Codeunit.al @@ -24,6 +24,11 @@ codeunit 5124 "Contoso Sales" end; procedure InsertSalesHeader(DocumentType: Enum "Sales Document Type"; SelltoCustomerNo: Code[20]; YourReference: Code[35]; OrderDate: Date; PostingDate: Date; PaymentTermsCode: Code[10]; LocationCode: Code[10]; DocumentDate: Date; PaymentMethodCode: Code[10]; ShippingAgentCode: Code[10]; RequestedDeliveryDate: Date; ShippingAgentServiceCode: Code[10]; ExternalDocumentNo: Code[35]): Record "Sales Header" + begin + exit(InsertSalesHeader(DocumentType, SelltoCustomerNo, YourReference, OrderDate, PostingDate, PaymentTermsCode, LocationCode, DocumentDate, PaymentMethodCode, ShippingAgentCode, RequestedDeliveryDate, ShippingAgentServiceCode, ExternalDocumentNo, '')); + end; + + procedure InsertSalesHeader(DocumentType: Enum "Sales Document Type"; SelltoCustomerNo: Code[20]; YourReference: Code[35]; OrderDate: Date; PostingDate: Date; PaymentTermsCode: Code[10]; LocationCode: Code[10]; DocumentDate: Date; PaymentMethodCode: Code[10]; ShippingAgentCode: Code[10]; RequestedDeliveryDate: Date; ShippingAgentServiceCode: Code[10]; ExternalDocumentNo: Code[35]; SalespersonCode: Code[20]): Record "Sales Header" var SalesHeader: Record "Sales Header"; begin @@ -46,12 +51,24 @@ codeunit 5124 "Contoso Sales" SalesHeader.Validate("Shipping Agent Service Code", ShippingAgentServiceCode); SalesHeader.Validate("External Document No.", ExternalDocumentNo); SalesHeader.Validate("Location Code", LocationCode); + if SalespersonCode <> '' then + SalesHeader.Validate("Salesperson Code", SalespersonCode); SalesHeader.Modify(true); exit(SalesHeader); end; procedure InsertSalesLineWithItem(SalesHeader: Record "Sales Header"; ItemNo: Code[20]; Quantity: Decimal) + begin + InsertSalesLineWithItem(SalesHeader, ItemNo, Quantity, ''); + end; + + procedure InsertSalesLineWithItem(SalesHeader: Record "Sales Header"; ItemNo: Code[20]; Quantity: Decimal; DeferralCode: Code[10]) + begin + InsertSalesLineWithItem(SalesHeader, ItemNo, Quantity, DeferralCode, 0); + end; + + procedure InsertSalesLineWithItem(SalesHeader: Record "Sales Header"; ItemNo: Code[20]; Quantity: Decimal; DeferralCode: Code[10]; LineDiscountPercent: Decimal) var Item: Record Item; SalesLine: Record "Sales Line"; @@ -67,6 +84,10 @@ codeunit 5124 "Contoso Sales" SalesLine.Validate("No.", Item."No."); SalesLine.Validate("Unit of Measure Code", Item."Base Unit of Measure"); SalesLine.Validate("Quantity", Quantity); + if DeferralCode <> '' then + SalesLine.Validate("Deferral Code", DeferralCode); + if LineDiscountPercent <> 0 then + SalesLine.Validate("Line Discount %", LineDiscountPercent); SalesLine.Insert(true); end;