diff --git a/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Analytics/4.Historical/CreateAnalyticsDataIT.Codeunit.al b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Analytics/4.Historical/CreateAnalyticsDataIT.Codeunit.al new file mode 100644 index 0000000000..ca43e7d110 --- /dev/null +++ b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Analytics/4.Historical/CreateAnalyticsDataIT.Codeunit.al @@ -0,0 +1,69 @@ +// ------------------------------------------------------------------------------------------------ +// Copyright (c) Microsoft Corporation. All rights reserved. +// Licensed under the MIT License. See License.txt in the project root for license information. +// ------------------------------------------------------------------------------------------------ + +namespace Microsoft.DemoData.Analytics; + +using Microsoft.DemoData.Foundation; +using Microsoft.Foundation.NoSeries; + +codeunit 12254 "Create Analytics Data IT" +{ + SingleInstance = true; + InherentEntitlements = X; + InherentPermissions = X; + EventSubscriberInstance = Manual; + Permissions = tabledata "No. Series Line" = rm; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Posted Analytics Data", OnBeforePostPurchaseOrdersForAnalytics, '', false, false)] + local procedure OnBeforePostPurchaseOrdersForAnalytics() + begin + NoSeriesLine.SetCurrentKey("Series Code", "Starting Date"); + NoSeriesLine.SetFilter("Series Code", '%1|%2|%3', + CreateNoSeriesIT.InvCrMemoVATNoforItalianVend(), + CreateNoSeriesIT.InvCrMemoVATNoforEUVend(), + CreateNoSeriesIT.InvCrMemoVATNoforExtraEUVendors()); + if NoSeriesLine.FindSet(true) then + repeat + case NoSeriesLine."Series Code" of + CreateNoSeriesIT.InvCrMemoVATNoforItalianVend(): + LastUsedDates[1] := NoSeriesLine."Last Date Used"; + CreateNoSeriesIT.InvCrMemoVATNoforEUVend(): + LastUsedDates[2] := NoSeriesLine."Last Date Used"; + CreateNoSeriesIT.InvCrMemoVATNoforExtraEUVendors(): + LastUsedDates[3] := NoSeriesLine."Last Date Used"; + end; + + NoSeriesLine.Validate("Last Date Used", 0D); + NoSeriesLine.Modify(true); + until NoSeriesLine.Next() = 0; + end; + + [EventSubscriber(ObjectType::Codeunit, Codeunit::"Create Posted Analytics Data", OnAfterPostPurchaseOrdersForAnalytics, '', false, false)] + local procedure OnAfterPostPurchaseOrdersForAnalytics() + begin + NoSeriesLine.SetCurrentKey("Series Code", "Starting Date"); + NoSeriesLine.SetFilter("Series Code", '%1|%2|%3', + CreateNoSeriesIT.InvCrMemoVATNoforItalianVend(), + CreateNoSeriesIT.InvCrMemoVATNoforEUVend(), + CreateNoSeriesIT.InvCrMemoVATNoforExtraEUVendors()); + if NoSeriesLine.FindSet(true) then + repeat + case NoSeriesLine."Series Code" of + CreateNoSeriesIT.InvCrMemoVATNoforItalianVend(): + NoSeriesLine.Validate("Last Date Used", LastUsedDates[1]); + CreateNoSeriesIT.InvCrMemoVATNoforEUVend(): + NoSeriesLine.Validate("Last Date Used", LastUsedDates[2]); + CreateNoSeriesIT.InvCrMemoVATNoforExtraEUVendors(): + NoSeriesLine.Validate("Last Date Used", LastUsedDates[3]); + end; + NoSeriesLine.Modify(true); + until NoSeriesLine.Next() = 0; + end; + + var + NoSeriesLine: Record "No. Series Line"; + CreateNoSeriesIT: Codeunit "Create No. Series IT"; + LastUsedDates: array[3] of Date; +} \ No newline at end of file diff --git a/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Foundation/1. Setup Data/CreatePaymentTermIT.Codeunit.al b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Foundation/1. Setup Data/CreatePaymentTermIT.Codeunit.al index d0f8ff04c3..27981b61e3 100644 --- a/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Foundation/1. Setup Data/CreatePaymentTermIT.Codeunit.al +++ b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/Foundation/1. Setup Data/CreatePaymentTermIT.Codeunit.al @@ -77,6 +77,26 @@ codeunit 12202 "Create Payment Term IT" Evaluate(DueDateCalculation, '<7D>'); ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS7(), 10000, 100, DueDateCalculation, DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); + + Evaluate(DueDateCalculation, '<2D>'); + ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS2(), 10000, 100, DueDateCalculation, + DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); + + Evaluate(DueDateCalculation, '<10D>'); + ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS10(), 10000, 100, DueDateCalculation, + DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); + + Evaluate(DueDateCalculation, '<15D>'); + ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS15(), 10000, 100, DueDateCalculation, + DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); + + Evaluate(DueDateCalculation, '<30D>'); + ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS30(), 10000, 100, DueDateCalculation, + DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); + + Evaluate(DueDateCalculation, '<60D>'); + ContosoPaymentLines.InsertPaymentLines(PaymentLines.Type::"Payment Terms", CreatePaymentTerms.PaymentTermsDAYS60(), 10000, 100, DueDateCalculation, + DiscountDateCalculation, 0, PaymentLines."Sales/Purchase"::" ", '', 0); end; procedure PaymentTermsDAYS30X2(): code[10] diff --git a/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/ITContosoLocalization.Codeunit.al b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/ITContosoLocalization.Codeunit.al index 7a8d56f743..9a312c5a4f 100644 --- a/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/ITContosoLocalization.Codeunit.al +++ b/Apps/IT/ContosoCoffeeDemoDatasetIT/app/DemoData/ITContosoLocalization.Codeunit.al @@ -5,6 +5,7 @@ namespace Microsoft.DemoData.Localization; +using Microsoft.DemoData.Analytics; using Microsoft.DemoData.Bank; using Microsoft.DemoData.CRM; using Microsoft.DemoData.Finance; @@ -154,6 +155,7 @@ codeunit 12251 "IT Contoso Localization" CreateSalesDimValueIT: Codeunit "Create Sales Dim Value IT"; CreatePurchDimValueIT: Codeunit "Create Purch. Dim. Value IT"; CreateCurrencyIT: Codeunit "Create Currency IT"; + CreateAnalyticsDataIT: Codeunit "Create Analytics Data IT"; begin case Module of Enum::"Contoso Demo Data Module"::Foundation: @@ -205,6 +207,7 @@ codeunit 12251 "IT Contoso Localization" begin BindSubscription(CreatePurchaseDocumentIT); BindSubscription(CreateSalesDocumentIT); + BindSubscription(CreateAnalyticsDataIT); end; end; end; @@ -230,6 +233,7 @@ codeunit 12251 "IT Contoso Localization" CreateSalesDimValueIT: Codeunit "Create Sales Dim Value IT"; CreatePurchDimValueIT: Codeunit "Create Purch. Dim. Value IT"; CreateCurrencyIT: Codeunit "Create Currency IT"; + CreateAnalyticsDataIT: Codeunit "Create Analytics Data IT"; begin case Module of Enum::"Contoso Demo Data Module"::Foundation: @@ -281,6 +285,7 @@ codeunit 12251 "IT Contoso Localization" begin UnbindSubscription(CreatePurchaseDocumentIT); UnbindSubscription(CreateSalesDocumentIT); + UnbindSubscription(CreateAnalyticsDataIT); end; end; end; 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 6d6683d691..4c8411eefc 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 @@ -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 @@ -36,7 +36,7 @@ codeunit 5688 "Create Extended Purch Document" DocumentDate := CalcDate('<-6M>', StartingDate); - PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.EUGraphicDesign(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCM(), '', '', '', DocumentDate, ''); + PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.EUGraphicDesign(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCM(), '', '', '', DocumentDate, CreatePaymentMethod.Cash()); ContosoPurchase.InsertPurchaseLineWithItem(PurchaseHeader, CreateItem.AthensDesk(), 60, '', 219.5); PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.DomesticNodPublisher(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCOD(), '', '', '', DocumentDate, CreatePaymentMethod.Cash()); @@ -57,7 +57,7 @@ codeunit 5688 "Create Extended Purch Document" PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.EUGraphicDesign(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCOD(), '', '', '', DocumentDate, CreatePaymentMethod.Cash()); ContosoPurchase.InsertPurchaseLineWithItem(PurchaseHeader, CreateItem.BerlingGuestChairYellow(), 5, '', 27.8); - PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.DomesticFirstUp(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCM(), '', '', '', DocumentDate, ''); + PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.DomesticFirstUp(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCM(), '', '', '', DocumentDate, CreatePaymentMethod.Cash()); ContosoPurchase.InsertPurchaseLineWithItem(PurchaseHeader, CreateItem.RomeGuestChairGreen(), 39, '', 97.5); PurchaseHeader := ContosoPurchase.InsertPurchaseHeader(Enum::"Purchase Document Type"::Order, CreateVendor.DomesticWorldImporter(), AnalyticsReference(), ContosoUtilities.AdjustDate(19020101D), DocumentDate, ContosoUtilities.AdjustDate(19020101D), CreatePaymentTerms.PaymentTermsCOD(), '', '', '', DocumentDate, CreatePaymentMethod.Cash()); 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 892e7025d3..546d01bd8a 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 @@ -6,6 +6,7 @@ namespace Microsoft.DemoData.Analytics; using Microsoft.DemoData.Bank; +using Microsoft.DemoData.CRM; using Microsoft.DemoData.Foundation; using Microsoft.DemoData.Inventory; using Microsoft.DemoData.Sales; @@ -29,207 +30,208 @@ 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"; 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), '', ''); + 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); 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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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.DomesticAdatumCorporation(), 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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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.DomesticTreyResearch(), 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.ExportSchoolofArt(), 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), '', ''); + 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); - 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.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), '', ''); + 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); - 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.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,19 +239,66 @@ 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"; 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); + + 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); + + 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); + ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.MexicoSwivelChairBlack(), 20); // 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); @@ -257,43 +306,43 @@ codeunit 5692 "Create Extended Sales Document" 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); - 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), '', ''); + 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); 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.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), '', ''); + 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); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.AmsterdamLamp(), 16); ContosoSales.InsertSalesLineWithItem(SalesHeader, CreateItem.BerlingGuestChairYellow(), 20); // 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 +357,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 +371,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 +441,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 8e55a81efa..727aea3278 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 @@ -13,6 +13,12 @@ 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"; @@ -32,6 +38,7 @@ codeunit 5698 "Create Posted Analytics Data" PurchHeader: Record "Purchase Header"; CreatePurchaseDocument: Codeunit "Create Extended Purch Document"; begin + OnBeforePostPurchaseOrdersForAnalytics(); PurchHeader.SetRange("Document Type", PurchHeader."Document Type"::Order); PurchHeader.SetRange("Your Reference", CreatePurchaseDocument.AnalyticsReference()); if PurchHeader.FindSet() then @@ -40,5 +47,16 @@ codeunit 5698 "Create Posted Analytics Data" PurchHeader.Validate(Receive, true); Codeunit.Run(Codeunit::"Purch.-Post", PurchHeader); until PurchHeader.Next() = 0; + OnAfterPostPurchaseOrdersForAnalytics(); + end; + + [IntegrationEvent(false, false)] + local procedure OnBeforePostPurchaseOrdersForAnalytics() + begin + end; + + [IntegrationEvent(false, false)] + local procedure OnAfterPostPurchaseOrdersForAnalytics() + begin end; } \ No newline at end of file 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 95cea8a198..5d4b6e2b4d 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,19 @@ 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, 0); + end; + + procedure InsertSalesLineWithItem(SalesHeader: Record "Sales Header"; ItemNo: Code[20]; Quantity: Decimal; LineDiscountPercent: Decimal) var Item: Record Item; SalesLine: Record "Sales Line"; @@ -67,6 +79,8 @@ 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 LineDiscountPercent <> 0 then + SalesLine.Validate("Line Discount %", LineDiscountPercent); SalesLine.Insert(true); end;