1. Die Dienstgebernummer enthält Sonderzeichen und wird mitunter
abgeschnitten, falls für Erstattungsanträge ein Datenträger
erstellt werden soll.
2. Ausgabe der Zeilen "Übertrag" und "Summe" darf nur erfolgen,
falls Sammler ausgegeben werden sollen.
Ursache und Voraussetzungen
1. Auf den Einzel-Anträgen wird die Dienstgebernummer mit Sonder-
zeichen (Merkmal DGSVN) ausgegeben;
auf dem Datenträger darf nur die Dienstgebernummer ohne jeg-
liche Sonderzeichen (Merkmal DGSV1) verwendet werden.
2. Fehler im Coding bei Ausgabe der Fehler-Liste.
1. Ergänzung der fehlenden Funktionalität.
2. Korrektur
Bitte führen Sie die mit "<<<=========" besonders gekennzeichneten Änderungen durch und generieren Sie danach den Report RPCEFZA0.
Betroff. Member: RPCEFZA0
END-OF-SELECTION.
SORT.
CLEAR: ODGSVN. "reset DGNum-Merkmal <<<========
* nun kann der Datenbestand bearbeitet werden
LOOP.
...
...
RESERVE 99 LINES. "erzwingen
ENDIF.
ENDIF.
ENDLOOP.
CLEAR: PRINT_SUM. "reset End-of-Page <<<========
Betroff. Member: RPCEFCA0
Neue Routine: GET_DGSV1 < <<========
Bitte fuegen Sie diese am Ende des Members ein.
*---------------------------------------------------------------------*
* FORM GET_DGSV1 *
*---------------------------------------------------------------------*
* Ermitteln der Dienstgeber-Kontonummer (ohne Sonderzeichen). *
*---------------------------------------------------------------------*
FORM GET_DGSV1.
MOVE-CORRESPONDING FORM TO PME08. "Leiste mit Daten fuellen
CHECK: PME08 <> ODGSVN. "Aenderung seit letzter Verarb.
* Dienstgeber-Kontonummer (ohne Sonderzeichen) ermitteln
PERFORM RE549D USING 'DGSV1' ' ' DGSVN RET_CODE.
ODGSVN = PME08. "save Entscheidungsleiste
CHECK: RET_CODE <> 0. "Fehler aufgetreten?
PERFORM APPEND_WARNING USING '.' FORM-PERNR TEXT-E22 PME08 SPACE.
ENDFORM.
Betroff. Member: RPCEFRA0
FORM FILL_RECORD.
CLEAR: REC. "reset Datensatz
...
...
PERFORM GET_ORG_BESCHREIBUNG.
PERFORM GET_DGSV1. "Dienstgebernummer <<<========
REC-DGNR = DGSVN. "uebernehmen <<<========
* REC-DGNR = FORM-DGSVN. " <<<========
REC-VSNR = FORM-AUSVL. "SV-Nummer, 1. Teil
...
...
ENDFORM.
Das neu hinzugekommene Text-Element "E22" (= TEXT-E22) lautet:
"Fehler im Merkmal DGSV1,"
No comments:
Post a Comment