...
END;
PROCEDURE GetDocNoDocDateServTariffNo@1130023() : Text[27];
VAR
OutText@1130000 : Text[27];
// Delete the following lines.
BEGIN
//VSTF274256 begin
//OutText += FormatAlphaNum("Intra - form Buffer"."Document No.",15);
OutText += FormatAlphaNum("Intrastat Jnl. Line"."Corrected Document No.",15);
//VSTF274256 end
OutText += FORMAT("Intra - form Buffer".Date,0,'<Day,2><Month,2><Year,2>');
// End of the lines.
OutText += FormatNum(GetNumericVal("Intra - form Buffer"."Service Tariff No."),6);
EXIT(OutText);
END;
PROCEDURE GetPmtMthdCompCountry@1130034() : Text[3];
...
...
END;
PROCEDURE GetDocNoDocDateServTariffNo@1130023() : Text[27];
VAR
OutText@1130000 : Text[27];
// Add the following lines.
IntrastatJnlLine2@1130002 : Record 263;
CorrectiveDocNo@1130003 : Code[54];
BEGIN
CorrectiveDocNo := FindCorrectiveDocNo;
IF CorrectiveDocNo <> '' THEN BEGIN
OutText += FormatAlphaNum(CorrectiveDocNo,15);
IntrastatJnlLine2.SETRANGE("Journal Template Name","Intra - form Buffer"."Journal Template Name");
IntrastatJnlLine2.SETRANGE("Journal Batch Name","Intra - form Buffer"."Corrected Intrastat Report No.");
IntrastatJnlLine2.SETRANGE("Document No.",IntrastatJnlLine1."Corrected Document No.");
IF IntrastatJnlLine2.FINDFIRST THEN
OutText += FORMAT(IntrastatJnlLine2.Date,0,'<Day,2><Month,2><Year,2>');
END;
// End of the lines.
OutText += FormatNum(GetNumericVal("Intra - form Buffer"."Service Tariff No."),6);
EXIT(OutText);
END;
PROCEDURE GetPmtMthdCompCountry@1130034() : Text[3];
...