FUNCTION in R/3 4.6C AND ECC 5.0

FIMA_DATE_CREATE

HR_ECM_GET_DATETYP_FROM_IT0041

[@more@]

FIMA_DATE_CREATE

IN 4.6C

I_YEARS LIKE VTBBEWE-ATAGE 0
I_MONTHS LIKE VTBBEWE-ATAGE 0
I_DAYS LIKE VTBBEWE-ATAGE 0
I_CALENDAR_DAYS LIKE VTBBEWE-ATAGE 0

without sign.

in ECC 5.0

with sign.

HR_ECM_GET_DATETYP_FROM_IT0041

this function is not in ECC 5.0

create one :

FUNCTION ZHRF_GET_DATETYP_FROM_IT0041.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" VALUE(PERNR) TYPE PERNR_D
*" VALUE(KEYDT) TYPE DATUM
*" VALUE(DATAR) TYPE DATAR
*" EXPORTING
*" VALUE(DATE) TYPE P0041-DAT01
*"----------------------------------------------------------------------

DATA I0041 TYPE P0041.
DATA I0041_TAB TYPE TABLE OF P0041 INITIAL SIZE 1.
DATA: DATAR_0041 TYPE DATAR,
DATE_0041 TYPE DATUM.

CLEAR DATE.

CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
PERNR = PERNR
INFTY = '0041'
BEGDA = KEYDT
ENDDA = KEYDT
TABLES
INFTY_TAB = I0041_TAB.

READ TABLE I0041_TAB INDEX 1 INTO I0041.
CHECK SY-SUBRC = 0.

DO 12 TIMES VARYING DATAR_0041 FROM I0041-DAR01 NEXT I0041-DAR02
VARYING DATE_0041 FROM I0041-DAT01 NEXT I0041-DAT02.
IF DATAR_0041 = DATAR .
DATE = DATE_0041.
EXIT.
ELSEIF DATE_0041 IS INITIAL.
EXIT.
ENDIF.
ENDDO.

ENDFUNCTION.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8479461/viewspace-1021911/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8479461/viewspace-1021911/