Page 6640 Purchase Return Order
- App
- Base Application
- Namespace
- Microsoft.Purchases.Document
- Versions
- 17-28
- Source table
- 38
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Purchases/Document/PurchaseReturnOrder.Page.al2016 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.Reporting;
using Microsoft.Intercompany;
using Microsoft.Intercompany.GLAccount;
using Microsoft.Purchases.Comment;
using Microsoft.Purchases.History;
using Microsoft.Purchases.Payables;
using Microsoft.Purchases.Posting;
using Microsoft.Purchases.Setup;
using Microsoft.Purchases.Vendor;
using Microsoft.Utilities;
using Microsoft.Warehouse.Activity;
using Microsoft.Warehouse.Document;
using Microsoft.Warehouse.InventoryDocument;
using Microsoft.Warehouse.Request;
using System.Automation;
using System.Security.User;
using System.Threading;
page 6640 "Purchase Return Order"
{
Caption = 'Purchase Return Order';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Purchase Header";
SourceTableView = where("Document Type" = filter("Return Order"));
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = PurchReturnOrder;
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 = PurchReturnOrder;
Caption = 'Vendor No.';
Importance = Additional;
NotBlank = true;
ToolTip = 'Specifies the number of the vendor who returns 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 = PurchReturnOrder;
Caption = 'Vendor Name';
Importance = Promoted;
ShowMandatory = true;
ToolTip = 'Specifies the name of the vendor who returns 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
Rec.OnAfterValidateBuyFromVendorNo(Rec, xRec);
CurrPage.Update();
end;
}
field("Buy-from Vendor Name 2"; Rec."Buy-from Vendor Name 2")
{
ApplicationArea = PurchReturnOrder;
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 = PurchReturnOrder;
Caption = 'Address';
Importance = Additional;
ToolTip = 'Specifies the vendor''s buy-from address.';
}
field("Buy-from Address 2"; Rec."Buy-from Address 2")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Address 2';
Importance = Additional;
ToolTip = 'Specifies an additional part of the vendor''s buy-from address.';
}
field("Buy-from City"; Rec."Buy-from City")
{
ApplicationArea = PurchReturnOrder;
Caption = 'City';
Importance = Additional;
}
group(Control69)
{
ShowCaption = false;
Visible = IsBuyFromCountyVisible;
field("Buy-from County"; Rec."Buy-from County")
{
ApplicationArea = PurchReturnOrder;
CaptionClass = '5,1,' + Rec."Buy-from Country/Region Code";
Importance = Additional;
ToolTip = 'Specifies the county of the address.';
}
}
field("Buy-from Post Code"; Rec."Buy-from Post Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Post Code';
Importance = Additional;
ToolTip = 'Specifies the postal code.';
}
field("Buy-from Country/Region Code"; Rec."Buy-from Country/Region Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Country/Region';
Importance = Additional;
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 = PurchReturnOrder;
Caption = 'Contact No.';
Importance = Additional;
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 = PurchReturnOrder;
Caption = 'Contact';
Editable = Rec."Buy-from Vendor No." <> '';
ToolTip = 'Specifies the name of the vendor contact person.';
trigger OnLookup(var Text: Text): Boolean
begin
Rec.LookupBuyFromContact();
CurrPage.Update();
end;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = PurchReturnOrder;
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = PurchReturnOrder;
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("No. of Archived Versions"; Rec."No. of Archived Versions")
{
ApplicationArea = PurchReturnOrder;
Importance = Additional;
}
field("Order Date"; Rec."Order Date")
{
ApplicationArea = PurchReturnOrder;
Importance = Additional;
}
field("Vendor Authorization No."; Rec."Vendor Authorization No.")
{
ApplicationArea = PurchReturnOrder;
Importance = Additional;
ToolTip = 'Specifies the identification number of a compensation agreement. This number is sometimes referred to as the RMA No.(Returns Materials Authorization).';
}
field("Vendor Cr. Memo No."; Rec."Vendor Cr. Memo No.")
{
ApplicationArea = PurchReturnOrder;
Importance = Promoted;
ShowMandatory = true;
ToolTip = 'Specifies the number that the vendor uses for the credit memo you are creating in this purchase return order.';
}
field("Purchaser Code"; Rec."Purchaser Code")
{
ApplicationArea = PurchReturnOrder;
trigger OnValidate()
begin
PurchaserCodeOnAfterValidate();
end;
}
field("Campaign No."; Rec."Campaign No.")
{
ApplicationArea = RelationshipMgmt;
}
field("Responsibility Center"; Rec."Responsibility Center")
{
ApplicationArea = Suite;
Importance = Additional;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = PurchReturnOrder;
Importance = Additional;
}
field("Job Queue Status"; Rec."Job Queue Status")
{
ApplicationArea = All;
Importance = Additional;
ToolTip = 'Specifies the status of a job queue entry that handles the posting of purchase return orders.';
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(Status; Rec.Status)
{
ApplicationArea = PurchReturnOrder;
Importance = Promoted;
StyleExpr = StatusStyleTxt;
ToolTip = 'Specifies whether the document is open, released, pending approval, or pending prepayment.';
}
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 Return Order Subform")
{
ApplicationArea = PurchReturnOrder;
Editable = IsPurchaseLinesEditable;
Enabled = IsPurchaseLinesEditable;
SubPageLink = "Document No." = field("No.");
UpdatePropagation = Both;
}
group("Invoice Details")
{
Caption = 'Invoice Details';
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = PurchReturnOrder;
Importance = Promoted;
ToolTip = 'Specifies the currency that is used on the entry.';
trigger OnAssistEdit()
begin
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 = PurchReturnOrder;
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 = Basic, Suite;
Importance = Promoted;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Basic, 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("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
Importance = Promoted;
ToolTip = 'Specifies the code for the location from where the items are shipped. When you select the vendor and the vendor has a location assigned, the value is taken from the Vendor card. If the vendor has no location, but a Responsibility Center is populated, the location code is taken from the Responsibility Center. If neither is specified, the value is taken from Company Information. This field acts as the default location for new lines. You can update the location code for individual lines as needed.';
}
field("Applies-to Doc. Type"; Rec."Applies-to Doc. Type")
{
ApplicationArea = PurchReturnOrder;
Importance = Promoted;
}
field("Applies-to Doc. No."; Rec."Applies-to Doc. No.")
{
ApplicationArea = PurchReturnOrder;
Importance = Promoted;
}
field("Applies-to ID"; Rec."Applies-to ID")
{
ApplicationArea = PurchReturnOrder;
}
field("Journal Templ. Name"; Rec."Journal Templ. Name")
{
ApplicationArea = PurchReturnOrder;
Visible = IsJournalTemplNameVisible;
}
field("Tax Liable"; Rec."Tax Liable")
{
ApplicationArea = SalesTax;
ToolTip = 'Specifies that purchases from the vendor on the purchase header are liable for sales tax.';
}
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;
field(ShipToOptions; ShipToOptions)
{
ApplicationArea = PurchReturnOrder;
Caption = 'Ship-to';
OptionCaption = 'Default (Vendor Address),Alternate Vendor Address,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(Control48)
{
ShowCaption = false;
Visible = ShipToOptions = ShipToOptions::"Alternate Vendor Address";
field("Order Address Code"; Rec."Order Address Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Alternate Vendor Address Code';
}
}
group(Control62)
{
ShowCaption = false;
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Name';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the name of the vendor sending the order.';
}
field("Ship-to Name 2"; Rec."Ship-to Name 2")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Name 2';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies an additional part of the name for the order address of the vendor.';
QuickEntry = false;
Visible = false;
}
field("Ship-to Address"; Rec."Ship-to Address")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Address';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the vendor''s buy-from address.';
}
field("Ship-to Address 2"; Rec."Ship-to Address 2")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Address 2';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies an additional part of the vendor''s buy-from address.';
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = PurchReturnOrder;
Caption = 'City';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
}
group(Control174)
{
ShowCaption = false;
Visible = IsShipToCountyVisible;
field("Ship-to County"; Rec."Ship-to County")
{
ApplicationArea = PurchReturnOrder;
CaptionClass = '5,1,' + Rec."Ship-to Country/Region Code";
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the county of the address.';
}
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Post Code';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the postal code.';
}
field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Country/Region Code';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the country or region of the 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 = PurchReturnOrder;
Caption = 'Contact';
Editable = ShipToOptions = ShipToOptions::"Custom Address";
Importance = Additional;
ToolTip = 'Specifies the name of the vendor contact person.';
}
}
group("Pay-to")
{
Caption = 'Pay-to';
field("Pay-to Name"; Rec."Pay-to Name")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Name';
Importance = Promoted;
ToolTip = 'Specifies the name of the vendor sending the order.';
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 = PurchReturnOrder;
Caption = 'Name 2';
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Pay-to Address"; Rec."Pay-to Address")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Address';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies the vendor''s buy-from address.';
}
field("Pay-to Address 2"; Rec."Pay-to Address 2")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Address 2';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies an additional part of the vendor''s buy-from address.';
}
field("Pay-to City"; Rec."Pay-to City")
{
ApplicationArea = PurchReturnOrder;
Caption = 'City';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
}
group(Control79)
{
ShowCaption = false;
Visible = IsPayToCountyVisible;
field("Pay-to County"; Rec."Pay-to County")
{
ApplicationArea = PurchReturnOrder;
CaptionClass = '5,1,' + Rec."Pay-to Country/Region Code";
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies the county of the address.';
}
}
field("Pay-to Post Code"; Rec."Pay-to Post Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Post Code';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies the postal code.';
}
field("Pay-to Country/Region Code"; Rec."Pay-to Country/Region Code")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Country/Region';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies the country or region of the 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 = PurchReturnOrder;
Caption = 'Contact No.';
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
Visible = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
}
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.';
}
field("Pay-to Contact"; Rec."Pay-to Contact")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Contact';
Editable = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Enabled = Rec."Buy-from Vendor No." <> Rec."Pay-to Vendor No.";
Importance = Additional;
ToolTip = 'Specifies the name of the vendor contact person.';
}
}
}
group("Foreign Trade")
{
Caption = 'Foreign Trade';
field("Transaction Specification"; Rec."Transaction Specification")
{
ApplicationArea = BasicEU, BasicNO;
}
field("Transaction Type"; Rec."Transaction Type")
{
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(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(Control21; "Pending Approval FactBox")
{
ApplicationArea = PurchReturnOrder;
SubPageLink = "Table ID" = const(38),
"Document Type" = field("Document Type"),
"Document No." = field("No."),
Status = const(Open);
Visible = OpenApprovalEntriesExistForCurrUser;
}
part(ApprovalFactBox; "Approval FactBox")
{
ApplicationArea = PurchReturnOrder;
Visible = false;
}
part(Control1901138007; "Vendor Details FactBox")
{
ApplicationArea = PurchReturnOrder;
SubPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control1904651607; "Vendor Statistics FactBox")
{
ApplicationArea = PurchReturnOrder;
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 = PurchReturnOrder;
SubPageLink = "No." = field("Buy-from Vendor No."),
"Date Filter" = field("Date Filter");
}
part(Control1906949207; "Vendor Hist. Pay-to FactBox")
{
ApplicationArea = PurchReturnOrder;
SubPageLink = "No." = field("Pay-to Vendor No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(Control3; "Purchase Line FactBox")
{
ApplicationArea = PurchReturnOrder;
Provider = PurchLines;
SubPageLink = "Document Type" = field("Document Type"),
"Document No." = field("Document No."),
"Line No." = field("Line No.");
}
part(WorkflowStatus; "Workflow Status FactBox")
{
ApplicationArea = PurchReturnOrder;
Editable = false;
Enabled = false;
ShowFilter = false;
Visible = ShowWorkflowStatus;
}
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
}
}
}
actions
{
area(navigation)
{
group("&Return Order")
{
Caption = '&Return Order';
Image = Return;
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 = PurchReturnOrder;
Caption = 'Vendor';
Enabled = Rec."Buy-from Vendor No." <> '';
Image = Vendor;
RunObject = Page "Vendor Card";
RunPageLink = "No." = field("Buy-from Vendor No.");
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(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 = PurchReturnOrder;
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.';
}
}
group(Documents)
{
Caption = 'Documents';
Image = Documents;
action("Return Shipments")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Return Shipments';
Image = Shipment;
RunObject = Page "Posted Return Shipments";
RunPageLink = "Return Order No." = field("No.");
RunPageView = sorting("Return Order No.");
ToolTip = 'Open the posted return shipments related to this order.';
}
action("Cred&it Memos")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Cred&it Memos';
Image = CreditMemo;
ToolTip = 'View a list of ongoing credit memos for the order.';
trigger OnAction()
var
TempPurchCrMemoHdr: Record "Purch. Cr. Memo Hdr." temporary;
PurchGetReturnShipment: Codeunit "Purch.-Get Return Shipments";
begin
PurchGetReturnShipment.GetPurchRetOrderCrMemos(TempPurchCrMemoHdr, Rec."No.");
Page.Run(Page::"Posted Purchase Credit Memos", TempPurchCrMemoHdr);
end;
}
separator(Action136)
{
}
}
group(Warehouse)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Warehouse Shipment Lines")
{
ApplicationArea = Warehouse;
Caption = 'Warehouse Shipment Lines';
Image = ShipmentLines;
RunObject = Page "Whse. Shipment 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 shipments for the document, in advanced warehouse configurations.';
}
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 Return 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 return order.';
}
action("Whse. Pick Lines")
{
ApplicationArea = Warehouse;
Caption = 'Warehouse Pick Lines';
Image = PickLines;
RunObject = page "Warehouse Activity Lines";
RunPageLink = "Source Document" = const("Purchase Return Order"), "Source No." = field("No.");
RunPageView = sorting("Source Type", "Source Subtype", "Source No.");
ToolTip = 'View ongoing warehouse picks for the document, in advanced warehouse configurations.';
}
}
}
area(processing)
{
group(Approval)
{
Caption = 'Approval';
action(Approve)
{
ApplicationArea = PurchReturnOrder;
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 = PurchReturnOrder;
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 = PurchReturnOrder;
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 = PurchReturnOrder;
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;
}
}
action("&Print")
{
ApplicationArea = PurchReturnOrder;
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()
begin
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(Release)
{
Caption = 'Release';
Image = ReleaseDoc;
action("Re&lease")
{
ApplicationArea = PurchReturnOrder;
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 = PurchReturnOrder;
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;
}
separator(Action690)
{
}
}
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action(GetPostedDocumentLinesToReverse)
{
ApplicationArea = PurchReturnOrder;
Caption = 'Get Posted Doc&ument Lines to Reverse';
Ellipsis = true;
Image = ReverseLines;
ToolTip = 'Copy one or more posted purchase document lines in order to reverse the original order.';
trigger OnAction()
begin
Rec.GetPstdDocLinesToReverse();
CurrPage.PurchLines.Page.PurchaseDocTotalsNotUpToDate();
CurrPage.PurchLines.Page.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;
}
}
action("Apply Entries")
{
ApplicationArea = Basic, Suite;
Caption = 'Apply Entries';
Image = ApplyEntries;
ShortCutKey = 'Shift+F11';
ToolTip = 'Apply open entries for the relevant account type.';
trigger OnAction()
begin
CODEUNIT.Run(CODEUNIT::"Purchase Header Apply", Rec);
end;
}
separator(Action130)
{
}
action(CalculateInvoiceDiscount)
{
AccessByPermission = TableData "Vendor Invoice Disc." = R;
ApplicationArea = PurchReturnOrder;
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;
}
separator(Action132)
{
}
action(CopyDocument)
{
ApplicationArea = PurchReturnOrder;
Caption = 'Copy Document';
Ellipsis = true;
Enabled = Rec."No." <> '';
Image = CopyDocument;
//The property 'PromotedCategory' can only be set if the property 'Promoted' is set to 'true'
//PromotedCategory = Process;
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("Move Negative Lines")
{
ApplicationArea = PurchReturnOrder;
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;
}
action("Archive Document")
{
ApplicationArea = PurchReturnOrder;
Caption = 'Archive 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 IC Return Order")
{
AccessByPermission = TableData "IC G/L Account" = R;
ApplicationArea = Intercompany;
Caption = 'Send IC Return Order';
Image = IntercompanyOrder;
ToolTip = 'Prepare to send the return order to an intercompany partner.';
trigger OnAction()
var
ICInOutMgt: Codeunit ICInboxOutboxMgt;
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
if ApprovalsMgmt.PrePostApprovalCheckPurch(Rec) then
ICInOutMgt.SendPurchDoc(Rec, false);
end;
}
separator(Action134)
{
}
}
group("Request Approval")
{
Caption = 'Request Approval';
Image = Approval;
action(SendApprovalRequest)
{
ApplicationArea = PurchReturnOrder;
Caption = 'Send A&pproval Request';
Enabled = not OpenApprovalEntriesExist;
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 = PurchReturnOrder;
Caption = 'Cancel Approval Re&quest';
Enabled = CanCancelApprovalForRecord;
Image = CancelApprovalRequest;
ToolTip = 'Cancel the approval request.';
trigger OnAction()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
begin
ApprovalsMgmt.OnCancelPurchaseApprovalRequest(Rec);
end;
}
separator(Action137)
{
}
}
group(Action19)
{
Caption = 'Warehouse';
Image = Warehouse;
action("Create &Warehouse Shipment")
{
AccessByPermission = TableData "Warehouse Shipment Header" = R;
ApplicationArea = Warehouse;
Caption = 'Create &Warehouse Shipment';
Image = NewShipment;
ToolTip = 'Create a warehouse shipment to start a pick a ship process according to an advanced warehouse configuration.';
trigger OnAction()
var
GetSourceDocOutbound: Codeunit "Get Source Doc. Outbound";
begin
Rec.PerformManualRelease();
CurrPage.PurchLines.PAGE.ClearTotalPurchaseHeader();
GetSourceDocOutbound.CreateFromPurchaseReturnOrder(Rec);
end;
}
action("Create Inventor&y Put-away/Pick")
{
AccessByPermission = TableData "Posted Invt. Pick Header" = R;
ApplicationArea = Warehouse;
Caption = 'Create Inventor&y Put-away/Pick';
Ellipsis = true;
Image = CreateInventoryPickup;
ToolTip = 'Create an inventory put-away or inventory pick to handle items on the document according to a basic warehouse configuration that does not require warehouse receipt or shipment documents.';
trigger OnAction()
begin
Rec.PerformManualRelease();
CurrPage.PurchLines.PAGE.ClearTotalPurchaseHeader();
Rec.CreateInvtPutAwayPick();
end;
}
separator(Action135)
{
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action(Post)
{
ApplicationArea = PurchReturnOrder;
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)");
end;
}
action(Preview)
{
ApplicationArea = PurchReturnOrder;
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()
var
PurchPostYesNo: Codeunit "Purch.-Post (Yes/No)";
begin
PurchPostYesNo.Preview(Rec);
end;
}
action(TestReport)
{
ApplicationArea = PurchReturnOrder;
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(PostAndPrint)
{
ApplicationArea = PurchReturnOrder;
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");
end;
}
action(PostBatch)
{
ApplicationArea = PurchReturnOrder;
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 Purch. Ret. Orders", true, true, Rec);
CurrPage.Update(false);
end;
}
action(RemoveFromJobQueue)
{
ApplicationArea = All;
Caption = 'Remove From Job Queue';
Image = RemoveLine;
ToolTip = 'Remove the scheduled processing of this record from the job queue.';
Visible = JobQueueVisible;
trigger OnAction()
begin
Rec.CancelBackgroundPosting();
end;
}
action(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(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(PostAndPrint_Promoted; PostAndPrint)
{
}
actionref(Preview_Promoted; Preview)
{
}
actionref(PostBatch_Promoted; PostBatch)
{
}
}
group(Category_Category5)
{
Caption = 'Release', Comment = 'Generated from the PromotedActionCategories property index 4.';
ShowAs = SplitButton;
actionref("Re&lease_Promoted"; "Re&lease")
{
}
actionref(Reopen_Promoted; Reopen)
{
}
}
actionref("Create &Warehouse Shipment_Promoted"; "Create &Warehouse Shipment")
{
}
actionref("Apply Entries_Promoted"; "Apply Entries")
{
}
actionref("Archive Document_Promoted"; "Archive Document")
{
}
}
group(Category_Category7)
{
Caption = 'Prepare', Comment = 'Generated from the PromotedActionCategories property index 6.';
actionref(CopyDocument_Promoted; CopyDocument)
{
}
actionref(GetPostedDocumentLinesToReverse_Promoted; GetPostedDocumentLinesToReverse)
{
}
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("Move Negative Lines_Promoted"; "Move Negative Lines")
{
}
}
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(Send_Promoted; Send)
{
}
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 = 'Invoice', Comment = 'Generated from the PromotedActionCategories property index 7.';
}
group(Category_Category11)
{
Caption = 'Return Order', Comment = 'Generated from the PromotedActionCategories property index 10.';
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(Vendor_Promoted; Vendor)
{
}
actionref("Return Shipments_Promoted"; "Return Shipments")
{
}
actionref("Cred&it Memos_Promoted"; "Cred&it Memos")
{
}
}
group(Category_Category12)
{
Caption = 'Navigate', Comment = 'Generated from the PromotedActionCategories property index 11.';
}
group(Category_Report)
{
Caption = 'Report', Comment = 'Generated from the PromotedActionCategories property index 2.';
}
}
}
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
CalculateCurrentShippingOption();
Rec.GetContactDetails(BuyFromContact, PayToContact);
CurrPage.IncomingDocAttachFactBox.Page.SetCurrentRecordID(Rec.RecordId);
OnAfterOnAfterGetRecord(Rec);
end;
trigger OnDeleteRecord(): Boolean
begin
CurrPage.SaveRecord();
exit(Rec.ConfirmDeletion());
end;
trigger OnInit()
begin
JobQueueUsed := PurchSetup.JobQueueActive();
end;
trigger OnNewRecord(BelowxRec: Boolean)
begin
Rec."Responsibility Center" := UserMgt.GetPurchasesFilter();
if (not DocNoVisible) and (Rec."No." = '') then
Rec.SetBuyFromVendorFromFilter();
end;
trigger OnOpenPage()
var
VATReportingDateMgt: Codeunit "VAT Reporting Date Mgt";
begin
SetDocNoVisible();
Rec.SetSecurityFilterOnRespCenter();
if (Rec."No." <> '') and (Rec."Buy-from Vendor No." = '') then
DocumentIsPosted := (not Rec.Get(Rec."Document Type", Rec."No."));
ActivateFields();
CheckShowBackgrValidationNotification();
VATDateEnabled := VATReportingDateMgt.IsVATDateEnabled();
end;
trigger OnQueryClosePage(CloseAction: Action): Boolean
var
ShowConfirmCloseUnposted: Boolean;
begin
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";
MoveNegPurchLines: Report "Move Negative Purchase Lines";
DocPrint: Codeunit "Document-Print";
ReportPrint: Codeunit "Test Report-Print";
UserMgt: Codeunit "User Setup Management";
ArchiveManagement: Codeunit ArchiveManagement;
PurchCalcDiscByType: Codeunit "Purch - Calc Disc. By Type";
FormatAddress: Codeunit "Format Address";
ChangeExchangeRate: Page "Change Exchange Rate";
JobQueueVisible: Boolean;
JobQueueUsed: Boolean;
StatusStyleTxt: Text;
DocNoVisible: Boolean;
OpenApprovalEntriesExist: Boolean;
OpenApprovalEntriesExistForCurrUser: Boolean;
ShowWorkflowStatus: Boolean;
CanCancelApprovalForRecord: Boolean;
DocumentIsPosted: Boolean;
OpenPostedPurchaseReturnOrderQst: Label 'The return order is posted as number %1 and moved to the Posted Purchase Credit Memos window.\\Do you want to open the posted credit memo?', Comment = '%1 = posted document number';
IsBuyFromCountyVisible: Boolean;
IsPayToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
PurchaseDocCheckFactboxVisible: Boolean;
IsJournalTemplNameVisible: Boolean;
IsPaymentMethodCodeVisible: Boolean;
IsPurchaseLinesEditable: Boolean;
VATDateEnabled: Boolean;
HasIncomingDocument: Boolean;
protected var
ShipToOptions: Option "Default (Vendor Address)","Alternate Vendor Address","Custom Address";
IsPostingGroupEditable: Boolean;
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)
begin
PostDocument(PostingCodeunitID);
end;
local procedure PostDocument(PostingCodeunitID: Integer)
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);
PurchaseHeader.SetRange("Document Type", Rec."Document Type");
PurchaseHeader.SetRange("No.", Rec."No.");
DocumentIsPosted := PurchaseHeader.IsEmpty();
DocumentIsScheduledForPosting := Rec."Job Queue Status" = Rec."Job Queue Status"::"Scheduled for Posting";
OnPostDocumentOnAfterCalcDocumentIsScheduledForPosting(Rec, DocumentIsScheduledForPosting, DocumentIsPosted);
if DocumentIsScheduledForPosting then
CurrPage.Close();
CurrPage.Update(false);
IsHandled := false;
OnPostDocumentBeforeNavigateAfterPosting(Rec, PostingCodeunitID, DocumentIsPosted, IsHandled);
if IsHandled then
exit;
if PostingCodeunitID <> CODEUNIT::"Purch.-Post (Yes/No)" then
exit;
if InstructionMgt.IsEnabled(InstructionMgt.ShowPostedConfirmationMessageCode()) then
ShowPostedConfirmationMessage();
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.PurchLines.PAGE.UpdateForm(true);
end;
local procedure ShortcutDimension2CodeOnAfterV()
begin
CurrPage.PurchLines.PAGE.UpdateForm(true);
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::"Return Order", Rec."No.");
end;
local procedure SetControlAppearance()
var
ApprovalsMgmt: Codeunit "Approvals Mgmt.";
DocumentErrorsMgt: Codeunit "Document Errors Mgt.";
begin
JobQueueVisible := Rec."Job Queue Status" = Rec."Job Queue Status"::"Scheduled for Posting";
HasIncomingDocument := Rec."Incoming Document Entry No." <> 0;
OpenApprovalEntriesExistForCurrUser := ApprovalsMgmt.HasOpenApprovalEntriesForCurrentUser(Rec.RecordId());
OpenApprovalEntriesExist := ApprovalsMgmt.HasOpenApprovalEntries(Rec.RecordId());
CanCancelApprovalForRecord := ApprovalsMgmt.CanCancelApprovalForRecord(Rec.RecordId());
PurchaseDocCheckFactboxVisible := DocumentErrorsMgt.BackgroundValidationEnabled();
IsPurchaseLinesEditable := Rec.PurchaseLinesEditable();
SetPostingGroupEditable();
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
ReturnOrderPurchaseHeader: Record "Purchase Header";
PurchCrMemoHdr: Record "Purch. Cr. Memo Hdr.";
InstructionMgt: Codeunit "Instruction Mgt.";
begin
if not ReturnOrderPurchaseHeader.Get(Rec."Document Type", Rec."No.") then begin
PurchCrMemoHdr.SetRange("No.", Rec."Last Posting No.");
if PurchCrMemoHdr.FindFirst() then
if InstructionMgt.ShowConfirm(StrSubstNo(OpenPostedPurchaseReturnOrderQst, PurchCrMemoHdr."No."),
InstructionMgt.ShowPostedConfirmationMessageCode())
then
InstructionMgt.ShowPostedDocument(PurchCrMemoHdr, Page::"Purchase Return Order");
end;
end;
local procedure ValidateShippingOption()
begin
OnBeforeValidateShipToOptions(Rec, ShipToOptions);
case ShipToOptions of
ShipToOptions::"Default (Vendor Address)":
begin
Rec.Validate("Order Address Code", '');
Rec.Validate("Buy-from Vendor No.");
end;
ShipToOptions::"Alternate Vendor Address":
Rec.Validate("Order Address Code", '');
end;
OnAfterValidateShipToOptions(Rec, ShipToOptions);
end;
local procedure CalculateCurrentShippingOption()
begin
case true of
Rec."Order Address Code" <> '':
ShipToOptions := ShipToOptions::"Alternate Vendor Address";
Rec.BuyFromAddressEqualsShipToAddress():
ShipToOptions := ShipToOptions::"Default (Vendor Address)";
else
ShipToOptions := ShipToOptions::"Custom Address";
end;
end;
[IntegrationEvent(true, false)]
local procedure OnAfterOnAfterGetRecord(var 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(true, false)]
local procedure OnPostDocumentBeforeNavigateAfterPosting(var PurchaseHeader: Record "Purchase Header"; var PostingCodeunitID: Integer; DocumentIsPosted: Boolean; var IsHandled: Boolean)
begin
end;
[IntegrationEvent(true, false)]
local procedure OnQueryClosePageOnAfterCalcShowConfirmCloseUnposted(var PurchaseHeader: Record "Purchase Header"; var ShowConfirmCloseUnposted: Boolean)
begin
end;
[IntegrationEvent(false, false)]
local procedure OnPostDocumentOnAfterCalcDocumentIsScheduledForPosting(var PurchaseHeader: Record "Purchase Header"; var DocumentIsScheduledForPosting: Boolean; var DocumentIsPosted: Boolean)
begin
end;
}