Page 142 Posted Sales Shipments, source in 29
Source29
src/Layers/W1/BaseApp/Sales/History/PostedSalesShipments.Page.al490 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.History;
using Microsoft.CRM.Outlook;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Attachment;
using Microsoft.Sales.Comment;
using Microsoft.Utilities;
/// <summary>
/// Lists all posted sales shipments for viewing and tracking delivery status.
/// </summary>
page 142 "Posted Sales Shipments"
{
ApplicationArea = Basic, Suite;
Caption = 'Posted Sales Shipments';
CardPageID = "Posted Sales Shipment";
Editable = false;
PageType = List;
AboutTitle = 'About Posted Sales Shipments';
AboutText = 'View and manage posted sales shipments, track package delivery status using shipping agent and service details, and update shipment information such as package tracking numbers for completed sales orders.';
SourceTable = "Sales Shipment Header";
SourceTableView = sorting("Posting Date")
order(descending);
UsageCategory = History;
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("No."; Rec."No.")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the number of the involved entry or record, according to the specified number series.';
}
field("Sell-to Customer No."; Rec."Sell-to Customer No.")
{
ApplicationArea = Basic, Suite;
}
field("Sell-to Customer Name"; Rec."Sell-to Customer Name")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the name of the customer.';
}
field("Sell-to Post Code"; Rec."Sell-to Post Code")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the postal code of the customer''s main address.';
Visible = false;
}
field("Sell-to Country/Region Code"; Rec."Sell-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Sell-to Contact"; Rec."Sell-to Contact")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Bill-to Customer No."; Rec."Bill-to Customer No.")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Bill-to Name"; Rec."Bill-to Name")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Bill-to Post Code"; Rec."Bill-to Post Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Bill-to Country/Region Code"; Rec."Bill-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the country/region code of the customer''s billing address.';
Visible = false;
}
field("Bill-to Contact"; Rec."Bill-to Contact")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Ship-to Code"; Rec."Ship-to Code")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies a code for an alternate shipment address if you want to ship to another address than the one that has been entered automatically. This field is also used in case of drop shipment.';
Visible = false;
}
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the country/region code of the address that the items are shipped to.';
Visible = false;
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the name of the contact person at the address that the items are shipped to.';
Visible = false;
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the date on which the shipment was posted.';
Visible = false;
}
field("Salesperson Code"; Rec."Salesperson Code")
{
ApplicationArea = Suite;
ToolTip = 'Specifies which salesperson is associated with the shipment.';
Visible = false;
}
field("Shortcut Dimension 1 Code"; Rec."Shortcut Dimension 1 Code")
{
ApplicationArea = Dimensions;
Visible = false;
}
field("Shortcut Dimension 2 Code"; Rec."Shortcut Dimension 2 Code")
{
ApplicationArea = Dimensions;
Visible = false;
}
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Suite;
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Visible = true;
}
field("No. Printed"; Rec."No. Printed")
{
ApplicationArea = Basic, Suite;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Requested Delivery Date"; Rec."Requested Delivery Date")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Shipment Method Code"; Rec."Shipment Method Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Shipping Agent Code"; Rec."Shipping Agent Code")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the code for the shipping agent who is transporting the items.';
Visible = false;
}
field("Shipping Agent Service Code"; Rec."Shipping Agent Service Code")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the code for the service, such as a one-day delivery, that is offered by the shipping agent.';
Visible = false;
}
field("Package Tracking No."; Rec."Package Tracking No.")
{
ApplicationArea = Suite;
Visible = false;
}
field("Shipment Date"; Rec."Shipment Date")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("External Document No."; Rec."External Document No.")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
}
part("Attached Documents List"; "Doc. Attachment List Factbox")
{
ApplicationArea = All;
Caption = 'Documents';
UpdatePropagation = Both;
SubPageLink = "Table ID" = const(Database::"Sales Shipment Header"),
"No." = field("No.");
}
}
}
actions
{
area(navigation)
{
group("&Shipment")
{
Caption = '&Shipment';
Image = Shipment;
action(Statistics)
{
ApplicationArea = Suite;
Caption = 'Statistics';
Image = Statistics;
RunObject = Page "Sales Shipment Statistics";
RunPageLink = "No." = field("No.");
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Sales Comment Sheet";
RunPageLink = "Document Type" = const(Shipment),
"No." = field("No.");
ToolTip = 'View or add comments for the record.';
}
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDimensions();
end;
}
action(CertificateOfSupplyDetails)
{
ApplicationArea = Basic, Suite;
Caption = 'Certificate of Supply Details';
Image = Certificate;
RunObject = Page "Certificates of Supply";
RunPageLink = "Document Type" = filter("Sales Shipment"),
"Document No." = field("No.");
ToolTip = 'View the certificate of supply that you must send to your customer for signature as confirmation of receipt. You must print a certificate of supply if the shipment uses a combination of VAT business posting group and VAT product posting group that have been marked to require a certificate of supply in the VAT Posting Setup window.';
}
action(PrintCertificateofSupply)
{
ApplicationArea = Basic, Suite;
Caption = 'Print Certificate of Supply';
Image = PrintReport;
ToolTip = 'Print the certificate of supply that you must send to your customer for signature as confirmation of receipt.';
trigger OnAction()
var
CertificateOfSupply: Record "Certificate of Supply";
begin
CertificateOfSupply.SetRange("Document Type", CertificateOfSupply."Document Type"::"Sales Shipment");
CertificateOfSupply.SetRange("Document No.", Rec."No.");
CertificateOfSupply.Print();
end;
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action("&Track Package")
{
ApplicationArea = Basic, Suite;
Caption = '&Track Package';
Image = ItemTracking;
ToolTip = 'Open the shipping agent''s tracking page to track the package. ';
trigger OnAction()
begin
Rec.StartTrackingSite();
end;
}
}
action("&Print")
{
ApplicationArea = Basic, Suite;
Caption = '&Print';
Ellipsis = true;
Image = Print;
ToolTip = 'Prepare to print the document. A report request window for the document opens where you can specify what to include on the print-out.';
Visible = not IsOfficeAddin;
trigger OnAction()
var
SalesShptHeader: Record "Sales Shipment Header";
begin
SalesShptHeader := Rec;
OnBeforePrintRecords(Rec, SalesShptHeader);
CurrPage.SetSelectionFilter(SalesShptHeader);
SalesShptHeader.PrintRecords(true);
end;
}
action(SendCustom)
{
ApplicationArea = Basic, Suite;
Caption = 'Send';
Ellipsis = true;
Image = SendToMultiple;
ToolTip = 'Prepare to send the document according to the customer''s sending profile, such as attached to an email. The Send document to window opens where you can confirm or select a sending profile.';
trigger OnAction()
var
SalesShptHeader: Record "Sales Shipment Header";
begin
SalesShptHeader := Rec;
CurrPage.SetSelectionFilter(SalesShptHeader);
SalesShptHeader.SendRecords();
end;
}
action(Email)
{
ApplicationArea = Basic, Suite;
Caption = 'Send by &Email';
Image = Email;
ToolTip = 'Prepare to send the document by email. The Send Email window opens prefilled for the customer where you can add or change information before you send the email.';
trigger OnAction()
var
SalesShptHeader: Record "Sales Shipment Header";
begin
SalesShptHeader := Rec;
CurrPage.SetSelectionFilter(SalesShptHeader);
SalesShptHeader.EmailRecords(true);
end;
}
action(AttachAsPDF)
{
ApplicationArea = Basic, Suite;
Caption = 'Attach as PDF';
Image = PrintAttachment;
ToolTip = 'Create a PDF file and attach it to the document.';
trigger OnAction()
var
SalesShptHeader: Record "Sales Shipment Header";
begin
SalesShptHeader := Rec;
CurrPage.SetSelectionFilter(SalesShptHeader);
Rec.PrintToDocumentAttachment(SalesShptHeader);
end;
}
action("&Navigate")
{
ApplicationArea = Basic, Suite;
Caption = 'Find entries...';
Image = Navigate;
ShortCutKey = 'Ctrl+Alt+Q';
ToolTip = 'Find entries and documents that exist for the document number and posting date on the selected document. (Formerly this action was named Navigate.)';
Visible = not IsOfficeAddin;
trigger OnAction()
begin
Rec.Navigate();
end;
}
action("Update Document")
{
ApplicationArea = Suite;
Caption = 'Update Document';
Image = Edit;
ToolTip = 'Add new information that is relevant to the document, such as information from the shipping agent. You can only edit a few fields because the document has already been posted.';
trigger OnAction()
var
PostedSalesShipmentUpdate: Page "Posted Sales Shipment - Update";
begin
PostedSalesShipmentUpdate.LookupMode := true;
PostedSalesShipmentUpdate.SetRec(Rec);
PostedSalesShipmentUpdate.RunModal();
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
actionref("Update Document_Promoted"; "Update Document")
{
}
actionref("&Print_Promoted"; "&Print")
{
}
actionref("&Navigate_Promoted"; "&Navigate")
{
}
group(Category_Category5)
{
Caption = 'Shipment', Comment = 'Generated from the PromotedActionCategories property index 4.';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(Statistics_Promoted; Statistics)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
}
}
group(Category_Category4)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 3.';
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
group(Category_Category7)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(Print_Promoted; "&Print")
{
}
actionref(Email_Promoted; Email)
{
}
actionref(SendCustom_Promoted; SendCustom)
{
}
actionref(AttachAsPDF_Promoted; AttachAsPDF)
{
}
}
}
}
trigger OnOpenPage()
var
OfficeMgt: Codeunit "Office Management";
HasFilters: Boolean;
begin
HasFilters := Rec.GetFilters() <> '';
Rec.SetSecurityFilterOnRespCenter();
if HasFilters and not Rec.Find() then
if Rec.FindFirst() then;
IsOfficeAddin := OfficeMgt.IsAvailable();
end;
var
IsOfficeAddin: Boolean;
[IntegrationEvent(false, false)]
local procedure OnBeforePrintRecords(SalesShptHeaderRec: Record "Sales Shipment Header"; var SalesShptHeaderToPrint: Record "Sales Shipment Header")
begin
end;
}