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.
...
Text,Length);
EXIT(PADSTR('',Length - STRLEN(Text),'0') + Text);
END;
LOCAL PROCEDURE WriteGrTotalsToFile@4(SalesToCust@1002 : Decimal;EU3PartyTradeAmt@1001 : Decimal);
// Delete the following lines.
BEGIN
IF (ROUND(ABS(SalesToCust),1,'<') <> 0) OR (ROUND(ABS(EU3PartyTradeAmt),1,'<') <> 0) THEN
WITH "VAT Entry" DO BEGIN
// End of the lines.
IF "VAT Registration No." = '' THEN BEGIN
Type := Type::Sale;
ERROR(
Text003,
FIELDCAPTION("VAT Registration No."),FIELDCAPTION(Type),Type);
...
...
Text,Length);
EXIT(PADSTR('',Length - STRLEN(Text),'0') + Text);
END;
LOCAL PROCEDURE WriteGrTotalsToFile@4(SalesToCust@1002 : Decimal;EU3PartyTradeAmt@1001 : Decimal);
// Add the following lines.
VAR
VATEntry@1000 : Record 254;
BEGIN
VATEntry.COPY("VAT Entry");
IF (ROUND(ABS(SalesToCust),1,'<') <> 0) OR (ROUND(ABS(EU3PartyTradeAmt),1,'<') <> 0) THEN
WITH VATEntry DO BEGIN
// End of the lines.
IF "VAT Registration No." = '' THEN BEGIN
Type := Type::Sale;
ERROR(
Text003,
FIELDCAPTION("VAT Registration No."),FIELDCAPTION(Type),Type);
...