Report zum stellen der Personalabrechnung auf Korrektur

Report zum stellen der Personalabrechnung auf Korrektur

Hallo,
es gibt den Report RPUPRC00. Der stellt den Verwaltungssatz (PA03)Abrechnung automatisch auf
"Frei zur Abrechnung". Das ist ganz hilfreich, wenn
an die Abrechnung via Job startet. Leider gibt es
dazu kein Pendant, daß die Abrechnung auf "Frei zur
Korrektur" stellt! Deshalb habe ich mir den RPUPRC00 genommen und ihn angepasst. Leider klappt es aber nicht und ich weiß nicht mehr weiter. Wahrscheinlich ist es ganz simpel!
=====================================================
Hier mein Coding:

REPORT ZHR_VK_RPUPRC00.

INCLUDE zhr_vk_incl_rpuprci1.

SELECT SINGLE * FROM t569v WHERE abkrs EQ p_abkrs AND
vwsaz EQ '01'.

INITIALIZATION.
fram1txt = 'Selektion'(001).

START-OF-SELECTION.
IF t569v-state <> 1.

* 1. Dynpro: set area and push 'modify'
bdcdata-program = 'SAPMP52X'.
bdcdata-dynpro = '1000'.
bdcdata-dynbegin = 'X'.
bdcdata-fnam = 'PV000-ABKRS'.
bdcdata-fval = p_abkrs.
APPEND bdcdata.
CLEAR bdcdata.

bdcdata-fnam = 'BDC_OKCODE'.
bdcdata-fval = button_modify.
APPEND bdcdata.
CLEAR bdcdata.

* 2. Dynpro: set status (push button)
bdcdata-program = 'SAPMP52X'.
bdcdata-dynpro = '2000'.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
CLEAR bdcdata.

bdcdata-fnam = 'BDC_OKCODE'.
bdcdata-fval = state_rel_for_payroll.
APPEND bdcdata.
CLEAR bdcdata.
* 2. Dynpro: save
bdcdata-program = 'SAPMP52X'.
bdcdata-dynpro = '2000'.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
CLEAR bdcdata.

bdcdata-fnam = 'BDC_OKCODE'.
bdcdata-fval = button_save.
APPEND bdcdata.
CLEAR bdcdata.
* 1. Dynpro: finished
bdcdata-program = 'SAPMP52X'.
bdcdata-dynpro = '1000'.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
CLEAR bdcdata.

bdcdata-fnam = 'BDC_OKCODE'.
bdcdata-fval = button_back.
APPEND bdcdata.
CLEAR bdcdata.

CALL TRANSACTION 'PA03'
USING bdcdata
* AND SKIP FIRST SCREEN
MODE 'E'
MESSAGES INTO msgtab.
IF sy-subrc NE 0.
LOOP AT msgtab.
MESSAGE ID msgtab-msgid TYPE msgtab-msgtyp NUMBER msgtab-msgnr
WITH msgtab-msgv1 msgtab-msgv2 msgtab-msgv3
msgtab-msgv4.
ENDLOOP.
ENDIF.
FREE bdcdata.
ENDIF.
=====================================================
Im Include zhr_vk_incl_rpuprci1 wird das Feld
state_rel_for_payroll(4) TYPE c VALUE 'STKO'.
gebildet.

Wäre nett, wenn mir einer weiterhelfen könnte.

Viele Grüße
Volker

Der Report läuft durch, aber der Status wird nicht gesetzt!
Irgendwie komisch, beim Status Abrechnung freigeben klappt das automatisch!

Viele Grüße
Volker

hallo helmut,

das isses natürlich!!
Manchmal steht man wirklich wie der Ochs vorm Berg

Viele Grüße
Volker