Page 1382 Customer Templ. Card, source in 29
Source29
src/Layers/W1/BaseApp/Sales/Customer/CustomerTemplCard.Page.al484 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.Customer;
using Microsoft.Finance.Dimension;
using Microsoft.Foundation.Address;
using Microsoft.Pricing.Calculation;
using Microsoft.Sales.Setup;
/// <summary>
/// Displays and edits a customer template with predefined field values for new customers.
/// </summary>
page 1382 "Customer Templ. Card"
{
Caption = 'Customer Template';
PageType = Card;
SourceTable = "Customer Templ.";
layout
{
area(Content)
{
group(General)
{
Caption = 'General';
field(Code; Rec.Code)
{
ApplicationArea = Basic, Suite;
}
field(Description; Rec.Description)
{
ApplicationArea = Basic, Suite;
}
field("Contact Type"; Rec."Contact Type")
{
ApplicationArea = Basic, Suite;
}
field(Blocked; Rec.Blocked)
{
ApplicationArea = Basic, Suite;
}
field("No. Series"; Rec."No. Series")
{
ApplicationArea = Basic, Suite;
}
field("Privacy Blocked"; Rec."Privacy Blocked")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
Visible = false;
}
field("Salesperson Code"; Rec."Salesperson Code")
{
ApplicationArea = Suite;
Visible = false;
}
field("IC Partner Code"; Rec."IC Partner Code")
{
ApplicationArea = Intercompany;
Importance = Additional;
Visible = false;
}
field("Disable Search by Name"; Rec."Disable Search by Name")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
Visible = false;
}
field("Responsibility Center"; Rec."Responsibility Center")
{
ApplicationArea = Suite;
Importance = Additional;
Visible = false;
}
field("Credit Limit (LCY)"; Rec."Credit Limit (LCY)")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Statistics Group"; Rec."Statistics Group")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
}
group("Address & Contact")
{
Caption = 'Address & Contact';
group(AddressDetails)
{
Caption = 'Address';
field(Address; Rec.Address)
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Address 2"; Rec."Address 2")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Country/Region Code"; Rec."Country/Region Code")
{
ApplicationArea = Basic, Suite;
trigger OnValidate()
begin
IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
end;
}
field(City; Rec.City)
{
ApplicationArea = Basic, Suite;
}
group(CountyGroup)
{
ShowCaption = false;
Visible = IsCountyVisible;
field(County; Rec.County)
{
ApplicationArea = Basic, Suite;
}
}
field("Post Code"; Rec."Post Code")
{
ApplicationArea = Basic, Suite;
}
}
field("Phone No."; Rec."Phone No.")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field(MobilePhoneNo; Rec."Mobile Phone No.")
{
ApplicationArea = Basic, Suite;
ExtendedDatatype = PhoneNo;
Visible = false;
}
field("E-Mail"; Rec."E-Mail")
{
ApplicationArea = Basic, Suite;
ExtendedDatatype = EMail;
Visible = false;
}
field("Fax No."; Rec."Fax No.")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Home Page"; Rec."Home Page")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
group(ContactDetails)
{
Caption = 'Contact';
field("Language Code"; Rec."Language Code")
{
ApplicationArea = Basic, Suite;
}
field("Format Region"; Rec."Format Region")
{
ApplicationArea = Basic, Suite;
}
field("Document Sending Profile"; Rec."Document Sending Profile")
{
ApplicationArea = Basic, Suite;
}
}
}
group(Invoicing)
{
Caption = 'Invoicing';
field("Bill-to Customer No."; Rec."Bill-to Customer No.")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Validate EU Vat Reg. No."; Rec."Validate EU Vat Reg. No.")
{
ApplicationArea = Basic, Suite;
}
field("VAT Registration No."; Rec."VAT Registration No.")
{
ApplicationArea = VAT;
Visible = false;
}
field("EORI Number"; Rec."EORI Number")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field(GLN; Rec.GLN)
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Use GLN in Electronic Document"; Rec."Use GLN in Electronic Document")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Copy Sell-to Addr. to Qte From"; Rec."Copy Sell-to Addr. to Qte From")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Tax Liable"; Rec."Tax Liable")
{
ApplicationArea = SalesTax;
Visible = false;
}
field("Tax Area Code"; Rec."Tax Area Code")
{
ApplicationArea = SalesTax;
Visible = false;
}
group(PostingDetails)
{
Caption = 'Posting Details';
field("Gen. Bus. Posting Group"; Rec."Gen. Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
ShowMandatory = true;
}
field("VAT Bus. Posting Group"; Rec."VAT Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Customer Posting Group"; Rec."Customer Posting Group")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
ShowMandatory = true;
}
field("Allow Multiple Posting Groups"; Rec."Allow Multiple Posting Groups")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
Visible = IsAllowMultiplePostingGroupsVisible;
}
}
group(PricesandDiscounts)
{
Caption = 'Prices and Discounts';
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Price Calculation Method"; Rec."Price Calculation Method")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
Visible = ExtendedPriceEnabled;
}
field("Customer Price Group"; Rec."Customer Price Group")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
}
field("Customer Disc. Group"; Rec."Customer Disc. Group")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
}
field("Allow Line Disc."; Rec."Allow Line Disc.")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Invoice Disc. Code"; Rec."Invoice Disc. Code")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Prices Including VAT"; Rec."Prices Including VAT")
{
ApplicationArea = VAT;
Importance = Additional;
}
}
}
group(Payments)
{
Caption = 'Payments';
field("Prepayment %"; Rec."Prepayment %")
{
ApplicationArea = Prepayments;
Importance = Additional;
Visible = false;
}
field("Application Method"; Rec."Application Method")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Partner Type"; Rec."Partner Type")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Intrastat Partner Type"; Rec."Intrastat Partner Type")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Payment Terms Code"; Rec."Payment Terms Code")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
ShowMandatory = true;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Reminder Terms Code"; Rec."Reminder Terms Code")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Fin. Charge Terms Code"; Rec."Fin. Charge Terms Code")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Cash Flow Payment Terms Code"; Rec."Cash Flow Payment Terms Code")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
Visible = false;
}
field("Print Statements"; Rec."Print Statements")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Block Payment Tolerance"; Rec."Block Payment Tolerance")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
}
group(Shipping)
{
Caption = 'Shipping';
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Importance = Promoted;
}
field("Combine Shipments"; Rec."Combine Shipments")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field(Reserve; Rec.Reserve)
{
ApplicationArea = Reservation;
Visible = false;
}
field("Shipping Advice"; Rec."Shipping Advice")
{
ApplicationArea = Basic, Suite;
Importance = Promoted;
Visible = false;
}
group("Shipment Method")
{
Caption = 'Shipment Method';
field("Shipment Method Code"; Rec."Shipment Method Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Code';
Importance = Promoted;
}
field("Shipping Agent Code"; Rec."Shipping Agent Code")
{
ApplicationArea = Suite;
Caption = 'Agent';
Visible = false;
}
field("Shipping Agent Service Code"; Rec."Shipping Agent Service Code")
{
ApplicationArea = Suite;
Caption = 'Agent Service';
Importance = Additional;
Visible = false;
}
}
field("Shipping Time"; Rec."Shipping Time")
{
ApplicationArea = Suite;
Importance = Additional;
Visible = false;
}
field("Base Calendar Code"; Rec."Base Calendar Code")
{
ApplicationArea = Basic, Suite;
DrillDown = false;
Visible = false;
}
}
}
}
actions
{
area(Navigation)
{
action(Dimensions)
{
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Image = Dimensions;
RunObject = Page "Default Dimensions";
RunPageLink = "Table ID" = const(1381),
"No." = field(Code);
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.';
}
action(CopyTemplate)
{
ApplicationArea = Basic, Suite;
Caption = 'Copy Template';
Image = Copy;
ToolTip = 'Copies all information to the current template from the selected one.';
trigger OnAction()
var
CustomerTempl: Record "Customer Templ.";
CustomerTemplList: Page "Select Customer Templ. List";
begin
Rec.TestField(Code);
CustomerTempl.SetFilter(Code, '<>%1', Rec.Code);
CustomerTemplList.LookupMode(true);
CustomerTemplList.SetTableView(CustomerTempl);
if CustomerTemplList.RunModal() = Action::LookupOK then begin
CustomerTemplList.GetRecord(CustomerTempl);
Rec.CopyFromTemplate(CustomerTempl);
end;
end;
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref(CopyTemplate_Promoted; CopyTemplate)
{
}
actionref(Dimensions_Promoted; Dimensions)
{
}
}
}
}
trigger OnOpenPage()
var
PriceCalculationMgt: Codeunit "Price Calculation Mgt.";
begin
IsCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
SalesReceivablesSetup.Get();
IsAllowMultiplePostingGroupsVisible := SalesReceivablesSetup."Allow Multiple Posting Groups";
ExtendedPriceEnabled := PriceCalculationMgt.IsExtendedPriceCalculationEnabled();
end;
var
SalesReceivablesSetup: Record "Sales & Receivables Setup";
FormatAddress: Codeunit "Format Address";
ExtendedPriceEnabled: Boolean;
IsAllowMultiplePostingGroupsVisible: Boolean;
IsCountyVisible: Boolean;
}