Komplette Rücknahme eines Zahlungslaufs

Komplette Rücknahme eines Zahlungslaufs

Hallo Forum,

kann man einen Zahlungslauf (Druck ist noch nicht erfolgt) komplett zurücknehmen ?

Oder muss wirklich jeder Beleg mit FBRA zurückgenommen und storniert werden ? Gibt's hierzu keine Massenverarbeitung ? Ich finde einfach nichts...

DANKE !
MAtthias

Re: Komplette Rücknahme eines Zahlungslaufs

Matthias_L. hat geschrieben:Oder muss wirklich jeder Beleg mit FBRA zurückgenommen und storniert werden ? Gibt's hierzu keine Massenverarbeitung ? Ich finde einfach nichts...

Natürlich gibts nen Massenstorno. Man gibt die erste und die letzte Belegnummer an und lässt die Maschine rödeln.

Im FI: Beleg -> Massenstorno


Ralf

Hallo MAtthias,

mir ist auch nicht bekannt wie man einen Zahllauf maschinell umdrehen kann.
Wie schon geschrieben müssen die Ausgleiche zurück und dann die Posten storniert werden. Die Ausgleichsnummer bekommst du vielleicht über geschickte Tabellenabfrage heraus. Mit Aufzeichnungen kann du hier eine maschinelle Verarbeitung starten, hier kenn ich mir aber nich so gut aus. Mein Kollege der gewechselt hat kann ich derzeit nicht greifen.

Gruß
Thomas

Hallo Matthias_L,

dazu mußt du ein kleines Programm schreiben.
1. Ausgleichsbelegnummern des Zahllauf selektieren
2. dazugehörige ausgeglichene Belege selektieren
3. nacheinander 2 FB aufrufen um Ausgleich zurückzunehmen
und Beleg zu stornieren

etwa in der Art: Achtung nur grobe Anleitung!

START-OF-SELECTION.
SELECT * FROM reguh WHERE laufd IN s_laufd
AND laufi IN s_laufi.
MOVE reguh-vblnr TO record-augbl_001.
APPEND record.

ENDSELECT.

LOOP AT record.
SELECT SINGLE * FROM bkpf WHERE belnr = record-augbl_001
AND gjahr = p_jahr
AND bukrs = p_buk.

SELECT * FROM bseg WHERE belnr = record-augbl_001
AND koart = p_koart
AND gjahr = p_jahr
AND bukrs = p_buk.
EXIT.
ENDSELECT.
CHECK sy-dbcnt > 0.
WRITE:/ bseg-belnr,bkpf-stblg,bseg-augbl.
CHECK bkpf-stblg <= '0000000000'.

IF bseg-augbl > '0000000001'.
CALL FUNCTION 'CALL_FBRA' "Rücknahme des Ausgleichs
EXPORTING
i_bukrs = p_buk
i_augbl = record-augbl_001
i_gjahr = p_jahr.
* i_xerlk = '01'
* i_augdt = sy-datum
* i_stodt = sy-datum.
* i_stomo = space
* TABLES
* t_accnt = xaccnt.
WRITE:/ syst.
ENDIF.
CALL FUNCTION 'CALL_FB08' "Storno des Ausgleichsbelegs
EXPORTING
i_bukrs = p_buk
i_belnr = record-augbl_001
i_gjahr = p_jahr
i_stgrd = '01'.
* i_budat = rf05r-budat
* i_monat = rf05r-monat.
WRITE:/ syst.
ENDLOOP.