Page 42 Sales Order, source in 29
Source29
src/Layers/W1/BaseApp/Sales/Document/SalesOrder.Page.al3021 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.Assembly.Document;
using Microsoft.Bank.Setup;
using Microsoft.CRM.Contact;
using Microsoft.CRM.Outlook;
using Microsoft.EServices.EDocument;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Finance.VAT.Calculation;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Attachment;
using Microsoft.Foundation.Enums;
using Microsoft.Foundation.Reporting;
using Microsoft.Integration.D365Sales;
using Microsoft.Integration.Dataverse;
using Microsoft.Intercompany;
using Microsoft.Intercompany.GLAccount;
using Microsoft.Intercompany.Journal;
using Microsoft.Intercompany.Outbox;
using Microsoft.Inventory.Availability;
using Microsoft.Inventory.BOM;
using Microsoft.Inventory.Item;
using Microsoft.Inventory.Location;
using Microsoft.Projects.Resources.Resource;
using Microsoft.Purchases.Document;
using Microsoft.Sales.Comment;
using Microsoft.Sales.Customer;
using Microsoft.Sales.History;
using Microsoft.Sales.Posting;
using Microsoft.Sales.Pricing;
using Microsoft.Sales.Setup;
using Microsoft.Utilities;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Document;
using Microsoft.Warehouse.InventoryDocument;
using Microsoft.Warehouse.Request;
using Microsoft.Warehouse.Setup;
using System.Automation;
using System.Environment;
using System.Environment.Configuration;
using System.Privacy;
using System.Security.User;
using System.Threading;
using System.Utilities;
/// <summary>
/// Displays and manages a single sales order document for processing customer orders.
/// </summary>
page 42 "Sales Order"
{
Caption = 'Sales Order';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Sales Header";
SourceTableView = where("Document Type" = filter(Order));
AdditionalSearchTerms = 'Sales Commitment, Sale Order, Client Order';
AboutTitle = 'About sales order details';
AboutText = 'Choose the order details and fill in order lines with quantities of what you are selling. Post the order when you are ready to ship or invoice. This creates posted sales shipments and posted sales invoices.';
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = All;
Importance = Standard;
ToolTip = 'Specifies the number of the involved entry or record, according to the specified number series.';
Visible = DocNoVisible;
trigger OnAssistEdit()
begin
if Rec.AssistEdit(xRec) then
CurrPage.Update();
end;
}
field("Sell-to Customer No."; Rec."Sell-to Customer No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Customer No.';
Importance = Additional;
NotBlank = true;
ToolTip = 'Specifies the number of the customer who will receive the products and be billed by default.';
trigger OnValidate()
begin
Rec.SelltoCustomerNoOnAfterValidate(Rec, xRec);
IsSalesLinesEditable := Rec.SalesLinesEditable();
CurrPage.Update();
end;
}
field("Sell-to Customer Name"; Rec."Sell-to Customer Name")
{
ApplicationArea = Basic, Suite;
Caption = 'Customer Name';
ShowMandatory = true;
ToolTip = 'Specifies the name of the customer who will receive the products and be billed by default.';
AboutTitle = 'Who are you selling to?';
AboutText = 'You can choose existing customers, or add new customers when you create orders. Orders can automatically choose special prices and discounts that you have set for each customer.';
trigger OnAfterLookup(Selected: RecordRef)
var
Customer: Record Customer;
begin
Selected.SetTable(Customer);
if Rec."Sell-to Customer No." <> Customer."No." then begin
Rec.Validate("Sell-to Customer No.", Customer."No.");
if Rec."Sell-to Customer No." <> Customer."No." then
error('');
IsSalesLinesEditable := Rec.SalesLinesEditable();
CurrPage.Update();
end;
end;
trigger OnValidate()
begin
Rec.SelltoCustomerNoOnAfterValidate(Rec, xRec);
CurrPage.Update();
end;
}
field("Sell-to Customer Name 2"; Rec."Sell-to Customer Name 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Customer Name 2';
QuickEntry = false;
Visible = false;
}
group(Control114)
{
ShowCaption = false;
Visible = ShowQuoteNo;
field("Quote No."; Rec."Quote No.")
{
ApplicationArea = All;
}
}
field("Posting Description"; Rec."Posting Description")
{
ApplicationArea = Suite;
Visible = false;
}
group("Sell-to")
{
Caption = 'Sell-to';
field("Sell-to Address"; Rec."Sell-to Address")
{
ApplicationArea = Basic, Suite;
Caption = 'Address';
Importance = Additional;
QuickEntry = false;
}
field("Sell-to Address 2"; Rec."Sell-to Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Importance = Additional;
QuickEntry = false;
}
field("Sell-to City"; Rec."Sell-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Importance = Additional;
QuickEntry = false;
}
group(Control123)
{
ShowCaption = false;
Visible = IsSellToCountyVisible;
field("Sell-to County"; Rec."Sell-to County")
{
ApplicationArea = Basic, Suite;
CaptionClass = '5,1,' + Rec."Sell-to Country/Region Code";
Importance = Additional;
QuickEntry = false;
}
}
field("Sell-to Post Code"; Rec."Sell-to Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the postal code.';
}
field("Sell-to Country/Region Code"; Rec."Sell-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Country/Region Code';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the country or region of the address.';
trigger OnValidate()
begin
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Sell-to Country/Region Code");
end;
}
field("Sell-to Contact No."; Rec."Sell-to Contact No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact No.';
Importance = Additional;
trigger OnLookup(var Text: Text): Boolean
begin
if not Rec.SelltoContactLookup() then
exit(false);
Text := Rec."Sell-to Contact No.";
CurrPage.Update();
exit(true);
end;
trigger OnValidate()
begin
if Rec.GetFilter("Sell-to Contact No.") = xRec."Sell-to Contact No." then
if Rec."Sell-to Contact No." <> xRec."Sell-to Contact No." then
Rec.SetRange("Sell-to Contact No.");
if Rec."Sell-to Contact No." <> xRec."Sell-to Contact No." then
CurrPage.Update();
end;
}
field("Sell-to Phone No."; Rec."Sell-to Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Phone No.';
Importance = Additional;
}
field(SellToMobilePhoneNo; SellToContact."Mobile Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Mobile Phone No.';
Importance = Additional;
Editable = false;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the contact person that the sales document will be sent to.';
}
field("Sell-to E-Mail"; Rec."Sell-to E-Mail")
{
ApplicationArea = Basic, Suite;
Caption = 'Email';
Importance = Additional;
}
}
field("Sell-to Contact"; Rec."Sell-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = Rec."Sell-to Customer No." <> '';
ToolTip = 'Specifies the name of the person to contact at the customer.';
trigger OnLookup(var Text: Text): Boolean
var
Contact: Record Contact;
begin
Contact.FilterGroup(2);
Rec.LookupContact(Rec."Sell-to Customer No.", Rec."Sell-to Contact No.", Contact);
if Page.RunModal(0, Contact) = ACTION::LookupOK then
Rec.Validate("Sell-to Contact No.", Contact."No.");
if ShipToOptions = ShipToOptions::"Default (Sell-to Address)" then
Rec.Validate("Ship-to Contact", Rec."Sell-to Contact");
Contact.FilterGroup(0);
Text := Rec."Sell-to Contact";
CurrPage.Update();
end;
}
field("No. of Archived Versions"; Rec."No. of Archived Versions")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
trigger OnValidate()
begin
SaveInvoiceDiscountAmount();
end;
}
field("VAT Reporting Date"; Rec."VAT Reporting Date")
{
ApplicationArea = VAT;
Importance = Promoted;
Editable = VATDateEnabled;
Visible = VATDateEnabled;
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
QuickEntry = false;
ToolTip = 'Specifies the date the order was created. The order date is also used to determine the prices and discounts on the document.';
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
ToolTip = 'Specifies when the related sales invoice must be paid.';
AboutTitle = 'When is payment due?';
AboutText = 'When you post an order, the invoice gets it''s due date. You can set default due dates for orders by assigning payment terms to customers.';
}
field("Requested Delivery Date"; Rec."Requested Delivery Date")
{
ApplicationArea = Basic, Suite;
trigger OnValidate()
begin
CurrPage.Update();
end;
}
field("Promised Delivery Date"; Rec."Promised Delivery Date")
{
ApplicationArea = OrderPromising;
Importance = Additional;
}
field("External Document No."; Rec."External Document No.")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
ShowMandatory = ExternalDocNoMandatory;
}
field("Your Reference"; Rec."Your Reference")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Salesperson Code"; Rec."Salesperson Code")
{
ApplicationArea = Suite;
Importance = Additional;
QuickEntry = false;
trigger OnValidate()
begin
SalespersonCodeOnAfterValidate();
end;
}
field("Campaign No."; Rec."Campaign No.")
{
ApplicationArea = RelationshipMgmt;
Importance = Additional;
ToolTip = 'Specifies the number of the campaign that the document is linked to.';
trigger OnValidate()
begin
if Rec."Campaign No." <> xRec."Campaign No." then
CurrPage.Update();
end;
}
field("Opportunity No."; Rec."Opportunity No.")
{
ApplicationArea = RelationshipMgmt;
Importance = Additional;
}
field("Responsibility Center"; Rec."Responsibility Center")
{
AccessByPermission = TableData "Responsibility Center" = R;
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Job Queue Status"; Rec."Job Queue Status")
{
ApplicationArea = All;
Importance = Additional;
Visible = JobQueuesUsed;
trigger OnDrillDown()
var
JobQueueEntry: Record "Job Queue Entry";
begin
if Rec."Job Queue Status" = Rec."Job Queue Status"::" " then
exit;
JobQueueEntry.ShowStatusMsg(Rec."Job Queue Entry ID");
end;
}
field(Status; Rec.Status)
{
ApplicationArea = Suite;
Importance = Promoted;
StyleExpr = StatusStyleTxt;
QuickEntry = false;
}
group("Work Description")
{
Caption = 'Work Description';
field(WorkDescription; WorkDescription)
{
ApplicationArea = Basic, Suite;
Importance = Additional;
MultiLine = true;
ShowCaption = false;
ToolTip = 'Specifies the products or service being offered.';
trigger OnValidate()
begin
Rec.SetWorkDescription(WorkDescription);
end;
}
}
}
part(SalesLines; "Sales Order Subform")
{
ApplicationArea = Basic, Suite;
Editable = IsSalesLinesEditable;
Enabled = IsSalesLinesEditable;
SubPageLink = "Document No." = field("No.");
UpdatePropagation = Both;
}
group("Invoice Details")
{
Caption = 'Invoice Details';
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Suite;
Importance = Promoted;
trigger OnAssistEdit()
begin
Clear(ChangeExchangeRate);
if Rec."Posting Date" <> 0D then
ChangeExchangeRate.SetParameter(Rec."Currency Code", Rec."Currency Factor", Rec."Posting Date")
else
ChangeExchangeRate.SetParameter(Rec."Currency Code", Rec."Currency Factor", WorkDate());
if ChangeExchangeRate.RunModal() = ACTION::OK then begin
Rec.Validate("Currency Factor", ChangeExchangeRate.GetParameter());
SaveInvoiceDiscountAmount();
end;
Clear(ChangeExchangeRate);
end;
trigger OnValidate()
begin
CurrPage.Update();
end;
}
field("Company Bank Account Code"; Rec."Company Bank Account Code")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Prices Including VAT"; Rec."Prices Including VAT")
{
ApplicationArea = VAT;
trigger OnValidate()
begin
PricesIncludingVATOnAfterValid();
end;
}
field("VAT Country/Region Code"; Rec."VAT Country/Region Code")
{
ApplicationArea = VAT;
Importance = Additional;
}
field("VAT Registration No."; Rec."VAT Registration No.")
{
ApplicationArea = VAT;
Importance = Additional;
ToolTip = 'Specifies the VAT registration number for customers.';
}
field("Gen. Bus. Posting Group"; Rec."Gen. Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("VAT Bus. Posting Group"; Rec."VAT Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
trigger OnValidate()
begin
CurrPage.Update();
end;
}
field("Customer Posting Group"; Rec."Customer Posting Group")
{
ApplicationArea = Basic, Suite;
Editable = IsPostingGroupEditable;
Importance = Additional;
}
field("Payment Terms Code"; Rec."Payment Terms Code")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
Visible = IsPaymentMethodCodeVisible;
trigger OnValidate()
begin
UpdatePaymentService();
end;
}
field("EU 3-Party Trade"; Rec."EU 3-Party Trade")
{
ApplicationArea = BasicEU;
}
group(Control76)
{
ShowCaption = false;
Visible = PaymentServiceVisible;
field(SelectedPayments; Rec.GetSelectedPaymentServicesText())
{
ApplicationArea = All;
Caption = 'Payment Service';
Editable = false;
Enabled = PaymentServiceEnabled;
MultiLine = true;
ToolTip = 'Specifies the online payment service, such as PayPal, that customers can use to pay the sales document.';
trigger OnAssistEdit()
begin
Rec.ChangePaymentServiceSetting();
end;
}
}
field("Shortcut Dimension 1 Code"; Rec."Shortcut Dimension 1 Code")
{
ApplicationArea = Dimensions;
trigger OnValidate()
begin
ShortcutDimension1CodeOnAfterV();
end;
}
field("Shortcut Dimension 2 Code"; Rec."Shortcut Dimension 2 Code")
{
ApplicationArea = Dimensions;
trigger OnValidate()
begin
ShortcutDimension2CodeOnAfterV();
end;
}
field("Payment Discount %"; Rec."Payment Discount %")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies the payment discount percentage granted if the customer pays on or before the date entered in the Pmt. Discount Date field.';
}
field("Pmt. Discount Date"; Rec."Pmt. Discount Date")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Journal Templ. Name"; Rec."Journal Templ. Name")
{
ApplicationArea = Basic, Suite;
Visible = IsJournalTemplNameVisible;
}
field("Direct Debit Mandate ID"; Rec."Direct Debit Mandate ID")
{
ApplicationArea = Basic, Suite;
}
}
group("Shipping and Billing")
{
Caption = 'Shipping and Billing';
group(Control91)
{
ShowCaption = false;
group(Control90)
{
ShowCaption = false;
field(ShippingOptions; ShipToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Ship-to';
ToolTip = 'Specifies the address that the products on the sales document are shipped to. Default (Sell-to Address): The same as the customer''s sell-to address. Alternate Ship-to Address: One of the customer''s alternate ship-to addresses. Custom Address: Any ship-to address that you specify in the fields below.';
trigger OnValidate()
var
ShipToAddress: Record "Ship-to Address";
ShipToAddressList: Page "Ship-to Address List";
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeValidateShipToOptions(Rec, ShipToOptions.AsInteger(), IsHandled);
if IsHandled then
exit;
case ShipToOptions of
ShipToOptions::"Default (Sell-to Address)":
begin
Rec.Validate("Ship-to Code", '');
Rec.CopySellToAddressToShipToAddress();
end;
ShipToOptions::"Alternate Shipping Address":
begin
ShipToAddress.SetRange("Customer No.", Rec."Sell-to Customer No.");
ShipToAddressList.LookupMode := true;
ShipToAddressList.SetTableView(ShipToAddress);
if ShipToAddressList.RunModal() = ACTION::LookupOK then begin
ShipToAddressList.GetRecord(ShipToAddress);
OnValidateShipToOptionsOnAfterShipToAddressListGetRecord(ShipToAddress, Rec);
Rec.Validate("Ship-to Code", ShipToAddress.Code);
IsShipToCountyVisible := FormatAddress.UseCounty(ShipToAddress."Country/Region Code");
end else
ShipToOptions := ShipToOptions::"Custom Address";
end;
ShipToOptions::"Custom Address":
begin
Rec.Validate("Ship-to Code", '');
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
end;
end;
OnAfterValidateShippingOptions(Rec, ShipToOptions.AsInteger());
end;
}
group(Control4)
{
ShowCaption = false;
Visible = not (ShipToOptions = ShipToOptions::"Default (Sell-to Address)");
field("Ship-to Code"; Rec."Ship-to Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Code';
Editable = ShipToOptions = ShipToOptions::"Alternate Shipping Address";
Importance = Promoted;
ToolTip = 'Specifies the code for another shipment address than the customer''s own address, which is entered by default.';
trigger OnValidate()
var
ShipToAddress: Record "Ship-to Address";
begin
if (xRec."Ship-to Code" <> '') and (Rec."Ship-to Code" = '') then
Error(EmptyShipToCodeErr);
if Rec."Ship-to Code" <> '' then begin
ShipToAddress.Get(Rec."Sell-to Customer No.", Rec."Ship-to Code");
IsShipToCountyVisible := FormatAddress.UseCounty(ShipToAddress."Country/Region Code");
end else
IsShipToCountyVisible := false;
end;
}
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = Basic, Suite;
Caption = 'Name';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
ToolTip = 'Specifies the name that products on the sales document will be shipped to.';
}
field("Ship-to Name 2"; Rec."Ship-to Name 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Name 2';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Ship-to Address"; Rec."Ship-to Address")
{
ApplicationArea = Basic, Suite;
Caption = 'Address';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
QuickEntry = false;
}
field("Ship-to Address 2"; Rec."Ship-to Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
QuickEntry = false;
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
QuickEntry = false;
}
group(Control297)
{
ShowCaption = false;
Visible = IsShipToCountyVisible;
field("Ship-to County"; Rec."Ship-to County")
{
ApplicationArea = Basic, Suite;
CaptionClass = '5,1,' + Rec."Ship-to Country/Region Code";
Editable = ShipToOptions = ShipToOptions::"Custom Address";
QuickEntry = false;
}
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
QuickEntry = false;
ToolTip = 'Specifies the postal code.';
}
field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Country/Region';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the customer''s country/region.';
trigger OnValidate()
begin
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
end;
}
}
field("Ship-to Phone No."; Rec."Ship-to Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Phone No.';
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
ToolTip = 'Specifies the name of the contact person at the address that products on the sales document will be shipped to.';
}
}
group("Shipment Method")
{
Caption = 'Shipment Method';
field("Shipment Method Code"; Rec."Shipment Method Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Code';
Importance = Additional;
ToolTip = 'Specifies how items on the sales document are shipped to the customer.';
}
field("Shipping Agent Code"; Rec."Shipping Agent Code")
{
ApplicationArea = Suite;
Caption = 'Agent';
Importance = Additional;
ToolTip = 'Specifies which shipping agent is used to transport the items on the sales document to the customer.';
}
field("Shipping Agent Service Code"; Rec."Shipping Agent Service Code")
{
ApplicationArea = Suite;
Caption = 'Agent Service';
Importance = Additional;
ToolTip = 'Specifies the code that represents the default shipping agent service you are using for this sales order.';
}
field("Package Tracking No."; Rec."Package Tracking No.")
{
ApplicationArea = Suite;
Importance = Additional;
}
}
}
group(Control85)
{
ShowCaption = false;
field(BillToOptions; BillToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Bill-to';
ToolTip = 'Specifies the customer that the sales invoice will be sent to. Default (Customer): The same as the customer on the sales invoice. Another Customer: Any customer that you specify in the fields below.';
trigger OnValidate()
begin
if BillToOptions = BillToOptions::"Default (Customer)" then begin
Rec.Validate("Bill-to Customer No.", Rec."Sell-to Customer No.");
Rec.RecallModifyAddressNotification(Rec.GetModifyBillToCustomerAddressNotificationId());
end;
Rec.CopySellToAddressToBillToAddress();
end;
}
group(Control82)
{
ShowCaption = false;
Visible = not (BillToOptions = BillToOptions::"Default (Customer)");
field("Bill-to Name"; Rec."Bill-to Name")
{
ApplicationArea = Basic, Suite;
Caption = 'Name';
Editable = ((BillToOptions = BillToOptions::"Another Customer") or ((BillToOptions = BillToOptions::"Custom Address") and not ShouldSearchForCustByName));
Enabled = ((BillToOptions = BillToOptions::"Another Customer") or ((BillToOptions = BillToOptions::"Custom Address") and not ShouldSearchForCustByName));
Importance = Promoted;
ToolTip = 'Specifies the customer to whom you will send the sales invoice, when different from the customer that you are selling to.';
trigger OnAfterLookup(Selected: RecordRef)
var
Customer: Record Customer;
begin
Selected.SetTable(Customer);
OnBeforeLookupBillToName(Customer, Rec);
if Rec."Bill-to Customer No." <> Customer."No." then begin
Rec.Validate("Bill-to Customer No.", Customer."No.");
if Rec."Bill-to Customer No." <> Customer."No." then // User responded 'no' to change
error('');
if not ((BillToOptions = BillToOptions::"Custom Address") and not ShouldSearchForCustByName) then
if Rec.GetFilter("Bill-to Customer No.") = xRec."Bill-to Customer No." then
if Rec."Bill-to Customer No." <> xRec."Bill-to Customer No." then
Rec.SetRange("Bill-to Customer No.");
CurrPage.Update();
end;
end;
}
field("Bill-to Name 2"; Rec."Bill-to Name 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Name 2';
Editable = (BillToOptions = BillToOptions::"Another Customer");
Enabled = (BillToOptions = BillToOptions::"Another Customer");
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Bill-to Address"; Rec."Bill-to Address")
{
ApplicationArea = Basic, Suite;
Caption = 'Address';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
}
field("Bill-to Address 2"; Rec."Bill-to Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
}
field("Bill-to City"; Rec."Bill-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
}
group(Control130)
{
ShowCaption = false;
Visible = IsBillToCountyVisible;
field("Bill-to County"; Rec."Bill-to County")
{
ApplicationArea = Basic, Suite;
CaptionClass = '5,1,' + Rec."Bill-to Country/Region Code";
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
}
}
field("Bill-to Post Code"; Rec."Bill-to Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the postal code.';
}
field("Bill-to Country/Region Code"; Rec."Bill-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Country/Region Code';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the country or region of the address.';
trigger OnValidate()
begin
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
end;
}
field("Bill-to Contact No."; Rec."Bill-to Contact No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact No.';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Importance = Additional;
}
field("Bill-to Contact"; Rec."Bill-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
Enabled = (BillToOptions = BillToOptions::"Custom Address") or (Rec."Bill-to Customer No." <> Rec."Sell-to Customer No.");
ToolTip = 'Specifies the name of the person you should contact at the customer who you are sending the invoice to.';
}
field(BillToContactPhoneNo; BillToContact."Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the person you should contact at the customer you are sending the invoice to.';
}
field(BillToContactMobilePhoneNo; BillToContact."Mobile Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Mobile Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the person you should contact at the customer you are sending the invoice to.';
}
field(BillToContactEmail; BillToContact."E-Mail")
{
ApplicationArea = Basic, Suite;
Caption = 'Email';
Editable = false;
Importance = Additional;
ExtendedDatatype = EMail;
ToolTip = 'Specifies the email address of the person you should contact at the customer you are sending the invoice to.';
}
}
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
}
field("Shipment Date"; Rec."Shipment Date")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
}
field("Shipping Advice"; Rec."Shipping Advice")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
trigger OnValidate()
var
ConfirmManagement: Codeunit "Confirm Management";
begin
if Rec."Shipping Advice" <> xRec."Shipping Advice" then
if not ConfirmManagement.GetResponseOrDefault(StrSubstNo(Text001, Rec.FieldCaption("Shipping Advice")), true) then
Error(Text002);
end;
}
field("Outbound Whse. Handling Time"; Rec."Outbound Whse. Handling Time")
{
ApplicationArea = Warehouse;
Importance = Additional;
}
field("Shipping Time"; Rec."Shipping Time")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Late Order Shipping"; Rec."Late Order Shipping")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Combine Shipments"; Rec."Combine Shipments")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Completely Shipped"; Rec."Completely Shipped")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
}
group("Foreign Trade")
{
Caption = 'Foreign Trade';
Visible = BasicEUEnabled;
field("Transaction Specification"; Rec."Transaction Specification")
{
ApplicationArea = BasicEU;
}
field("Transaction Type"; Rec."Transaction Type")
{
ApplicationArea = BasicEU;
}
field("Transport Method"; Rec."Transport Method")
{
ApplicationArea = BasicEU;
}
field("Exit Point"; Rec."Exit Point")
{
ApplicationArea = BasicEU;
}
field("Area"; Rec.Area)
{
ApplicationArea = BasicEU;
}
field("Language Code"; Rec."Language Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Format Region"; Rec."Format Region")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
}
group(Control1900201301)
{
Caption = 'Prepayment';
field("Prepayment %"; Rec."Prepayment %")
{
ApplicationArea = Prepayments;
Importance = Promoted;
trigger OnValidate()
begin
Prepayment37OnAfterValidate();
end;
}
field("Compress Prepayment"; Rec."Compress Prepayment")
{
ApplicationArea = Prepayments;
}
field("Prepmt. Payment Terms Code"; Rec."Prepmt. Payment Terms Code")
{
ApplicationArea = Prepayments;
}
field("Prepayment Due Date"; Rec."Prepayment Due Date")
{
ApplicationArea = Prepayments;
Importance = Promoted;
}
field("Prepmt. Payment Discount %"; Rec."Prepmt. Payment Discount %")
{
ApplicationArea = Prepayments;
}
field("Prepmt. Pmt. Discount Date"; Rec."Prepmt. Pmt. Discount Date")
{
ApplicationArea = Prepayments;
}
}
}
area(factboxes)
{
part(SalesDocCheckFactbox; "Sales Doc. Check Factbox")
{
ApplicationArea = All;
Caption = 'Document Check';
Visible = SalesDocCheckFactboxVisible;
SubPageLink = "No." = field("No."),
"Document Type" = field("Document Type");
}
part("Attached Documents List"; "Doc. Attachment List Factbox")
{
ApplicationArea = All;
Caption = 'Documents';
UpdatePropagation = Both;
SubPageLink = "Table ID" = const(Database::"Sales Header"),
"No." = field("No."),
"Document Type" = field("Document Type");
}
part(Control35; "Pending Approval FactBox")
{
ApplicationArea = All;
SubPageLink = "Table ID" = const(36),
"Document Type" = field("Document Type"),
"Document No." = field("No."),
Status = const(Open);
Visible = OpenApprovalEntriesExistForCurrUser;
}
part(Control1903720907; "Sales Hist. Sell-to FactBox")
{
ApplicationArea = Basic, Suite;
SubPageLink = "No." = field("Sell-to Customer No."),
"Date Filter" = field("Date Filter");
}
part(Control1902018507; "Customer Statistics FactBox")
{
ApplicationArea = Basic, Suite;
SubPageLink = "No." = field("Bill-to Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1900316107; "Customer Details FactBox")
{
ApplicationArea = Basic, Suite;
SubPageLink = "No." = field("Sell-to Customer No."),
"Date Filter" = field("Date Filter");
}
part(Control1906127307; "Sales Line FactBox")
{
ApplicationArea = Suite;
Provider = SalesLines;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
}
part(Control1901314507; "Item Invoicing FactBox")
{
ApplicationArea = Basic, Suite;
Provider = SalesLines;
SubPageLink = "No." = field("No.");
}
part(ApprovalFactBox; "Approval FactBox")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
part(IncomingDocAttachFactBox; "Incoming Doc. Attach. FactBox")
{
ApplicationArea = Basic, Suite;
ShowFilter = false;
Visible = false;
}
part(Control1907012907; "Resource Details FactBox")
{
ApplicationArea = Basic, Suite;
Provider = SalesLines;
SubPageLink = "No." = field("No.");
Visible = false;
}
part(Control1901796907; "Item Warehouse FactBox")
{
ApplicationArea = Basic, Suite;
Provider = SalesLines;
SubPageLink = "No." = field("No.");
Visible = false;
}
part(Control1907234507; "Sales Hist. Bill-to FactBox")
{
ApplicationArea = Basic, Suite;
SubPageLink = "No." = field("Bill-to Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(WorkflowStatus; "Workflow Status FactBox")
{
ApplicationArea = All;
Editable = false;
Enabled = false;
ShowFilter = false;
Visible = ShowWorkflowStatus;
}
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
}
}
}
actions
{
area(navigation)
{
group("O&rder")
{
Caption = 'O&rder';
Image = "Order";
action(SalesOrderStatistics)
{
ApplicationArea = Basic, Suite;
Caption = 'Statistics';
Enabled = Rec."No." <> '';
Image = Statistics;
ShortCutKey = 'F7';
Visible = true;
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
RunObject = Page "Sales Order Statistics";
RunPageOnRec = true;
}
action(Customer)
{
ApplicationArea = Basic, Suite;
Caption = 'Customer';
Enabled = IsCustomerOrContactNotEmpty;
Image = Customer;
RunObject = Page "Customer Card";
RunPageLink = "No." = field("Sell-to Customer No."),
"Date Filter" = field("Date Filter");
ShortCutKey = 'Shift+F7';
ToolTip = 'View or edit detailed information about the customer on the sales document.';
}
action(CustomerStatistics)
{
ApplicationArea = Basic, Suite;
Caption = 'Customer Statistics';
Enabled = IsCustomerOrContactNotEmpty;
Image = Statistics;
RunObject = Page "Customer Statistics";
RunPageLink = "No." = field("Sell-to Customer No."),
"Date Filter" = field("Date Filter");
ToolTip = 'View statistical information, such as the value of posted entries, for the sell-to customer on the sales document.';
}
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Enabled = Rec."No." <> '';
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.ShowDocDim();
CurrPage.SaveRecord();
end;
}
action(Approvals)
{
AccessByPermission = TableData "Approval Entry" = R;
ApplicationArea = Suite;
Caption = 'Approvals';
Image = Approvals;
ToolTip = 'View a list of the records that are waiting to be approved. For example, you can see who requested the record to be approved, when it was sent, and when it is due to be approved.';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.OpenApprovalsSales(Rec);
end;
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Sales Comment Sheet";
RunPageLink = "Document Type" = field("Document Type"),
"No." = field("No."),
"Document Line No." = const(0);
ToolTip = 'View or add comments for the record.';
}
action(AssemblyOrders)
{
AccessByPermission = TableData "BOM Component" = R;
ApplicationArea = Assembly;
Caption = 'Assembly Orders';
Image = AssemblyOrder;
ToolTip = 'View ongoing assembly orders related to the sales order. ';
trigger OnAction()
var
AssembleToOrderLink: Record "Assemble-to-Order Link";
begin
AssembleToOrderLink.ShowAsmOrders(Rec);
end;
}
action(DocAttach)
{
ApplicationArea = Basic, Suite;
Caption = 'Attachments';
Image = Attach;
ToolTip = 'Add a file as an attachment. You can attach images as well as documents.';
trigger OnAction()
var
DocumentAttachmentDetails: Page "Document Attachment Details";
RecRef: RecordRef;
begin
RecRef.GetTable(Rec);
DocumentAttachmentDetails.OpenForRecRef(RecRef);
DocumentAttachmentDetails.RunModal();
end;
}
}
group(ActionGroupCRM)
{
Caption = 'Dynamics 365 Sales';
Visible = CRMIntegrationEnabled;
action(CRMGoToSalesOrder)
{
ApplicationArea = Basic, Suite;
Caption = 'Sales Order';
Enabled = CRMIntegrationEnabled and CRMIsCoupledToRecord;
Image = CoupledOrder;
ToolTip = 'View the selected sales order.';
trigger OnAction()
var
CRMIntegrationManagement: Codeunit "CRM Integration Management";
begin
CRMIntegrationManagement.ShowCRMEntityFromRecordID(Rec.RecordId);
end;
}
action(CRMSynchronizeNow)
{
AccessByPermission = TableData "CRM Integration Record" = IM;
ApplicationArea = Suite;
Caption = 'Synchronize';
Image = Refresh;
ToolTip = 'Send updated data to Dynamics 365 Sales.';
Enabled = IsBidirectionalSyncEnabled and (Rec.Status = Rec.Status::Released);
trigger OnAction()
var
CRMIntegrationManagement: Codeunit "CRM Integration Management";
begin
CRMIntegrationManagement.UpdateOneNow(Rec.RecordId);
end;
}
group(Coupling)
{
Caption = 'Coupling', Comment = 'Coupling is a noun';
Image = LinkAccount;
ToolTip = 'Create, change, or delete a coupling between the Business Central record and a Dynamics 365 Sales record.';
Enabled = IsBidirectionalSyncEnabled and (Rec.Status = Rec.Status::Released);
action(ManageCRMCoupling)
{
AccessByPermission = TableData "CRM Integration Record" = IM;
ApplicationArea = Suite;
Caption = 'Set Up Coupling';
Image = LinkAccount;
ToolTip = 'Create or modify the coupling to a Dynamics 365 Sales order.';
trigger OnAction()
var
CRMIntegrationManagement: Codeunit "CRM Integration Management";
begin
CRMIntegrationManagement.DefineCoupling(Rec.RecordId);
end;
}
action(DeleteCRMCoupling)
{
AccessByPermission = TableData "CRM Integration Record" = D;
ApplicationArea = Suite;
Caption = 'Delete Coupling';
Enabled = CRMIsCoupledToRecord;
Image = UnLinkAccount;
ToolTip = 'Delete the coupling to a Dynamics 365 Sales order.';
trigger OnAction()
var
SalesHeader: Record "Sales Header";
CRMCouplingManagement: Codeunit "CRM Coupling Management";
RecRef: RecordRef;
begin
CurrPage.SetSelectionFilter(SalesHeader);
RecRef.GetTable(SalesHeader);
CRMCouplingManagement.RemoveCoupling(RecRef);
end;
}
}
action(ShowLog)
{
ApplicationArea = Suite;
Caption = 'Synchronization Log';
Image = Log;
ToolTip = 'View integration synchronization jobs for the sales order table.';
Enabled = IsBidirectionalSyncEnabled and (Rec.Status = Rec.Status::Released);
trigger OnAction()
var
CRMIntegrationManagement: Codeunit "CRM Integration Management";
begin
CRMIntegrationManagement.ShowLog(Rec.RecordId);
end;
}
}
group(Documents)
{
Caption = 'Documents';
Image = Documents;
action("S&hipments")
{
ApplicationArea = Basic, Suite;
Caption = 'S&hipments';
Image = Shipment;
RunObject = Page "Posted Sales Shipments";
RunPageLink = "Order No." = field("No.");
RunPageView = sorting("Order No.");
ToolTip = 'View related posted sales shipments.';
}
action(Invoices)
{
ApplicationArea = Basic, Suite;
Caption = 'Invoices';
Image = Invoice;
ToolTip = 'View a list of ongoing sales invoices for the order.';
trigger OnAction()
var
TempSalesInvoiceHeader: Record "Sales Invoice Header" temporary;
SalesGetShipment: Codeunit "Sales-Get Shipment";
begin
SalesGetShipment.GetSalesOrderInvoices(TempSalesInvoiceHeader, Rec."No.");
Page.Run(Page::"Posted Sales Invoices", TempSalesInvoiceHeader);
end;
}
}
group(Warehouse)
{
Caption = 'Warehouse';
Image = Warehouse;
action("In&vt. Put-away/Pick Lines")
{
ApplicationArea = Warehouse;
Caption = 'In&vt. Put-away/Pick Lines';
Image = PickLines;
RunObject = Page "Warehouse Activity List";
RunPageLink = "Source Document" = const("Sales Order"),
"Source No." = field("No.");
RunPageView = sorting("Source Document", "Source No.", "Location Code");
ToolTip = 'View items that are inbound or outbound on inventory put-away or inventory pick documents for the sales order.';
}
action("Warehouse Shipment Lines")
{
ApplicationArea = Warehouse;
Caption = 'Warehouse Shipment Lines';
Image = ShipmentLines;
RunObject = Page "Whse. Shipment Lines";
RunPageLink = "Source Type" = const(37),
#pragma warning disable AL0603
"Source Subtype" = field("Document Type"),
#pragma warning restore
"Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.", "Source Line No.");
ToolTip = 'View ongoing warehouse shipments for the document, in advanced warehouse configurations.';
}
action("Whse. Pick Lines")
{
ApplicationArea = Warehouse;
Caption = 'Warehouse Pick Lines';
Image = PickLines;
RunObject = page "Warehouse Activity Lines";
RunPageLink = "Source Document" = const("Sales Order"), "Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.");
ToolTip = 'View items that are outbound on warehouse pick documents for the sales order.';
}
}
group(Prepayment)
{
Caption = 'Prepayment';
Image = Prepayment;
action(PagePostedSalesPrepaymentInvoices)
{
ApplicationArea = Prepayments;
Caption = 'Prepa&yment Invoices';
Image = PrepaymentInvoice;
RunObject = Page "Posted Sales Invoices";
RunPageLink = "Prepayment Order No." = field("No.");
RunPageView = sorting("Prepayment Order No.");
ToolTip = 'View related posted sales invoices that involve a prepayment. ';
}
action(PagePostedSalesPrepaymentCrMemos)
{
ApplicationArea = Prepayments;
Caption = 'Prepayment Credi&t Memos';
Image = PrepaymentCreditMemo;
RunObject = Page "Posted Sales Credit Memos";
RunPageLink = "Prepayment Order No." = field("No.");
RunPageView = sorting("Prepayment Order No.");
ToolTip = 'View related posted sales credit memos that involve a prepayment. ';
}
}
group(History)
{
Caption = 'History';
action(PageInteractionLogEntries)
{
ApplicationArea = Suite;
Caption = 'Interaction Log E&ntries';
Image = InteractionLog;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Category10;
ShortCutKey = 'Ctrl+F7';
ToolTip = 'View a list of interaction log entries related to this document.';
trigger OnAction()
begin
Rec.ShowInteractionLogEntries();
end;
}
}
}
area(processing)
{
group(Approval)
{
Caption = 'Approval';
action(Approve)
{
ApplicationArea = All;
Caption = 'Approve';
Image = Approve;
ToolTip = 'Approve the requested changes.';
Visible = OpenApprovalEntriesExistForCurrUser;
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.ApproveRecordApprovalRequest(Rec.RecordId);
end;
}
action(Reject)
{
ApplicationArea = All;
Caption = 'Reject';
Image = Reject;
ToolTip = 'Reject the approval request.';
Visible = OpenApprovalEntriesExistForCurrUser;
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.RejectRecordApprovalRequest(Rec.RecordId);
end;
}
action(Delegate)
{
ApplicationArea = All;
Caption = 'Delegate';
Image = Delegate;
ToolTip = 'Delegate the approval to a substitute approver.';
Visible = OpenApprovalEntriesExistForCurrUser;
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.DelegateRecordApprovalRequest(Rec.RecordId);
end;
}
action(Comment)
{
ApplicationArea = All;
Caption = 'Comments';
Image = ViewComments;
ToolTip = 'View or add comments for the record.';
Visible = OpenApprovalEntriesExistForCurrUser;
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.GetApprovalComment(Rec);
end;
}
}
group(Action21)
{
Caption = 'Release';
Image = ReleaseDoc;
action(Release)
{
ApplicationArea = Suite;
Caption = 'Re&lease';
Enabled = Rec.Status <> Rec.Status::Released;
Image = ReleaseDoc;
ShortCutKey = 'Ctrl+F9';
ToolTip = 'Release the document to the next stage of processing. You must reopen the document before you can make changes to it.';
trigger OnAction()
begin
Rec.PerformManualRelease();
CurrPage.SalesLines.PAGE.ClearTotalSalesHeader();
end;
}
action(Reopen)
{
ApplicationArea = Basic, Suite;
Caption = 'Re&open';
Enabled = Rec.Status <> Rec.Status::Open;
Image = ReOpen;
ToolTip = 'Reopen the document to change it after it has been approved. Approved documents have the Released status and must be opened before they can be changed.';
trigger OnAction()
var
ReleaseSalesDoc: Codeunit "Release Sales Document";
begin
ReleaseSalesDoc.PerformManualReopen(Rec);
CurrPage.SalesLines.PAGE.ClearTotalSalesHeader();
end;
}
}
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
group("Create Purchase Document")
{
Caption = 'Create Purchase Document';
Image = NewPurchaseInvoice;
ToolTip = 'Create a new purchase document so you can buy items from a vendor.';
action(CreatePurchaseOrder)
{
ApplicationArea = Suite;
Caption = 'Create Purchase Orders';
Image = Document;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Category8;
//The property 'PromotedIsBig' can only be set if the property 'Promoted' is set to 'true'
//PromotedIsBig = true;
ToolTip = 'Create one or more new purchase orders to buy the items that are required by this sales document, minus any quantity that is already available.';
trigger OnAction()
var
PurchDocFromSalesDoc: Codeunit "Purch. Doc. From Sales Doc.";
begin
PurchDocFromSalesDoc.CreatePurchaseOrder(Rec);
end;
}
action(CreatePurchaseInvoice)
{
ApplicationArea = Basic, Suite;
Caption = 'Create Purchase Invoice';
Image = NewPurchaseInvoice;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Category8;
//The property 'PromotedIsBig' can only be set if the property 'Promoted' is set to 'true'
//PromotedIsBig = true;
ToolTip = 'Create a new purchase invoice to buy all the items that are required by the sales document, even if some of the items are already available.';
trigger OnAction()
var
SelectedSalesLine: Record "Sales Line";
PurchDocFromSalesDoc: Codeunit "Purch. Doc. From Sales Doc.";
begin
CurrPage.SalesLines.PAGE.SetSelectionFilter(SelectedSalesLine);
PurchDocFromSalesDoc.CreatePurchaseInvoice(Rec, SelectedSalesLine);
end;
}
}
action(CalculateInvoiceDiscount)
{
AccessByPermission = TableData "Cust. Invoice Disc." = R;
ApplicationArea = Basic, Suite;
Caption = 'Calculate &Invoice Discount';
Image = CalculateInvoiceDiscount;
ToolTip = 'Calculate the invoice discount that applies to the sales order.';
trigger OnAction()
begin
ApproveCalcInvDisc();
SalesCalcDiscountByType.ResetRecalculateInvoiceDisc(Rec);
end;
}
action(GetRecurringSalesLines)
{
ApplicationArea = Suite;
Caption = 'Get Recurring Sales Lines';
Ellipsis = true;
Image = CustomerCode;
ToolTip = 'Insert sales document lines that you have set up for the customer as recurring. Recurring sales lines could be for a monthly replenishment order or a fixed freight expense.';
trigger OnAction()
var
StdCustSalesCode: Record "Standard Customer Sales Code";
begin
StdCustSalesCode.InsertSalesLines(Rec);
end;
}
action(CopyDocument)
{
ApplicationArea = Suite;
Caption = 'Copy Document';
Ellipsis = true;
Enabled = Rec."No." <> '';
Image = CopyDocument;
ToolTip = 'Copy document lines and header information from another sales document to this document. You can copy a posted sales invoice into a new sales invoice to quickly create a similar document.';
trigger OnAction()
begin
Rec.CopyDocument();
if Rec.Get(Rec."Document Type", Rec."No.") then;
CurrPage.SalesLines.Page.ForceTotalsCalculation();
CurrPage.Update();
end;
}
action(MoveNegativeLines)
{
ApplicationArea = Basic, Suite;
Caption = 'Move Negative Lines';
Ellipsis = true;
Image = MoveNegativeLines;
ToolTip = 'Prepare to create a replacement sales order in a sales return process.';
trigger OnAction()
begin
Clear(MoveNegSalesLines);
MoveNegSalesLines.SetSalesHeader(Rec);
MoveNegSalesLines.RunModal();
MoveNegSalesLines.ShowDocument();
end;
}
action("Archive Document")
{
ApplicationArea = Suite;
Caption = 'Archi&ve Document';
Image = Archive;
ToolTip = 'Send the document to the archive, for example because it is too soon to delete it. Later, you delete or reprocess the archived document.';
trigger OnAction()
begin
ArchiveManagement.ArchiveSalesDocument(Rec);
CurrPage.Update(false);
end;
}
action("Send IC Sales Order")
{
AccessByPermission = TableData "IC G/L Account" = R;
ApplicationArea = Intercompany;
Caption = 'Send IC Sales Order';
Image = IntercompanyOrder;
ToolTip = 'Send the sales order to the intercompany outbox or directly to the intercompany partner if automatic transaction sending is enabled.';
trigger OnAction()
var
ICInOutboxMgt: Codeunit ICInboxOutboxMgt;
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
ICFeedback: Codeunit "IC Feedback";
begin
Rec.TestField("IC Direction", Rec."IC Direction"::Outgoing);
if ApprovalsMgmt.PrePostApprovalCheckSales(Rec) then begin
ICInOutboxMgt.SendSalesDoc(Rec, false);
ICFeedback.ShowIntercompanyMessage(Rec, Enum::"IC Transaction Document Type"::Order);
end;
end;
}
action("Reject IC Sales Order")
{
ApplicationArea = Intercompany;
Caption = 'Reject IC Sales Order';
Enabled = RejectICSalesOrderEnabled;
Image = Cancel;
ToolTip = 'Deletes the order and sends the rejection to the company that created it.';
trigger OnAction()
var
ICInboxOutboxMgt: Codeunit ICInboxOutboxMgt;
begin
if not ICInboxOutboxMgt.IsSalesHeaderFromIncomingIC(Rec) then
exit;
if Confirm(SureToRejectMsg) then
ICInboxOutboxMgt.RejectAcceptedSalesHeader(Rec);
end;
}
group(IncomingDocument)
{
Caption = 'Incoming Document';
Image = Documents;
action(IncomingDocCard)
{
ApplicationArea = Basic, Suite;
Caption = 'View Incoming Document';
Enabled = HasIncomingDocument;
Image = ViewOrder;
ToolTip = 'View any incoming document records and file attachments that exist for the entry or document.';
trigger OnAction()
var
IncomingDocument: Record "Incoming Document";
begin
IncomingDocument.ShowCardFromEntryNo(Rec."Incoming Document Entry No.");
end;
}
action(SelectIncomingDoc)
{
AccessByPermission = TableData "Incoming Document" = R;
ApplicationArea = Basic, Suite;
Caption = 'Select Incoming Document';
Image = SelectLineToApply;
ToolTip = 'Select an incoming document record and file attachment that you want to link to the entry or document.';
trigger OnAction()
var
IncomingDocument: Record "Incoming Document";
begin
Rec.Validate("Incoming Document Entry No.", IncomingDocument.SelectIncomingDocument(Rec."Incoming Document Entry No.", Rec.RecordId));
end;
}
action(IncomingDocAttachFile)
{
ApplicationArea = Basic, Suite;
Caption = 'Create Incoming Document from File';
Ellipsis = true;
Enabled = not HasIncomingDocument;
Image = Attach;
ToolTip = 'Create an incoming document record by selecting a file to attach, and then link the incoming document record to the entry or document.';
trigger OnAction()
var
IncomingDocumentAttachment: Record "Incoming Document Attachment";
begin
IncomingDocumentAttachment.NewAttachmentFromSalesDocument(Rec);
end;
}
action(RemoveIncomingDoc)
{
ApplicationArea = Basic, Suite;
Caption = 'Remove Incoming Document';
Enabled = HasIncomingDocument;
Image = RemoveLine;
ToolTip = 'Remove any incoming document records and file attachments.';
trigger OnAction()
var
IncomingDocument: Record "Incoming Document";
begin
if IncomingDocument.Get(Rec."Incoming Document Entry No.") then
IncomingDocument.RemoveLinkToRelatedRecord();
Rec."Incoming Document Entry No." := 0;
Rec.Modify(true);
end;
}
}
}
group(Plan)
{
Caption = 'Plan';
Image = Planning;
action(OrderPromising)
{
AccessByPermission = TableData "Order Promising Line" = R;
ApplicationArea = OrderPromising;
Caption = 'Order &Promising';
Image = OrderPromising;
ToolTip = 'Calculate the shipment and delivery dates based on the item''s known and expected availability dates, and then promise the dates to the customer.';
trigger OnAction()
var
OrderPromisingLine: Record "Order Promising Line" temporary;
begin
OrderPromisingLine.SetRange("Source Type", Rec."Document Type");
OrderPromisingLine.SetRange("Source ID", Rec."No.");
PAGE.RunModal(PAGE::"Order Promising Lines", OrderPromisingLine);
end;
}
action("Demand Overview")
{
ApplicationArea = Basic, Suite;
Caption = 'Demand Overview';
Image = Forecast;
ToolTip = 'Get an overview of demand for your items when planning sales, production, projects, or service management and when they will be available.';
trigger OnAction()
var
DemandOverview: Page "Demand Overview";
begin
DemandOverview.SetCalculationParameter(true);
DemandOverview.SetParameters(0D, Microsoft.Inventory.Requisition."Demand Order Source Type"::"Sales Demand", Rec."No.", '', '');
DemandOverview.RunModal();
end;
}
action("Pla&nning")
{
ApplicationArea = Planning;
Caption = 'Pla&nning';
Image = Planning;
ToolTip = 'Open a tool for manual supply planning that displays all new demand along with availability information and suggestions for supply. It provides the visibility and tools needed to plan for demand from sales lines and component lines and then create different types of supply orders directly.';
trigger OnAction()
var
SalesPlanForm: Page "Sales Order Planning";
begin
SalesPlanForm.SetSalesOrder(Rec."No.");
SalesPlanForm.RunModal();
end;
}
}
group("Request Approval")
{
Caption = 'Request Approval';
Image = SendApprovalRequest;
action(SendApprovalRequest)
{
ApplicationArea = Basic, Suite;
Caption = 'Send A&pproval Request';
Enabled = not OpenApprovalEntriesExist and CanRequestApprovalForFlow;
Image = SendApprovalRequest;
ToolTip = 'Request approval of the document.';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
if ApprovalsMgmt.CheckSalesApprovalPossible(Rec) then
ApprovalsMgmt.OnSendSalesDocForApproval(Rec);
end;
}
action(CancelApprovalRequest)
{
ApplicationArea = Basic, Suite;
Caption = 'Cancel Approval Re&quest';
Enabled = CanCancelApprovalForRecord or CanCancelApprovalForFlow;
Image = CancelApprovalRequest;
ToolTip = 'Cancel the approval request.';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
WorkflowWebhookMgt: Codeunit "Workflow Webhook Management";
begin
ApprovalsMgmt.OnCancelSalesApprovalRequest(Rec);
WorkflowWebhookMgt.FindAndCancel(Rec.RecordId);
end;
}
group(Flow)
{
Caption = 'Power Automate';
Image = Flow;
customaction(CreateFlowFromTemplate)
{
ApplicationArea = Basic, Suite;
Caption = 'Create approval flow';
ToolTip = 'Create a new flow in Power Automate from a list of relevant flow templates.';
Visible = IsSaaS and IsPowerAutomatePrivacyNoticeApproved;
CustomActionType = FlowTemplateGallery;
FlowTemplateCategoryName = 'd365bc_approval_salesOrder';
}
}
}
group(Action3)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Create Inventor&y Put-away/Pick")
{
AccessByPermission = TableData "Posted Invt. Pick Header" = R;
ApplicationArea = Warehouse;
Caption = 'Create Inventor&y Put-away/Pick';
Ellipsis = true;
Image = CreateInventoryPickup;
ToolTip = 'Create an inventory put-away or inventory pick to handle items on the document according to a basic warehouse configuration that does not require warehouse receipt or shipment documents.';
trigger OnAction()
begin
Rec.PerformManualRelease();
Rec.CreateInvtPutAwayPick();
if not Rec.Find('=><') then
Rec.Init();
end;
}
action("Create &Warehouse Shipment")
{
AccessByPermission = TableData "Warehouse Shipment Header" = R;
ApplicationArea = Warehouse;
Caption = 'Create &Warehouse Shipment';
Image = NewShipment;
ToolTip = 'Create a warehouse shipment to start a pick a ship process according to an advanced warehouse configuration.';
trigger OnAction()
var
GetSourceDocOutbound: Codeunit "Get Source Doc. Outbound";
begin
Rec.PerformManualRelease();
GetSourceDocOutbound.CreateFromSalesOrder(Rec);
if not Rec.Find('=><') then
Rec.Init();
end;
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action(Post)
{
ApplicationArea = Basic, Suite;
Caption = 'P&ost';
Ellipsis = true;
Image = PostOrder;
ShortCutKey = 'F9';
ToolTip = 'Finalize the document or journal by posting the amounts and quantities to the related accounts in your company books.';
AboutTitle = 'Posting the order';
AboutText = 'Posting will ship or invoice the quantities on the order, or both. **Post** and **Send** can save the order as a file, print it, or attach it to an email, all in one go.';
trigger OnAction()
begin
PostSalesOrder(CODEUNIT::"Sales-Post (Yes/No)", Enum::"Navigate After Posting"::"Posted Document");
end;
}
action(PostAndNew)
{
ApplicationArea = Basic, Suite;
Caption = 'Post and New';
Ellipsis = true;
Image = PostOrder;
ShortCutKey = 'Alt+F9';
ToolTip = 'Post the sales document and create a new, empty one.';
trigger OnAction()
begin
PostSalesOrder(CODEUNIT::"Sales-Post (Yes/No)", Enum::"Navigate After Posting"::"New Document");
end;
}
action(PostAndSend)
{
ApplicationArea = Basic, Suite;
Caption = 'Post and Send';
Ellipsis = true;
Image = PostMail;
ToolTip = 'Finalize and prepare to send the document according to the customer''s sending profile, such as attached to an email. The Send document to window opens first so you can confirm or select a sending profile.';
trigger OnAction()
begin
PostSalesOrder(CODEUNIT::"Sales-Post and Send", Enum::"Navigate After Posting"::"Do Nothing");
end;
}
action("Test Report")
{
ApplicationArea = Basic, Suite;
Caption = 'Test Report';
Ellipsis = true;
Image = TestReport;
ToolTip = 'View a test report so that you can find and correct any errors before you perform the actual posting of the journal or document.';
trigger OnAction()
begin
ReportPrint.PrintSalesHeader(Rec);
end;
}
action("Remove From Job Queue")
{
ApplicationArea = All;
Caption = 'Remove From Job Queue';
Image = RemoveLine;
ToolTip = 'Remove the scheduled processing of this record from the job queue.';
Visible = JobQueueVisible;
trigger OnAction()
begin
Rec.CancelBackgroundPosting();
end;
}
action(PreviewPosting)
{
ApplicationArea = Basic, Suite;
Caption = 'Preview Posting';
Image = ViewPostedOrder;
ShortCutKey = 'Ctrl+Alt+F9';
ToolTip = 'Review the different types of entries that will be created when you post the document or journal.';
trigger OnAction()
begin
ShowPreview();
end;
}
action(ProformaInvoice)
{
ApplicationArea = Basic, Suite;
Caption = 'Pro Forma Invoice';
Ellipsis = true;
Image = ViewPostedOrder;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Category5;
ToolTip = 'View or print the pro forma sales invoice.';
trigger OnAction()
begin
DocPrint.PrintProformaSalesInvoice(Rec);
end;
}
group("Prepa&yment")
{
Caption = 'Prepa&yment';
Image = Prepayment;
action("Prepayment &Test Report")
{
ApplicationArea = Prepayments;
Caption = 'Prepayment &Test Report';
Ellipsis = true;
Image = PrepaymentSimulation;
ToolTip = 'Preview the prepayment transactions that will results from posting the sales document as invoiced. ';
trigger OnAction()
begin
ReportPrint.PrintSalesHeaderPrepmt(Rec);
end;
}
action(PostPrepaymentInvoice)
{
ApplicationArea = Prepayments;
Caption = 'Post Prepayment &Invoice';
Ellipsis = true;
Image = PrepaymentPost;
ToolTip = 'Post the specified prepayment information. ';
trigger OnAction()
var
SalesPostYNPrepmt: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckSales(Rec) then
SalesPostYNPrepmt.PostPrepmtInvoiceYN(Rec, false);
end;
}
action("Post and Print Prepmt. Invoic&e")
{
ApplicationArea = Prepayments;
Caption = 'Post and Print Prepmt. Invoic&e';
Ellipsis = true;
Image = PrepaymentPostPrint;
ToolTip = 'Post the specified prepayment information and print the related report. ';
trigger OnAction()
var
SalesPostYNPrepmt: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckSales(Rec) then
SalesPostYNPrepmt.PostPrepmtInvoiceYN(Rec, true);
end;
}
action(PreviewPrepmtInvoicePosting)
{
ApplicationArea = Prepayments;
Caption = 'Preview Prepmt. Invoice Posting';
Image = ViewPostedOrder;
ToolTip = 'Review the different types of entries that will be created when you post the prepayment invoice.';
trigger OnAction()
begin
ShowPrepmtInvoicePreview();
end;
}
action(PostPrepaymentCreditMemo)
{
ApplicationArea = Prepayments;
Caption = 'Post Prepayment &Credit Memo';
Ellipsis = true;
Image = PrepaymentPost;
ToolTip = 'Create and post a credit memo for the specified prepayment information.';
trigger OnAction()
var
SalesPostYNPrepmt: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckSales(Rec) then
SalesPostYNPrepmt.PostPrepmtCrMemoYN(Rec, false);
end;
}
action("Post and Print Prepmt. Cr. Mem&o")
{
ApplicationArea = Prepayments;
Caption = 'Post and Print Prepmt. Cr. Mem&o';
Ellipsis = true;
Image = PrepaymentPostPrint;
ToolTip = 'Create and post a credit memo for the specified prepayment information and print the related report.';
trigger OnAction()
var
SalesPostYNPrepmt: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckSales(Rec) then
SalesPostYNPrepmt.PostPrepmtCrMemoYN(Rec, true);
end;
}
action(PreviewPrepmtCrMemoPosting)
{
ApplicationArea = Prepayments;
Caption = 'Preview Prepmt. Cr. Memo Posting';
Image = ViewPostedOrder;
ToolTip = 'Review the different types of entries that will be created when you post the prepayment credit memo.';
trigger OnAction()
begin
ShowPrepmtCrMemoPreview();
end;
}
}
}
group("&Print")
{
Caption = '&Print';
Image = Print;
action("Work Order")
{
ApplicationArea = Basic, Suite;
Caption = 'Work Order';
Ellipsis = true;
Image = Print;
ToolTip = 'Prepare to registers actual item quantities or time used in connection with the sales order. For example, the document can be used by staff who perform any kind of processing work in connection with the sales order. It can also be exported to Excel if you need to process the sales line data further.';
trigger OnAction()
begin
DocPrint.PrintSalesOrder(Rec, Usage::"Work Order");
end;
}
action("Pick Instruction")
{
ApplicationArea = Warehouse;
Caption = 'Pick Instruction';
Image = Print;
ToolTip = 'Print a picking list that shows which items to pick and ship for the sales order. If an item is assembled to order, then the report includes rows for the assembly components that must be picked. Use this report as a pick instruction to employees in charge of picking sales items or assembly components for the sales order.';
trigger OnAction()
begin
DocPrint.PrintSalesOrder(Rec, Usage::"Pick Instruction");
end;
}
}
group("&Order Confirmation")
{
Caption = '&Order Confirmation';
Image = Email;
action(SendEmailConfirmation)
{
ApplicationArea = Basic, Suite;
Caption = 'Email Confirmation';
Ellipsis = true;
Image = Email;
ToolTip = 'Send a sales order confirmation by email. The attachment is sent as a .pdf.';
trigger OnAction()
begin
DocPrint.EmailSalesHeader(Rec);
end;
}
group(Action96)
{
action("Print Confirmation")
{
ApplicationArea = Basic, Suite;
Caption = 'Print Confirmation';
Ellipsis = true;
Image = Print;
ToolTip = 'Print a sales order confirmation.';
Visible = not IsOfficeHost;
trigger OnAction()
begin
DocPrint.PrintSalesOrder(Rec, Usage::"Order Confirmation");
end;
}
action(AttachAsPDF)
{
ApplicationArea = Basic, Suite;
Caption = 'Attach as PDF';
Ellipsis = true;
Image = PrintAttachment;
ToolTip = 'Create a PDF file and attach it to the document.';
trigger OnAction()
var
SalesHeader: Record "Sales Header";
begin
SalesHeader := Rec;
SalesHeader.SetRecFilter();
DocPrint.PrintSalesOrderToDocumentAttachment(SalesHeader, DocPrint.GetSalesOrderPrintToAttachmentOption(Rec));
end;
}
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
group(Category_Category6)
{
Caption = 'Posting', Comment = 'Generated from the PromotedActionCategories property index 5.';
ShowAs = SplitButton;
actionref(Post_Promoted; Post)
{
}
actionref(PostAndSend_Promoted; PostAndSend)
{
}
actionref(PreviewPosting_Promoted; PreviewPosting)
{
}
actionref(PostAndNew_Promoted; PostAndNew)
{
}
}
group(Category_Category5)
{
Caption = 'Release', Comment = 'Generated from the PromotedActionCategories property index 4.';
ShowAs = SplitButton;
actionref(Release_Promoted; Release)
{
}
actionref(Reopen_Promoted; Reopen)
{
}
}
actionref("Create &Warehouse Shipment_Promoted"; "Create &Warehouse Shipment")
{
}
actionref("Create Inventor&y Put-away/Pick_Promoted"; "Create Inventor&y Put-away/Pick")
{
}
actionref("Archive Document_Promoted"; "Archive Document")
{
}
}
group(Category_Category7)
{
Caption = 'Prepare', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(CopyDocument_Promoted; CopyDocument)
{
}
actionref(GetRecurringSalesLines_Promoted; GetRecurringSalesLines)
{
}
group("Category_Incoming Document")
{
Caption = 'Incoming Document';
actionref(IncomingDocAttachFile_Promoted; IncomingDocAttachFile)
{
}
actionref(IncomingDocCard_Promoted; IncomingDocCard)
{
}
actionref(SelectIncomingDoc_Promoted; SelectIncomingDoc)
{
}
actionref(RemoveIncomingDoc_Promoted; RemoveIncomingDoc)
{
}
}
actionref(CalculateInvoiceDiscount_Promoted; CalculateInvoiceDiscount)
{
}
actionref(MoveNegativeLines_Promoted; MoveNegativeLines)
{
}
}
group(Category_Category4)
{
Caption = 'Approve', Comment = 'Generated from the PromotedActionCategories property index 3.';
actionref(Approve_Promoted; Approve)
{
}
actionref(Reject_Promoted; Reject)
{
}
actionref(Comment_Promoted; Comment)
{
}
actionref(Delegate_Promoted; Delegate)
{
}
}
group(Category_Category11)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 10.';
actionref(SendEmailConfirmation_Promoted; SendEmailConfirmation)
{
}
actionref("Print Confirmation_Promoted"; "Print Confirmation")
{
}
actionref("Pick Instruction_Promoted"; "Pick Instruction")
{
}
actionref(AttachAsPDF_Promoted; AttachAsPDF)
{
}
actionref("Work Order_Promoted"; "Work Order")
{
}
actionref(ProformaInvoice_Promoted; ProformaInvoice)
{
}
}
group(Category_Category9)
{
Caption = 'Request Approval', Comment = 'Generated from the PromotedActionCategories property index 8.';
actionref(SendApprovalRequest_Promoted; SendApprovalRequest)
{
}
actionref(CancelApprovalRequest_Promoted; CancelApprovalRequest)
{
}
}
group(Category_Category8)
{
Caption = 'Order', Comment = 'Generated from the PromotedActionCategories property index 7.';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(SalesOrderStatistics_Promoted; SalesOrderStatistics)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
actionref(DocAttach_Promoted; DocAttach)
{
}
actionref(Approvals_Promoted; Approvals)
{
}
separator(Navigate_Separator)
{
}
actionref(Invoices_Promoted; Invoices)
{
}
actionref(Customer_Promoted; Customer)
{
}
actionref("S&hipments_Promoted"; "S&hipments")
{
}
}
group(Category_Category10)
{
Caption = 'History', Comment = 'Generated from the PromotedActionCategories property index 9.';
}
group(Category_Category12)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 11.';
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
group(Category_Synchronize)
{
Caption = 'Synchronize';
Visible = CRMIntegrationEnabled;
actionref(CRMGoToSalesOrder_Promoted; CRMGoToSalesOrder)
{
}
group(Category_Coupling)
{
Caption = 'Coupling';
ShowAs = SplitButton;
actionref(ManageCRMCoupling_Promoted; ManageCRMCoupling)
{
}
actionref(DeleteCRMCoupling_Promoted; DeleteCRMCoupling)
{
}
}
actionref(ShowLog_Promoted; ShowLog)
{
}
actionref(CRMSynchronizeNow_Promoted; CRMSynchronizeNow)
{
}
}
}
}
trigger OnAfterGetCurrRecord()
var
SalesHeader: Record "Sales Header";
CRMCouplingManagement: Codeunit "CRM Coupling Management";
CustCheckCrLimit: Codeunit "Cust-Check Cr. Limit";
IsHandled: Boolean;
begin
if GuiAllowed() then begin
IsSalesLinesEditable := Rec.SalesLinesEditable();
CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
CurrPage.ApprovalFactBox.PAGE.UpdateApprovalEntriesFromSourceRecord(Rec.RecordId);
end;
CRMIsCoupledToRecord := CRMIntegrationEnabled;
if CRMIsCoupledToRecord then
CRMIsCoupledToRecord := CRMCouplingManagement.IsRecordCoupledToCRM(Rec.RecordId);
if GuiAllowed() then begin
ShowWorkflowStatus := CurrPage.WorkflowStatus.PAGE.SetFilterOnWorkflowRecord(Rec.RecordId);
UpdatePaymentService();
if CallNotificationCheck then begin
SalesHeader := Rec;
SalesHeader.CalcFields("Amount Including VAT");
OnOnAfterGetCurrRecordOnBeforeSalesHeaderCheck(SalesHeader);
CustCheckCrLimit.SalesHeaderCheck(SalesHeader);
IsHandled := false;
OnAfterGetCurrRecordOnBeforeCheckItemAvailabilityInLines(Rec, IsHandled);
if not IsHandled then
Rec.CheckItemAvailabilityInLines();
CallNotificationCheck := false;
end;
StatusStyleTxt := Rec.GetStatusStyleText();
SetControlVisibility();
end;
end;
trigger OnAfterGetRecord()
var
ICInboxOutboxMgt: Codeunit ICInboxOutboxMgt;
begin
WorkDescription := Rec.GetWorkDescription();
RejectICSalesOrderEnabled := ICInboxOutboxMgt.IsSalesHeaderFromIncomingIC(Rec);
if GuiAllowed() then begin
SetControlVisibility();
UpdateShipToBillToGroupVisibility();
BillToContact.GetOrClear(Rec."Bill-to Contact No.");
SellToContact.GetOrClear(Rec."Sell-to Contact No.");
CurrPage.IncomingDocAttachFactBox.Page.SetCurrentRecordID(Rec.RecordId);
end;
OnAfterOnAfterGetRecord(Rec);
end;
trigger OnDeleteRecord(): Boolean
begin
CurrPage.SaveRecord();
exit(Rec.ConfirmDeletion());
end;
trigger OnInit()
begin
JobQueuesUsed := SalesSetup.JobQueueActive();
SetExtDocNoMandatoryCondition();
IsPowerAutomatePrivacyNoticeApproved := PrivacyNotice.GetPrivacyNoticeApprovalState(FlowServiceManagement.GetPowerAutomatePrivacyNoticeId()) = "Privacy Notice Approval State"::Agreed;
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
if DocNoVisible then
Rec.CheckCreditMaxBeforeInsert();
if (Rec."Sell-to Customer No." = '') and (Rec.GetFilter("Sell-to Customer No.") <> '') then
CurrPage.Update(false);
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
xRec.Init();
Rec."Responsibility Center" := UserMgt.GetSalesFilter();
if (not DocNoVisible) and (Rec."No." = '') then
Rec.SetSellToCustomerFromFilter();
Rec.SetDefaultPaymentServices();
UpdateShipToBillToGroupVisibility();
end;
trigger OnOpenPage()
var
PaymentServiceSetup: Record "Payment Service Setup";
CRMConnectionSetup: Record "CRM Connection Setup";
CRMIntegrationManagement: Codeunit "CRM Integration Management";
OfficeMgt: Codeunit "Office Management";
EnvironmentInfo: Codeunit "Environment Information";
ICInboxOutboxMgt: Codeunit ICInboxOutboxMgt;
VATReportingDateMgt: Codeunit "VAT Reporting Date Mgt";
ApplicationAreaMgmtFacade: Codeunit "Application Area Mgmt. Facade";
begin
Rec.SetSecurityFilterOnRespCenter();
Rec.SetRange("Date Filter", 0D, WorkDate());
ActivateFields();
SetDocNoVisible();
CRMIntegrationEnabled := CRMIntegrationManagement.IsCRMIntegrationEnabled();
if CRMIntegrationEnabled then
IsBidirectionalSyncEnabled := CRMConnectionSetup.IsBidirectionalSalesOrderIntEnabled();
IsOfficeHost := OfficeMgt.IsAvailable();
IsSaas := EnvironmentInfo.IsSaaS();
if (Rec."No." <> '') and (Rec."Sell-to Customer No." = '') then
DocumentIsPosted := (not Rec.Get(Rec."Document Type", Rec."No."));
PaymentServiceVisible := PaymentServiceSetup.IsPaymentServiceVisible();
if GuiAllowed() then
CheckShowBackgrValidationNotification();
RejectICSalesOrderEnabled := ICInboxOutboxMgt.IsSalesHeaderFromIncomingIC(Rec);
VATDateEnabled := VATReportingDateMgt.IsVATDateEnabled();
BasicEUEnabled := ApplicationAreaMgmtFacade.IsBasicCountryEnabled('EU');
end;
trigger OnQueryClosePage(CloseAction: Action): Boolean
var
InstructionMgt: Codeunit "Instruction Mgt.";
IsHandled: Boolean;
Result: Boolean;
DoShowReleaseNotification: Boolean;
begin
IsHandled := false;
DoShowReleaseNotification := ShowReleaseNotification();
OnBeforeQueryClosePage(DocumentIsScheduledForPosting, Rec, CloseAction, DoShowReleaseNotification, DocumentIsPosted, Result, IsHandled);
if IsHandled then
exit(Result);
if not DocumentIsScheduledForPosting and DoShowReleaseNotification then
if not InstructionMgt.ShowConfirmUnreleased() then
exit(false);
OnQueryClosePageOnBeforeConfirmCloseUnposted(DocumentIsPosted);
if not DocumentIsPosted then
exit(Rec.ConfirmCloseUnposted());
end;
var
BillToContact: Record Contact;
SellToContact: Record Contact;
SalesSetup: Record "Sales & Receivables Setup";
GLSetup: Record "General Ledger Setup";
MoveNegSalesLines: Report "Move Negative Sales Lines";
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
ReportPrint: Codeunit "Test Report-Print";
DocPrint: Codeunit "Document-Print";
ArchiveManagement: Codeunit ArchiveManagement;
SalesCalcDiscountByType: Codeunit "Sales - Calc Discount By Type";
UserMgt: Codeunit "User Setup Management";
CustomerMgt: Codeunit "Customer Mgt.";
FormatAddress: Codeunit "Format Address";
PrivacyNotice: Codeunit "Privacy Notice";
FlowServiceManagement: Codeunit "Flow Service Management";
ChangeExchangeRate: Page "Change Exchange Rate";
Usage: Option "Order Confirmation","Work Order","Pick Instruction";
JobQueueVisible: Boolean;
#pragma warning disable AA0074
#pragma warning disable AA0470
Text001: Label 'Do you want to change %1 in all related records in the warehouse?';
#pragma warning restore AA0470
Text002: Label 'The update has been interrupted to respect the warning.';
#pragma warning restore AA0074
HasIncomingDocument: Boolean;
DocNoVisible: Boolean;
ExternalDocNoMandatory: Boolean;
OpenApprovalEntriesExistForCurrUser: Boolean;
IsPowerAutomatePrivacyNoticeApproved: Boolean;
OpenApprovalEntriesExist: Boolean;
CRMIntegrationEnabled: Boolean;
CRMIsCoupledToRecord: Boolean;
ShowWorkflowStatus: Boolean;
IsOfficeHost: Boolean;
CanCancelApprovalForRecord: Boolean;
JobQueuesUsed: Boolean;
DocumentIsScheduledForPosting: Boolean;
OpenPostedSalesOrderQst: Label 'The order is posted as number %1 and moved to the Posted Sales Invoices window.\\Do you want to open the posted invoice?', Comment = '%1 = posted document number';
PaymentServiceVisible: Boolean;
PaymentServiceEnabled: Boolean;
EmptyShipToCodeErr: Label 'The Code field can only be empty if you select Custom Address in the Ship-to field.';
SureToRejectMsg: Label 'Rejecting this order will remove it from your company and send it back to the partner company.\\Do you want to continue?';
CanRequestApprovalForFlow: Boolean;
CanCancelApprovalForFlow: Boolean;
IsCustomerOrContactNotEmpty: Boolean;
SalesDocCheckFactboxVisible: Boolean;
WorkDescription: Text;
StatusStyleTxt: Text;
IsSaas: Boolean;
IsBillToCountyVisible: Boolean;
IsSellToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
IsJournalTemplNameVisible: Boolean;
IsPaymentMethodCodeVisible: Boolean;
IsSalesLinesEditable: Boolean;
ShouldSearchForCustByName: Boolean;
IsBidirectionalSyncEnabled: Boolean;
RejectICSalesOrderEnabled: Boolean;
VATDateEnabled: Boolean;
BasicEUEnabled: Boolean;
protected var
ShipToOptions: Enum "Sales Ship-to Options";
BillToOptions: Enum "Sales Bill-to Options";
CallNotificationCheck: Boolean;
DocumentIsPosted: Boolean;
ShowQuoteNo: Boolean;
IsPostingGroupEditable: Boolean;
local procedure ActivateFields()
begin
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Sell-to Country/Region Code");
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
GLSetup.Get();
IsJournalTemplNameVisible := GLSetup."Journal Templ. Name Mandatory";
IsPaymentMethodCodeVisible := not GLSetup."Hide Payment Method Code";
IsSalesLinesEditable := Rec.SalesLinesEditable();
end;
protected procedure PostSalesOrder(PostingCodeunitID: Integer; Navigate: Enum "Navigate After Posting")
var
SalesHeader: Record "Sales Header";
LinesInstructionMgt: Codeunit "Lines Instruction Mgt.";
InstructionMgt: Codeunit "Instruction Mgt.";
IsHandled: Boolean;
begin
OnBeforePostSalesOrder(Rec, PostingCodeunitID, Navigate);
LinesInstructionMgt.SalesCheckAllLinesHaveQuantityAssigned(Rec);
Rec.SendToPosting(PostingCodeunitID);
DocumentIsScheduledForPosting := Rec."Job Queue Status" = Rec."Job Queue Status"::"Scheduled for Posting";
DocumentIsPosted := (not SalesHeader.Get(Rec."Document Type", Rec."No.")) or DocumentIsScheduledForPosting;
OnPostOnAfterSetDocumentIsPosted(SalesHeader, DocumentIsScheduledForPosting, DocumentIsPosted);
CurrPage.Update(false);
IsHandled := false;
OnPostDocumentBeforeNavigateAfterPosting(Rec, PostingCodeunitID, Navigate, DocumentIsPosted, IsHandled);
if IsHandled then
exit;
if PostingCodeunitID <> CODEUNIT::"Sales-Post (Yes/No)" then
exit;
case Navigate of
Enum::"Navigate After Posting"::"Posted Document":
begin
if InstructionMgt.IsEnabled(InstructionMgt.ShowPostedConfirmationMessageCode()) then
ShowPostedConfirmationMessage();
if DocumentIsScheduledForPosting or DocumentIsPosted then
CurrPage.Close();
end;
Enum::"Navigate After Posting"::"New Document":
if DocumentIsPosted then begin
Clear(SalesHeader);
SalesHeader.Init();
SalesHeader.Validate("Document Type", SalesHeader."Document Type"::Order);
OnPostOnBeforeSalesHeaderInsert(SalesHeader);
SalesHeader.Insert(true);
PAGE.Run(PAGE::"Sales Order", SalesHeader);
end;
end;
end;
local procedure ApproveCalcInvDisc()
begin
Rec.TestStatusOpen();
CurrPage.SalesLines.PAGE.ApproveCalcInvDisc();
end;
local procedure SaveInvoiceDiscountAmount()
var
DocumentTotals: Codeunit "Document Totals";
begin
CurrPage.SaveRecord();
DocumentTotals.SalesRedistributeInvoiceDiscountAmountsOnDocument(Rec);
CurrPage.Update(false);
end;
local procedure SalespersonCodeOnAfterValidate()
begin
CurrPage.SalesLines.PAGE.UpdateForm(false);
end;
local procedure ShortcutDimension1CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure ShortcutDimension2CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure PricesIncludingVATOnAfterValid()
begin
CurrPage.SalesLines.Page.ForceTotalsCalculation();
CurrPage.Update();
end;
local procedure Prepayment37OnAfterValidate()
begin
CurrPage.Update();
end;
local procedure SetDocNoVisible()
var
DocumentNoVisibility: Codeunit DocumentNoVisibility;
DocType: Option Quote,"Order",Invoice,"Credit Memo","Blanket Order","Return Order",Reminder,FinChMemo;
begin
DocNoVisible := DocumentNoVisibility.SalesDocumentNoIsVisible(DocType::Order, Rec."No.");
end;
local procedure SetExtDocNoMandatoryCondition()
begin
SalesSetup.GetRecordOnce();
ExternalDocNoMandatory := SalesSetup."Ext. Doc. No. Mandatory";
end;
local procedure ShowPreview()
var
SalesPostYesNo: Codeunit "Sales-Post (Yes/No)";
begin
SalesPostYesNo.Preview(Rec);
end;
local procedure ShowPrepmtInvoicePreview()
var
SalesPostPrepaymentYesNo: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
SalesPostPrepaymentYesNo.Preview(Rec, 2);
end;
local procedure ShowPrepmtCrMemoPreview()
var
SalesPostPrepaymentYesNo: Codeunit "Sales-Post Prepayment (Yes/No)";
begin
SalesPostPrepaymentYesNo.Preview(Rec, 3);
end;
local procedure SetControlVisibility()
var
DocumentErrorsMgt: Codeunit "Document Errors Mgt.";
WorkflowWebhookMgt: Codeunit "Workflow Webhook Management";
begin
JobQueueVisible := Rec."Job Queue Status" = Rec."Job Queue Status"::"Scheduled for Posting";
HasIncomingDocument := Rec."Incoming Document Entry No." <> 0;
ShowQuoteNo := Rec."Quote No." <> '';
SetExtDocNoMandatoryCondition();
SetPostingGroupEditable();
OpenApprovalEntriesExistForCurrUser := ApprovalsMgmt.HasOpenApprovalEntriesForCurrentUser(Rec.RecordId);
OpenApprovalEntriesExist := ApprovalsMgmt.HasOpenApprovalEntries(Rec.RecordId);
CanCancelApprovalForRecord := ApprovalsMgmt.CanCancelApprovalForRecord(Rec.RecordId);
WorkflowWebhookMgt.GetCanRequestAndCanCancel(Rec.RecordId, CanRequestApprovalForFlow, CanCancelApprovalForFlow);
IsCustomerOrContactNotEmpty := (Rec."Sell-to Customer No." <> '') or (Rec."Sell-to Contact No." <> '');
SalesDocCheckFactboxVisible := DocumentErrorsMgt.BackgroundValidationEnabled();
ShouldSearchForCustByName := Rec.ShouldSearchForCustomerByName(Rec."Sell-to Customer No.");
end;
local procedure ShowPostedConfirmationMessage()
var
OrderSalesHeader: Record "Sales Header";
SalesInvoiceHeader: Record "Sales Invoice Header";
InstructionMgt: Codeunit "Instruction Mgt.";
ICFeedback: Codeunit "IC Feedback";
begin
if not OrderSalesHeader.Get(Rec."Document Type", Rec."No.") then begin
SalesInvoiceHeader.SetRange("No.", Rec."Last Posting No.");
if SalesInvoiceHeader.FindFirst() then begin
ICFeedback.ShowIntercompanyMessage(Rec, Enum::"IC Transaction Document Type"::Order);
if InstructionMgt.ShowConfirm(StrSubstNo(OpenPostedSalesOrderQst, SalesInvoiceHeader."No."),
InstructionMgt.ShowPostedConfirmationMessageCode())
then
InstructionMgt.ShowPostedDocument(SalesInvoiceHeader, Page::"Sales Order");
end;
end;
end;
/// <summary>
/// Runs a background check for document errors.
/// </summary>
procedure RunBackgroundCheck()
begin
CurrPage.SalesDocCheckFactbox.Page.CheckErrorsInBackground(Rec);
end;
protected procedure UpdatePaymentService()
var
PaymentServiceSetup: Record "Payment Service Setup";
begin
PaymentServiceVisible := PaymentServiceSetup.IsPaymentServiceVisible();
PaymentServiceEnabled := PaymentServiceSetup.CanChangePaymentService(Rec);
end;
/// <summary>
/// Updates the visibility of ship-to and bill-to address option groups.
/// </summary>
procedure UpdateShipToBillToGroupVisibility()
begin
CustomerMgt.CalculateShipBillToOptions(ShipToOptions, BillToOptions, Rec);
end;
/// <summary>
/// Sets whether the posting group field should be editable based on customer settings.
/// </summary>
procedure SetPostingGroupEditable()
var
BillToCustomer: Record Customer;
begin
if BillToCustomer.Get(Rec."Bill-to Customer No.") then
IsPostingGroupEditable := BillToCustomer."Allow Multiple Posting Groups";
end;
/// <summary>
/// Sets a flag to check notifications once on the next update.
/// </summary>
procedure CheckNotificationsOnce()
begin
CallNotificationCheck := true;
end;
local procedure CheckShowBackgrValidationNotification()
var
DocumentErrorsMgt: Codeunit "Document Errors Mgt.";
begin
if DocumentErrorsMgt.CheckShowEnableBackgrValidationNotification() then
SetControlVisibility();
end;
local procedure ShowReleaseNotification() Result: Boolean
var
LocationsQuery: Query "Locations from items Sales";
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeShowReleaseNotification(Rec, Result, IsHandled);
if IsHandled then
exit;
if Rec.TestStatusIsNotReleased() then begin
LocationsQuery.SetRange(Document_No, Rec."No.");
LocationsQuery.SetRange(Require_Pick, true);
LocationsQuery.Open();
if LocationsQuery.Read() then
exit(true);
LocationsQuery.SetRange(Require_Pick);
LocationsQuery.SetRange(Require_Shipment, true);
LocationsQuery.Open();
exit(LocationsQuery.Read());
end;
exit(false);
end;
[IntegrationEvent(false, false)]
local procedure OnAfterValidateShippingOptions(var SalesHeader: Record "Sales Header"; ShipToOptions: Option "Default (Sell-to Address)","Alternate Shipping Address","Custom Address")
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterOnAfterGetRecord(var SalesHeader: Record "Sales Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforePostSalesOrder(var SalesHeader: Record "Sales Header"; PostingCodeunitID: Integer; Navigate: Enum "Navigate After Posting")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeShowReleaseNotification(var SalesHeader: Record "Sales Header"; var Result: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeValidateShipToOptions(var SalesHeader: Record "Sales Header"; ShipToOptions: Option "Default (Sell-to Address)","Alternate Shipping Address","Custom Address"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnPostOnAfterSetDocumentIsPosted(SalesHeader: Record "Sales Header"; var IsScheduledPosting: Boolean; var DocumentIsPosted: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnPostOnBeforeSalesHeaderInsert(var SalesHeader: Record "Sales Header")
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterGetCurrRecordOnBeforeCheckItemAvailabilityInLines(var SalesHeader: Record "Sales Header"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnOnAfterGetCurrRecordOnBeforeSalesHeaderCheck(var SalesHeader: Record "Sales Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnValidateShipToOptionsOnAfterShipToAddressListGetRecord(var ShipToAddress: Record "Ship-to Address"; var SalesHeader: Record "Sales Header")
begin
end;
[IntegrationEvent(true, false)]
local procedure OnPostDocumentBeforeNavigateAfterPosting(var SalesHeader: Record "Sales Header"; var PostingCodeunitID: Integer; var Navigate: Enum "Navigate After Posting"; DocumentIsPosted: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeQueryClosePage(var DocumentIsScheduledForPosting: Boolean; var SalesHeader: Record "Sales Header"; CloseAction: Action; ShowReleaseNotification: Boolean; DocumentIsPosted: Boolean; var Result: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnQueryClosePageOnBeforeConfirmCloseUnposted(var DocumentIsPosted: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeLookupBillToName(var Customer: Record Customer; SalesHeader: Record "Sales Header")
begin
end;
}