AL Code - Phys. Invt. Order; Calculate Total Amount (Quantity x Unit Amount)

(0) Share

Report

Posted on by Breefer

I would like to calculate a new field in table "Phys. Invt. Order Line" called "EQ_Value (Base)":

This field should be calculated every time the Physical Inventory Order got finished.

Can anybody assist me how to fill this new field (EQValue__Base) with the automated calculation (Unit_Cost * Quantity__Base_) on finishing the Inventory Order.

Thanks for your support!

I have the same question (0)

All responses (9)

Answers (1)

Suggested answer

YUN ZHU 95,329 Super User 2025 Season 2 on at

Like (0)

Report

Hi, It looks like you are only missing the code for the calculation.
You can add it to the OnValidate Trigger of the Quantity__Base_ field, or the OnInsert Trigger and OnModify Trigger of the "Phys. Invt. Order Line" table, which should meet your needs.

Hope this helps.

Thanks.

ZHU

Was this reply helpful? Yes No
Breefer 5 on at

Like (0)

Report

Hi ZHU

Thanks for your response.

I tried to implement your assistance in different ways, unfortunately the field wouldn't calculate, actually.

Even if I am reopening / closing the Phys Inventory Order:

Was this reply helpful? Yes No
Suggested answer

DAnny3211 11,397 on at

Like (0)

Report

Hi

you must enter the calculation of your new field in two places:

in the onvalidate of the Unit_Cost field and in the onvalidate of the Quantity__Base_ field.

this way you ensure that when you validate both of the above fields, your custom field will also be updated

check my answer if it helped you, thanks

DAniele

Was this reply helpful? Yes No
Breefer 5 on at

Like (0)

Report

Hi Daniela

Also thank you for your response.

I am so sorry, I couldn't resolve my problem with your assistance.

Where am I wrong?

Was this reply helpful? Yes No
Verified answer

DAnny3211 11,397 on at

Like (0)

Report

Hi

I didn't mean it that way!

define a codeunit and use this code:

[EventSubscriber(ObjectType::table, 5876 , 'OnAfterValidateEvent', 'Unit Amount', false, false)]

local procedure Set_EQValue_BaseFromAmount(var Rec: Record "Phys. Invt. Order Line")

begin

EQValue_Base:=rec."Quantity (Base)"*rec."Unit Amount";

end;

[EventSubscriber(ObjectType::table, 5876 , 'OnAfterValidateEvent', 'Quantity (Base)', false, false)]

local procedure Set_EQValue_BaseFromQuantity(var Rec: Record "Phys. Invt. Order Line")

begin

EQValue_Base:=rec."Quantity (Base)"*rec."Unit Amount";

end;

check my answer if it helped you, thanks

DAniele

Was this reply helpful? Yes No
Breefer 5 on at

Like (0)

Report

Hi Daniele

Thank you so much for your support!

I defined a CodeUnit, the EQValue__Base_ reference needed a 'Rec.' before it.
And now it works perfectly!

Am I right?

Was this reply helpful? Yes No
Suggested answer

DAnny3211 11,397 on at

Like (0)

Report

yes

great! this is the right solution!

Thank you

Daniele

Was this reply helpful? Yes No
Breefer 5 on at

Like (0)

Report

Thank you for your support!

One last question Daniele;

In my Production Environment it's causing an error, that I am not authorized to run the new CodeUnit with my License. I am owning the Business Central Essentials License - is that a problem?

In my Test Environment everything runs perfectly.

Was this reply helpful? Yes No
Suggested answer

DAnny3211 11,397 on at

Like (0)

Report

hi

look this

learn.microsoft.com/.../devenv-permissionset-object

but I recommend you also study this new solution

learn.microsoft.com/.../devenv-inherent-permissions

check my answer if it helped you, thanks

DAniele

Was this reply helpful? Yes No