工作生活与爱好
工作中的记录； 生活中的记忆； 业余爱好的记载。2007-01-27
ABAP function to convert Current Date to Current Period
REPORT ZPERIOD.
DATA: X_PERIOD LIKE T009B-POPER,
X_YEAR LIKE CSSL-GJAHR.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
I_DATE = SY-DATUM
* I_MONMIT = 00
I_PERIV = 'K4'
IMPORTING
E_BUPER = X_PERIOD
E_GJAHR = X_YEAR
EXCEPTIONS
INPUT_FALSE = 1
T009_NOTFOUND = 2
T009B_NOTFOUND = 3
OTHERS = 4.
WRITE: / 'Your Company Current Period', X_PERIOD, X_YEAR.
DATA: X_PERIOD LIKE T009B-POPER,
X_YEAR LIKE CSSL-GJAHR.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
EXPORTING
I_DATE = SY-DATUM
* I_MONMIT = 00
I_PERIV = 'K4'
IMPORTING
E_BUPER = X_PERIOD
E_GJAHR = X_YEAR
EXCEPTIONS
INPUT_FALSE = 1
T009_NOTFOUND = 2
T009B_NOTFOUND = 3
OTHERS = 4.
WRITE: / 'Your Company Current Period', X_PERIOD, X_YEAR.
posted by lxy # 09:02 
Archives
1990年1月15日 2007年1月14日 2007年1月15日 2007年1月16日 2007年1月17日 2007年1月18日 2007年1月19日 2007年1月20日 2007年1月22日 2007年1月23日 2007年1月24日 2007年1月25日 2007年1月26日 2007年1月27日 2007年1月29日 2007年1月30日 2007年1月31日 2007年2月1日 2007年2月2日 2007年2月3日 2007年3月13日 2007年5月15日 2007年5月16日 2007年6月2日
