Trial Balance Report Export to Excel with Show Amounts ACY

Hi Friends,

I have fixed the problem in the report.

Here is the Fix:

1. In the G/L Account - OnAfterGetRecord() function i modified the below code

IF PrintToExcel AND (NOT UseAmtsInAddCurr) THEN
MakeExcelDataBody
ELSE
MakeExcelDataBodyAddCurr;

2. Created a new function similar to MakeExcelDataBody for the ACY part.

PROCEDURE MakeExcelDataBodyAddCurr@1000000000();
VAR
BlankFiller@1000000000 : Text[250];
BEGIN
BlankFiller := PADSTR(' ',MAXSTRLEN(BlankFiller),' ');
ExcelBuf.NewRow;
ExcelBuf.AddColumn(
"G/L Account"."No.",FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,'');
IF "G/L Account".Indentation = 0 THEN
ExcelBuf.AddColumn(
"G/L Account".Name,FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,'@')
ELSE
ExcelBuf.AddColumn(
COPYSTR(BlankFiller,1,2 * "G/L Account".Indentation) + "G/L Account".Name,
FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'@');

CASE TRUE OF
"G/L Account"."Additional-Currency Net Change" = 0:
BEGIN
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
END;
"G/L Account"."Additional-Currency Net Change" > 0:
BEGIN
ExcelBuf.AddColumn(
"G/L Account"."Additional-Currency Net Change",FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,CurrFormat);
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
END;
"G/L Account"."Additional-Currency Net Change" < 0:
BEGIN
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
ExcelBuf.AddColumn(
-"G/L Account"."Additional-Currency Net Change",FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,CurrFormat);
END;
END;

CASE TRUE OF
"G/L Account"."Add.-Currency Balance at Date" = 0:
BEGIN
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
END;
"G/L Account"."Add.-Currency Balance at Date" > 0:
BEGIN
ExcelBuf.AddColumn(
"G/L Account"."Add.-Currency Balance at Date",FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,CurrFormat);
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
END;
"G/L Account"."Add.-Currency Balance at Date" < 0:
BEGIN
ExcelBuf.AddColumn(
'',FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,FALSE,FALSE,'');
ExcelBuf.AddColumn(
-"G/L Account"."Add.-Currency Balance at Date",FALSE,'',"G/L Account"."Account Type" <> "G/L Account"."Account Type"::Posting,
FALSE,FALSE,CurrFormat);
END;
END;

END;