Page 49 Purchase Quote, source in 29
Source29
src/Layers/W1/BaseApp/Purchases/Document/PurchaseQuote.Page.al1744 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.Purchases.Document;
using Microsoft.CRM.Contact;
using Microsoft.EServices.EDocument;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Attachment;
using Microsoft.Foundation.Reporting;
using Microsoft.Purchases.Comment;
using Microsoft.Purchases.Payables;
using Microsoft.Purchases.Vendor;
using Microsoft.Utilities;
using System.Automation;
using System.Environment;
using System.Environment.Configuration;
using System.Privacy;
using System.Security.User;
page 49 "Purchase Quote"
{
Caption = 'Purchase Quote';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Purchase Header";
SourceTableView = where("Document Type" = filter(Quote));
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = Suite;
Importance = Promoted;
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("Buy-from Vendor No."; Rec."Buy-from Vendor No.")
{
ApplicationArea = Suite;
Caption = 'Vendor No.';
Importance = Additional;
NotBlank = true;
ToolTip = 'Specifies the number of the vendor who delivers the products.';
trigger OnValidate()
begin
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
Rec.OnAfterValidateBuyFromVendorNo(Rec, xRec);
CurrPage.Update();
end;
}
field("Buy-from Vendor Name"; Rec."Buy-from Vendor Name")
{
ApplicationArea = Suite;
Caption = 'Vendor Name';
Importance = Promoted;
ShowMandatory = true;
ToolTip = 'Specifies the name of the vendor who delivers the products.';
trigger OnAfterLookup(Selected: RecordRef)
var
Vendor: Record Vendor;
begin
Selected.SetTable(Vendor);
if Rec."Buy-from Vendor No." <> Vendor."No." then begin
Rec.Validate("Buy-from Vendor No.", Vendor."No.");
if Rec."Buy-from Vendor No." <> Vendor."No." then
error('');
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
CurrPage.Update();
end;
end;
trigger OnValidate()
begin
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
Rec.OnAfterValidateBuyFromVendorNo(Rec, xRec);
CurrPage.Update();
end;
}
field("Buy-from Vendor Name 2"; Rec."Buy-from Vendor Name 2")
{
ApplicationArea = Suite;
Caption = 'Vendor Name 2';
Importance = Additional;
QuickEntry = false;
Visible = false;
}
group("Buy-from")
{
Caption = 'Buy-from';
field("Buy-from Address"; Rec."Buy-from Address")
{
ApplicationArea = Suite;
Caption = 'Address';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the address of the vendor who delivered the items.';
}
field("Buy-from Address 2"; Rec."Buy-from Address 2")
{
ApplicationArea = Suite;
Caption = 'Address 2';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies an additional part of the address of the vendor who delivered the items.';
}
field("Buy-from City"; Rec."Buy-from City")
{
ApplicationArea = Suite;
Caption = 'City';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the city of the vendor who delivered the items.';
}
group(Control79)
{
ShowCaption = false;
Visible = IsBuyFromCountyVisible;
field("Buy-from County"; Rec."Buy-from County")
{
ApplicationArea = Suite;
CaptionClass = '5,1,' + Rec."Buy-from Country/Region Code";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the county in the vendor''s address.';
}
}
field("Buy-from Post Code"; Rec."Buy-from Post Code")
{
ApplicationArea = Suite;
Caption = 'Post Code';
Importance = Additional;
QuickEntry = false;
}
field("Buy-from Country/Region Code"; Rec."Buy-from Country/Region Code")
{
ApplicationArea = Suite;
Caption = 'Country/Region';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the country/region in the vendor''s address.';
trigger OnValidate()
begin
IsBuyFromCountyVisible := FormatAddress.UseCounty(Rec."Buy-from Country/Region Code");
end;
}
field("Buy-from Contact No."; Rec."Buy-from Contact No.")
{
ApplicationArea = Suite;
Caption = 'Contact No.';
Importance = Additional;
ToolTip = 'Specifies the number of contact person of the vendor who delivered the items.';
trigger OnLookup(var Text: Text): Boolean
begin
if not Rec.BuyfromContactLookup() then
exit(false);
Text := Rec."Buy-from Contact No.";
CurrPage.Update();
exit(true);
end;
trigger OnValidate()
begin
if xRec."Buy-from Contact No." <> Rec."Buy-from Contact No." then
CurrPage.Update();
end;
}
field(BuyFromContactPhoneNo; BuyFromContact."Phone No.")
{
ApplicationArea = Suite;
Caption = 'Phone No.';
Importance = Additional;
Editable = false;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the vendor contact person.';
}
field(BuyFromContactMobilePhoneNo; BuyFromContact."Mobile Phone No.")
{
ApplicationArea = Suite;
Caption = 'Mobile Phone No.';
Importance = Additional;
Editable = false;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the vendor contact person.';
}
field(BuyFromContactEmail; BuyFromContact."E-Mail")
{
ApplicationArea = Suite;
Caption = 'Email';
Importance = Additional;
Editable = false;
ExtendedDatatype = EMail;
ToolTip = 'Specifies the email address of the vendor contact person.';
}
}
field("Buy-from Contact"; Rec."Buy-from Contact")
{
ApplicationArea = Suite;
Caption = 'Contact';
Editable = Rec."Buy-from Vendor No." <> '';
ToolTip = 'Specifies the contact person at the vendor who delivered the items.';
trigger OnLookup(var Text: Text): Boolean
begin
Rec.LookupBuyFromContact();
CurrPage.Update();
end;
}
field("Buy-from Vendor Templ. Code"; Rec."Buy-from Vendor Templ. Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Vendor Template Code';
Enabled = EnableNewBuyFromVendorTemplateCode;
Importance = Additional;
trigger OnValidate()
begin
ActivateFields();
CurrPage.Update();
end;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies when the related purchase invoice must be paid.';
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = Suite;
Importance = Promoted;
ToolTip = 'Specifies the date when the related order was created.';
}
field("No. of Archived Versions"; Rec."No. of Archived Versions")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Requested Receipt Date"; Rec."Requested Receipt Date")
{
ApplicationArea = Suite;
}
field("Spend Request No."; Rec."Spend Request No.")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Vendor Order No."; Rec."Vendor Order No.")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Vendor Shipment No."; Rec."Vendor Shipment No.")
{
ApplicationArea = Suite;
}
field("Purchaser Code"; Rec."Purchaser Code")
{
ApplicationArea = Suite;
Importance = Additional;
trigger OnValidate()
begin
PurchaserCodeOnAfterValidate();
end;
}
field("Campaign No."; Rec."Campaign No.")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies the number of the campaign that the document is linked to.';
}
field("Order Address Code"; Rec."Order Address Code")
{
ApplicationArea = Suite;
Caption = 'Alternate Vendor Address Code';
Importance = Additional;
ToolTip = 'Specifies the code for an alternate address, which you can send the FRQ to is the primary address is not active. ';
Enabled = Rec."Buy-from Vendor No." <> '';
}
field("Responsibility Center"; Rec."Responsibility Center")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = Suite;
Importance = Additional;
}
field(Status; Rec.Status)
{
ApplicationArea = Suite;
Importance = Promoted;
StyleExpr = StatusStyleTxt;
}
field("Language Code"; Rec."Language Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Format Region"; Rec."Format Region")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
}
part(PurchLines; "Purchase Quote Subform")
{
ApplicationArea = Suite;
Editable = IsPurchaseLinesEditable;
Enabled = IsPurchaseLinesEditable;
SubPageLink = "Document No." = field("No.");
UpdatePropagation = Both;
}
group("Invoice Details")
{
Caption = 'Invoice Details';
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies the currency of amounts on the purchase document.';
trigger OnAssistEdit()
begin
Clear(ChangeExchangeRate);
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.SaveRecord();
PurchCalcDiscByType.ApplyDefaultInvoiceDiscount(0, Rec);
end;
}
field("Expected Receipt Date"; Rec."Expected Receipt Date")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Prices Including VAT"; Rec."Prices Including VAT")
{
ApplicationArea = VAT;
trigger OnValidate()
begin
PricesIncludingVATOnAfterValid();
end;
}
field("VAT Bus. Posting Group"; Rec."VAT Bus. Posting Group")
{
ApplicationArea = Basic, Suite;
}
field("Payment Terms Code"; Rec."Payment Terms Code")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Suite;
Importance = Additional;
Visible = IsPaymentMethodCodeVisible;
}
field("Transaction Type"; Rec."Transaction Type")
{
ApplicationArea = Basic, Suite;
}
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 = Suite;
}
field("Pmt. Discount Date"; Rec."Pmt. Discount Date")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Journal Templ. Name"; Rec."Journal Templ. Name")
{
ApplicationArea = BasicBE;
Visible = IsJournalTemplateNameVisible;
}
field("Shipment Method Code"; Rec."Shipment Method Code")
{
ApplicationArea = Basic, Suite;
}
field("Payment Reference"; Rec."Payment Reference")
{
ApplicationArea = Suite;
}
field("Creditor No."; Rec."Creditor No.")
{
ApplicationArea = Suite;
}
field("On Hold"; Rec."On Hold")
{
ApplicationArea = Suite;
}
field("Tax Liable"; Rec."Tax Liable")
{
ApplicationArea = SalesTax;
}
field("Tax Area Code"; Rec."Tax Area Code")
{
ApplicationArea = SalesTax;
trigger OnValidate()
begin
CurrPage.PurchLines.PAGE.RedistributeTotalsOnAfterValidate();
end;
}
}
group("Shipping and Payment")
{
Caption = 'Shipping and Payment';
group(Control45)
{
ShowCaption = false;
group(Control20)
{
ShowCaption = false;
field(ShippingOptionWithLocation; ShipToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Ship-to';
HideValue = not ShowShippingOptionsWithLocation and (ShipToOptions = ShipToOptions::Location);
OptionCaption = 'Default (Company Address),Location,Custom Address';
ToolTip = 'Specifies the address that the products on the purchase document are shipped to. Default (Company Address): The same as the company address specified in the Company Information window. Location: One of the company''s location addresses. Custom Address: Any ship-to address that you specify in the fields below.';
trigger OnValidate()
begin
ValidateShippingOption();
end;
}
group(Control57)
{
ShowCaption = false;
group(Control55)
{
ShowCaption = false;
Visible = ShipToOptions = ShipToOptions::Location;
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Importance = Promoted;
}
}
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = Basic, Suite;
Caption = 'Name';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the name of the customer that items on the purchase order were shipped to, as a drop shipment.';
}
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";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the address that items on the purchase order were shipped to, as a drop shipment.';
}
field("Ship-to Address 2"; Rec."Ship-to Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies an additional part of the address that items on the purchase order were shipped to, as a drop shipment.';
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the city that items on the purchase order were shipped to, as a drop shipment.';
}
group(Control90)
{
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";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the county of the address that you want the items on the purchase document to be shipped to.';
}
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the post code that items on the purchase order were shipped to, as a drop shipment.';
}
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 country/region in the vendor''s address.';
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.';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the contact person at the customer that items on the purchase order were shipped to, as a drop shipment.';
}
}
}
}
group(Control51)
{
Enabled = not EnableBuyFromVendorTemplateCode;
ShowCaption = false;
field(PayToOptions; PayToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Pay-to';
OptionCaption = 'Default (Vendor),Another Vendor,Custom Address';
ToolTip = 'Specifies the vendor that the purchase document will be paid to. Default (Vendor): The same as the vendor on the purchase document. Another Vendor: Any vendor that you specify in the fields below.';
trigger OnValidate()
begin
if PayToOptions = PayToOptions::"Default (Vendor)" then
Rec.Validate("Pay-to Vendor No.", Rec."Buy-from Vendor No.");
end;
}
group(Control67)
{
ShowCaption = false;
Visible = not (PayToOptions = PayToOptions::"Default (Vendor)");
field("Pay-to Name"; Rec."Pay-to Name")
{
ApplicationArea = Basic, Suite;
Caption = 'Name';
Editable = PayToOptions = PayToOptions::"Another Vendor";
Enabled = EnablePayToVendorNo;
Importance = Promoted;
ToolTip = 'Specifies the name of the vendor that you received the invoice from.';
trigger OnValidate()
begin
if Rec.GetFilter("Pay-to Vendor No.") = xRec."Pay-to Vendor No." then
if Rec."Pay-to Vendor No." <> xRec."Pay-to Vendor No." then
Rec.SetRange("Pay-to Vendor No.");
CurrPage.Update();
end;
}
field("Pay-to Name 2"; Rec."Pay-to Name 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Name 2';
Editable = PayToOptions = PayToOptions::"Another Vendor";
Enabled = PayToOptions = PayToOptions::"Another Vendor";
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Pay-to Address"; Rec."Pay-to Address")
{
ApplicationArea = Basic, Suite;
Caption = 'Address';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the address of the vendor that you received the invoice from.';
}
field("Pay-to Address 2"; Rec."Pay-to Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies an additional part of the address of the vendor that the invoice was received from.';
}
field("Pay-to City"; Rec."Pay-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the city of the vendor that you received the invoice from.';
}
group(Control84)
{
ShowCaption = false;
Visible = IsPayToCountyVisible;
field("Pay-to County"; Rec."Pay-to County")
{
ApplicationArea = Basic, Suite;
CaptionClass = '5,1,' + Rec."Pay-to Country/Region Code";
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the county of the vendor on the purchase document.';
}
}
field("Pay-to Post Code"; Rec."Pay-to Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
}
field("Pay-to Country/Region Code"; Rec."Pay-to Country/Region Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Country/Region';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the country/region in the vendor''s address.';
trigger OnValidate()
begin
IsPayToCountyVisible := FormatAddress.UseCounty(Rec."Pay-to Country/Region Code");
end;
}
field("Pay-to Contact No."; Rec."Pay-to Contact No.")
{
ApplicationArea = Suite;
Caption = 'Contact No.';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Importance = Additional;
ToolTip = 'Specifies the number of the customer associated with the purchase quote.';
}
field("Pay-to Contact"; Rec."Pay-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
Enabled = (PayToOptions = PayToOptions::"Custom Address") or (Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.");
ToolTip = 'Specifies the contact person at the vendor that you received the invoice from.';
}
field(PayToContactPhoneNo; PayToContact."Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the vendor contact person.';
}
field(PayToContactMobilePhoneNo; PayToContact."Mobile Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Mobile Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the vendor contact person.';
}
field(PayToContactEmail; PayToContact."E-Mail")
{
ApplicationArea = Basic, Suite;
Caption = 'Email';
Editable = false;
Importance = Additional;
ExtendedDatatype = Email;
ToolTip = 'Specifies the email address of the vendor contact person.';
}
}
}
}
group("Foreign Trade")
{
Caption = 'Foreign Trade';
field("Transaction Specification"; Rec."Transaction Specification")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Transport Method"; Rec."Transport Method")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Entry Point"; Rec."Entry Point")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Area"; Rec.Area)
{
ApplicationArea = BasicEU, BasicNO;
}
}
}
area(factboxes)
{
part("Attached Documents List"; "Doc. Attachment List Factbox")
{
ApplicationArea = All;
Caption = 'Documents';
UpdatePropagation = Both;
SubPageLink = "Table ID" = const(Database::"Purchase Header"),
"No." = field("No."),
"Document Type" = field("Document Type");
}
part(Control13; "Pending Approval FactBox")
{
ApplicationArea = Suite;
SubPageLink = "Table ID" = const(38),
"Document Type" = field("Document Type"),
"Document No." = field("No."),
Status = const(Open);
Visible = OpenApprovalEntriesExistForCurrUser;
}
part(Control1901138007; "Vendor Details FactBox")
{
ApplicationArea = Suite;
SubPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1904651607; "Vendor Statistics FactBox")
{
ApplicationArea = Suite;
SubPageLink = "No." = field("Pay-to Vendor No."),
"Date Filter" = field("Date Filter");
}
part(Control1903435607; "Vendor Hist. Buy-from FactBox")
{
ApplicationArea = Suite;
SubPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
}
part(Control1906949207; "Vendor Hist. Pay-to FactBox")
{
ApplicationArea = Suite;
SubPageLink = "No." = field("Pay-to Vendor No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control5; "Purchase Line FactBox")
{
ApplicationArea = Suite;
Provider = PurchLines;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
}
part(ApprovalFactBox; "Approval FactBox")
{
ApplicationArea = Suite;
Visible = false;
}
part(IncomingDocAttachFactBox; "Incoming Doc. Attach. FactBox")
{
ApplicationArea = Suite;
ShowFilter = false;
Visible = false;
}
part(WorkflowStatus; "Workflow Status FactBox")
{
ApplicationArea = Suite;
Editable = false;
Enabled = false;
ShowFilter = false;
Visible = ShowWorkflowStatus;
}
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
}
}
}
actions
{
area(navigation)
{
group("&Quote")
{
Caption = '&Quote';
Image = Quote;
action(PurchaseStatistics)
{
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 "Purchase Statistics";
RunPageOnRec = true;
}
action(Vendor)
{
ApplicationArea = Suite;
Caption = 'Vendor';
Enabled = Rec."Buy-from Vendor No." <> '';
Image = Vendor;
RunObject = Page "Vendor Card";
RunPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
ShortCutKey = 'Shift+F7';
ToolTip = 'View or edit detailed information about the vendor on the purchase document.';
}
action(VendorStatistics)
{
ApplicationArea = Basic, Suite;
Caption = 'Vendor Statistics';
Enabled = Rec."Buy-from Vendor No." <> '';
Image = Statistics;
RunObject = Page "Vendor Statistics";
RunPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
ToolTip = 'View statistical information, such as the value of posted entries, for the buy-from vendor on the purchase document.';
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Purch. 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(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.OpenApprovalsPurchase(Rec);
end;
}
action(DocAttach)
{
ApplicationArea = All;
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;
}
}
}
area(processing)
{
group(Approval)
{
Caption = 'Approval';
action(Approve)
{
ApplicationArea = Suite;
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 = Suite;
Caption = 'Reject';
Image = Reject;
ToolTip = 'Reject to approve the incoming document.';
Visible = OpenApprovalEntriesExistForCurrUser;
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.RejectRecordApprovalRequest(Rec.RecordId);
end;
}
action(Delegate)
{
ApplicationArea = Suite;
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 = Suite;
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(Action92)
{
Caption = 'Print';
action(Print)
{
ApplicationArea = Suite;
Caption = '&Print';
Ellipsis = true;
Image = Print;
ToolTip = 'Prepare to print the document. A report request window for the document opens where you can specify what to include on the print-out.';
trigger OnAction()
var
LinesInstructionMgt: Codeunit "Lines Instruction Mgt.";
begin
LinesInstructionMgt.PurchaseCheckAllLinesHaveQuantityAssigned(Rec);
DocPrint.PrintPurchHeader(Rec);
end;
}
action(Email)
{
ApplicationArea = Basic, Suite;
Caption = 'Send by Email';
Ellipsis = true;
Image = Email;
ToolTip = 'Finalize and prepare to email the document. The Send Email window opens prefilled with the vendor''s email address so you can add or edit information.';
trigger OnAction()
var
DocPrint: Codeunit "Document-Print";
begin
DocPrint.EmailPurchHeader(Rec);
end;
}
action(Send)
{
ApplicationArea = Basic, Suite;
Caption = 'Send';
Ellipsis = true;
Image = SendToMultiple;
ToolTip = 'Prepare to send the document according to the vendor''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()
var
PurchaseHeader: Record "Purchase Header";
begin
PurchaseHeader := Rec;
CurrPage.SetSelectionFilter(PurchaseHeader);
PurchaseHeader.SendRecords();
end;
}
action(AttachAsPDF)
{
ApplicationArea = Basic, Suite;
Caption = 'Attach as PDF';
Image = PrintAttachment;
ToolTip = 'Create a PDF file and attach it to the document.';
trigger OnAction()
var
PurchaseHeader: Record "Purchase Header";
begin
PurchaseHeader := Rec;
PurchaseHeader.SetRecFilter();
DocPrint.PrintPurchaseHeaderToDocumentAttachment(PurchaseHeader);
end;
}
}
group(Action3)
{
Caption = 'Release';
Image = ReleaseDoc;
separator(Action148)
{
}
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()
var
ReleasePurchDoc: Codeunit "Release Purchase Document";
begin
ReleasePurchDoc.PerformManualRelease(Rec);
CurrPage.PurchLines.PAGE.ClearTotalPurchaseHeader();
end;
}
action(Reopen)
{
ApplicationArea = 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
ReleasePurchDoc: Codeunit "Release Purchase Document";
begin
ReleasePurchDoc.PerformManualReopen(Rec);
CurrPage.PurchLines.PAGE.ClearTotalPurchaseHeader();
end;
}
}
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action(CalculateInvoiceDiscount)
{
AccessByPermission = TableData "Vendor Invoice Disc." = R;
ApplicationArea = Suite;
Caption = 'Calculate &Invoice Discount';
Image = CalculateInvoiceDiscount;
ToolTip = 'Calculate the invoice discount for the purchase quote.';
trigger OnAction()
begin
ApproveCalcInvDisc();
PurchCalcDiscByType.ResetRecalculateInvoiceDisc(Rec);
end;
}
separator(Action144)
{
}
action("Get St&d. Vend. Purchase Codes")
{
ApplicationArea = Suite;
Caption = 'Get Recurring Purchase Lines';
Ellipsis = true;
Image = VendorCode;
ToolTip = 'View a list of the standard purchase lines that have been assigned to the vendor to be used for recurring purchases.';
trigger OnAction()
var
StdVendPurchCode: Record "Standard Vendor Purchase Code";
begin
StdVendPurchCode.InsertPurchLines(Rec);
end;
}
separator(Action146)
{
}
action(CopyDocument)
{
ApplicationArea = Suite;
Caption = 'Copy Document';
Ellipsis = true;
Enabled = Rec."No." <> '';
Image = CopyDocument;
ToolTip = 'Copy document lines and header information from another purchase document to this document. You can copy a posted purchase invoice into a new purchase invoice to quickly create a similar document.';
trigger OnAction()
begin
Rec.CopyDocument();
if Rec.Get(Rec."Document Type", Rec."No.") then;
CurrPage.PurchLines.Page.ForceTotalsCalculation();
CurrPage.Update();
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.ArchivePurchDocument(Rec);
CurrPage.Update(false);
end;
}
group(IncomingDocument)
{
Caption = 'Incoming Document';
Image = Documents;
action(IncomingDocCard)
{
ApplicationArea = 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, for example for auditing purposes';
trigger OnAction()
var
IncomingDocument: Record "Incoming Document";
begin
IncomingDocument.ShowCardFromEntryNo(Rec."Incoming Document Entry No.");
end;
}
action(SelectIncomingDoc)
{
AccessByPermission = TableData "Incoming Document" = R;
ApplicationArea = 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 = Suite;
Caption = 'Create Incoming Document from File';
Ellipsis = true;
Enabled = (Rec."Incoming Document Entry No." = 0) and (Rec."No." <> '');
Image = Attach;
ToolTip = 'Create an incoming document from a file that you select from the disk. The file will be attached to the incoming document record.';
trigger OnAction()
var
IncomingDocumentAttachment: Record "Incoming Document Attachment";
begin
IncomingDocumentAttachment.NewAttachmentFromPurchaseDocument(Rec);
end;
}
action(RemoveIncomingDoc)
{
ApplicationArea = 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("Request Approval")
{
Caption = 'Request Approval';
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.CheckPurchaseApprovalPossible(Rec) then
ApprovalsMgmt.OnSendPurchaseDocForApproval(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.";
WorkflowWebhookManagementgt: Codeunit "Workflow Webhook Management";
begin
ApprovalsMgmt.OnCancelPurchaseApprovalRequest(Rec);
WorkflowWebhookManagementgt.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_purchaseQuote';
}
}
group("Make Order")
{
Caption = 'Make Order';
Image = MakeOrder;
action(MakeOrder)
{
ApplicationArea = Suite;
Caption = 'Make &Order';
Image = MakeOrder;
ToolTip = 'Convert the purchase quote to a purchase order.';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
CODEUNIT.Run(CODEUNIT::"Purch.-Quote to Order (Yes/No)", Rec);
end;
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process', Comment = 'Generated from the PromotedActionCategories property index 1.';
actionref(MakeOrder_Promoted; MakeOrder)
{
}
group(Category_Category8)
{
Caption = 'Release', Comment = 'Generated from the PromotedActionCategories property index 7.';
ShowAs = SplitButton;
actionref(Release_Promoted; Release)
{
}
actionref(Reopen_Promoted; Reopen)
{
}
}
actionref("Archive Document_Promoted"; "Archive Document")
{
}
}
group(Category_Prepare)
{
Caption = 'Prepare';
actionref(CopyDocument_Promoted; CopyDocument)
{
}
group("Category_Incoming Document")
{
Caption = 'Incoming Document';
actionref(IncomingDocAttachFile_Promoted; IncomingDocAttachFile)
{
}
actionref(SelectIncomingDoc_Promoted; SelectIncomingDoc)
{
}
actionref(IncomingDocCard_Promoted; IncomingDocCard)
{
}
actionref(RemoveIncomingDoc_Promoted; RemoveIncomingDoc)
{
}
}
actionref("Get St&d. Vend. Purchase Codes_Promoted"; "Get St&d. Vend. Purchase Codes")
{
}
actionref(CalculateInvoiceDiscount_Promoted; CalculateInvoiceDiscount)
{
}
}
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_Category6)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 5.';
actionref(Email_Promoted; Email)
{
}
actionref(Print_Promoted; Print)
{
}
actionref(Send_Promoted; Send)
{
}
actionref(AttachAsPDF_Promoted; AttachAsPDF)
{
}
}
group(Category_Category5)
{
Caption = 'Request Approval', Comment = 'Generated from the PromotedActionCategories property index 4.';
actionref(SendApprovalRequest_Promoted; SendApprovalRequest)
{
}
actionref(CancelApprovalRequest_Promoted; CancelApprovalRequest)
{
}
}
group(Category_Category7)
{
Caption = 'Quote', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(Dimensions_Promoted; Dimensions)
{
}
actionref(PurchaseStatistics_Promoted; PurchaseStatistics)
{
}
actionref(DocAttach_Promoted; DocAttach)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
actionref(Approvals_Promoted; Approvals)
{
}
separator(Navigate_Separator)
{
}
actionref(Vendor_Promoted; Vendor)
{
}
}
group(Category_Category9)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 8.';
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
trigger OnAfterGetCurrRecord()
begin
SetControlAppearance();
CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
CurrPage.ApprovalFactBox.PAGE.UpdateApprovalEntriesFromSourceRecord(Rec.RecordId);
ShowWorkflowStatus := CurrPage.WorkflowStatus.PAGE.SetFilterOnWorkflowRecord(Rec.RecordId);
StatusStyleTxt := Rec.GetStatusStyleText();
Rec.GetContactDetails(BuyFromContact, PayToContact);
end;
trigger OnAfterGetRecord()
begin
CalculateCurrentShippingAndPayToOption();
Rec.GetContactDetails(BuyFromContact, PayToContact);
CurrPage.IncomingDocAttachFactBox.Page.SetCurrentRecordID(Rec.RecordId);
end;
trigger OnDeleteRecord(): Boolean
begin
CurrPage.SaveRecord();
exit(Rec.ConfirmDeletion());
end;
trigger OnInit()
var
EnvironmentInformation: Codeunit "Environment Information";
begin
EnablePayToVendorNo := true;
EnableBuyFromVendorTemplateCode := true;
ShowShippingOptionsWithLocation := ApplicationAreaMgmtFacade.IsLocationEnabled() or ApplicationAreaMgmtFacade.IsAllDisabled();
IsSaaS := EnvironmentInformation.IsSaaS();
IsPowerAutomatePrivacyNoticeApproved := PrivacyNotice.GetPrivacyNoticeApprovalState(FlowServiceManagement.GetPowerAutomatePrivacyNoticeId()) = "Privacy Notice Approval State"::Agreed;
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
Rec."Responsibility Center" := UserMgt.GetPurchasesFilter();
if (not DocNoVisible) and (Rec."No." = '') then
Rec.SetBuyFromVendorFromFilter();
CalculateCurrentShippingAndPayToOption();
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
CurrPage.Update(false);
end;
trigger OnOpenPage()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeOpenPage(IsHandled);
if IsHandled then
exit;
Rec.SetSecurityFilterOnRespCenter();
Rec.SetRange("Date Filter", 0D, WorkDate());
ActivateFields();
SetDocNoVisible();
SetEnableBuyFromVendorTemplateCode();
end;
var
BuyFromContact: Record Contact;
PayToContact: Record Contact;
GLSetup: Record "General Ledger Setup";
ApplicationAreaMgmtFacade: Codeunit "Application Area Mgmt. Facade";
DocPrint: Codeunit "Document-Print";
UserMgt: Codeunit "User Setup Management";
ArchiveManagement: Codeunit ArchiveManagement;
PurchCalcDiscByType: Codeunit "Purch - Calc Disc. By Type";
FormatAddress: Codeunit "Format Address";
PrivacyNotice: Codeunit "Privacy Notice";
FlowServiceManagement: Codeunit "Flow Service Management";
ChangeExchangeRate: Page "Change Exchange Rate";
StatusStyleTxt: Text;
HasIncomingDocument: Boolean;
OpenApprovalEntriesExistForCurrUser: Boolean;
IsPowerAutomatePrivacyNoticeApproved: Boolean;
OpenApprovalEntriesExist: Boolean;
ShowWorkflowStatus: Boolean;
CanCancelApprovalForRecord: Boolean;
CanCancelApprovalForFlow: Boolean;
CanRequestApprovalForFlow: Boolean;
IsSaaS: Boolean;
ShowShippingOptionsWithLocation: Boolean;
IsBuyFromCountyVisible: Boolean;
IsPayToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
IsPurchaseLinesEditable: Boolean;
IsJournalTemplateNameVisible: Boolean;
IsPaymentMethodCodeVisible: Boolean;
EnableBuyFromVendorTemplateCode: Boolean;
EnableNewBuyFromVendorTemplateCode: Boolean;
protected var
ShipToOptions: Option "Default (Company Address)",Location,"Custom Address";
PayToOptions: Option "Default (Vendor)","Another Vendor","Custom Address";
DocNoVisible: Boolean;
EnablePayToVendorNo: Boolean;
protected procedure ActivateFields()
begin
EnablePayToVendorNo := Rec."Pay-to Vendor Templ. Code" = '';
EnableBuyFromVendorTemplateCode := Rec."Buy-from Vendor No." = '';
IsBuyFromCountyVisible := FormatAddress.UseCounty(Rec."Buy-from Country/Region Code");
IsPayToCountyVisible := FormatAddress.UseCounty(Rec."Pay-to Country/Region Code");
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
GLSetup.Get();
IsJournalTemplateNameVisible := GLSetup."Journal Templ. Name Mandatory";
IsPaymentMethodCodeVisible := not GLSetup."Hide Payment Method Code";
SetEnableBuyFromVendorTemplateCode();
OnAfterActivateFields();
end;
local procedure ApproveCalcInvDisc()
begin
CurrPage.PurchLines.PAGE.ApproveCalcInvDisc();
end;
local procedure SaveInvoiceDiscountAmount()
var
DocumentTotals: Codeunit "Document Totals";
begin
CurrPage.SaveRecord();
DocumentTotals.PurchaseRedistributeInvoiceDiscountAmountsOnDocument(Rec);
CurrPage.Update(false);
end;
local procedure PurchaserCodeOnAfterValidate()
begin
CurrPage.PurchLines.PAGE.UpdateForm(true);
end;
local procedure ShortcutDimension1CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure ShortcutDimension2CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure PricesIncludingVATOnAfterValid()
begin
CurrPage.PurchLines.Page.ForceTotalsCalculation();
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.PurchaseDocumentNoIsVisible(DocType::Quote, Rec."No.");
end;
local procedure SetControlAppearance()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
WorkflowWebhookManagement: Codeunit "Workflow Webhook Management";
begin
OpenApprovalEntriesExistForCurrUser := ApprovalsMgmt.HasOpenApprovalEntriesForCurrentUser(Rec.RecordId);
OpenApprovalEntriesExist := ApprovalsMgmt.HasOpenApprovalEntries(Rec.RecordId);
CanCancelApprovalForRecord := ApprovalsMgmt.CanCancelApprovalForRecord(Rec.RecordId);
WorkflowWebhookManagement.GetCanRequestAndCanCancel(Rec.RecordId, CanRequestApprovalForFlow, CanCancelApprovalForFlow);
HasIncomingDocument := Rec."Incoming Document Entry No." <> 0;
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
end;
local procedure ValidateShippingOption()
begin
OnBeforeValidateShipToOptions(Rec, ShipToOptions);
case ShipToOptions of
ShipToOptions::"Default (Company Address)",
ShipToOptions::"Custom Address":
Rec.Validate("Location Code", '');
ShipToOptions::Location:
Rec.Validate("Location Code");
end;
OnAfterValidateShipToOptions(Rec, ShipToOptions);
end;
local procedure CalculateCurrentShippingAndPayToOption()
begin
if Rec."Location Code" <> '' then
ShipToOptions := ShipToOptions::Location
else
if Rec.ShipToAddressEqualsCompanyShipToAddress() then
ShipToOptions := ShipToOptions::"Default (Company Address)"
else
ShipToOptions := ShipToOptions::"Custom Address";
case true of
(Rec."Pay-to Vendor No." = Rec."Buy-from Vendor No.") and Rec.BuyFromAddressEqualsPayToAddress():
PayToOptions := PayToOptions::"Default (Vendor)";
(Rec."Pay-to Vendor No." = Rec."Buy-from Vendor No.") and (not Rec.BuyFromAddressEqualsPayToAddress()):
PayToOptions := PayToOptions::"Custom Address";
Rec."Pay-to Vendor No." <> Rec."Buy-from Vendor No.":
PayToOptions := PayToOptions::"Another Vendor";
end;
OnAfterCalculateCurrentShippingAndPayToOption(ShipToOptions, PayToOptions, Rec);
end;
local procedure SetEnableBuyFromVendorTemplateCode()
begin
EnableNewBuyFromVendorTemplateCode := Rec."Buy-from Vendor No." = '';
end;
[IntegrationEvent(true, false)]
local procedure OnAfterActivateFields()
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCalculateCurrentShippingAndPayToOption(var ShipToOptions: Option "Default (Company Address)",Location,"Custom Address"; var PayToOptions: Option "Default (Vendor)","Another Vendor","Custom Address"; PurchaseHeader: Record "Purchase Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeValidateShipToOptions(var PurchaseHeader: Record "Purchase Header"; ShipToOptions: Option)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnAfterValidateShipToOptions(var PurchaseHeader: Record "Purchase Header"; ShipToOptions: Option)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeOpenPage(var IsHandled: Boolean)
begin
end;
}