To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
Ones@1004 : Integer;
Tens@1005 : Integer;
Hundreds@1006 : Integer;
Exponent@1007 : Integer;
NoTextIndex@1008 : Integer;
// Delete the following lines.
BEGIN
CLEAR(NoText);
NoTextIndex := 1;
NoText[1] := '****';
// End of the lines.
IF No < 1 THEN
AddToNoText(NoText,NoTextIndex,PrintExponent,Text026)
ELSE BEGIN
FOR Exponent := 4 DOWNTO 1 DO BEGIN
...
...
Ones@1004 : Integer;
Tens@1005 : Integer;
Hundreds@1006 : Integer;
Exponent@1007 : Integer;
NoTextIndex@1008 : Integer;
// Add the following lines.
DecimalPosition@1010 : Decimal;
BEGIN
CLEAR(NoText);
NoTextIndex := 1;
NoText[1] := '****';
GLSetup.GET;
// End of the lines.
IF No < 1 THEN
AddToNoText(NoText,NoTextIndex,PrintExponent,Text026)
ELSE BEGIN
FOR Exponent := 4 DOWNTO 1 DO BEGIN
...
...
No := No - (Hundreds * 100 + Tens * 10 + Ones) * POWER(1000,Exponent - 1);
END;
END;
AddToNoText(NoText,NoTextIndex,PrintExponent,Text028);
// Delete the following line.
AddToNoText(NoText,NoTextIndex,PrintExponent,FORMAT(No * 100) + '/100');
IF CurrencyCode <> '' THEN
AddToNoText(NoText,NoTextIndex,PrintExponent,CurrencyCode);
END;
...
...
No := No - (Hundreds * 100 + Tens * 10 + Ones) * POWER(1000,Exponent - 1);
END;
END;
AddToNoText(NoText,NoTextIndex,PrintExponent,Text028);
// Add the following lines.
IF GLSetup."Amount Rounding Precision" <> 0 THEN
DecimalPosition := 1/GLSetup."Amount Rounding Precision"
ELSE
DecimalPosition := 1;
AddToNoText(NoText,NoTextIndex,PrintExponent,(FORMAT(No * DecimalPosition) + '/' + FORMAT(DecimalPosition)));
// End of the lines.
IF CurrencyCode <> '' THEN
AddToNoText(NoText,NoTextIndex,PrintExponent,CurrencyCode);
END;
...