Page 5619 FA Depreciation Books, source in 29
Source29
src/Layers/W1/BaseApp/FixedAssets/Depreciation/FADepreciationBooks.Page.al369 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.FixedAssets.Depreciation;
using Microsoft.Finance.Currency;
using Microsoft.Finance.GeneralLedger.Setup;
using Microsoft.FixedAssets.FixedAsset;
using Microsoft.FixedAssets.Ledger;
using Microsoft.FixedAssets.Maintenance;
using Microsoft.FixedAssets.Posting;
using Microsoft.FixedAssets.Setup;
page 5619 "FA Depreciation Books"
{
Caption = 'FA Depreciation Books';
DataCaptionFields = "FA No.", "Depreciation Book Code";
PageType = List;
RefreshOnActivate = true;
SourceTable = "FA Depreciation Book";
AnalysisModeEnabled = true;
AboutTitle = 'About FA Depreciation Books';
AboutText = 'The **FA Depreciation Books** help us to maintain multiple depreciation books for a fixed asset with different Depreciation percentages.';
UsageCategory = Lists;
ApplicationArea = FixedAssets;
layout
{
area(content)
{
repeater(Control1)
{
ShowCaption = false;
field("FA No."; Rec."FA No.")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the number of the related fixed asset. ';
}
field("Depreciation Book Code"; Rec."Depreciation Book Code")
{
ApplicationArea = FixedAssets;
AboutTitle = 'FA Depreciation Books configuration';
AboutText = 'Specify the details to update the different depreciation books with different depreciation methods, and percentages for a fixed asset.';
}
field(AddCurrCode; GetACYCode())
{
ApplicationArea = Suite;
Caption = 'FA Add.-Currency Code';
ToolTip = 'Specifies the exchange rate to be used if you post in an additional currency.';
Visible = false;
trigger OnAssistEdit()
begin
ChangeExchangeRate.SetParameterFA(Rec."FA Add.-Currency Factor", GetACYCode(), WorkDate());
if ChangeExchangeRate.RunModal() = ACTION::OK then
Rec."FA Add.-Currency Factor" := ChangeExchangeRate.GetParameter();
Clear(ChangeExchangeRate);
end;
}
field("FA Posting Group"; Rec."FA Posting Group")
{
ApplicationArea = FixedAssets;
}
field("Depreciation Method"; Rec."Depreciation Method")
{
ApplicationArea = FixedAssets;
}
field("No. of Depreciation Years"; Rec."No. of Depreciation Years")
{
ApplicationArea = FixedAssets;
}
field("Depreciation Starting Date"; Rec."Depreciation Starting Date")
{
ApplicationArea = FixedAssets;
}
field("No. of Depreciation Months"; Rec."No. of Depreciation Months")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Depreciation Ending Date"; Rec."Depreciation Ending Date")
{
ApplicationArea = FixedAssets;
}
field("Straight-Line %"; Rec."Straight-Line %")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Fixed Depr. Amount"; Rec."Fixed Depr. Amount")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Declining-Balance %"; Rec."Declining-Balance %")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("First User-Defined Depr. Date"; Rec."First User-Defined Depr. Date")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Depreciation Table Code"; Rec."Depreciation Table Code")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Final Rounding Amount"; Rec."Final Rounding Amount")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Ending Book Value"; Rec."Ending Book Value")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Ignore Def. Ending Book Value"; Rec."Ignore Def. Ending Book Value")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("FA Exchange Rate"; Rec."FA Exchange Rate")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Use FA Ledger Check"; Rec."Use FA Ledger Check")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Depr. below Zero %"; Rec."Depr. below Zero %")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Fixed Depr. Amount below Zero"; Rec."Fixed Depr. Amount below Zero")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Projected Disposal Date"; Rec."Projected Disposal Date")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Projected Proceeds on Disposal"; Rec."Projected Proceeds on Disposal")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Depr. Starting Date (Custom 1)"; Rec."Depr. Starting Date (Custom 1)")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the starting date for depreciation of custom 1 entries.';
Visible = false;
}
field("Depr. Ending Date (Custom 1)"; Rec."Depr. Ending Date (Custom 1)")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the ending date for depreciation of custom 1 entries.';
Visible = false;
}
field("Accum. Depr. % (Custom 1)"; Rec."Accum. Depr. % (Custom 1)")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the total percentage for depreciation of custom 1 entries.';
Visible = false;
}
field("Depr. This Year % (Custom 1)"; Rec."Depr. This Year % (Custom 1)")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the percentage for depreciation of custom 1 entries for the current year.';
Visible = false;
}
field("Property Class (Custom 1)"; Rec."Property Class (Custom 1)")
{
ApplicationArea = FixedAssets;
ToolTip = 'Specifies the property class of the asset.';
Visible = false;
}
field("Use Half-Year Convention"; Rec."Use Half-Year Convention")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Use DB% First Fiscal Year"; Rec."Use DB% First Fiscal Year")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Temp. Ending Date"; Rec."Temp. Ending Date")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Temp. Fixed Depr. Amount"; Rec."Temp. Fixed Depr. Amount")
{
ApplicationArea = FixedAssets;
Visible = false;
}
field("Default FA Depreciation Book"; Rec."Default FA Depreciation Book")
{
ApplicationArea = FixedAssets;
}
field("Use Bonus Depreciation"; Rec."Use Bonus Depreciation")
{
ApplicationArea = FixedAssets;
Visible = BonusDepreciationControlsVisible;
}
field("Bonus Depreciation %"; Rec."Bonus Depreciation %")
{
ApplicationArea = FixedAssets;
Visible = BonusDepreciationControlsVisible;
}
field("Acquisition Cost"; Rec."Acquisition Cost")
{
ApplicationArea = FixedAssets;
Visible = BonusDepreciationControlsVisible;
}
field("Bonus Depreciation Applied Amount"; Rec."Bonus Depr. Applied Amount")
{
ApplicationArea = FixedAssets;
Visible = BonusDepreciationControlsVisible;
}
field(Depreciation; Rec.Depreciation)
{
Caption = 'Accumulated Depreciation';
ApplicationArea = FixedAssets;
Visible = BonusDepreciationControlsVisible;
}
}
}
area(factboxes)
{
systempart(Control1900383207; Links)
{
ApplicationArea = RecordLinks;
Visible = false;
}
systempart(Control1905767507; Notes)
{
ApplicationArea = Notes;
Visible = false;
}
}
}
actions
{
area(navigation)
{
group("&Depr. Book")
{
Caption = '&Depr. Book';
action("Ledger E&ntries")
{
ApplicationArea = FixedAssets;
Caption = 'Ledger E&ntries';
Image = FixedAssetLedger;
RunObject = Page "FA Ledger Entries";
RunPageLink = "FA No." = field("FA No."),
"Depreciation Book Code" = field("Depreciation Book Code");
RunPageView = sorting("FA No.", "Depreciation Book Code");
ShortCutKey = 'Ctrl+F7';
ToolTip = 'View the history of transactions that have been posted for the selected record.';
}
action("Error Ledger Entries")
{
ApplicationArea = FixedAssets;
Caption = 'Error Ledger Entries';
Image = ErrorFALedgerEntries;
RunObject = Page "FA Error Ledger Entries";
RunPageLink = "Canceled from FA No." = field("FA No."),
"Depreciation Book Code" = field("Depreciation Book Code");
RunPageView = sorting("Canceled from FA No.", "Depreciation Book Code");
ToolTip = 'View the entries that have been posted as a result of you using the Cancel function to cancel an entry.';
}
action("Maintenance Ledger Entries")
{
ApplicationArea = FixedAssets;
Caption = 'Maintenance Ledger Entries';
Image = MaintenanceLedgerEntries;
RunObject = Page "Maintenance Ledger Entries";
RunPageLink = "FA No." = field("FA No."),
"Depreciation Book Code" = field("Depreciation Book Code");
RunPageView = sorting("FA No.", "Depreciation Book Code");
ToolTip = 'View the maintenance ledger entries for the selected fixed asset.';
}
separator(Action65)
{
}
action(Statistics)
{
ApplicationArea = FixedAssets;
Caption = 'Statistics';
Image = Statistics;
RunObject = Page "Fixed Asset Statistics";
RunPageLink = "FA No." = field("FA No."),
"Depreciation Book Code" = field("Depreciation Book Code");
ShortCutKey = 'F7';
ToolTip = 'View detailed historical information about the fixed asset.';
}
action("Main &Asset Statistics")
{
ApplicationArea = FixedAssets;
Caption = 'Main &Asset Statistics';
Image = StatisticsDocument;
RunObject = Page "Main Asset Statistics";
RunPageLink = "FA No." = field("FA No."),
"Depreciation Book Code" = field("Depreciation Book Code");
ToolTip = 'View statistics for all the components that make up the main asset for the selected book. The left side of the General FastTab displays the main asset''s book value, depreciable basis and any maintenance expenses posted to the components that comprise the main asset. The right side shows the number of components for the main asset, the first date on which an acquisition and/or disposal entry was posted to one of the assets that comprise the main asset.';
}
action("FA Posting Types Overview")
{
ApplicationArea = FixedAssets;
Caption = 'FA Posting Types Overview';
Image = ShowMatrix;
RunObject = Page "FA Posting Types Overview";
ToolTip = 'View accumulated amounts for each field, such as book value, acquisition cost, and depreciation, and for each fixed asset. For every fixed asset, a separate line is shown for each depreciation book linked to the fixed asset.';
}
}
}
area(Promoted)
{
group(Category_Process)
{
Caption = 'Process';
actionref(Statistics_Promoted; Statistics)
{
}
}
}
}
trigger OnOpenPage()
begin
SetControlVisibility()
end;
var
GLSetup: Record "General Ledger Setup";
ChangeExchangeRate: Page "Change Exchange Rate";
AddCurrCodeIsFound: Boolean;
BonusDepreciationControlsVisible: Boolean;
local procedure SetControlVisibility()
var
FASetup: Record "FA Setup";
begin
if FASetup.Get() then
BonusDepreciationControlsVisible := FASetup.BonusDepreciationCorrectlySetup();
end;
local procedure GetACYCode(): Code[10]
begin
if not AddCurrCodeIsFound then
GLSetup.Get();
exit(GLSetup."Additional Reporting Currency");
end;
}