Hello keangwang,
I don't see an error here unless you have some specific scenario.
Here in the code,
1. Amount is the field of the table
2. NewAmount is passed as parameter in Procedure "Add"
3. After the procedure call, Amount will be assigned with whatever value is passed in the procedure.
4. Same way, "Amount formatted" is assigned with the parameter "AmountFormatted" value.
In BC 18, this code is slightly changed and current code looks as below: [Amount Formatted now gets formatted directly in the preocedure and not assigned a parameter value
table 1150 "Report Totals Buffer"
{
Caption = 'Report Totals Buffer';
ReplicateData = false;
fields
{
field(1; "Line No."; Integer)
{
Caption = 'Line No.';
DataClassification = SystemMetadata;
}
field(2; Description; Text[250])
{
Caption = 'Description';
DataClassification = SystemMetadata;
}
field(3; Amount; Decimal)
{
Caption = 'Amount';
DataClassification = SystemMetadata;
}
field(4; "Amount Formatted"; Text[30])
{
Caption = 'Amount Formatted';
DataClassification = SystemMetadata;
}
field(5; "Font Bold"; Boolean)
{
Caption = 'Font Bold';
DataClassification = SystemMetadata;
}
field(6; "Font Underline"; Boolean)
{
Caption = 'Font Underline';
DataClassification = SystemMetadata;
}
field(7; "Font Italics"; Boolean)
{
Caption = 'Font Italics';
DataClassification = SystemMetadata;
}
}
keys
{
key(Key1; "Line No.")
{
Clustered = true;
}
}
fieldgroups
{
}
procedure Add(NewDescription: Text[250]; NewAmount: Decimal; NewBold: Boolean; NewUnderline: Boolean; NewItalics: Boolean)
begin
if FindLast then;
Init;
"Line No." = 1;
Description := NewDescription;
Amount := NewAmount;
"Amount Formatted" := Format(Amount, 0, '');
"Font Bold" := NewBold;
"Font Underline" := NewUnderline;
"Font Italics" := NewItalics;
Insert(true);
end;
}
Hope above explanation helps
