FuBa zum lesen Cluster PCL2
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo @all.
Hab leider im SAP noch hier im Forum was gefunden.
Ich suche einen Funktionsbaustein der mir für einen Zeitraum und eine Personalnummer verschiedene Lohnarten aus dem Abrechnungscluster PCL2 in einer Tabelle übergibt...
Vielen danke im Voraus
Gruß Moe
Hab leider im SAP noch hier im Forum was gefunden.
Ich suche einen Funktionsbaustein der mir für einen Zeitraum und eine Personalnummer verschiedene Lohnarten aus dem Abrechnungscluster PCL2 in einer Tabelle übergibt...
Vielen danke im Voraus
Gruß Moe
Das leben ist zu kurz für 56k
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo,
versuchs mal damit.
include rpc2rdd0. "Datenbeschreibung Cluster RD
include zhclgv10. siehe unten
include rpcmgr00. "CD-Manager
data: per_from(6) value 'JJJJMM',
stat,
returncode like sy-subrc.
per_from(6) = pn-paper.
stat = 'A'.
include zhpcl200. "! Lesen PCL2 !!!!!
if returncode = 0.
rx-key-pernr = pernr-pernr.
unpack rgdir-seqnr to rx-key-seqno.
rp-imp-c2-rd. " Lesen Abr.ergebnisse
if sy-subrc = 0.
loop at rt.
check: rt-lgart = ?
Schreinben in interne Tabelle
endloop.
endif.
endif.
**************************************************************
ZHCLGV10
TABLES: PCL1, PCL2.
*---------------------------------------------------------------------*
* INLUCDES fuer den CLUSTER-DIRECTOY-MANAGER *
*---------------------------------------------------------------------*
INCLUDE RPC2CD00.
*---------------------------------------------------------------------*
* INCLUDES fuer die Pufferung von PCL2 *
*---------------------------------------------------------------------*
INCLUDE RPPPXD00. "Daten PCLx-Puffer
DATA: BEGIN OF COMMON PART BUFFER.
INCLUDE RPPPXD10. "Daten PCLx-Puffer
DATA: END OF COMMON PART.
INCLUDE RPPPXM00. "Routinen PCLx-Puffer
**************************************************************
ZHPCL200
PERFORM CD_MANAGER USING PERNR-PERNR "Pernr
P0001-ABKRS "payroll subunit
PER_FROM "forperiod
SPACE "begin date
SPACE "end date
SPACE "payroll subunit in
SPACE "permo in
SPACE "period in
SPACE "enddate inperiod
SPACE "legal entity
STAT "actual, previous, old
SPACE "CD-TYPE
'R' "action
RETURNCODE. "returncode
RP-INIT-BUFFER. "YPPK86093
Gruss
Kerstin
versuchs mal damit.
include rpc2rdd0. "Datenbeschreibung Cluster RD
include zhclgv10. siehe unten
include rpcmgr00. "CD-Manager
data: per_from(6) value 'JJJJMM',
stat,
returncode like sy-subrc.
per_from(6) = pn-paper.
stat = 'A'.
include zhpcl200. "! Lesen PCL2 !!!!!
if returncode = 0.
rx-key-pernr = pernr-pernr.
unpack rgdir-seqnr to rx-key-seqno.
rp-imp-c2-rd. " Lesen Abr.ergebnisse
if sy-subrc = 0.
loop at rt.
check: rt-lgart = ?
Schreinben in interne Tabelle
endloop.
endif.
endif.
**************************************************************
ZHCLGV10
TABLES: PCL1, PCL2.
*---------------------------------------------------------------------*
* INLUCDES fuer den CLUSTER-DIRECTOY-MANAGER *
*---------------------------------------------------------------------*
INCLUDE RPC2CD00.
*---------------------------------------------------------------------*
* INCLUDES fuer die Pufferung von PCL2 *
*---------------------------------------------------------------------*
INCLUDE RPPPXD00. "Daten PCLx-Puffer
DATA: BEGIN OF COMMON PART BUFFER.
INCLUDE RPPPXD10. "Daten PCLx-Puffer
DATA: END OF COMMON PART.
INCLUDE RPPPXM00. "Routinen PCLx-Puffer
**************************************************************
ZHPCL200
PERFORM CD_MANAGER USING PERNR-PERNR "Pernr
P0001-ABKRS "payroll subunit
PER_FROM "forperiod
SPACE "begin date
SPACE "end date
SPACE "payroll subunit in
SPACE "permo in
SPACE "period in
SPACE "enddate inperiod
SPACE "legal entity
STAT "actual, previous, old
SPACE "CD-TYPE
'R' "action
RETURNCODE. "returncode
RP-INIT-BUFFER. "YPPK86093
Gruss
Kerstin
Moin,
oder damit:
DATA: I_AE TYPE PAYDE_RESULT OCCURS 0 WITH HEADER LINE.
DATA: WA_RT LIKE PC207.
CALL FUNCTION 'HR_GET_PAYROLL_RESULTS'
EXPORTING
PERNR = PERNR
PERMO = '01'
PABRJ = DATUM+0(4)
PABRP = DATUM+4(2)
ACTUAL = 'A'
WAERS = 'EUR'
TABLES
RESULT_TAB = I_AE
EXCEPTIONS
NO_RESULTS = 1
ERROR_IN_CURRENCY_CONVERSION = 2
T500L_ENTRY_NOT_FOUND = 3
PERIOD_MISMATCH_ERROR = 4
T549Q_ENTRY_NOT_FOUND = 5
INTERNAL_ERROR = 6
OTHERS = 7.
if sy-subrc = 0.
CLEAR: I_AE, WA_RT.
LOOP AT I_AE.
LOOP AT I_AE-INTER-RT INTO WA_RT
WHERE LGART = LGART.
ENDLOOP.
ENDLOOP.
endif.
Gruß
Diko
oder damit:
DATA: I_AE TYPE PAYDE_RESULT OCCURS 0 WITH HEADER LINE.
DATA: WA_RT LIKE PC207.
CALL FUNCTION 'HR_GET_PAYROLL_RESULTS'
EXPORTING
PERNR = PERNR
PERMO = '01'
PABRJ = DATUM+0(4)
PABRP = DATUM+4(2)
ACTUAL = 'A'
WAERS = 'EUR'
TABLES
RESULT_TAB = I_AE
EXCEPTIONS
NO_RESULTS = 1
ERROR_IN_CURRENCY_CONVERSION = 2
T500L_ENTRY_NOT_FOUND = 3
PERIOD_MISMATCH_ERROR = 4
T549Q_ENTRY_NOT_FOUND = 5
INTERNAL_ERROR = 6
OTHERS = 7.
if sy-subrc = 0.
CLEAR: I_AE, WA_RT.
LOOP AT I_AE.
LOOP AT I_AE-INTER-RT INTO WA_RT
WHERE LGART = LGART.
ENDLOOP.
ENDLOOP.
endif.
Gruß
Diko
Seite 1 von 1
Vergleichbare Themen
0
Antw.
Antw.
1812
Views
Views
Kurzzeitbelege aus Cluster PCL4 lesen
von joesephe » 05.10.2009 22:53 • Verfasst in ABAP® für Anfänger
von joesephe » 05.10.2009 22:53 • Verfasst in ABAP® für Anfänger
1
Antw.
Antw.
5277
Views
Views
6
Antw.
Antw.
3805
Views
Views
2
Antw.
Antw.
1347
Views
Views
2
Antw.
Antw.
1849
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.