The system does not display Error message in the Inventory Turns column in the Inventory Analysis Matrix pane as expected in the Roletailored client (RTC) in Microsoft Dynamics NAV 2009

Hotfix information

A supported hotfix is now available from Microsoft. However, it is only intended to correct the problem that is described in this article. Apply it only to systems that are experiencing this specific problem. This hotfix may receive additional testing. Therefore, if you are not severely affected by this problem, we recommend that you wait for the next Microsoft Dynamics NAV 2009 service pack or the next Microsoft Dynamics NAV version that contains this hotfix.

Note In special cases, charges that are ordinarily incurred for support calls may be canceled if a Technical Support Professional for Microsoft Dynamics and related products determines that a specific update will resolve your problem. The usual support costs will apply to additional support questions and issues that do not qualify for the specific update in question.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.
To resolve this problem, change the code in the Inventory Analysis Matrix form (9201). To do this, follow these steps:

1. Change the code of Properties as follows:
   Existing code

   ...
   REPEAT
   IF i <= ARRAYLEN(MatrixData) THEN
   IF Range = '' THEN
   MatrixData[i] := 0
   ELSE
   
   // Delete the following lines.
    MatrixData[i] := AnalysisReportMgt.CalcCell(Rec,AnalysisColumn,FALSE);
    CachedFormattedText[i] := FORMAT(MatrixData[i]);
   // End of the deleted lines.
   
   CachedContainsError[i] := FindError(Dummy,CachedFormattedText[i]);
   i := i + 1;
   UNTIL AnalysisColumn.NEXT = 0;
   END;
   END;
   ...

   Replacement code

   ...
   REPEAT
   IF i <= ARRAYLEN(MatrixData) THEN
   IF Range = '' THEN
   MatrixData[i] := 0
   ELSE
   
   // Add the following lines.
    MaxtrixVar := AnalysisReportMgt.CalcCell(Rec,AnalysisColumn,FALSE);
    CachedFormattedText[i] := FORMAT(MaxtrixVar);
   // End of the added lines.
   
   CachedContainsError[i] := FindError(Dummy,CachedFormattedText[i]);
   i := i + 1;
   UNTIL AnalysisColumn.NEXT = 0;
   END;
   END;
   ...

2. Change the code in the Controls as follows:
   Existing code 1

   ...
   InColumnHeading=Yes }
   { 9 ;TextBox ;3995 ;1100 ;1693 ;440 ;Name=Field1;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line,
   SourceExpr=MatrixData[1];
   
   CaptionClass='3,' + MatrixColumnCaptions[1];
   OnDrillDown=BEGIN
   FieldDrillDown(1);
   END;
   }
   ...

   Replacement code 1

   ...
   InColumnHeading=Yes }
   { 9 ;TextBox ;3995 ;1100 ;1693 ;440 ;Name=Field1;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[1];
   
   CaptionClass='3,' + MatrixColumnCaptions[1];
   OnDrillDown=BEGIN
   FieldDrillDown(1);
   END;
   }
   ...

   Existing code 2

   ...
   InColumnHeading=Yes }
   { 11 ;TextBox ;6826 ;1210 ;1693 ;440 ;Name=Field2;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[2];
   
   CaptionClass='3,' + MatrixColumnCaptions[2];
   OnDrillDown=BEGIN
   FieldDrillDown(2);
   END;
   }
   ...

   Replacement code 2

   ...
   InColumnHeading=Yes }
   { 11 ;TextBox ;6826 ;1210 ;1693 ;440 ;Name=Field2;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[2];
   
   CaptionClass='3,' + MatrixColumnCaptions[2];
   OnDrillDown=BEGIN
   FieldDrillDown(2);
   END;
   }
   ...

   Existing code 3

   ...
   InColumnHeading=Yes }
   { 13 ;TextBox ;7408 ;1760 ;1693 ;440 ;Name=Field3;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[3];
   
   CaptionClass='3,' + MatrixColumnCaptions[3];
   OnDrillDown=BEGIN
   FieldDrillDown(3);
   END;
   }
   ...

   Replacement code 3

   ...
   InColumnHeading=Yes }
   { 13 ;TextBox ;7408 ;1760 ;1693 ;440 ;Name=Field3;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[3];
   
   CaptionClass='3,' + MatrixColumnCaptions[3];
   OnDrillDown=BEGIN
   FieldDrillDown(3);
   END;
   }
   ...

   Existing code 4

   ...
   InColumnHeading=Yes }
   { 15 ;TextBox ;8652 ;880 ;1693 ;440 ;Name=Field4;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[4];
   
   CaptionClass='3,' + MatrixColumnCaptions[4];
   OnDrillDown=BEGIN
   FieldDrillDown(4);
   END;
   }
   ...

   Replacement code 4

   ...
   InColumnHeading=Yes }
   { 15 ;TextBox ;8652 ;880 ;1693 ;440 ;Name=Field4;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[4];
   
   CaptionClass='3,' + MatrixColumnCaptions[4];
   OnDrillDown=BEGIN
   FieldDrillDown(4);
   END;
   }
   ...

   Existing code 5

   ...
   InColumnHeading=Yes }
   { 17 ;TextBox ;10716;2530 ;1700 ;440 ;Name=Field5;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[5];
   
   CaptionClass='3,' + MatrixColumnCaptions[5];
   OnDrillDown=BEGIN
   FieldDrillDown(5);
   END;
   }
   ...

   Replacement code 5

   ...
   InColumnHeading=Yes }
   { 17 ;TextBox ;10716;2530 ;1700 ;440 ;Name=Field5;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[5];
   
   CaptionClass='3,' + MatrixColumnCaptions[5];
   OnDrillDown=BEGIN
   FieldDrillDown(5);
   END;
   }
   ...

   Existing code 6

   ...
   InColumnHeading=Yes }
   { 19 ;TextBox ;12409;1320 ;1700 ;440 ;Name=Field6;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delet the following line.
    SourceExpr=MatrixData[6];
   
   CaptionClass='3,' + MatrixColumnCaptions[6];
   OnDrillDown=BEGIN
   FieldDrillDown(6);
   END;
   }
   ...

   Replacement code 6

   ...
   InColumnHeading=Yes }
   { 19 ;TextBox ;12409;1320 ;1700 ;440 ;Name=Field6;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[6];
   
   CaptionClass='3,' + MatrixColumnCaptions[6];
   OnDrillDown=BEGIN
   FieldDrillDown(6);
   END;
   }
   ...

   Existing code 7

   ...
   HorzGlue=Both;
   VertGlue=Both;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[7];
   
   CaptionClass='3,' + MatrixColumnCaptions[7];
   OnDrillDown=BEGIN
   FieldDrillDown(7);
   END;
   }
   ...

   Replacement code 7

   ...
   HorzGlue=Both;
   VertGlue=Both;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[7];
   
   CaptionClass='3,' + MatrixColumnCaptions[7];
   OnDrillDown=BEGIN
   FieldDrillDown(7);
   END;
   }
   ...

   Existing code 8

   ...
   InColumnHeading=Yes }
   { 31 ;TextBox ;21326;550 ;1700 ;440 ;Name=Field8;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[8];
   
   CaptionClass='3,' + MatrixColumnCaptions[8];
   OnDrillDown=BEGIN
   FieldDrillDown(8);
   END;
   }
   ...

   Replacement code 8

   ...
   InColumnHeading=Yes }
   { 31 ;TextBox ;21326;550 ;1700 ;440 ;Name=Field8;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[8];
   
   CaptionClass='3,' + MatrixColumnCaptions[8];
   OnDrillDown=BEGIN
   FieldDrillDown(8);
   END;
   }
   ...

   Existing code 9

   ...
   InColumnHeading=Yes }
   { 39 ;TextBox ;23019;440 ;1700 ;440 ;Name=Field9;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[9];
   
   CaptionClass='3,' + MatrixColumnCaptions[9];
   OnDrillDown=BEGIN
   FieldDrillDown(9);
   END;
   }
   ...

   Replacement code 9

   ...
   InColumnHeading=Yes }
   { 39 ;TextBox ;23019;440 ;1700 ;440 ;Name=Field9;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[9];
   
   CaptionClass='3,' + MatrixColumnCaptions[9];
   OnDrillDown=BEGIN
   FieldDrillDown(9);
   END;
   }
   ...

   Existing code 10

   ...
   InColumnHeading=Yes }
   { 41 ;TextBox ;24606;440 ;1700 ;440 ;Name=Field10;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[10];
   
   CaptionClass='3,' + MatrixColumnCaptions[10];
   OnDrillDown=BEGIN
   FieldDrillDown(10);
   END;
   }
   ...

   Replacement code 10

   ...
   InColumnHeading=Yes }
   { 41 ;TextBox ;24606;440 ;1700 ;440 ;Name=Field10;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[10];
   
   CaptionClass='3,' + MatrixColumnCaptions[10];
   OnDrillDown=BEGIN
   FieldDrillDown(10);
   END;
   }
   ...

   Existing code 11

   ...
   InColumnHeading=Yes }
   { 45 ;TextBox ;26141;660 ;1700 ;440 ;Name=Field11;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[11];
   
   CaptionClass='3,' + MatrixColumnCaptions[11];
   OnDrillDown=BEGIN
   FieldDrillDown(11);
   END;
   }
   ...

   Replacement code 11

   ...
   InColumnHeading=Yes }
   { 45 ;TextBox ;26141;660 ;1700 ;440 ;Name=Field11;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[11];
   
   CaptionClass='3,' + MatrixColumnCaptions[11];
   OnDrillDown=BEGIN
   FieldDrillDown(11);
   END;
   }
   ...

   Existing code 12

   ...
   InColumnHeading=Yes }
   { 27 ;TextBox ;28099;440 ;1700 ;440 ;Name=Field12;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[12];
   
   CaptionClass='3,' + MatrixColumnCaptions[12];
   OnDrillDown=BEGIN
   FieldDrillDown(12);
   END;
   }
   ...

   Replacement code 12

   ...
   InColumnHeading=Yes }
   { 27 ;TextBox ;28099;440 ;1700 ;440 ;Name=Field12;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[12];
   
   CaptionClass='3,' + MatrixColumnCaptions[12];
   OnDrillDown=BEGIN
   FieldDrillDown(12);
   END;
   }
   ...

   Existing code 13

   ...
   InColumnHeading=Yes }
   { 29 ;TextBox ;29739;440 ;1700 ;440 ;Name=Field13;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=CachedFormattedText[13];
   
   CaptionClass='3,' + MatrixColumnCaptions[13];
   OnDrillDown=BEGIN
   FieldDrillDown(13);
   END;
   }
   ...

   Replacement code 13

   ...
   InColumnHeading=Yes }
   { 29 ;TextBox ;29739;440 ;1700 ;440 ;Name=Field13;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[13];
   
   CaptionClass='3,' + MatrixColumnCaptions[13];
   OnDrillDown=BEGIN
   FieldDrillDown(13);
   END;
   }
   ...

   Existing code 14

   ...
   InColumnHeading=Yes }
   { 33 ;TextBox ;32782;440 ;1700 ;440 ;Name=Field14;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[14];
   
   CaptionClass='3,' + MatrixColumnCaptions[14];
   OnDrillDown=BEGIN
   FieldDrillDown(14);
   END;
   }
   ...

   Replacement code 14

   ...
   InColumnHeading=Yes }
   { 33 ;TextBox ;32782;440 ;1700 ;440 ;Name=Field14;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[14];
   
   CaptionClass='3,' + MatrixColumnCaptions[14];
   OnDrillDown=BEGIN
   FieldDrillDown(14);
   END;
   }
   ...

   Existing code 15

   ...
   InColumnHeading=Yes }
   { 35 ;TextBox ;34396;440 ;1700 ;440 ;Name=Field15;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[15];
   
   CaptionClass='3,' + MatrixColumnCaptions[15];
   OnDrillDown=BEGIN
   FieldDrillDown(15);
   END;
   }
   ...

   Replacement code 15

   ...
   InColumnHeading=Yes }
   { 35 ;TextBox ;34396;440 ;1700 ;440 ;Name=Field15;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[15];
   
   CaptionClass='3,' + MatrixColumnCaptions[15];
   OnDrillDown=BEGIN
   FieldDrillDown(15);
   END;
   }
   ...

   Existing code 16

   ...
   InColumnHeading=Yes }
   { 37 ;TextBox ;36169;440 ;1700 ;440 ;Name=Field16;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[16];
   
   CaptionClass='3,' + MatrixColumnCaptions[16];
   OnDrillDown=BEGIN
   FieldDrillDown(16);
   END;
   }
   ...

   Replacement code 16

   ...
   InColumnHeading=Yes }
   { 37 ;TextBox ;36169;440 ;1700 ;440 ;Name=Field16;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[16];
   
   CaptionClass='3,' + MatrixColumnCaptions[16];
   OnDrillDown=BEGIN
   FieldDrillDown(16);
   END;
   }
   ...

   Existing code 17

   ...
   InColumnHeading=Yes }
   { 43 ;TextBox ;36618;550 ;1700 ;440 ;Name=Field17;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[17];
   
   CaptionClass='3,' + MatrixColumnCaptions[17];
   OnDrillDown=BEGIN
   FieldDrillDown(17);
   END;
   }
   ...

   Replacement code 17

   ...
   InColumnHeading=Yes }
   { 43 ;TextBox ;36618;550 ;1700 ;440 ;Name=Field17;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[17];
   
   CaptionClass='3,' + MatrixColumnCaptions[17];
   OnDrillDown=BEGIN
   FieldDrillDown(17);
   END;
   }
   ...

   Existing code 18

   ...
   InColumnHeading=Yes }
   { 47 ;TextBox ;38338;440 ;1700 ;440 ;Name=Field18;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[18];
   
   CaptionClass='3,' + MatrixColumnCaptions[18];
   OnDrillDown=BEGIN
   FieldDrillDown(18);
   END;
   }
   ...

   Replacement code 18

   ...
   InColumnHeading=Yes }
   { 47 ;TextBox ;38338;440 ;1700 ;440 ;Name=Field18;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[18];
   
   CaptionClass='3,' + MatrixColumnCaptions[18];
   OnDrillDown=BEGIN
   FieldDrillDown(18);
   END;
   }
   ...

   Existing code 19

   ...
   InColumnHeading=Yes }
   { 49 ;TextBox ;41223;440 ;1700 ;440 ;Name=Field19;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[19];
   
   CaptionClass='3,' + MatrixColumnCaptions[19];
   OnDrillDown=BEGIN
   FieldDrillDown(19);
   END;
   }
   ...

   Replacement code 19

   ...
   InColumnHeading=Yes }
   { 49 ;TextBox ;41223;440 ;1700 ;440 ;Name=Field19;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[19];
   
   CaptionClass='3,' + MatrixColumnCaptions[19];
   OnDrillDown=BEGIN
   FieldDrillDown(19);
   END;
   }
   ...

   Existing code 20

   ...
   InColumnHeading=Yes }
   { 51 ;TextBox ;42677;440 ;1700 ;440 ;Name=Field20;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[20];
   
   CaptionClass='3,' + MatrixColumnCaptions[20];
   OnDrillDown=BEGIN
   FieldDrillDown(20);
   END;
   }
   ...

   Replacement code 20

   ...
   InColumnHeading=Yes }
   { 51 ;TextBox ;42677;440 ;1700 ;440 ;Name=Field20;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[20];
   
   CaptionClass='3,' + MatrixColumnCaptions[20];
   OnDrillDown=BEGIN
   FieldDrillDown(20);
   END;
   }
   ...

   Existing code 21

   ...
   InColumnHeading=Yes }
   { 53 ;TextBox ;44582;440 ;1700 ;440 ;Name=Field21;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[21];
   
   CaptionClass='3,' + MatrixColumnCaptions[21];
   OnDrillDown=BEGIN
   FieldDrillDown(21);
   END;
   }
   ...

   Replacement code 21

   ...
   InColumnHeading=Yes }
   { 53 ;TextBox ;44582;440 ;1700 ;440 ;Name=Field21;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[21];
   
   CaptionClass='3,' + MatrixColumnCaptions[21];
   OnDrillDown=BEGIN
   FieldDrillDown(21);
   END;
   }
   ...

   Existing code 22

   ...
   InColumnHeading=Yes }
   { 55 ;TextBox ;46144;440 ;1700 ;440 ;Name=Field22;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[22];
   
   CaptionClass='3,' + MatrixColumnCaptions[22];
   OnDrillDown=BEGIN
   FieldDrillDown(22);
   END;
   }
   ...

   Replacement code 22

   ...
   InColumnHeading=Yes }
   { 55 ;TextBox ;46144;440 ;1700 ;440 ;Name=Field22;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[22];
   
   CaptionClass='3,' + MatrixColumnCaptions[22];
   OnDrillDown=BEGIN
   FieldDrillDown(22);
   END;
   }
   ...

   Existing code 23

   ..,
   InColumnHeading=Yes }
   { 57 ;TextBox ;47916;330 ;1700 ;440 ;Name=Field23;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[23];
   
   CaptionClass='3,' + MatrixColumnCaptions[23];
   OnDrillDown=BEGIN
   FieldDrillDown(23);
   END;
   }
   ...

   Replacement code 23

   ...
   InColumnHeading=Yes }
   { 57 ;TextBox ;47916;330 ;1700 ;440 ;Name=Field23;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[23];
   
   CaptionClass='3,' + MatrixColumnCaptions[23];
   OnDrillDown=BEGIN
   FieldDrillDown(23);
   END;
   }
   ...

   Existing code 24

   ...
   InColumnHeading=Yes }
   { 59 ;TextBox ;49477;440 ;1700 ;440 ;Name=Field24;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[24];
   
   CaptionClass='3,' + MatrixColumnCaptions[24];
   OnDrillDown=BEGIN
   FieldDrillDown(24);
   END;
   }
   ...

   Replacement code 24

   ...
   InColumnHeading=Yes }
   { 59 ;TextBox ;49477;440 ;1700 ;440 ;Name=Field24;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[24];
   
   CaptionClass='3,' + MatrixColumnCaptions[24];
   OnDrillDown=BEGIN
   FieldDrillDown(24);
   END;
   }
   ...
   

   Existing code 25

   ...
   InColumnHeading=Yes }
   { 61 ;TextBox ;51250;220 ;1700 ;440 ;Name=Field25;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[25];
   
   CaptionClass='3,' + MatrixColumnCaptions[25];
   OnDrillDown=BEGIN
   FieldDrillDown(25);
   END;
   }
   ...

   Replacement code 25

   ...
   InColumnHeading=Yes }
   { 61 ;TextBox ;51250;220 ;1700 ;440 ;Name=Field25;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[25];
   
   CaptionClass='3,' + MatrixColumnCaptions[25];
   OnDrillDown=BEGIN
   FieldDrillDown(25);
   END;
   }
   ...

   Existing code 26

   ...
   InColumnHeading=Yes }
   { 63 ;TextBox ;53102;440 ;1700 ;440 ;Name=Field26;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[26];
   
   CaptionClass='3,' + MatrixColumnCaptions[26];
   OnDrillDown=BEGIN
   FieldDrillDown(26);
   END;
   }
   ...

   Replacement code 26

   ...
   InColumnHeading=Yes }
   { 63 ;TextBox ;53102;440 ;1700 ;440 ;Name=Field26;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
    SourceExpr=CachedFormattedText[26];
   
   CaptionClass='3,' + MatrixColumnCaptions[26];
   OnDrillDown=BEGIN
   FieldDrillDown(26);
   END;
   }
   ...

   Existing code 27

   ...
   InColumnHeading=Yes }
   { 65 ;TextBox ;54636;550 ;1700 ;440 ;Name=Field27;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[27];
   
   CaptionClass='3,' + MatrixColumnCaptions[27];
   OnDrillDown=BEGIN
   FieldDrillDown(27);
   END;
   }
   ...

   Replacement code 27

   ...
   InColumnHeading=Yes }
   { 65 ;TextBox ;54636;550 ;1700 ;440 ;Name=Field27;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[27];
   
   CaptionClass='3,' + MatrixColumnCaptions[27];
   OnDrillDown=BEGIN
   FieldDrillDown(27);
   END;
   }
   ...

   Existing code 28

   ...
   InColumnHeading=Yes }
   { 67 ;TextBox ;56357;440 ;1700 ;440 ;Name=Field28;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[28];
   
   CaptionClass='3,' + MatrixColumnCaptions[28];
   OnDrillDown=BEGIN
   FieldDrillDown(28);
   END;
   }
   ...

   Replacement code 28

   ...
   InColumnHeading=Yes }
   { 67 ;TextBox ;56357;440 ;1700 ;440 ;Name=Field28;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[28];
   
   CaptionClass='3,' + MatrixColumnCaptions[28];
   OnDrillDown=BEGIN
   FieldDrillDown(28);
   END;
   }
   ...

   Existing code 29

   ...
   InColumnHeading=Yes }
   { 69 ;TextBox ;57997;330 ;1700 ;440 ;Name=Field29;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
    SourceExpr=MatrixData[29];
   
   CaptionClass='3,' + MatrixColumnCaptions[29];
   OnDrillDown=BEGIN
   FieldDrillDown(29);
   END;
   }
   ...

   Replacement code 29

   ...
   InColumnHeading=Yes }
   { 69 ;TextBox ;57997;330 ;1700 ;440 ;Name=Field29;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[29];
   
   CaptionClass='3,' + MatrixColumnCaptions[29];
   OnDrillDown=BEGIN
   FieldDrillDown(29);
   END;
   }
   ...

   Existing code 30

   ...
   InColumnHeading=Yes }
   { 71 ;TextBox ;59716;440 ;1700 ;440 ;Name=Field30;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[30];
   
   CaptionClass='3,' + MatrixColumnCaptions[30];
   OnDrillDown=BEGIN
   FieldDrillDown(30);
   END;
   }
   ...

   Replacement code 30

   ...
   InColumnHeading=Yes }
   { 71 ;TextBox ;59716;440 ;1700 ;440 ;Name=Field30;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[30];
   
   CaptionClass='3,' + MatrixColumnCaptions[30];
   OnDrillDown=BEGIN
   FieldDrillDown(30);
   END;
   }
   ...

   Existing code 31

   ...
   InColumnHeading=Yes }
   { 73 ;TextBox ;61463;440 ;1700 ;440 ;Name=Field31;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[31];
   
   CaptionClass='3,' + MatrixColumnCaptions[31];
   OnDrillDown=BEGIN
   FieldDrillDown(31);
   END;
   }
   ...

   Replacement code 31

   ...
   InColumnHeading=Yes }
   { 73 ;TextBox ;61463;440 ;1700 ;440 ;Name=Field31;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[31];
   
   CaptionClass='3,' + MatrixColumnCaptions[31];
   OnDrillDown=BEGIN
   FieldDrillDown(31);
   END;
   }
   ...

   Existing code 32

   ...
   InColumnHeading=Yes }
   { 75 ;TextBox ;63024;550 ;1700 ;440 ;Name=Field32;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Delete the following line.
   SourceExpr=MatrixData[32];
   
   CaptionClass='3,' + MatrixColumnCaptions[32];
   OnDrillDown=BEGIN
   FieldDrillDown(32);
   END;
   }
   ...

   Replacement code 32

   ...
   InColumnHeading=Yes }
   { 75 ;TextBox ;63024;550 ;1700 ;440 ;Name=Field32;
   ParentControl=1;
   InColumn=Yes;
   BlankZero=Yes;
   
   // Add the following line.
   SourceExpr=CachedFormattedText[32];
   
   CaptionClass='3,' + MatrixColumnCaptions[32];
   OnDrillDown=BEGIN
   FieldDrillDown(32);
   END;
   }
   ...

3. Add a global variable MaxtrixVaras follows:
   Existing code

   ...
   Text005@1007 : TextConst 'ENU=Cyclic Formula';
   FirstLineNo@1014 : Integer;
   LastLineNo@1013 : Integer;
   CachedFormattedText@1015 : ARRAY [32] OF Text[1024];
   CachedContainsError@1012 : ARRAY [32] OF Boolean;
   
   PROCEDURE Load@1(AnalysisColumn1@1000 : Record 7118;MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowError1@1002 : 'None,Division by Zero,Period Error,Invalid Formula,Cyclic Formula,All';FirstLineNo1@1005 : Integer;LastLineNo1@1004 : Integer);
   BEGIN
   AnalysisColumn.COPY(AnalysisColumn1);
   COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);
   ...

   Replacement code

   ...
   Text005@1007 : TextConst 'ENU=Cyclic Formula';
   FirstLineNo@1014 : Integer;
   LastLineNo@1013 : Integer;
   CachedFormattedText@1015 : ARRAY [32] OF Text[1024];
   CachedContainsError@1012 : ARRAY [32] OF Boolean;
   
   // Add the following line.
   MaxtrixVar@1020 : Decimal;
   
   PROCEDURE Load@1(AnalysisColumn1@1000 : Record 7118;MatrixColumnCaptions1@1001 : ARRAY [32] OF Text[1024];ShowError1@1002 : 'None,Division by Zero,Period Error,Invalid Formula,Cyclic Formula,All';FirstLineNo1@1005 : Integer;LastLineNo1@1004 : Integer);
   BEGIN
   AnalysisColumn.COPY(AnalysisColumn1);
   COPYARRAY(MatrixColumnCaptions,MatrixColumnCaptions1,1);
   ...