Sapass

 Simplify SAP R/3 development with Excel VBA/VB RFC  
Home> UserExit>HRPYZVMV



Index

HRPYZVMV

User Exits Public Sector Germany
This enhancement contains the function module EXIT_RPCZVMD0_001. This function module enables you to create the distribution key in supplementary pension (SP) notifications to suit your customer requirements.

The employer table T5D5B contains several fields to be used for the structure of the distribution key. You can enter defined identifiers in these fields, for example, PSN for personnel number, or NAN for employee surname. If these defined identifiers are not sufficient, you can enter customer identifiers (beginning with Z) in the table. These identifiers are transferred sequentially to the function module EXIT_RPCZVMD0_001 which then returns the corresponding alphanumeric text.

Example: The distribution key should contain the short text for the employee's organizational unit and the number of the responsible administrator. The customer identifiers ZOE and ZSB can be used and entered in the required position in the employer table T5D5B (if necessary, in combination with the standard SAP identifers). The accompanying program text in include ZX406U04 should then appear as follows. (The coding can also be found in include LX406F03):

*---------------------------------------------------------------------*
* INCLUDE ZX406U04 *
*---------------------------------------------------------------------*
infotypes: 0001 name org_daten.
tables: t527x.
data: returncode like sy-subrc.

case vtschl. "Identifier for dist. key
*** Text for org. unit
when 'ZOE'.
call function 'HR_READ_INFOTYPE'
exporting
pernr = persnr
infty = '0001'
begda = datum
importing
subrc = returncode
tables
infty_tab = org_daten.
if returncode eq 0.
read table org_daten index 1.
select single * from t527x where sprsl = sy-langu
and orgeh = org_daten-orgeh
and begda le datum
and endda ge datum.
text = t527x-orgtx.
endif.
*** Administrator responsible for payroll
when 'ZSB'.
call function 'HR_READ_INFOTYPE'
exporting
pernr = persnr
infty = '0001'
begda = datum
importing
subrc = returncode
tables
infty_tab = org_daten.
if returncode eq 0.
text = org_daten-sacha.
endif.
when others.
endcase.


Function/Program:
  • EXIT_RPCZVMD0_001: SPF: User Exit for Distribution Key for Creating SP Notifications

02-Oct-2005