Page 50 Purchase Order, source in 29
Source29
src/Layers/W1/BaseApp/Purchases/Document/PurchaseOrder.Page.al2811 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.Finance.VAT.Calculation;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Attachment;
using Microsoft.Foundation.Enums;
using Microsoft.Foundation.Reporting;
using Microsoft.Intercompany;
using Microsoft.Intercompany.GLAccount;
using Microsoft.Intercompany.Journal;
using Microsoft.Intercompany.Outbox;
using Microsoft.Inventory;
using Microsoft.Inventory.Item;
using Microsoft.Inventory.Tracking;
using Microsoft.Purchases.Comment;
using Microsoft.Purchases.History;
using Microsoft.Purchases.Payables;
using Microsoft.Purchases.Posting;
using Microsoft.Purchases.Remittance;
using Microsoft.Purchases.Setup;
using Microsoft.Purchases.Vendor;
using Microsoft.Sales.History;
using Microsoft.Utilities;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Document;
using Microsoft.Warehouse.InventoryDocument;
using Microsoft.Warehouse.Request;
using System.Automation;
using System.Environment;
using System.Environment.Configuration;
using System.Privacy;
using System.Security.User;
using System.Threading;
page 50 "Purchase Order"
{
Caption = 'Purchase Order';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Purchase Header";
SourceTableView = where("Document Type" = filter(Order));
AdditionalSearchTerms = 'Procurement, Buy Order, Vendor Order, Order Purchase, Acquisition, Supplier Order, Buy List, Purchase, Supply Order, Goods Order';
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 = Basic, Suite;
Caption = 'Vendor Name 2';
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Posting Description"; Rec."Posting Description")
{
ApplicationArea = Suite;
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 vendor''s buy-from address.';
}
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 vendor''s buy-from address.';
}
field("Buy-from City"; Rec."Buy-from City")
{
ApplicationArea = Suite;
Caption = 'City';
Importance = Additional;
QuickEntry = false;
}
group(Control122)
{
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;
}
}
field("Buy-from Post Code"; Rec."Buy-from Post Code")
{
ApplicationArea = Suite;
Caption = 'Post Code';
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the postal code.';
}
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 or region of the 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''s buy-from.';
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 name of the person to contact about an order from this vendor.';
trigger OnLookup(var Text: Text): Boolean
begin
Rec.LookupBuyFromContact();
CurrPage.Update();
end;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Invoice Received Date"; Rec."Invoice Received Date")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies the posting date of the record.';
trigger OnValidate()
begin
SaveInvoiceDiscountAmount();
end;
}
field("VAT Reporting Date"; Rec."VAT Reporting Date")
{
ApplicationArea = VAT;
Importance = Additional;
Editable = VATDateEnabled;
Visible = VATDateEnabled;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies when the related purchase invoice must be paid.';
}
field("Vendor Invoice No."; Rec."Vendor Invoice No.")
{
ApplicationArea = Suite;
ShowMandatory = VendorInvoiceNoMandatory;
Editable = IsVendorInvoiceEditable;
}
field("Spend Request No."; Rec."Spend Request No.")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Your Reference"; Rec."Your Reference")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Purchaser Code"; Rec."Purchaser Code")
{
ApplicationArea = Suite;
Importance = Additional;
trigger OnValidate()
begin
PurchaserCodeOnAfterValidate();
end;
}
field("No. of Archived Versions"; Rec."No. of Archived Versions")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = Suite;
Importance = Additional;
ToolTip = 'Specifies the date the order was created. The order date is also used to determine the prices and discounts on the document.';
}
field("Quote No."; Rec."Quote No.")
{
ApplicationArea = 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("Order Address Code"; Rec."Order Address Code")
{
ApplicationArea = Suite;
Caption = 'Alternate Vendor Address Code';
Importance = Additional;
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("Job Queue Status"; Rec."Job Queue Status")
{
ApplicationArea = All;
Importance = Additional;
Visible = JobQueueUsed;
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("Language Code"; Rec."Language Code")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
field("Format Region"; Rec."Format Region")
{
ApplicationArea = Basic, Suite;
Visible = false;
}
}
part(PurchLines; "Purchase Order 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 = Promoted;
ToolTip = 'Specifies the currency of amounts on the purchase document.';
trigger OnAssistEdit()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeCurrencyCodeOnAssistEdit(Rec, xRec, IsHandled);
if IsHandled then
exit;
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.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("Vendor Posting Group"; Rec."Vendor Posting Group")
{
ApplicationArea = Basic, Suite;
Editable = IsPostingGroupEditable;
Importance = Additional;
}
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("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 = Basic, Suite;
Visible = IsJournalTemplNameVisible;
}
field("Tax Liable"; Rec."Tax Liable")
{
ApplicationArea = SalesTax;
Importance = Additional;
}
field("Tax Area Code"; Rec."Tax Area Code")
{
ApplicationArea = SalesTax;
Importance = Additional;
trigger OnValidate()
begin
CurrPage.PurchLines.PAGE.RedistributeTotalsOnAfterValidate();
end;
}
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("Inbound Whse. Handling Time"; Rec."Inbound Whse. Handling Time")
{
ApplicationArea = Warehouse;
Importance = Additional;
}
field("Lead Time Calculation"; Rec."Lead Time Calculation")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Requested Receipt Date"; Rec."Requested Receipt Date")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the date that you want the vendor to deliver to the ship-to address.';
}
field("Promised Receipt Date"; Rec."Promised Receipt Date")
{
ApplicationArea = OrderPromising;
}
field("Receipt on Invoice"; Rec."Receipt on Invoice")
{
ApplicationArea = Basic, Suite;
ToolTip = 'Specifies whether the receipt is posted on the invoice.';
}
}
group("Shipping and Payment")
{
Caption = 'Shipping and Payment';
group(Control83)
{
ShowCaption = false;
group(Control94)
{
ShowCaption = false;
field(ShippingOptionWithLocation; ShipToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Ship-to';
HideValue = not ShowShippingOptionsWithLocation and (ShipToOptions = ShipToOptions::Location);
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. Customer Address: Used in connection with drop shipment. Custom Address: Any ship-to address that you specify in the fields below.';
trigger OnValidate()
begin
ValidateShippingOption();
end;
}
group(Control99)
{
ShowCaption = false;
group(Control101)
{
ShowCaption = false;
Visible = ShipToOptions = ShipToOptions::"Customer Address";
field("Sell-to Customer No."; Rec."Sell-to Customer No.")
{
ApplicationArea = Suite;
Caption = 'Customer';
}
field("Ship-to Code"; Rec."Ship-to Code")
{
ApplicationArea = Suite;
Editable = Rec."Sell-to Customer No." <> '';
ToolTip = 'Specifies the code for another delivery address than the vendor''s own address, which is entered by default.';
}
}
group(Control98)
{
ShowCaption = false;
Visible = (ShipToOptions = ShipToOptions::Location) or (ShipToOptions = ShipToOptions::"Customer Address");
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Importance = Promoted;
Editable = ShipToOptions = ShipToOptions::Location;
}
}
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 company at the address that you want the items on the purchase document to 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";
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the address that you want the items on the purchase document to be shipped to.';
}
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;
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
QuickEntry = false;
}
group(Control124)
{
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;
}
}
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 postal code of the address that you want the items on the purchase document to be shipped to.';
}
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 code of the address that you want the items on the purchase document to be shipped to.';
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;
QuickEntry = false;
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the name of a contact person for the address of the address that you want the items on the purchase document to be shipped to.';
}
}
}
}
group(Control71)
{
ShowCaption = false;
field(PayToOptions; PayToOptions)
{
ApplicationArea = Basic, Suite;
Caption = 'Pay-to';
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(Control95)
{
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") or ((PayToOptions = PayToOptions::"Custom Address") and not ShouldSearchForVendByName);
Enabled = (PayToOptions = PayToOptions::"Another Vendor") or ((PayToOptions = PayToOptions::"Custom Address") and not ShouldSearchForVendByName);
Importance = Promoted;
ToolTip = 'Specifies the name of the vendor sending the invoice.';
trigger OnAfterLookup(Selected: RecordRef)
var
Vendor: Record Vendor;
begin
Selected.SetTable(Vendor);
if Rec."Pay-to Vendor No." <> Vendor."No." then begin
Rec.Validate("Pay-to Vendor No.", Vendor."No.");
if Rec."Pay-to Vendor No." <> Vendor."No." then // if the user responds 'no' to questions
error('');
end;
end;
trigger OnValidate()
begin
if not ((PayToOptions = PayToOptions::"Custom Address") and not ShouldSearchForVendByName) then 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;
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;
}
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;
}
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;
}
group(Control123)
{
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;
}
}
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;
ToolTip = 'Specifies the postal code.';
}
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 code of the vendor on the purchase document.';
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 contact person of the vendor''s buy-from.';
}
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 name of the person to contact about an order from this vendor.';
}
field(PayToContactPhoneNo; PayToContact."Phone No.")
{
ApplicationArea = Basic, Suite;
Caption = 'Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the person to contact about an order from this vendor.';
}
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 person to contact about an order from this vendor.';
}
field(PayToContactEmail; PayToContact."E-Mail")
{
ApplicationArea = Basic, Suite;
Caption = 'Email';
Editable = false;
Importance = Additional;
ExtendedDatatype = Email;
ToolTip = 'Specifies the email address of the person to contact about an order from this vendor.';
}
}
}
group("Remit-to")
{
ShowCaption = false;
field("Remit-to Code"; Rec."Remit-to Code")
{
Editable = Rec."Buy-from Vendor No." <> '';
ApplicationArea = Basic, Suite;
Importance = Promoted;
ToolTip = 'Specifies the code for the vendor''s remit address for this order.';
trigger OnValidate()
begin
FillRemitToFields();
end;
}
group("Remit-to information")
{
ShowCaption = false;
Visible = Rec."Remit-to Code" <> '';
field("Remit-to Name"; RemitAddressBuffer.Name)
{
ApplicationArea = Basic, Suite;
Caption = 'Name';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the name of the company at the address that you want the order to be remitted to.';
}
field("Remit-to Address"; RemitAddressBuffer.Address)
{
ApplicationArea = Basic, Suite;
Caption = 'Address';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the address that you want the items on the purchase document to be remitted to.';
}
field("Remit-to Address 2"; RemitAddressBuffer."Address 2")
{
ApplicationArea = Basic, Suite;
Caption = 'Address 2';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies additional address information.';
}
field("Remit-to City"; RemitAddressBuffer.City)
{
ApplicationArea = Basic, Suite;
Caption = 'City';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the city of the address that you want the items on the purchase document to be remitted to.';
}
group("Remit-to County group")
{
ShowCaption = false;
Visible = IsRemitToCountyVisible;
field("Remit-to County"; RemitAddressBuffer.County)
{
ApplicationArea = Basic, Suite;
Caption = 'County';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the state, province or county of the address.';
}
}
field("Remit-to Post Code"; RemitAddressBuffer."Post Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Post Code';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the postal code of the address that you want the items on the purchase document to be remitted to.';
}
field("Remit-to Country/Region Code"; RemitAddressBuffer."Country/Region Code")
{
ApplicationArea = Basic, Suite;
Caption = 'Country/Region';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the country/region code of the address that you want the items on the purchase document to be remitted to.';
}
field("Remit-to Contact"; RemitAddressBuffer.Contact)
{
ApplicationArea = Basic, Suite;
Caption = 'Contact';
Editable = false;
Importance = Additional;
QuickEntry = false;
ToolTip = 'Specifies the name of a contact person for the address that you want the items on the purchase document to be remitted to.';
}
}
}
}
group("Foreign Trade")
{
Caption = 'Foreign Trade';
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("Entry Point"; Rec."Entry Point")
{
ApplicationArea = BasicEU;
}
field("Area"; Rec.Area)
{
ApplicationArea = BasicEU;
}
}
group(Prepayment)
{
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;
}
field("Vendor Cr. Memo No."; Rec."Vendor Cr. Memo No.")
{
ApplicationArea = Suite;
ToolTip = 'Specifies the number that the vendor uses for the purchase order.';
}
}
}
area(factboxes)
{
part(PurchaseDocCheckFactbox; "Purch. Doc. Check Factbox")
{
ApplicationArea = All;
Caption = 'Document Check';
Visible = PurchaseDocCheckFactboxVisible;
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::"Purchase Header"),
"No." = field("No."),
"Document Type" = field("Document Type");
}
part(Control23; "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(Control1903326807; "Item Replenishment FactBox")
{
ApplicationArea = Suite;
Provider = PurchLines;
SubPageLink = "No." = field("No.");
Visible = false;
}
part(ApprovalFactBox; "Approval FactBox")
{
ApplicationArea = Suite;
Visible = false;
}
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(IncomingDocAttachFactBox; "Incoming Doc. Attach. FactBox")
{
ApplicationArea = Suite;
ShowFilter = false;
Visible = false;
}
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(Control3; "Purchase Line FactBox")
{
ApplicationArea = Suite;
Provider = PurchLines;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
}
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("O&rder")
{
Caption = 'O&rder';
Image = "Order";
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(PurchaseOrderStatistics)
{
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 Order 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(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("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(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;
}
}
group(Documents)
{
Caption = 'Documents';
Image = Documents;
action(Receipts)
{
ApplicationArea = Suite;
Caption = 'Receipts';
Image = PostedReceipts;
RunObject = Page "Posted Purchase Receipts";
RunPageLink = "Order No." = field("No.");
RunPageView = sorting("Order No.");
ToolTip = 'View a list of posted purchase receipts for the order.';
}
action(Invoices)
{
ApplicationArea = Suite;
Caption = 'Invoices';
Image = Invoice;
ToolTip = 'View a list of ongoing purchase invoices for the order.';
trigger OnAction()
var
TempPurchInvHeader: Record "Purch. Inv. Header" temporary;
PurchGetReceipt: Codeunit "Purch.-Get Receipt";
begin
PurchGetReceipt.GetPurchOrderInvoices(TempPurchInvHeader, Rec."No.");
Page.Run(Page::"Posted Purchase Invoices", TempPurchInvHeader);
end;
}
action(PostedPrepaymentInvoices)
{
ApplicationArea = Prepayments;
Caption = 'Prepa&yment Invoices';
Image = PrepaymentInvoice;
RunObject = Page "Posted Purchase Invoices";
RunPageLink = "Prepayment Order No." = field("No.");
RunPageView = sorting("Prepayment Order No.");
ToolTip = 'View related posted purchase invoices that involve a prepayment.';
}
action(PostedPrepaymentCrMemos)
{
ApplicationArea = Prepayments;
Caption = 'Prepayment Credi&t Memos';
Image = PrepaymentCreditMemo;
RunObject = Page "Posted Purchase Credit Memos";
RunPageLink = "Prepayment Order No." = field("No.");
RunPageView = sorting("Prepayment Order No.");
ToolTip = 'View related posted purchase credit memos that involve a prepayment.';
}
}
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("Purchase 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 purchase order.';
}
action("Whse. Receipt Lines")
{
ApplicationArea = Warehouse;
Caption = 'Whse. Receipt Lines';
Image = ReceiptLines;
RunObject = Page "Whse. Receipt Lines";
RunPageLink = "Source Type" = const(39),
#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 receipts for the document, in advanced warehouse configurations.';
}
action("Whse. Put-away Lines")
{
ApplicationArea = Warehouse;
Caption = 'Warehouse Put-away Lines';
Image = PutawayLines;
RunObject = page "Warehouse Activity Lines";
RunPageLink = "Source Document" = const("Purchase Order"), "Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.");
ToolTip = 'View items that are inbound on warehouse put-away documents for the purchase order.';
}
group("Dr&op Shipment")
{
Caption = 'Dr&op Shipment';
Image = Delivery;
action(Warehouse_GetSalesOrder)
{
ApplicationArea = Suite;
Caption = 'Get &Sales Order';
Image = "Order";
RunObject = Codeunit "Purch.-Get Drop Shpt.";
ToolTip = 'Select the sales order that must be linked to the purchase order, for drop shipment or special order. ';
}
}
group("Speci&al Order")
{
Caption = 'Speci&al Order';
Image = SpecialOrder;
action("Get &Sales Order")
{
AccessByPermission = TableData "Sales Shipment Header" = R;
ApplicationArea = Suite;
Caption = 'Get &Sales Order';
Image = "Order";
ToolTip = 'Select the sales order that must be linked to the purchase order, for drop shipment or special order. ';
trigger OnAction()
var
PurchHeader: Record "Purchase Header";
DistIntegration: Codeunit "Dist. Integration";
begin
PurchHeader.Copy(Rec);
DistIntegration.GetSpecialOrders(PurchHeader);
Rec := PurchHeader;
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 the requested changes.';
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 requested changes to the 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(Action13)
{
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.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 discount that can be granted based on all lines in the purchase document.';
trigger OnAction()
begin
ApproveCalcInvDisc();
PurchCalcDiscByType.ResetRecalculateInvoiceDisc(Rec);
end;
}
action(GetRecurringPurchaseLines)
{
ApplicationArea = Suite;
Caption = 'Get Recurring Purchase Lines';
Ellipsis = true;
Image = VendorCode;
ToolTip = 'Insert purchase document lines that you have set up for the vendor as recurring. Recurring purchase lines could be for a monthly replenishment order or a fixed freight expense.';
trigger OnAction()
var
StdVendPurchCode: Record "Standard Vendor Purchase Code";
begin
StdVendPurchCode.InsertPurchLines(Rec);
end;
}
action("Create Tracking Information")
{
ApplicationArea = ItemTracking;
Caption = 'Create Tracking Information';
Image = ItemTracking;
ToolTip = 'Create item tracking information for the entire purchase order.';
trigger OnAction()
var
ItemTrackingDocMgt: Codeunit "Item Tracking Doc. Management";
begin
ItemTrackingDocMgt.CreateTrackingInfo(DATABASE::"Purchase Header", Rec."Document Type".AsInteger(), Rec."No.");
end;
}
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(MoveNegativeLines)
{
ApplicationArea = Suite;
Caption = 'Move Negative Lines';
Ellipsis = true;
Image = MoveNegativeLines;
ToolTip = 'Prepare to create a replacement purchase order in a purchase return process.';
trigger OnAction()
begin
Clear(MoveNegPurchLines);
MoveNegPurchLines.SetPurchHeader(Rec);
MoveNegPurchLines.RunModal();
MoveNegPurchLines.ShowDocument();
end;
}
group(Action225)
{
Caption = 'Dr&op Shipment';
Image = Delivery;
action(Functions_GetSalesOrder)
{
ApplicationArea = Suite;
Caption = 'Get &Sales Order';
Image = "Order";
RunObject = Codeunit "Purch.-Get Drop Shpt.";
ToolTip = 'Select the sales order that must be linked to the purchase order, for drop shipment or special order. ';
}
}
group(Action186)
{
Caption = 'Speci&al Order';
Image = SpecialOrder;
action(Action187)
{
AccessByPermission = TableData "Sales Shipment Header" = R;
ApplicationArea = Suite;
Caption = 'Get &Sales Order';
Image = "Order";
ToolTip = 'Select the sales order that must be linked to the purchase order, for drop shipment or special order. ';
trigger OnAction()
var
PurchHeader: Record "Purchase Header";
DistIntegration: Codeunit "Dist. Integration";
begin
PurchHeader.Copy(Rec);
DistIntegration.GetSpecialOrders(PurchHeader);
Rec := PurchHeader;
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;
}
action("Send Intercompany Purchase Order")
{
AccessByPermission = TableData "IC G/L Account" = R;
ApplicationArea = Intercompany;
Caption = 'Send Intercompany Purchase Order';
Image = IntercompanyOrder;
ToolTip = 'Send the purchase 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
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then begin
ICInOutboxMgt.SendPurchDoc(Rec, false);
ICFeedback.ShowIntercompanyMessage(Rec, Enum::"IC Transaction Document Type"::Order);
end;
end;
}
action("Reject IC Purchase Order")
{
ApplicationArea = Intercompany;
Caption = 'Reject IC Purchase Order';
Enabled = RejectICPurchaseOrderEnabled;
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.IsPurchaseHeaderFromIncomingIC(Rec) then
exit;
if Confirm(SureToRejectMsg) then
ICInboxOutboxMgt.RejectAcceptedPurchaseHeader(Rec);
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
if not IncomingDocument.Posted 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.";
WorkflowWebhookMgt: Codeunit "Workflow Webhook Management";
begin
ApprovalsMgmt.OnCancelPurchaseApprovalRequest(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_purchaseOrder';
}
}
}
group(Action17)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Create &Whse. Receipt")
{
AccessByPermission = TableData "Warehouse Receipt Header" = R;
ApplicationArea = Warehouse;
Caption = 'Create &Whse. Receipt';
Image = NewReceipt;
ToolTip = 'Create a warehouse receipt to start a receive and put-away process according to an advanced warehouse configuration.';
trigger OnAction()
var
GetSourceDocInbound: Codeunit "Get Source Doc. Inbound";
begin
Rec.PerformManualRelease();
GetSourceDocInbound.CreateFromPurchOrder(Rec);
if not Rec.Find('=><') then
Rec.Init();
end;
}
action("Create Inventor&y Put-away/Pick")
{
AccessByPermission = TableData "Posted Invt. Put-away 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;
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action(Post)
{
ApplicationArea = 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.';
trigger OnAction()
begin
PostDocument(CODEUNIT::"Purch.-Post (Yes/No)", Enum::"Navigate After Posting"::"Posted Document");
end;
}
action(Preview)
{
ApplicationArea = 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("Post and &Print")
{
ApplicationArea = Suite;
Caption = 'Post and &Print';
Ellipsis = true;
Image = PostPrint;
ShortCutKey = 'Shift+F9';
ToolTip = 'Finalize and prepare to print the document or journal. The values and quantities are posted to the related accounts. A report request window where you can specify what to include on the print-out.';
trigger OnAction()
begin
PostDocument(CODEUNIT::"Purch.-Post + Print", Enum::"Navigate After Posting"::"Do Nothing");
end;
}
action(PostAndNew)
{
ApplicationArea = Basic, Suite;
Caption = 'Post and New';
Ellipsis = true;
Image = PostOrder;
ShortCutKey = 'Alt+F9';
ToolTip = 'Post the purchase document and create a new, empty one.';
trigger OnAction()
begin
PostDocument(CODEUNIT::"Purch.-Post (Yes/No)", Enum::"Navigate After Posting"::"New Document");
end;
}
action("Test Report")
{
ApplicationArea = 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.PrintPurchHeader(Rec);
end;
}
action("Post &Batch")
{
ApplicationArea = Suite;
Caption = 'Post &Batch';
Ellipsis = true;
Image = PostBatch;
ToolTip = 'Post several documents at once. A report request window opens where you can specify which documents to post.';
trigger OnAction()
begin
REPORT.RunModal(REPORT::"Batch Post Purchase Orders", true, true, Rec);
CurrPage.Update(false);
end;
}
action("Remove From Job Queue")
{
ApplicationArea = Suite;
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;
}
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 purchase document as invoiced.';
trigger OnAction()
begin
ReportPrint.PrintPurchHeaderPrepmt(Rec);
end;
}
action(PostPrepaymentInvoice)
{
ApplicationArea = Prepayments;
Caption = 'Post Prepayment &Invoice';
Ellipsis = true;
Image = PrepaymentPost;
ToolTip = 'Post the specified prepayment information. ';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
PurchPostYNPrepmt: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
PurchPostYNPrepmt.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
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
PurchPostYNPrepmt: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
PurchPostYNPrepmt.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
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
PurchPostYNPrepmt: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
PurchPostYNPrepmt.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
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
PurchPostYNPrepmt: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
PurchPostYNPrepmt.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("&Print")
{
ApplicationArea = Suite;
Caption = '&Print';
Ellipsis = true;
Image = Print;
ToolTip = 'Prepare to print the document. The report request window for the document opens where you can specify what to include on the print-out.';
trigger OnAction()
var
PurchaseHeader: Record "Purchase Header";
begin
PurchaseHeader := Rec;
CurrPage.SetSelectionFilter(PurchaseHeader);
PurchaseHeader.PrintRecords(true);
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(SendCustom)
{
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";
DocPrint: Codeunit "Document-Print";
begin
PurchaseHeader := Rec;
PurchaseHeader.SetRecFilter();
DocPrint.PrintPurchaseHeaderToDocumentAttachment(PurchaseHeader);
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(Preview_Promoted; Preview)
{
}
actionref("Post and &Print_Promoted"; "Post and &Print")
{
}
actionref(PostAndNew_Promoted; PostAndNew)
{
}
actionref("Post &Batch_Promoted"; "Post &Batch")
{
}
}
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 &Whse. Receipt_Promoted"; "Create &Whse. Receipt")
{
}
actionref("Create Inventor&y Put-away/Pick_Promoted"; "Create Inventor&y Put-away/Pick")
{
}
actionref("Send Intercompany Purchase Order_Promoted"; "Send Intercompany Purchase Order")
{
}
actionref("Archive Document_Promoted"; "Archive Document")
{
}
}
group(Category_Category7)
{
Caption = 'Prepare', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(CopyDocument_Promoted; CopyDocument)
{
}
actionref(GetRecurringPurchaseLines_Promoted; GetRecurringPurchaseLines)
{
}
group("Category_Incoming Document")
{
Caption = 'Incoming Document';
actionref(IncomingDocAttachFile_Promoted; IncomingDocAttachFile)
{
}
actionref(SelectIncomingDoc_Promoted; SelectIncomingDoc)
{
}
actionref(IncomingDocCard_Promoted; IncomingDocCard)
{
}
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_Category10)
{
Caption = 'Print/Send', Comment = 'Generated from the PromotedActionCategories property index 9.';
actionref(Email_Promoted; Email)
{
}
actionref("&Print_Promoted"; "&Print")
{
}
actionref(SendCustom_Promoted; SendCustom)
{
}
actionref(AttachAsPDF_Promoted; AttachAsPDF)
{
}
}
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(PurchaseOrderStatistics_Promoted; PurchaseOrderStatistics)
{
}
actionref("Co&mments_Promoted"; "Co&mments")
{
}
actionref(DocAttach_Promoted; DocAttach)
{
}
actionref(Approvals_Promoted; Approvals)
{
}
separator(Navigate_Separator)
{
}
actionref(Invoices_Promoted; Invoices)
{
}
actionref(Vendor_Promoted; Vendor)
{
}
actionref(Receipts_Promoted; Receipts)
{
}
actionref(PostedPrepaymentInvoices_Promoted; PostedPrepaymentInvoices)
{
}
actionref(PostedPrepaymentCrMemos_Promoted; PostedPrepaymentCrMemos)
{
}
}
group(Category_Category11)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 10.';
}
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()
var
ICInboxOutboxMgt: Codeunit ICInboxOutboxMgt;
begin
RejectICPurchaseOrderEnabled := ICInboxOutboxMgt.IsPurchaseHeaderFromIncomingIC(Rec);
CalculateCurrentShippingAndPayToOption();
ShowOverReceiptNotification();
Rec.GetContactDetails(BuyFromContact, PayToContact);
CurrPage.IncomingDocAttachFactBox.Page.SetCurrentRecordID(Rec.RecordId);
IsVendorInvoiceEditable := not Rec."Self-Billing Invoice";
OnAfterOnAfterGetRecord(Rec);
end;
trigger OnDeleteRecord(): Boolean
begin
CurrPage.SaveRecord();
exit(Rec.ConfirmDeletion());
end;
trigger OnInit()
var
ApplicationAreaMgmtFacade: Codeunit "Application Area Mgmt. Facade";
begin
JobQueueUsed := PurchSetup.JobQueueActive();
SetExtDocNoMandatoryCondition();
ShowShippingOptionsWithLocation := ApplicationAreaMgmtFacade.IsLocationEnabled() or ApplicationAreaMgmtFacade.IsAllDisabled();
IsPowerAutomatePrivacyNoticeApproved := PrivacyNotice.GetPrivacyNoticeApprovalState(FlowServiceManagement.GetPowerAutomatePrivacyNoticeId()) = "Privacy Notice Approval State"::Agreed;
end;
trigger OnNewRecord(BelowxRec: Boolean)
var
LookupStateManager: Codeunit "Lookup State Manager";
begin
if LookupStateManager.IsRecordSaved() then
LookupStateManager.ClearSavedRecord();
Rec."Responsibility Center" := UserMgt.GetPurchasesFilter();
if (not DocNoVisible) and (Rec."No." = '') then begin
Rec.SetBuyFromVendorFromFilter();
Rec.SelectDefaultRemitAddress(Rec);
end;
CalculateCurrentShippingAndPayToOption();
end;
trigger OnInsertRecord(BelowxRec: Boolean): Boolean
begin
CurrPage.Update(false);
end;
trigger OnOpenPage()
var
PurchaseHeader: Record "Purchase Header";
ICInboxOutboxMgt: Codeunit ICInboxOutboxMgt;
VATReportingDateMgt: Codeunit "VAT Reporting Date Mgt";
begin
SetOpenPage();
ActivateFields();
CheckShowBackgrValidationNotification();
RejectICPurchaseOrderEnabled := ICInboxOutboxMgt.IsPurchaseHeaderFromIncomingIC(Rec);
if RejectICPurchaseOrderEnabled then begin
PurchaseHeader.SetRange("IC Direction", PurchaseHeader."IC Direction"::Incoming);
PurchaseHeader.SetFilter("IC Reference Document No.", '<>%1', '');
PurchaseHeader.SetRange("Buy-from IC Partner Code", Rec."Buy-from IC Partner Code");
PurchaseHeader.SetRange("Document Type", PurchaseHeader."Document Type"::Invoice);
PurchaseHeader.SetRange("Vendor Order No.", Rec."Vendor Order No.");
if PurchaseHeader.FindFirst() then
ICInboxOutboxMgt.ShowDuplicateICDocumentWarning(PurchaseHeader);
end;
if (Rec."IC Direction" = Rec."IC Direction"::Outgoing) and (Rec."Buy-from IC Partner Code" <> '') and (Rec."IC Status" = Rec."IC Status"::Sent) then begin
PurchaseHeader.Reset();
PurchaseHeader.SetRange("IC Direction", PurchaseHeader."IC Direction"::Incoming);
PurchaseHeader.SetRange("Buy-from IC Partner Code", Rec."Buy-from IC Partner Code");
PurchaseHeader.SetRange("Document Type", PurchaseHeader."Document Type"::Invoice);
PurchaseHeader.SetRange("Your Reference", Rec."No.");
if PurchaseHeader.FindFirst() then
ICInboxOutboxMgt.ShowDuplicateICDocumentWarning(PurchaseHeader, ICIncomingInvoiceFromOriginalOrderMsg);
end;
VATDateEnabled := VATReportingDateMgt.IsVATDateEnabled();
IsVendorInvoiceEditable := not Rec."Self-Billing Invoice";
end;
trigger OnQueryClosePage(CloseAction: Action): Boolean
var
InstructionMgt: Codeunit "Instruction Mgt.";
ShowConfirmCloseUnposted: Boolean;
begin
if ShowReleaseNotification() then
if not InstructionMgt.ShowConfirmUnreleased() then
exit(false);
ShowConfirmCloseUnposted := not DocumentIsPosted;
OnQueryClosePageOnAfterCalcShowConfirmCloseUnposted(Rec, ShowConfirmCloseUnposted);
if ShowConfirmCloseUnposted then
exit(Rec.ConfirmCloseUnposted());
end;
var
BuyFromContact: Record Contact;
PayToContact: Record Contact;
PurchSetup: Record "Purchases & Payables Setup";
GLSetup: Record "General Ledger Setup";
RemitAddressBuffer: Record "Remit Address Buffer";
MoveNegPurchLines: Report "Move Negative Purchase Lines";
ReportPrint: Codeunit "Test Report-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";
JobQueueVisible: Boolean;
JobQueueUsed: Boolean;
StatusStyleTxt: Text;
HasIncomingDocument: Boolean;
DocNoVisible: Boolean;
VendorInvoiceNoMandatory: Boolean;
OpenApprovalEntriesExistForCurrUser: Boolean;
IsPowerAutomatePrivacyNoticeApproved: Boolean;
OpenApprovalEntriesExist: Boolean;
ShowWorkflowStatus: Boolean;
CanCancelApprovalForRecord: Boolean;
DocumentIsPosted: Boolean;
OpenPostedPurchaseOrderQst: Label 'The order is posted as number %1 and moved to the Posted Purchase Invoices window.\\Do you want to open the posted invoice?', Comment = '%1 = posted document number';
SureToRejectMsg: Label 'Rejecting this order will remove it from your company and send it back to the partner company.\\Do you want to continue?';
ICIncomingInvoiceFromOriginalOrderMsg: Label 'There is an %1 with no. %2 received from intercompany after you sent this order. You can remove this order and post that invoice instead.', Comment = '%1 - either "order", "invoice", or "posted invoice", %2 - a code';
CanRequestApprovalForFlow: Boolean;
CanCancelApprovalForFlow: Boolean;
ShowShippingOptionsWithLocation: Boolean;
IsSaaS: Boolean;
IsBuyFromCountyVisible: Boolean;
IsPayToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
PurchaseDocCheckFactboxVisible: Boolean;
IsJournalTemplNameVisible: Boolean;
IsPaymentMethodCodeVisible: Boolean;
IsPurchaseLinesEditable: Boolean;
ShouldSearchForVendByName: Boolean;
IsRemitToCountyVisible: Boolean;
RejectICPurchaseOrderEnabled: Boolean;
VATDateEnabled: Boolean;
IsVendorInvoiceEditable: Boolean;
protected var
ShipToOptions: Enum "Purchase Order Ship-to Options";
PayToOptions: Enum "Purchase Order Pay-to Options";
IsPostingGroupEditable: Boolean;
local procedure SetOpenPage()
var
EnvironmentInfo: Codeunit "Environment Information";
begin
SetDocNoVisible();
IsSaaS := EnvironmentInfo.IsSaaS();
Rec.SetSecurityFilterOnRespCenter();
if (Rec."No." <> '') and (Rec."Buy-from Vendor No." = '') then
DocumentIsPosted := (not Rec.Get(Rec."Document Type", Rec."No."));
Rec.SetRange("Date Filter", 0D, WorkDate());
OnAfterSetOpenPage();
end;
local procedure ActivateFields()
begin
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();
IsJournalTemplNameVisible := GLSetup."Journal Templ. Name Mandatory";
IsPaymentMethodCodeVisible := not GLSetup."Hide Payment Method Code";
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
end;
procedure CallPostDocument(PostingCodeunitID: Integer; Navigate: Enum "Navigate After Posting")
begin
PostDocument(PostingCodeunitID, Navigate);
end;
local procedure PostDocument(PostingCodeunitID: Integer; Navigate: Enum "Navigate After Posting")
var
PurchaseHeader: Record "Purchase Header";
InstructionMgt: Codeunit "Instruction Mgt.";
LinesInstructionMgt: Codeunit "Lines Instruction Mgt.";
DocumentIsScheduledForPosting: Boolean;
IsHandled: Boolean;
begin
LinesInstructionMgt.PurchaseCheckAllLinesHaveQuantityAssigned(Rec);
Rec.SendToPosting(PostingCodeunitID);
DocumentIsScheduledForPosting := Rec."Job Queue Status" = Rec."Job Queue Status"::"Scheduled for Posting";
if DocumentIsScheduledForPosting then
DocumentIsPosted := true
else begin
PurchaseHeader.SetRange("Document Type", Rec."Document Type");
PurchaseHeader.SetRange("No.", Rec."No.");
DocumentIsPosted := PurchaseHeader.IsEmpty();
end;
OnPostDocumentOnAfterCalcDocumentIsScheduledForPosting(Rec, DocumentIsScheduledForPosting, DocumentIsPosted);
if DocumentIsScheduledForPosting then
CurrPage.Close();
CurrPage.Update(false);
IsHandled := false;
OnPostDocumentBeforeNavigateAfterPosting(Rec, PostingCodeunitID, Navigate, DocumentIsPosted, IsHandled);
if IsHandled then
exit;
if PostingCodeunitID <> CODEUNIT::"Purch.-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(PurchaseHeader);
PurchaseHeader.Init();
PurchaseHeader.Validate("Document Type", PurchaseHeader."Document Type"::Order);
OnPostDocumentOnBeforePurchaseHeaderInsert(PurchaseHeader);
PurchaseHeader.Insert(true);
PAGE.Run(PAGE::"Purchase Order", PurchaseHeader);
end;
end;
end;
local procedure ApproveCalcInvDisc()
begin
CurrPage.PurchLines.PAGE.ApproveCalcInvDisc();
end;
protected 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 Prepayment37OnAfterValidate()
begin
CurrPage.Update();
end;
local procedure ShowPreview()
var
PurchPostYesNo: Codeunit "Purch.-Post (Yes/No)";
begin
PurchPostYesNo.Preview(Rec);
end;
local procedure ShowPrepmtInvoicePreview()
var
PurchPostPrepmtYesNo: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
PurchPostPrepmtYesNo.Preview(Rec, 2);
end;
local procedure ShowPrepmtCrMemoPreview()
var
PurchPostPrepmtYesNo: Codeunit "Purch.-Post Prepmt. (Yes/No)";
begin
PurchPostPrepmtYesNo.Preview(Rec, 3);
end;
local procedure SetDocNoVisible()
var
DocumentNoVisibility: Codeunit DocumentNoVisibility;
begin
DocNoVisible := DocumentNoVisibility.PurchaseDocumentNoIsVisible(Enum::"Purchase Document Type"::Order.AsInteger(), Rec."No.");
end;
local procedure SetExtDocNoMandatoryCondition()
begin
PurchSetup.GetRecordOnce();
VendorInvoiceNoMandatory := PurchSetup."Ext. Doc. No. Mandatory";
end;
local procedure SetControlAppearance()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
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;
SetExtDocNoMandatoryCondition();
SetPostingGroupEditable();
OpenApprovalEntriesExistForCurrUser := ApprovalsMgmt.HasOpenApprovalEntriesForCurrentUser(Rec.RecordId());
OpenApprovalEntriesExist := ApprovalsMgmt.HasOpenApprovalEntries(Rec.RecordId());
CanCancelApprovalForRecord := ApprovalsMgmt.CanCancelApprovalForRecord(Rec.RecordId());
WorkflowWebhookMgt.GetCanRequestAndCanCancel(Rec.RecordId(), CanRequestApprovalForFlow, CanCancelApprovalForFlow);
ShouldSearchForVendByName := Rec.ShouldSearchForVendorByName(Rec."Buy-from Vendor No.");
PurchaseDocCheckFactboxVisible := DocumentErrorsMgt.BackgroundValidationEnabled();
if not IsPurchaseLinesEditable then
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
OnAfterSetControlAppearance();
end;
procedure RunBackgroundCheck()
begin
CurrPage.PurchaseDocCheckFactbox.Page.CheckErrorsInBackground(Rec);
end;
local procedure CheckShowBackgrValidationNotification()
var
DocumentErrorsMgt: Codeunit "Document Errors Mgt.";
begin
if DocumentErrorsMgt.CheckShowEnableBackgrValidationNotification() then
SetControlAppearance();
end;
procedure SetPostingGroupEditable()
var
PayToVendor: Record Vendor;
begin
if PayToVendor.Get(Rec."Pay-to Vendor No.") then
IsPostingGroupEditable := PayToVendor."Allow Multiple Posting Groups";
end;
local procedure ShowPostedConfirmationMessage()
var
OrderPurchaseHeader: Record "Purchase Header";
PurchInvHeader: Record "Purch. Inv. Header";
InstructionMgt: Codeunit "Instruction Mgt.";
ICFeedback: Codeunit "IC Feedback";
begin
if not OrderPurchaseHeader.Get(Rec."Document Type", Rec."No.") then begin
PurchInvHeader.SetRange("No.", Rec."Last Posting No.");
if PurchInvHeader.FindFirst() then begin
ICFeedback.ShowIntercompanyMessage(Rec, Enum::"IC Transaction Document Type"::Order);
if InstructionMgt.ShowConfirm(StrSubstNo(OpenPostedPurchaseOrderQst, PurchInvHeader."No."),
InstructionMgt.ShowPostedConfirmationMessageCode())
then
InstructionMgt.ShowPostedDocument(PurchInvHeader, Page::"Purchase Order");
end;
end;
end;
local procedure ValidateShippingOption()
var
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeValidateShippingOption(Rec, ShipToOptions.AsInteger(), IsHandled);
if IsHandled then
exit;
case ShipToOptions of
ShipToOptions::"Default (Company Address)",
ShipToOptions::"Custom Address":
if xRec."Sell-to Customer No." <> '' then
Rec.Validate("Sell-to Customer No.", '')
else
Rec.Validate("Location Code", '');
ShipToOptions::Location:
if xRec."Sell-to Customer No." <> '' then
Rec.Validate("Sell-to Customer No.", '');
end;
end;
local procedure ShowReleaseNotification(): Boolean
var
LocationsQuery: Query "Locations from items Purch";
begin
if Rec.TestStatusIsNotReleased() then begin
LocationsQuery.SetRange(Document_No, Rec."No.");
LocationsQuery.SetRange(Require_Receive, true);
LocationsQuery.Open();
if LocationsQuery.Read() then
exit(true);
LocationsQuery.SetRange(Document_No, Rec."No.");
LocationsQuery.SetRange(Require_Receive);
LocationsQuery.SetRange(Require_Put_away, true);
LocationsQuery.Open();
exit(LocationsQuery.Read());
end;
exit(false);
end;
local procedure CalculateCurrentShippingAndPayToOption()
var
PayToOptionsOpt: Option;
ShipToOptionsOpt: Option;
IsHandled: Boolean;
begin
IsHandled := false;
PayToOptionsOpt := PayToOptions.AsInteger();
ShipToOptionsOpt := ShipToOptions.AsInteger();
OnBeforeCalculateCurrentShippingAndPayToOption(Rec, ShipToOptionsOpt, PayToOptionsOpt, IsHandled);
PayToOptions := "Purchase Order Pay-to Options".FromInteger(PayToOptionsOpt);
ShipToOptions := Enum::"Purchase Order Ship-to Options".FromInteger(ShipToOptionsOpt);
if not IsHandled then begin
case true of
Rec."Sell-to Customer No." <> '':
ShipToOptions := ShipToOptions::"Customer Address";
Rec."Location Code" <> '':
ShipToOptions := ShipToOptions::Location;
else
if Rec.ShipToAddressEqualsCompanyShipToAddress() then
ShipToOptions := ShipToOptions::"Default (Company Address)"
else
ShipToOptions := ShipToOptions::"Custom Address";
end;
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;
end;
PayToOptionsOpt := PayToOptions.AsInteger();
ShipToOptionsOpt := ShipToOptions.AsInteger();
OnAfterCalculateCurrentShippingAndPayToOption(ShipToOptionsOpt, PayToOptionsOpt, Rec);
PayToOptions := "Purchase Order Pay-to Options".FromInteger(PayToOptionsOpt);
ShipToOptions := Enum::"Purchase Order Ship-to Options".FromInteger(ShipToOptionsOpt);
end;
local procedure ShowOverReceiptNotification()
var
OverReceiptMgt: Codeunit "Over-Receipt Mgt.";
begin
OverReceiptMgt.ShowOverReceiptNotificationFromOrder(Rec."No.");
end;
local procedure FillRemitToFields()
var
RemitAddress: Record "Remit Address";
begin
RemitAddress.SetRange("Vendor No.", Rec."Buy-from Vendor No.");
RemitAddress.SetRange(Code, Rec."Remit-to Code");
if not RemitAddress.IsEmpty() then begin
RemitAddress.FindFirst();
FormatAddress.VendorRemitToAddress(RemitAddress, RemitAddressBuffer);
CurrPage.Update();
end;
end;
[IntegrationEvent(false, false)]
local procedure OnAfterCalculateCurrentShippingAndPayToOption(var ShipToOptions: Option "Default (Company Address)",Location,"Customer Address","Custom Address"; var PayToOptions: Option "Default (Vendor)","Another Vendor","Custom Address"; PurchaseHeader: Record "Purchase Header")
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterOnAfterGetRecord(var PurchaseHeader: Record "Purchase Header")
begin
end;
[IntegrationEvent(false, false)]
local procedure OnPostDocumentOnBeforePurchaseHeaderInsert(var PurchaseHeader: Record "Purchase Header")
begin
end;
[IntegrationEvent(true, false)]
local procedure OnPostDocumentBeforeNavigateAfterPosting(var PurchaseHeader: Record "Purchase Header"; var PostingCodeunitID: Integer; var Navigate: Enum "Navigate After Posting"; var DocumentIsPosted: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(true, false)]
local procedure OnQueryClosePageOnAfterCalcShowConfirmCloseUnposted(var PurchaseHeader: Record "Purchase Header"; var ShowConfirmCloseUnposted: Boolean)
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterSetOpenPage()
begin
end;
[IntegrationEvent(true, false)]
local procedure OnAfterSetControlAppearance()
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeValidateShippingOption(var PurchaseHeader: Record "Purchase Header"; ShipToOptions: Option "Default (Company Address)",Location,"Customer Address","Custom Address"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeCalculateCurrentShippingAndPayToOption(var PurchaseHeader: Record "Purchase Header"; var ShipToOptions: Option "Default (Company Address)",Location,"Customer Address","Custom Address"; var PayToOptions: Option "Default (Vendor)","Another Vendor","Custom Address"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeCurrencyCodeOnAssistEdit(var PurchaseHeader: Record "Purchase Header"; xPurchaseHeader: Record "Purchase Header"; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnPostDocumentOnAfterCalcDocumentIsScheduledForPosting(var PurchaseHeader: Record "Purchase Header"; var DocumentIsScheduledForPosting: Boolean; var DocumentIsPosted: Boolean)
begin
end;
}