Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -5,13 +5,13 @@

namespace Microsoft.DemoData.Analytics;

using Microsoft.Purchases.Document;
using Microsoft.DemoTool.Helpers;
using Microsoft.DemoData.Bank;
using Microsoft.DemoData.Foundation;
using Microsoft.DemoTool;
using Microsoft.DemoData.Inventory;
using Microsoft.DemoData.Bank;
using Microsoft.DemoData.Purchases;
using Microsoft.DemoTool;
using Microsoft.DemoTool.Helpers;
using Microsoft.Purchases.Document;

codeunit 5688 "Create Extended Purch Document"
{
Expand All @@ -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
Expand All @@ -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());
Expand All @@ -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());
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -5,13 +5,13 @@

namespace Microsoft.DemoData.Analytics;

using Microsoft.Sales.Document;
using Microsoft.DemoTool.Helpers;
using Microsoft.DemoData.Bank;
using Microsoft.DemoData.Foundation;
using Microsoft.DemoTool;
using Microsoft.DemoData.Inventory;
using Microsoft.DemoData.Bank;
using Microsoft.DemoData.Sales;
using Microsoft.DemoTool;
using Microsoft.DemoTool.Helpers;
using Microsoft.Sales.Document;

codeunit 5692 "Create Extended Sales Document"
{
Expand All @@ -29,11 +29,11 @@ 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";
FirstDayOfTheMonth: Date;
LastDayOfTheMonth: Date;
begin
Expand Down Expand Up @@ -237,10 +237,10 @@ 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";
begin

Expand Down Expand Up @@ -392,6 +392,6 @@ codeunit 5692 "Create Extended Sales Document"
end;

var
AnalyticsReferenceTok: Label 'ANALYTICS', MaxLength = 35;
StartingDate: Date;
AnalyticsReferenceTok: Label 'ANALYTICS', MaxLength = 35;
}
Original file line number Diff line number Diff line change
Expand Up @@ -5,14 +5,20 @@

namespace Microsoft.DemoData.Analytics;

using Microsoft.Sales.Document;
using Microsoft.Sales.Posting;
using Microsoft.Purchases.Document;
using Microsoft.Purchases.Posting;
using Microsoft.Sales.Document;
using Microsoft.Sales.Posting;

codeunit 5698 "Create Posted Analytics Data"
{
trigger OnRun()
begin
PostSalesInvoicesForAnalytics();
PostPurchaseOrdersForAnalytics();
end;

procedure PostSalesInvoicesForAnalytics()
var
SalesHeader: Record "Sales Header";
CreateExtendedSalesDocument: Codeunit "Create Extended Sales Document";
Expand Down