Odd Behavior in Report Lines (Wrong Debit & Credit calculation)

(2) Share

Report

Posted on by One And Only Naveen

458

in below loop code inside bracket not working as expected(if Amt > 0 then Temp_Dimension_Ledger_Table.Debit := Amt else Temp_Dimension_Ledger_Table.Credit := Abs(Amt);)

I have also attached Output Amount Colum is correct however Debit Credit are not correct.(Yellow Highlighted values are what i am talking about).

Can someone please tell me the reason for this behavior.

Amt := 0;
                                    Qry_GL_Entries.SetFilter(Qry_GL_Entries.Posting_Date, '<%1', From_Date);
                                    Qry_GL_Entries.SetRange(Qry_GL_Entries.Dimension_Code, Dimension_Filter);
                                    Qry_GL_Entries.SetRange(Qry_GL_Entries.Dimension_Value_Code, Dim_Val.Code);
                                    Qry_GL_Entries.SetRange(Qry_GL_Entries.G_L_Account_No_, GL_acc."No.");
                                    if Qry_GL_Entries.Open() then begin
                                        while Qry_GL_Entries.Read() do begin
                                            Amt := Amt + Qry_GL_Entries.Amount;
                                        end;
                                        Qry_GL_Entries.Close();
                                    end;
                                    Temp_Dimension_Ledger_Table.Amount := Amt; // this is working fine
                                    if Amt > 0 then Temp_Dimension_Ledger_Table.Debit := Amt else Temp_Dimension_Ledger_Table.Credit := Abs(Amt); //this line causing me that odd issue.
                                    Temp_Dimension_Ledger_Table.Insert();
                                until GL_acc.Next() = 0;
 

Categories:

Dynamics 365 Business Central

I have the same question (0)

All responses (4)

Answers (1)

Verified answer

Khushbu Rajvi. 20,441 Super User 2025 Season 2 on at

Like (2)

Report

Ensure fields are reset before assigning values
Temp_Dimension_Ledger_Table.Debit := 0;
Temp_Dimension_Ledger_Table.Credit := 0;

Was this reply helpful? Yes No
Suggested answer

Mohamed Amine Mahmoudi 26,428 Super User 2025 Season 2 on at

Like (1)

Report
hi @NP-30010550-0,

I think you need to reset the variable "Amt"

Amt := 0;

before this line :

if Qry_GL_Entries.Open() then begin

Best regards,

Mohamed Amine MAHMOUDI

Was this reply helpful? Yes No
Suggested answer

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

Like (1)

Report

Since you are already using Query, why not sum it directly in Query? In this way, you can directly get Amt.

https://learn.microsoft.com/en-us/dynamics365/business-central/dev-itpro/developer/devenv-query-totals-grouping?wt.mc_id=DX-MVP-5004336

Thanks

ZHU

Was this reply helpful? Yes No
One And Only Naveen 458 on at

Like (1)

Report

Thank You All,

@Khushbu Rajvi.

Your suggested answer worked.

bat is there any way i can reset all fields that i am trying to insert in a table before entering next line in my loop.

Was this reply helpful? Yes No