Share
Report
54Good Day,
I am trying to sum a value form a specific table extension into a new field on another table but i keep on getting a value of 0, and not the value which is in the lines. Can you please assist and help me where i am going wrong?
The below is the existing table extension with the field that i want to sum:
tableextension 37084585 ProdOrderLineExt extends /Prod. Order Line/
field(37084505; /Relative Cost Factor/; Decimal)
{
BlankZero = true;
Caption = 'Relative Cost Factor';
DecimalPlaces = 0 : 5;
Description = 'FPW06.01.04-CBP';
InitValue = 1;
MinValue = 0;
}
I have tried a few different ways but the last 2 seems to be more in line with what i want to achieve, the first approach was to do a calcFormula like below:
tableextension 50029 APTRRC_ProductionOrder extends /Production Order/
{
fields
{
field(50000; APTRRC_RelativeCostFactor; Decimal)
{
Caption = 'Relative Cost Factor';
FieldClass = FlowField;
DecimalPlaces = 0 : 5;
Editable = false;
// DataClassification = ToBeClassified;
CalcFormula = sum(/Prod. Order Line/./Relative Cost Factor/ where(/Prod. Order No./ = field(/No./)));
}
}
Because i was getting a 0 the whole time i tried to add a SetAutoCalcField in the page extension as well but on the trigger I get the error Argument 1: must be a member when referencing the field APTRRC_RelativeCostFactor, please see below:
pageextension 50301 APTRRC_ReleasedProductionOrder extends /Released Production Order/
{
layout
{
addafter(Blocked)
{
field(APTRRC_RelativeCostFactor; APTRRC_RelativeCostFactor)
{
Caption = 'Relative Cost Factor';
ApplicationArea = All;
Visible = false;
}
}
}
trigger OnOpenPage()
var
RelativeRec: Record Item;
TotalQty: Decimal;
begin
Clear(TotalQty);
RelativeRec.Reset();
RelativeRec.SetAutoCalcFields(APTRRC_RelativeCostFactor);
if RelativeRec.FindSet() then
repeat
TotalQty := TotalQty + RelativeRec.APTRRC_RelativeCostFactor;
until RelativeRec.Next() = 0;
end;
}
The second approach was to write a procedure in the table extension to do the calculation and return the result to my new field, I am not interested in showing the field on the page I only want the value to do some further QA checks:
tableextension 50029 APTRRC_ProductionOrder extends /Production Order/
{
fields
{
field(50000; APTRRC_RelativeCostFactor; Decimal)
{
Caption = 'Relative Cost Factor';
// FieldClass = FlowField;
DecimalPlaces = 0 : 5;
Editable = false;
DataClassification = ToBeClassified;
// CalcFormula = sum(/Prod. Order Line/./Relative Cost Factor/ where(/Prod. Order No./ = field(/No./)));
}
}
procedure CollectRelativeCost()
var
RelativeCost: Record /Prod. Order Line/;
TotalRelative: Decimal;
begin
RelativeCost.SetRange(RelativeCost./Prod. Order No./, /No./);
if RelativeCost.FindSet() then begin
TotalRelative := 0; // Initialize total before calculating
repeat
TotalRelative += RelativeCost./Relative Cost Factor/;
until RelativeCost.Next() = 0;
APTRRC_RelativeCostFactor := TotalRelative;
Modify();
end;
end;
Both these approaches keeps on returning a value of 0 and not the actual sum of values of the lines:
Where am i going wrong?
Thanks in advance
All responses (
Answers (
