Samstag, 26. November 2011

ABAP - GET PAYROLL

Beispielimplementierung von GET PAYROLL für deutsche Abrechnungsergebnisse:

Eigenschaften: Selektionsbildvariante 900, HR-Reportklasse PY_DEF.

*&---------------------------------------------------------------------*
*& Report  ZGETPAYROLL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZGETPAYROLL.

TABLES: PERNR,PYORGSCREEN, PYTIMESCREEN.

INFOTYPES: 0002.

NODES: PAYROLL TYPE PAYDE_RESULT.

DATA: WA_RT TYPE PC207.

START-OF-SELECTION.

GET PERNR.

RP_PROVIDE_FROM_LAST P0002 SPACE PN-BEGDA PN-ENDDA.

WRITE:/ PERNR-PERNR, P0002-VORNA, P0002-NACHN.

GET PAYROLL.

  LOOP AT PAYROLL-INTER-RT INTO WA_RT.
    WRITE:/ WA_RT-LGART, WA_RT-BETRG.
  ENDLOOP.

END-OF-SELECTION.

Keine Kommentare:

Kommentar veröffentlichen