PERFORM FRM_GET_ZAPRD CHANGING <ITP03>-ZAPRD <ITP03>-ZAPRT.
*&---------------------------------------------------------------------*
*& Form FRM_GET_ZAPRD *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--P_<ITAB>_ZAPRD text * <--P_<ITAB>_ZAPRT text *----------------------------------------------------------------------* FORM FRM_GET_ZAPRD CHANGING P_ZAPRD TYPE ZAPRD P_ZAPRT TYPE ZAPRT . DATA : LT_VALUE LIKE TABLE OF SVAL WITH HEADER LINE , RETURNCODE . LT_VALUE -TABNAME = 'ZMT_P01' . LT_VALUE -FIELDNAME = 'ZAPRD' . LT_VALUE - VALUE = SY -DATUM . APPEND LT_VALUE . LT_VALUE -TABNAME = 'ZMT_P01' . LT_VALUE -FIELDNAME = 'ZAPRT' . LT_VALUE - VALUE = SY -UZEIT . APPEND LT_VALUE . CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING * NO_VALUE_CHECK = ' ' POPUP_TITLE = '审批日期选择' START_COLUMN = '5' START_ROW = '5' IMPORTING RETURNCODE = RETURNCODE TABLES FIELDS = LT_VALUE EXCEPTIONS ERROR_IN_FIELDS = 1 OTHERS = 2 . IF SY -SUBRC = 0 . READ TABLE LT_VALUE WITH KEY FIELDNAME = 'ZAPRD' . IF SY -SUBRC = 0 . P_ZAPRD = LT_VALUE - VALUE . ENDIF . READ TABLE LT_VALUE WITH KEY FIELDNAME = 'ZAPRT' . IF SY -SUBRC = 0 . P_ZAPRT = LT_VALUE - VALUE . ENDIF . ENDIF .ENDFORM.
