Page 9081 Sales Hist. Bill-to FactBox, source in 29
Source29
src/Layers/W1/BaseApp/Sales/Document/SalesHistBilltoFactBox.Page.al185 lines, Copyright (c) Microsoft Corporation. MIT
// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------
namespace Microsoft.Sales.Document;
using Microsoft.Sales.Customer;
using Microsoft.Sales.History;
/// <summary>
/// Displays sales history statistics for the bill-to customer in a factbox.
/// </summary>
page 9081 "Sales Hist. Bill-to FactBox"
{
Caption = 'Bill-to Customer Sales History';
PageType = CardPart;
SourceTable = Customer;
layout
{
area(content)
{
field("No."; Rec."No.")
{
ApplicationArea = All;
Caption = 'Customer No.';
trigger OnDrillDown()
begin
ShowDetails();
end;
}
group(Control2)
{
ShowCaption = false;
Visible = false;
field("Bill-To No. of Quotes"; Rec."Bill-To No. of Quotes")
{
ApplicationArea = Basic, Suite;
Caption = 'Quotes';
DrillDownPageID = "Sales Quotes";
}
field("Bill-To No. of Blanket Orders"; Rec."Bill-To No. of Blanket Orders")
{
ApplicationArea = Suite;
Caption = 'Blanket Orders';
DrillDownPageID = "Blanket Sales Orders";
}
field("Bill-To No. of Orders"; Rec."Bill-To No. of Orders")
{
ApplicationArea = Basic, Suite;
Caption = 'Orders';
DrillDownPageID = "Sales Order List";
}
field("Bill-To No. of Invoices"; Rec."Bill-To No. of Invoices")
{
ApplicationArea = Basic, Suite;
Caption = 'Invoices';
DrillDownPageID = "Sales Invoice List";
}
field("Bill-To No. of Return Orders"; Rec."Bill-To No. of Return Orders")
{
ApplicationArea = SalesReturnOrder;
Caption = 'Return Orders';
DrillDownPageID = "Sales Return Order List";
}
field("Bill-To No. of Credit Memos"; Rec."Bill-To No. of Credit Memos")
{
ApplicationArea = Basic, Suite;
Caption = 'Credit Memos';
DrillDownPageID = "Sales Credit Memos";
}
field("Bill-To No. of Pstd. Shipments"; Rec."Bill-To No. of Pstd. Shipments")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Shipments';
DrillDownPageID = "Posted Sales Shipments";
}
field("Bill-To No. of Pstd. Invoices"; Rec."Bill-To No. of Pstd. Invoices")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Invoices';
DrillDownPageID = "Posted Sales Invoices";
}
field("Bill-To No. of Pstd. Return R."; Rec."Bill-To No. of Pstd. Return R.")
{
ApplicationArea = SalesReturnOrder;
Caption = 'Pstd. Return Receipts';
DrillDownPageID = "Posted Return Receipts";
}
field("Bill-To No. of Pstd. Cr. Memos"; Rec."Bill-To No. of Pstd. Cr. Memos")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Credit Memos';
DrillDownPageID = "Posted Sales Credit Memos";
}
}
cuegroup(Control23)
{
ShowCaption = false;
field(NoOfQuotesTile; Rec."Bill-To No. of Quotes")
{
ApplicationArea = Basic, Suite;
Caption = 'Quotes';
DrillDownPageID = "Sales Quotes";
ToolTip = 'Specifies how many quotes have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfBlanketOrdersTile; Rec."Bill-To No. of Blanket Orders")
{
ApplicationArea = Suite;
Caption = 'Blanket Orders';
DrillDownPageID = "Blanket Sales Orders";
ToolTip = 'Specifies how many blanket orders have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NorOfOrdersTile; Rec."Bill-To No. of Orders")
{
ApplicationArea = Basic, Suite;
Caption = 'Orders';
DrillDownPageID = "Sales Order List";
ToolTip = 'Specifies how many sales orders have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfInvoicesTile; Rec."Bill-To No. of Invoices")
{
ApplicationArea = Basic, Suite;
Caption = 'Invoices';
DrillDownPageID = "Sales Invoice List";
ToolTip = 'Specifies how many invoices have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfReturnOrdersTile; Rec."Bill-To No. of Return Orders")
{
ApplicationArea = SalesReturnOrder;
Caption = 'Return Orders';
DrillDownPageID = "Sales Return Order List";
ToolTip = 'Specifies how many return orders have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfCreditMemosTile; Rec."Bill-To No. of Credit Memos")
{
ApplicationArea = Basic, Suite;
Caption = 'Credit Memos';
DrillDownPageID = "Sales Credit Memos";
ToolTip = 'Specifies how many credit memos have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfPostedShipmentsTile; Rec."Bill-To No. of Pstd. Shipments")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Shipments';
DrillDownPageID = "Posted Sales Shipments";
ToolTip = 'Specifies how many posted shipments have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfPostedInvoicesTile; Rec."Bill-To No. of Pstd. Invoices")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Invoices';
DrillDownPageID = "Posted Sales Invoices";
ToolTip = 'Specifies how many posted invoices have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfPostedReturnOrdersTile; Rec."Bill-To No. of Pstd. Return R.")
{
ApplicationArea = SalesReturnOrder;
Caption = 'Pstd. Return Receipts';
DrillDownPageID = "Posted Return Receipts";
ToolTip = 'Specifies how many posted return receipts have been registered for the customer when the customer acts as the bill-to customer.';
}
field(NoOfPostedCrMemosTile; Rec."Bill-To No. of Pstd. Cr. Memos")
{
ApplicationArea = Basic, Suite;
Caption = 'Pstd. Credit Memos';
DrillDownPageID = "Posted Sales Credit Memos";
ToolTip = 'Specifies how many posted credit memos have been registered for the customer when the customer acts as the bill-to customer.';
}
}
}
}
actions
{
}
local procedure ShowDetails()
begin
PAGE.Run(PAGE::"Customer Card", Rec);
end;
}