Page 7121 Purchase Analysis Lines, source in 29
Source29
src/Layers/W1/BaseApp/Purchases/Analysis/PurchaseAnalysisLines.Page.al360 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.Analysis;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.Foundation.Enums;
using Microsoft.Inventory.Analysis;
page 7121 "Purchase Analysis Lines"
{
AutoSplitKey = true;
Caption = 'Purchase Analysis Lines';
DelayedInsert = true;
MultipleNewLines = true;
PageType = Worksheet;
SourceTable = "Analysis Line";
layout
{
area(content)
{
field(CurrentAnalysisLineTempl; CurrentAnalysisLineTempl)
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Name';
Lookup = true;
ToolTip = 'Specifies the name of the record.';
trigger OnLookup(var Text: Text): Boolean
begin
CurrPage.SaveRecord();
AnalysisReportMgt.LookupAnalysisLineTemplName(CurrentAnalysisLineTempl, Rec);
CurrPage.Update(false);
end;
trigger OnValidate()
begin
AnalysisReportMgt.CheckAnalysisLineTemplName(CurrentAnalysisLineTempl, Rec);
CurrentAnalysisLineTemplOnAfte();
end;
}
repeater(Control1)
{
IndentationColumn = DescriptionIndent;
IndentationControls = Description;
ShowCaption = false;
field("Row Ref. No."; Rec."Row Ref. No.")
{
ApplicationArea = PurchaseAnalysis;
StyleExpr = 'Strong';
ToolTip = 'Specifies a row reference number for the analysis line.';
trigger OnValidate()
begin
RowRefNoOnAfterValidate();
end;
}
field(Description; Rec.Description)
{
ApplicationArea = PurchaseAnalysis;
StyleExpr = 'Strong';
ToolTip = 'Specifies a description for the analysis line.';
}
field(Type; Rec.Type)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies the type of totaling for the analysis line. The type determines which items within the totaling range that you specify in the Range field will be totaled.';
trigger OnValidate()
begin
if Rec.Type in [Rec.Type::Customer, Rec.Type::"Customer Group"] then
Rec.FieldError(Type);
end;
}
field(Range; Rec.Range)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies the number or formula of the type to use to calculate the total for this line.';
trigger OnLookup(var Text: Text): Boolean
begin
exit(Rec.LookupTotalingRange(Text));
end;
}
field("Dimension 1 Totaling"; Rec."Dimension 1 Totaling")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies which dimension value amounts will be totaled on this line.';
trigger OnLookup(var Text: Text): Boolean
begin
exit(Rec.LookupDimTotalingRange(Text, ItemAnalysisView."Dimension 1 Code"));
end;
}
field("Dimension 2 Totaling"; Rec."Dimension 2 Totaling")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies which dimension value amounts will be totaled on this line. If the type on the line is Formula, this field must be blank. Also, if you do not want the amounts on the line to be filtered by dimensions, this field must be blank.';
trigger OnLookup(var Text: Text): Boolean
begin
exit(Rec.LookupDimTotalingRange(Text, ItemAnalysisView."Dimension 2 Code"));
end;
}
field("Dimension 3 Totaling"; Rec."Dimension 3 Totaling")
{
ApplicationArea = Dimensions;
ToolTip = 'Specifies which dimension value amounts will be totaled on this line. If the type on the line is Formula, this field must be blank. Also, if you do not want the amounts on the line to be filtered by dimensions, this field must be blank.';
trigger OnLookup(var Text: Text): Boolean
begin
exit(Rec.LookupDimTotalingRange(Text, ItemAnalysisView."Dimension 3 Code"));
end;
}
field("New Page"; Rec."New Page")
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies if you want a page break after the current line when you print the analysis report.';
}
field(Show; Rec.Show)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies whether you want the analysis line to be included when you print the report.';
}
field(Bold; Rec.Bold)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies if you want the amounts on this line to be printed in bold.';
}
field(Indentation; Rec.Indentation)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies the indentation of the line.';
Visible = false;
}
field(Italic; Rec.Italic)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies if you want the amounts in this line to be printed in italics.';
}
field(Underline; Rec.Underline)
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies if you want the amounts in this line to be underlined when printed.';
}
field("Show Opposite Sign"; Rec."Show Opposite Sign")
{
ApplicationArea = PurchaseAnalysis;
ToolTip = 'Specifies if you want sales and negative adjustments to be shown as positive amounts and purchases and positive adjustments to be shown as negative amounts.';
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(processing)
{
group("F&unctions")
{
Caption = 'F&unctions';
Image = "Action";
action("Insert &Items")
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Insert &Items';
Ellipsis = true;
Image = Item;
ToolTip = 'Insert one or more items that you want to include in the purchase analysis report.';
trigger OnAction()
begin
InsertLine("Analysis Line Type"::Item);
end;
}
action("Insert &Vendors")
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Insert &Vendors';
Ellipsis = true;
Image = Vendor;
ToolTip = 'Insert one or more vendors that you want to include in the purchase analysis report.';
trigger OnAction()
begin
InsertLine("Analysis Line Type"::Vendor);
end;
}
separator(Action36)
{
}
action("Insert Ite&m Groups")
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Insert Ite&m Groups';
Ellipsis = true;
Image = ItemGroup;
ToolTip = 'Insert one or more item groups that you want to include in the purchase analysis report.';
trigger OnAction()
begin
InsertLine("Analysis Line Type"::"Item Group");
end;
}
action("Insert &Sales/Purchase Persons")
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Add &Salespeople/Purchasers';
Ellipsis = true;
Image = SalesPurchaseTeam;
ToolTip = 'Add one or more salespeople of purchasers that you want to include in the purchase analysis report.';
trigger OnAction()
begin
InsertLine("Analysis Line Type"::"Sales/Purchase Person");
end;
}
separator(Action48)
{
}
action("Renumber Lines")
{
ApplicationArea = PurchaseAnalysis;
Caption = 'Renumber Lines';
Image = Refresh;
ToolTip = 'Renumber lines in the analysis report sequentially from a number that you specify.';
trigger OnAction()
var
AnalysisLine: Record "Analysis Line";
RenAnalysisLines: Report "Renumber Analysis Lines";
begin
CurrPage.SetSelectionFilter(AnalysisLine);
RenAnalysisLines.Init(AnalysisLine);
RenAnalysisLines.RunModal();
end;
}
}
}
}
trigger OnAfterGetRecord()
begin
DescriptionIndent := 0;
DescriptionOnFormat();
end;
trigger OnOpenPage()
var
GLSetup: Record "General Ledger Setup";
AnalysisLineTemplate: Record "Analysis Line Template";
begin
AnalysisReportMgt.OpenAnalysisLines(CurrentAnalysisLineTempl, Rec);
GLSetup.Get();
if AnalysisLineTemplate.Get(Rec.GetRangeMax("Analysis Area"), CurrentAnalysisLineTempl) then
if AnalysisLineTemplate."Item Analysis View Code" <> '' then
ItemAnalysisView.Get(Rec.GetRangeMax("Analysis Area"), AnalysisLineTemplate."Item Analysis View Code")
else begin
Clear(ItemAnalysisView);
ItemAnalysisView."Dimension 1 Code" := GLSetup."Global Dimension 1 Code";
ItemAnalysisView."Dimension 2 Code" := GLSetup."Global Dimension 2 Code";
end;
end;
var
ItemAnalysisView: Record "Item Analysis View";
AnalysisReportMgt: Codeunit "Analysis Report Management";
CurrentAnalysisLineTempl: Code[10];
DescriptionIndent: Integer;
protected procedure InsertLine(Type: Enum "Analysis Line Type")
var
AnalysisLine: Record "Analysis Line";
begin
CurrPage.Update(true);
AnalysisLine.Copy(Rec);
if Rec."Line No." = 0 then begin
AnalysisLine := xRec;
if AnalysisLine.Next() = 0 then
AnalysisLine."Line No." := xRec."Line No." + 10000;
end;
InsertAnalysisLines(AnalysisLine, Type);
end;
local procedure InsertAnalysisLines(var AnalysisLine: Record "Analysis Line"; Type: Enum "Analysis Line Type")
var
InsertAnalysisLine: Codeunit "Insert Analysis Line";
IsHandled: Boolean;
begin
IsHandled := false;
OnBeforeInsertAnalysisLine(AnalysisLine, Type, IsHandled);
if IsHandled then
exit;
case Type of
Type::Item:
InsertAnalysisLine.InsertItems(AnalysisLine);
Type::Customer:
InsertAnalysisLine.InsertCust(AnalysisLine);
Type::Vendor:
InsertAnalysisLine.InsertVend(AnalysisLine);
Type::"Item Group":
InsertAnalysisLine.InsertItemGrDim(AnalysisLine);
Type::"Customer Group":
InsertAnalysisLine.InsertCustGrDim(AnalysisLine);
Type::"Sales/Purchase Person":
InsertAnalysisLine.InsertSalespersonPurchaser(AnalysisLine);
end;
end;
procedure SetCurrentAnalysisLineTempl(AnalysisLineTemlName: Code[10])
begin
CurrentAnalysisLineTempl := AnalysisLineTemlName;
end;
local procedure RowRefNoOnAfterValidate()
begin
CurrPage.Update();
end;
local procedure CurrentAnalysisLineTemplOnAfte()
var
ItemSchedName: Record "Analysis Line Template";
begin
CurrPage.SaveRecord();
AnalysisReportMgt.SetAnalysisLineTemplName(CurrentAnalysisLineTempl, Rec);
if ItemSchedName.Get(Rec.GetRangeMax("Analysis Area"), CurrentAnalysisLineTempl) then
CurrPage.Update(false);
end;
local procedure DescriptionOnFormat()
begin
DescriptionIndent := Rec.Indentation;
end;
[IntegrationEvent(false, false)]
local procedure OnBeforeInsertAnalysisLine(var AnalysisLine: Record "Analysis Line"; Type: Enum "Analysis Line Type"; var IsHandled: Boolean)
begin
end;
}