Fixed Asset Book Value

(0) Share

Report

Posted on by LearnBC

240

Hello All,

am trying to bring some fields into the "FA Ledger Entries List page" all of the values are coming correct except the Book value (which is coming from the table of

"FA Depreciation Book"

the field field Book values is coming the 0 Values. pls let me know the issues in this.

pageextension 60027 "Fixed Asset Leg Entries" extends "FA Ledger Entries"
{
    layout
    {
        addafter("FA No.")
        {
            field("FA Class Code"; Rec."FA Class Code")
            {
                ApplicationArea = All;
                Width = 12;
            }
            field("Depreciation Starting Date"; Rec."Depreciation Starting Date")
            {
                ApplicationArea = All;
                Caption = 'Deprec Start Dt';
            }
            field("Depreciation Ending Date"; Rec."Depreciation Ending Date")
            {
                ApplicationArea = All;
                Caption = 'Deprec End Dt';
            }
            field("Depr. % this year (Custom 1)"; Rec."Depr. % this year (Custom 1)")
            {
                ApplicationArea = All;
                Visible = false;
            }
            field(Bookvalues; Bookvalues)
            {
                ApplicationArea = all;
                Caption = 'Curr Book Value';
            }
        }
        addafter("Document Type")
        {
            field("Document Date"; Rec."Document Date")
            {
                ApplicationArea = All;
                Width = 12;
            }
        }
        moveafter("FA Posting Date"; "Posting Date")
        modify("Posting Date")
        {
            Visible = false;
        }
        moveafter("FA Class Code"; Description)
        modify("Document No.")
        {
            Width = 16;
        }
    }

    trigger OnAfterGetRecord();
    var
        FixedAsset: Record "FA Depreciation Book";
    begin
        FixedAsset.Reset();
        FixedAsset.SetRange("Book Value", Bookvalues);
        Bookvalues := FixedAsset."Book Value";
    end;

    var
        Bookvalues: Decimal;

}

I have the same question (0)

All responses (9)

Answers (0)

Sort by

Suggested answer

Javier.Armesto 14 User Group Leader on at

Like (0)

Report
Copy link

Link copied!

If it is a calculated field you will have to perform Calcfields on the field.

If the answer has helped you mark as verified and thus we help other users who have the same problem

Was this reply helpful? Yes No
Suggested answer

IB-29041624-0 1,177 Moderator on at

Like (0)

Report
Copy link

Link copied!

In your OnAfterGetRecord trigger please add

FixedAsset.Calcfields("Book Value");

And your setrange will fail if you have more than one FA with the same book value. So i would modify that to get the FA for the current record instead.

So you can probably change all your code to only these two lines in the trigger

CurrRec.calcfield("Book Value");

BookValues := CurrRec."Book Value";

Was this reply helpful? Yes No
Suggested answer

divyeshchitte 970 on at

Like (0)

Report
Copy link

Link copied!

Kindly Add

Calcfield("Book value") on trigger onaftergetrec as this is flowfield

Was this reply helpful? Yes No
LearnBC 240 on at

Like (0)

Report
Copy link

Link copied!
still am not getting the value. is there any wrong on this

pageextension 60027 "Fixed Asset Leg Entries" extends "FA Ledger Entries" { layout { addafter("FA No.") { field("FA Class Code"; Rec."FA Class Code") { ApplicationArea = All; Width = 12; } field("Depreciation Starting Date"; Rec."Depreciation Starting Date") { ApplicationArea = All; Caption = 'Deprec Start Dt'; } field("Depreciation Ending Date"; Rec."Depreciation Ending Date") { ApplicationArea = All; Caption = 'Deprec End Dt'; } field("Depr. % this year (Custom 1)"; Rec."Depr. % this year (Custom 1)") { ApplicationArea = All; Visible = false; } field(Bookvalues; Bookvalues) { ApplicationArea = all; Caption = 'Curr Book Value'; } } addafter("Document Type") { field("Document Date"; Rec."Document Date") { ApplicationArea = All; Width = 12; } } moveafter("FA Posting Date"; "Posting Date") modify("Posting Date") { Visible = false; } moveafter("FA Class Code"; Description) modify("Document No.") { Width = 16; } } trigger OnAfterGetRecord(); var FixedAsset: Record "FA Depreciation Book"; begin FixedAsset.Reset(); //FixedAsset.SetRange("Book Value", Bookvalues); //Bookvalues := FixedAsset."Book Value"; FixedAsset.CalcFields("Book Value"); BookValues := FixedAsset."Book Value"; end; var Bookvalues: Decimal; }

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,812 Moderator on at

Like (0)

Report
Copy link

Link copied!

Hi,

Please change the below code

trigger OnAfterGetRecord()

var

FADeprBook: Record "FA Depreciation Book";

begin

FADeprBook.Reset();

FADeprBook.SetRange("FA No.", rec."FA No.");

FADeprBook.SetRange("Depreciation Book Code", rec."Depreciation Book Code");

if FALedgEntry.findset then begin

FADeprBook.CalcFields("Book Value");

bookvalues := FADeprBook."Book Value";

end;

end;

Was this reply helpful? Yes No
LearnBC 240 on at

Like (0)

Report
Copy link

Link copied!

Still its not working

pageextension 60027 "Fixed Asset Leg Entries" extends "FA Ledger Entries"

{

layout

{

addafter("FA No.")

{

field("FA Class Code"; Rec."FA Class Code")

{

ApplicationArea = All;

Width = 12;

}

field("Depreciation Starting Date"; Rec."Depreciation Starting Date")

{

ApplicationArea = All;

Caption = 'Deprec Start Dt';

}

field("Depreciation Ending Date"; Rec."Depreciation Ending Date")

{

ApplicationArea = All;

Caption = 'Deprec End Dt';

}

field("Depr. % this year (Custom 1)"; Rec."Depr. % this year (Custom 1)")

{

ApplicationArea = All;

Visible = false;

}

field(Bookvalues; Bookvalues)

{

ApplicationArea = all;

Caption = 'Curr Book Value';

}

}

addafter("Document Type")

{

field("Document Date"; Rec."Document Date")

{

ApplicationArea = All;

Width = 12;

}

}

moveafter("FA Posting Date"; "Posting Date")

modify("Posting Date")

{

Visible = false;

}

moveafter("FA Class Code"; Description)

modify("Document No.")

{

Width = 16;

}

}

trigger OnAfterGetRecord()

var

FADeprBook: Record "FA Depreciation Book";

begin

FADeprBook.Reset();

FADeprBook.SetRange("FA No.", rec."FA No.");

FADeprBook.SetRange("Depreciation Book Code", rec."Depreciation Book Code");

if FALedgEntry.findset then begin

FADeprBook.CalcFields("Book Value");

bookvalues := FADeprBook."Book Value";

end;

end;

var

Bookvalues: Decimal;

}

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,812 Moderator on at

Like (1)

Report
Copy link

Link copied!

Sorry my bad, Please change below.

trigger OnAfterGetRecord()

var

FADeprBook: Record "FA Depreciation Book";

begin

FADeprBook.Reset();

FADeprBook.SetRange("FA No.", rec."FA No.");

FADeprBook.SetRange("Depreciation Book Code", rec."Depreciation Book Code");

if FADeprBook.findset then begin

FADeprBook.CalcFields("Book Value");

bookvalues := FADeprBook."Book Value";

end;

end;

Was this reply helpful? Yes No
LearnBC 240 on at

Like (1)

Report
Copy link

Link copied!

Yes Nithin..its working perfect as expected.

Thankyou for your support always

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,812 Moderator on at

Like (0)

Report
Copy link

Link copied!

Good to know

Was this reply helpful? Yes No