Page 5935 Service Credit Memo
- App
- Base Application
- Namespace
- Microsoft.Service.Document
- Versions
- 17-28
- Source table
- 5900
Versions171819202122232425262728
Source29
Source in 29
src/Layers/W1/BaseApp/Service/Document/ServiceCreditMemo.Page.al1160 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.Service.Document;
using Microsoft.CRM.Contact;
using Microsoft.EServices.EDocument;
using Microsoft.Finance.Currency;
using Microsoft.Finance.Dimension;
using Microsoft.Finance.VAT.Calculation;
using Microsoft.Foundation.Address;
using Microsoft.Foundation.Attachment;
using Microsoft.Foundation.Reporting;
using Microsoft.Sales.Customer;
using Microsoft.Sales.Pricing;
using Microsoft.Service.Comment;
using Microsoft.Service.Contract;
using Microsoft.Service.History;
using Microsoft.Service.Posting;
using Microsoft.Service.Setup;
using Microsoft.Utilities;
using System.Security.User;
page 5935 "Service Credit Memo"
{
Caption = 'Service Credit Memo';
PageType = Document;
RefreshOnActivate = true;
SourceTable = "Service Header";
SourceTableView = where("Document Type" = filter("Credit Memo"));
layout
{
area(content)
{
group(General)
{
Caption = 'General';
field("No."; Rec."No.")
{
ApplicationArea = Service;
Visible = DocNoVisible;
trigger OnAssistEdit()
begin
if Rec.AssistEdit(xRec) then
CurrPage.Update();
end;
}
field("Customer No."; Rec."Customer No.")
{
ApplicationArea = Service;
trigger OnValidate()
begin
CustomerNoOnAfterValidate();
end;
}
field("Contact No."; Rec."Contact No.")
{
ApplicationArea = Service;
trigger OnValidate()
begin
if Rec.GetFilter("Contact No.") = xRec."Contact No." then
if Rec."Contact No." <> xRec."Contact No." then
Rec.SetRange("Contact No.");
end;
}
group("Sell-to")
{
Caption = 'Sell-to';
field(Name; Rec.Name)
{
ApplicationArea = Service;
}
field("Name 2"; Rec."Name 2")
{
ApplicationArea = Service;
QuickEntry = false;
Visible = false;
}
field(Address; Rec.Address)
{
ApplicationArea = Service;
QuickEntry = false;
}
field("Address 2"; Rec."Address 2")
{
ApplicationArea = Service;
QuickEntry = false;
}
field(City; Rec.City)
{
ApplicationArea = Service;
QuickEntry = false;
}
group(Control13)
{
ShowCaption = false;
Visible = IsSellToCountyVisible;
field(County; Rec.County)
{
ApplicationArea = Service;
QuickEntry = false;
}
}
field("Post Code"; Rec."Post Code")
{
ApplicationArea = Service;
QuickEntry = false;
}
field("Country/Region Code"; Rec."Country/Region Code")
{
ApplicationArea = Service;
QuickEntry = false;
trigger OnValidate()
begin
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
end;
}
field("Contact Name"; Rec."Contact Name")
{
ApplicationArea = Service;
ToolTip = 'Specifies the name of the contact person who will receive the service.';
}
field(SellToPhoneNo; SellToContact."Phone No.")
{
ApplicationArea = Service;
Caption = 'Phone No.';
Importance = Additional;
Editable = false;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the contact person who will receive the service.';
}
field(SellToMobilePhoneNo; SellToContact."Mobile Phone No.")
{
ApplicationArea = Service;
Caption = 'Mobile Phone No.';
Importance = Additional;
Editable = false;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the contact person who will receive the service.';
}
field(SellToEmail; SellToContact."E-Mail")
{
ApplicationArea = Service;
Caption = 'Email';
Importance = Additional;
Editable = false;
ExtendedDatatype = EMail;
ToolTip = 'Specifies the email address of the contact person who will receive the service.';
}
}
field("Posting Date"; Rec."Posting Date")
{
ApplicationArea = Service;
}
field("VAT Reporting Date"; Rec."VAT Reporting Date")
{
ApplicationArea = VAT;
Editable = VATDateEnabled;
Visible = VATDateEnabled;
}
field("Document Date"; Rec."Document Date")
{
ApplicationArea = Service;
}
field("External Document No."; Rec."External Document No.")
{
ApplicationArea = Service;
Importance = Promoted;
ShowMandatory = ExternalDocNoMandatory;
}
field("Salesperson Code"; Rec."Salesperson Code")
{
ApplicationArea = Service;
trigger OnValidate()
begin
SalespersonCodeOnAfterValidate();
end;
}
field("Responsibility Center"; Rec."Responsibility Center")
{
ApplicationArea = Suite;
trigger OnValidate()
begin
ResponsibilityCenterOnAfterVal();
end;
}
field("Assigned User ID"; Rec."Assigned User ID")
{
ApplicationArea = Service;
}
field("Your Reference"; Rec."Your Reference")
{
ApplicationArea = Service;
ToolTip = 'Specifies the customer''s reference. The content will be printed on the related document.';
}
group("Work Description")
{
Caption = 'Work Description';
field(WorkDescription; WorkDescription)
{
ApplicationArea = Service;
Importance = Additional;
MultiLine = true;
ShowCaption = false;
ToolTip = 'Specifies the products or services being offered.';
trigger OnValidate()
begin
Rec.SetWorkDescription(WorkDescription);
end;
}
}
}
part(ServLines; "Service Credit Memo Subform")
{
ApplicationArea = Service;
Editable = IsServiceLinesEditable;
Enabled = IsServiceLinesEditable;
SubPageLink = "Document No." = field("No.");
}
group(Invoicing)
{
Caption = 'Invoicing';
field("Bill-to Customer No."; Rec."Bill-to Customer No.")
{
ApplicationArea = Service;
trigger OnValidate()
begin
BilltoCustomerNoOnAfterValidat();
end;
}
field("Bill-to Contact No."; Rec."Bill-to Contact No.")
{
ApplicationArea = Service;
}
group("Bill-to")
{
Caption = 'Bill-to';
field("Bill-to Name"; Rec."Bill-to Name")
{
ApplicationArea = Service;
Caption = 'Name';
}
field("Bill-to Name 2"; Rec."Bill-to Name 2")
{
ApplicationArea = Service;
Caption = 'Name 2';
Importance = Additional;
QuickEntry = false;
Visible = false;
}
field("Bill-to Address"; Rec."Bill-to Address")
{
ApplicationArea = Service;
Caption = 'Address';
QuickEntry = false;
ToolTip = 'Specifies the address of the customer to whom you will send the credit memo.';
}
field("Bill-to Address 2"; Rec."Bill-to Address 2")
{
ApplicationArea = Service;
Caption = 'Address 2';
QuickEntry = false;
}
field("Bill-to City"; Rec."Bill-to City")
{
ApplicationArea = Service;
Caption = 'City';
QuickEntry = false;
}
group(Control21)
{
ShowCaption = false;
Visible = IsBillToCountyVisible;
field("Bill-to County"; Rec."Bill-to County")
{
ApplicationArea = Service;
CaptionClass = '5,1,' + Rec."Bill-to Country/Region Code";
QuickEntry = false;
}
}
field("Bill-to Post Code"; Rec."Bill-to Post Code")
{
ApplicationArea = Service;
Caption = 'Post Code';
QuickEntry = false;
}
field("Bill-to Country/Region Code"; Rec."Bill-to Country/Region Code")
{
ApplicationArea = Service;
Caption = 'Country/Region';
QuickEntry = false;
trigger OnValidate()
begin
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
end;
}
field("Bill-to Contact"; Rec."Bill-to Contact")
{
ApplicationArea = Service;
Caption = 'Contact';
}
field(BillToContactPhoneNo; BillToContact."Phone No.")
{
ApplicationArea = Service;
Caption = 'Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the telephone number of the contact person at the customer''s billing address.';
}
field(BillToContactMobilePhoneNo; BillToContact."Mobile Phone No.")
{
ApplicationArea = Service;
Caption = 'Mobile Phone No.';
Editable = false;
Importance = Additional;
ExtendedDatatype = PhoneNo;
ToolTip = 'Specifies the mobile telephone number of the contact person at the customer''s billing address.';
}
field(BillToContactEmail; BillToContact."E-Mail")
{
ApplicationArea = Service;
Caption = 'Email';
Editable = false;
Importance = Additional;
ExtendedDatatype = EMail;
ToolTip = 'Specifies the email address of the contact person at the customer''s billing address.';
}
}
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("Customer Posting Group"; Rec."Customer Posting Group")
{
ApplicationArea = Basic, Suite;
Editable = IsPostingGroupEditable;
Importance = Additional;
}
field("Payment Terms Code"; Rec."Payment Terms Code")
{
ApplicationArea = Service;
}
field("EU 3-Party Trade"; Rec."EU 3-Party Trade")
{
ApplicationArea = Service;
}
field("Payment Method Code"; Rec."Payment Method Code")
{
ApplicationArea = Basic, Suite;
Importance = Additional;
}
field("Currency Code"; Rec."Currency Code")
{
ApplicationArea = Suite;
Importance = Promoted;
trigger OnAssistEdit()
begin
Clear(ChangeExchangeRate);
ChangeExchangeRate.SetParameter(Rec."Currency Code", Rec."Currency Factor", Rec."Posting Date");
if ChangeExchangeRate.RunModal() = ACTION::OK then begin
Rec.Validate("Currency Factor", ChangeExchangeRate.GetParameter());
CurrPage.Update();
end;
Clear(ChangeExchangeRate);
end;
}
field("Company Bank Account Code"; Rec."Company Bank Account Code")
{
ApplicationArea = Suite;
Importance = Promoted;
}
field("Due Date"; Rec."Due Date")
{
ApplicationArea = Service;
ToolTip = 'Specifies when the related invoice must be paid.';
}
field("Payment Discount %"; Rec."Payment Discount %")
{
ApplicationArea = Service;
}
field("Pmt. Discount Date"; Rec."Pmt. Discount Date")
{
ApplicationArea = Service;
}
field("Prices Including VAT"; Rec."Prices Including VAT")
{
ApplicationArea = VAT;
trigger OnValidate()
begin
PricesIncludingVATOnAfterValid();
end;
}
}
group(Shipping)
{
Caption = 'Shipping';
group("Ship-to")
{
Caption = 'Ship-to';
field("Ship-to Name"; Rec."Ship-to Name")
{
ApplicationArea = Service;
Caption = 'Name';
}
field("Ship-to Name 2"; Rec."Ship-to Name 2")
{
ApplicationArea = Service;
Caption = 'Name 2';
Importance = Additional;
Visible = false;
}
field("Ship-to Address"; Rec."Ship-to Address")
{
ApplicationArea = Service;
Caption = 'Address';
QuickEntry = false;
}
field("Ship-to Address 2"; Rec."Ship-to Address 2")
{
ApplicationArea = Service;
Caption = 'Address 2';
QuickEntry = false;
}
field("Ship-to City"; Rec."Ship-to City")
{
ApplicationArea = Service;
Caption = 'City';
QuickEntry = false;
}
group(Control29)
{
ShowCaption = false;
Visible = IsShipToCountyVisible;
field("Ship-to County"; Rec."Ship-to County")
{
ApplicationArea = Service;
CaptionClass = '5,1,' + Rec."Ship-to Country/Region Code";
QuickEntry = false;
}
}
field("Ship-to Post Code"; Rec."Ship-to Post Code")
{
ApplicationArea = Service;
Caption = 'Post Code';
QuickEntry = false;
}
field("Ship-to Country/Region Code"; Rec."Ship-to Country/Region Code")
{
ApplicationArea = Service;
Caption = 'Country/Region';
QuickEntry = false;
trigger OnValidate()
begin
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
end;
}
field("Ship-to Phone"; Rec."Ship-to Phone")
{
ApplicationArea = Service;
Caption = 'Phone No.';
}
field("Ship-to Contact"; Rec."Ship-to Contact")
{
ApplicationArea = Service;
Caption = 'Contact';
}
}
field("Location Code"; Rec."Location Code")
{
ApplicationArea = Location;
}
}
group("Foreign Trade")
{
Caption = 'Foreign Trade';
field("Transaction Type"; Rec."Transaction Type")
{
ApplicationArea = BasicEU;
}
field("Transaction Specification"; Rec."Transaction Specification")
{
ApplicationArea = BasicEU;
}
field("Transport Method"; Rec."Transport Method")
{
ApplicationArea = BasicEU;
}
field("Exit Point"; Rec."Exit Point")
{
ApplicationArea = BasicEU;
}
field("Area"; Rec.Area)
{
ApplicationArea = BasicEU;
}
}
group(Application)
{
Caption = 'Application';
field("Applies-to Doc. Type"; Rec."Applies-to Doc. Type")
{
ApplicationArea = Service;
}
field("Applies-to Doc. No."; Rec."Applies-to Doc. No.")
{
ApplicationArea = Service;
}
field("Applies-to ID"; Rec."Applies-to ID")
{
ApplicationArea = Service;
}
}
}
area(factboxes)
{
part(ServiceDocCheckFactbox; "Service Doc. Check Factbox")
{
ApplicationArea = All;
Caption = 'Document Check';
Visible = ServiceDocCheckFactboxVisible;
SubPageLink = "No." = field("No."),
"Document Type" = field("Document Type");
}
part("Attached Documents List"; "Doc. Attachment List Factbox")
{
ApplicationArea = Service;
Caption = 'Documents';
UpdatePropagation = Both;
SubPageLink = "Table ID" = const(Database::"Service Header"),
"No." = field("No."),
"Document Type" = field("Document Type");
}
part(Control1902018507; "Customer Statistics FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Bill-to Customer No."),
"Date Filter" = field("Date Filter");
Visible = true;
}
part(Control1900316107; "Customer Details FactBox")
{
ApplicationArea = Service;
SubPageLink = "No." = field("Customer No."),
"Date Filter" = field("Date Filter");
Visible = false;
}
part(IncomingDocAttachFactBox; "Incoming Doc. Attach. FactBox")
{
ApplicationArea = Service;
ShowFilter = false;
Visible = false;
}
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = true;
}
}
}
actions
{
area(navigation)
{
group("&Cr. Memo")
{
Caption = '&Cr. Memo';
Image = CreditMemo;
#if not CLEAN27
action(Statistics)
{
ApplicationArea = Service;
Caption = 'Statistics';
Image = Statistics;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.';
ObsoleteState = Pending;
ObsoleteTag = '27.0';
trigger OnAction()
begin
Rec.OpenStatistics();
end;
}
#endif
action(ServiceStatistics)
{
ApplicationArea = Service;
Caption = 'Statistics';
Image = Statistics;
ShortCutKey = 'F7';
ToolTip = 'View statistical information, such as the value of posted entries, for the record.';
#if CLEAN27
Visible = true;
#else
Visible = false;
#endif
RunObject = Page "Service Statistics";
RunPageOnRec = true;
}
action(Card)
{
ApplicationArea = Service;
Caption = 'Card';
Image = EditLines;
RunObject = Page "Customer Card";
RunPageLink = "No." = field("Customer No.");
ShortCutKey = 'Shift+F7';
ToolTip = 'View or change detailed information about the record on the document or journal line.';
}
action("Co&mments")
{
ApplicationArea = Comments;
Caption = 'Co&mments';
Image = ViewComments;
RunObject = Page "Service Comment Sheet";
RunPageLink = "Table Name" = const("Service Header"),
"Table Subtype" = field("Document Type"),
"No." = field("No."),
Type = const(General);
ToolTip = 'View or add comments for the record.';
}
action(Dimensions)
{
AccessByPermission = TableData Dimension = R;
ApplicationArea = Dimensions;
Caption = 'Dimensions';
Enabled = Rec."No." <> '';
Image = Dimensions;
ShortCutKey = 'Alt+D';
ToolTip = 'View or edit dimensions, such as area, project, or department, that you can assign to sales and purchase documents to distribute costs and analyze transaction history.';
trigger OnAction()
begin
Rec.ShowDocDim();
CurrPage.SaveRecord();
end;
}
action(DocAttach)
{
ApplicationArea = Service;
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;
}
action("Service Document Lo&g")
{
ApplicationArea = Service;
Caption = 'Service Document Lo&g';
Image = Log;
ToolTip = 'View a list of the service document changes that have been logged. The program creates entries in the window when, for example, the response time or service order status changed, a resource was allocated, a service order was shipped or invoiced, and so on. Each line in this window identifies the event that occurred to the service document. The line contains the information about the field that was changed, its old and new value, the date and time when the change took place, and the ID of the user who actually made the changes.';
trigger OnAction()
var
TempServDocLog: Record "Service Document Log" temporary;
begin
TempServDocLog.Reset();
TempServDocLog.DeleteAll();
TempServDocLog.CopyServLog(TempServDocLog."Document Type"::"Credit Memo".AsInteger(), Rec."No.");
TempServDocLog.Reset();
TempServDocLog.SetCurrentKey("Change Date", "Change Time");
TempServDocLog.Ascending(false);
PAGE.Run(0, TempServDocLog);
end;
}
}
}
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action("Calculate Invoice Discount")
{
AccessByPermission = TableData "Cust. Invoice Disc." = R;
ApplicationArea = Service;
Caption = 'Calculate &Invoice Discount';
Image = CalculateInvoiceDiscount;
ToolTip = 'Calculate the invoice discount that applies to the service order.';
trigger OnAction()
begin
ApproveCalcInvDisc();
end;
}
action(ApplyEntries)
{
ApplicationArea = Service;
Caption = 'Apply Entries';
Ellipsis = true;
Image = ApplyEntries;
ShortCutKey = 'Shift+F11';
ToolTip = 'Select one or more ledger entries that you want to apply this record to so that the related posted documents are closed as paid or refunded.';
trigger OnAction()
begin
CODEUNIT.Run(CODEUNIT::"Service Header Apply", Rec);
end;
}
action("Get St&d. Service Codes")
{
ApplicationArea = Service;
Caption = 'Get St&d. Service Codes';
Ellipsis = true;
Image = ServiceCode;
ToolTip = 'Insert service order lines that you have set up for recurring services. ';
trigger OnAction()
var
StdServCode: Record "Standard Service Code";
begin
StdServCode.InsertServiceLines(Rec);
end;
}
action("Get Prepaid Contract E&ntries")
{
ApplicationArea = Prepayments;
Caption = 'Get Prepaid Contract E&ntries';
Image = ContractPayment;
ToolTip = 'Enter the prepaid contract ledger entries for a selected service contract as service lines on the credit memo lines.';
trigger OnAction()
var
GetPrepaidContractEntries: Report "Get Prepaid Contract Entries";
begin
Clear(GetPrepaidContractEntries);
GetPrepaidContractEntries.Initialize(Rec);
GetPrepaidContractEntries.RunModal();
CurrPage.Update(false);
end;
}
}
group("P&osting")
{
Caption = 'P&osting';
Image = Post;
action(TestReport)
{
ApplicationArea = Service;
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()
var
ServTestReportPrint: Codeunit "Serv. Test Report Print";
begin
ServTestReportPrint.PrintServiceHeader(Rec);
end;
}
action(Post)
{
ApplicationArea = Service;
Caption = 'P&ost';
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()
var
InstructionMgt: Codeunit "Instruction Mgt.";
PreAssignedNo: Code[20];
xLastPostingNo: Code[20];
begin
PreAssignedNo := Rec."No.";
xLastPostingNo := Rec."Last Posting No.";
DocumentIsPosted := Rec.SendToPost(Codeunit::"Service-Post (Yes/No)");
if InstructionMgt.IsEnabled(InstructionMgt.ShowPostedConfirmationMessageCode()) then
ShowPostedConfirmationMessage(PreAssignedNo, xLastPostingNo);
end;
}
action(Preview)
{
ApplicationArea = Service;
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
ServiceHeader: Record "Service Header";
ServPostYesNo: Codeunit "Service-Post (Yes/No)";
begin
ServPostYesNo.PreviewDocument(Rec);
DocumentIsPosted := not ServiceHeader.Get(Rec."Document Type", Rec."No.");
end;
}
action(PostAndSend)
{
ApplicationArea = Service;
Caption = 'Post and &Send';
Ellipsis = true;
Image = PostSendTo;
ToolTip = 'Finalize and prepare to send the document according to the customer''s sending profile, such as attached to an email. The Send document to window opens first so you can confirm or select a sending profile.';
trigger OnAction()
begin
DocumentIsPosted := Rec.SendToPost(Codeunit::"Service-Post and Send");
end;
}
action("Post and &Print")
{
ApplicationArea = Service;
Caption = 'Post and &Print';
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
DocumentIsPosted := Rec.SendToPost(Codeunit::"Service-Post+Print");
end;
}
action("Post &Batch")
{
ApplicationArea = Service;
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 Service Cr. Memos", true, true, Rec);
CurrPage.Update(false);
end;
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
group(Category_Posting)
{
Caption = 'Posting';
ShowAs = SplitButton;
actionref(Post_Promoted; Post)
{
}
actionref(PostAndSend_Promoted; PostAndSend)
{
}
actionref("Post and &Print_Promoted"; "Post and &Print")
{
}
actionref(Preview_Promoted; Preview)
{
}
actionref("Post &Batch_Promoted"; "Post &Batch")
{
}
}
actionref(ApplyEntries_Promoted; ApplyEntries)
{
}
}
group("Category_Credit Memo")
{
Caption = 'Credit Memo';
actionref(Dimensions_Promoted; Dimensions)
{
}
#if not CLEAN27
actionref(Statistics_Promoted; Statistics)
{
ObsoleteReason = 'The statistics action will be replaced with the ServiceStatistics action. The new action uses RunObject and does not run the action trigger. Use a page extension to modify the behaviour.';
ObsoleteState = Pending;
ObsoleteTag = '27.0';
}
#else
actionref(ServiceStatistics_Promoted; ServiceStatistics)
{
}
#endif
actionref("Co&mments_Promoted"; "Co&mments")
{
}
actionref(DocAttach_Promoted; DocAttach)
{
}
actionref("Service Document Lo&g_Promoted"; "Service Document Lo&g")
{
}
}
group(Category_Prepare)
{
Caption = 'Prepare';
actionref("Get Prepaid Contract E&ntries_Promoted"; "Get Prepaid Contract E&ntries")
{
}
actionref("Get St&d. Service Codes_Promoted"; "Get St&d. Service Codes")
{
}
actionref("Calculate Invoice Discount_Promoted"; "Calculate Invoice Discount")
{
}
}
}
}
trigger OnAfterGetCurrRecord()
begin
SetControlAppearance();
CurrPage.IncomingDocAttachFactBox.PAGE.LoadDataFromRecord(Rec);
end;
trigger OnDeleteRecord(): Boolean
var
ServLogManagement: Codeunit ServLogManagement;
begin
CurrPage.SaveRecord();
Clear(ServLogManagement);
ServLogManagement.ServHeaderManualDelete(Rec);
exit(Rec.ConfirmDeletion());
end;
trigger OnFindRecord(Which: Text): Boolean
begin
if Rec.Find(Which) then
exit(true);
Rec.SetRange("No.");
exit(Rec.Find(Which));
end;
trigger OnNewRecord(BelowxRec: Boolean)
var
UserSetupManagement: Codeunit "User Setup Management";
begin
Rec."Responsibility Center" := UserSetupManagement.GetServiceFilter();
if (not DocNoVisible) and (Rec."No." = '') then
Rec.SetCustomerFromFilter();
end;
trigger OnAfterGetRecord()
begin
WorkDescription := Rec.GetWorkDescription();
SellToContact.GetOrClear(Rec."Contact No.");
BillToContact.GetOrClear(Rec."Bill-to Contact No.");
OnAfterOnAfterGetRecord(Rec);
end;
trigger OnOpenPage()
var
VATReportingDateMgt: Codeunit "VAT Reporting Date Mgt";
begin
Rec.SetSecurityFilterOnRespCenter();
if (Rec."No." <> '') and (Rec."Customer No." = '') then
DocumentIsPosted := (not Rec.Get(Rec."Document Type", Rec."No."));
ActivateFields();
SetDocNoVisible();
CheckShowBackgrValidationNotification();
VATDateEnabled := VATReportingDateMgt.IsVATDateEnabled();
end;
trigger OnQueryClosePage(CloseAction: Action): Boolean
begin
if not DocumentIsPosted then
exit(Rec.ConfirmCloseUnposted());
end;
var
SellToContact: Record Contact;
BillToContact: Record Contact;
ServiceMgtSetup: Record "Service Mgt. Setup";
DocumentErrorsMgt: Codeunit "Document Errors Mgt.";
FormatAddress: Codeunit "Format Address";
ChangeExchangeRate: Page "Change Exchange Rate";
WorkDescription: Text;
DocumentIsPosted: Boolean;
OpenPostedServiceCrMemoQst: Label 'The credit memo is posted as number %1 and moved to the Posted Service Credit Memos window.\\Do you want to open the posted credit memo?', Comment = '%1 = posted document number';
IsBillToCountyVisible: Boolean;
IsSellToCountyVisible: Boolean;
IsShipToCountyVisible: Boolean;
ServiceDocCheckFactboxVisible: Boolean;
IsServiceLinesEditable: Boolean;
ExternalDocNoMandatory: Boolean;
VATDateEnabled: Boolean;
DocNoVisible: Boolean;
protected var
IsPostingGroupEditable: Boolean;
local procedure ActivateFields()
begin
IsSellToCountyVisible := FormatAddress.UseCounty(Rec."Country/Region Code");
IsBillToCountyVisible := FormatAddress.UseCounty(Rec."Bill-to Country/Region Code");
IsShipToCountyVisible := FormatAddress.UseCounty(Rec."Ship-to Country/Region Code");
ServiceDocCheckFactboxVisible := DocumentErrorsMgt.BackgroundValidationEnabled();
IsServiceLinesEditable := Rec.ServiceLinesEditable();
SetExtDocNoMandatoryCondition();
end;
local procedure SetDocNoVisible()
var
ServDocumentNoVisibility: Codeunit "Serv. Document No. Visibility";
DocType: Option Quote,"Order",Invoice,"Credit Memo",Contract;
begin
DocNoVisible := ServDocumentNoVisibility.ServiceDocumentNoIsVisible(DocType::"Credit Memo", Rec."No.");
end;
local procedure SetControlAppearance()
begin
IsServiceLinesEditable := Rec.ServiceLinesEditable();
SetPostingGroupEditable();
end;
local procedure SetExtDocNoMandatoryCondition()
begin
ServiceMgtSetup.GetRecordOnce();
ExternalDocNoMandatory := ServiceMgtSetup."Ext. Doc. No. Mandatory";
end;
procedure RunBackgroundCheck()
begin
CurrPage.ServiceDocCheckFactbox.Page.CheckErrorsInBackground(Rec);
end;
local procedure CheckShowBackgrValidationNotification()
begin
if DocumentErrorsMgt.CheckShowEnableBackgrValidationNotification() then
ActivateFields();
end;
procedure SetPostingGroupEditable()
var
BillToCustomer: Record Customer;
begin
if BillToCustomer.Get(Rec."Bill-to Customer No.") then
IsPostingGroupEditable := BillToCustomer."Allow Multiple Posting Groups";
end;
local procedure ApproveCalcInvDisc()
begin
CurrPage.ServLines.PAGE.ApproveCalcInvDisc();
end;
local procedure CustomerNoOnAfterValidate()
begin
if Rec.GetFilter("Customer No.") = xRec."Customer No." then
if Rec."Customer No." <> xRec."Customer No." then
Rec.SetRange("Customer No.");
IsServiceLinesEditable := Rec.ServiceLinesEditable();
CurrPage.Update();
end;
local procedure SalespersonCodeOnAfterValidate()
begin
CurrPage.ServLines.PAGE.UpdateForm(true);
end;
local procedure ResponsibilityCenterOnAfterVal()
begin
CurrPage.ServLines.PAGE.UpdateForm(true);
end;
local procedure BilltoCustomerNoOnAfterValidat()
begin
CurrPage.Update();
end;
local procedure ShortcutDimension1CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure ShortcutDimension2CodeOnAfterV()
begin
CurrPage.Update();
end;
local procedure PricesIncludingVATOnAfterValid()
begin
CurrPage.Update();
end;
local procedure ShowPostedConfirmationMessage(PreAssignedNo: Code[20]; xLastPostingNo: Code[20])
var
ServiceCrMemoHeader: Record "Service Cr.Memo Header";
InstructionMgt: Codeunit "Instruction Mgt.";
begin
if (Rec."Last Posting No." <> '') and (Rec."Last Posting No." <> xLastPostingNo) then
ServiceCrMemoHeader.SetRange("No.", Rec."Last Posting No.")
else begin
ServiceCrMemoHeader.SetCurrentKey("Pre-Assigned No.");
ServiceCrMemoHeader.SetRange("Pre-Assigned No.", PreAssignedNo);
end;
if ServiceCrMemoHeader.FindFirst() then
if InstructionMgt.ShowConfirm(StrSubstNo(OpenPostedServiceCrMemoQst, ServiceCrMemoHeader."No."),
InstructionMgt.ShowPostedConfirmationMessageCode())
then
InstructionMgt.ShowPostedDocument(ServiceCrMemoHeader, Page::"Service Credit Memo");
end;
[IntegrationEvent(true, false)]
local procedure OnAfterOnAfterGetRecord(var ServiceHeader: Record "Service Header")
begin
end;
}