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/