...
WITH ForeignPaymentEntry DO BEGIN
GLSetup.GET;
CompanyInfo.GET;
...
...
WITH ForeignPaymentEntry DO BEGIN
GLSetup.GET;
CompanyInfo.GET;
// Add the following lines.
PaymLedgEntry.SETRANGE("Document No.",ForeignPaymentEntry."Payment No.");
IF PaymLedgEntry.FINDFIRST THEN;
PaymLedgEntry.SETRANGE("Document No.");
// End of the added lines.
...
...
Z := '0256' + // 1 4 Satzlänge (Konstant '0128')
Text1105400016 + // 2 1 Satzart
FORMAT(BankCodeRec,8)+ // 3 8 Bankleitzahl
NumToString(RecordAccount,10,'0') + // 4 10 Kundennummer/Kontonummer ( Absender )
PADSTR(NameOfCompany,35,' ')+ // 5 35 Kundenname ( Diskettenabsender )
PADSTR(CompanyInfo."Name 2",35,' ') + // 5 35 Kundenname2 ( Diskettenabsender )
PADSTR(CompanyInfo.Address,35,' ') + // 5 35 Kundeadresse ( Diskettenabsender )
PADSTR(CompanyInfo."Post Code" + ' ' +
CompanyInfo.City ,35,' '); // 5 35 Kunden PLZ+Ort ( Diskettenabsender )
Exportfile.WRITE(FORMAT(Z,STRLEN(Z)));
// Delete the following line.
Z := FORMAT(ForeignPaymentEntry."Payment Date",6,
'<year,2><month,2><day,2>') + // 6 6 Erstellungsdatum
PADSTR(FORMAT(ForeignPaymentEntry."Day Entry No.")
...
...
Z := '0256' + // 1 4 Satzlänge (Konstant '0128')
Text1105400016 + // 2 1 Satzart
FORMAT(BankCodeRec,8)+ // 3 8 Bankleitzahl
NumToString(RecordAccount,10,'0') + // 4 10 Kundennummer/Kontonummer ( Absender )
PADSTR(NameOfCompany,35,' ')+ // 5 35 Kundenname ( Diskettenabsender )
PADSTR(CompanyInfo."Name 2",35,' ') + // 5 35 Kundenname2 ( Diskettenabsender )
PADSTR(CompanyInfo.Address,35,' ') + // 5 35 Kundeadresse ( Diskettenabsender )
PADSTR(CompanyInfo."Post Code" + ' ' +
CompanyInfo.City ,35,' '); // 5 35 Kunden PLZ+Ort ( Diskettenabsender )
Exportfile.WRITE(FORMAT(Z,STRLEN(Z)));
// Add the following line.
Z := FORMAT(PaymLedgEntry.Date,6,
'<year,2><month,2><day,2>') + // 6 6 Erstellungsdatum
PADSTR(FORMAT(ForeignPaymentEntry."Day Entry No.")
...