SAP ABAP 自定义功能代码设置-优快云博客

*&------------------------------------------------------
*&      Form set_exclusive_function_code
*&------------------------------------------------------
FORM. SET_EXCLUSIVE_FUNCTION_CODE.
REFRESH FCODETAB. CLEAR FCODETAB.
***LBG20080411.ADD.SN
* IF ZCM03-DOCTYPE NA '56' OR TRANSACTION NE 'U'. Echo 20090812.Modify
*Modified by royzhang 20100311 Adj.Doc. send release. begin
* if zcm03-doctype na '56CDE' or transaction ne 'U'.
IF ZCM03-DOCTYPE NA '568CDE' OR TRANSACTION NE 'U'.
*Modified by royzhang 20100311 Adj.Doc. send release. end
    FCODETAB-FUNCCODE = 'REALEASE'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
ENDIF.
***LBG20080411.ADD.EN
*--- Ariel20090730 add ¡¥A?-----------
IF ZCM03-DOCTYPE NA '12913AHK' OR TRANSACTION NE SPACE.
    FCODETAB-FUNCCODE = 'ORDERCOMP'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
ENDIF.
IF ZCM03-DOCTYPE NA '3L' OR TRANSACTION NE SPACE.
    FCODETAB-FUNCCODE = 'ORDERPROD'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
ENDIF.

*Added by Elven Wang 20060419
IF TRANSACTION EQ 'D'.
    FCODETAB-FUNCCODE = 'SAVE'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
    FCODETAB-FUNCCODE = 'DELENTRY'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
ENDIF.
IF TRANSACTION NE 'U'.
    FCODETAB-FUNCCODE = 'POST'.
    APPEND FCODETAB.
    CLEAR FCODETAB.
ENDIF.

FCODETAB-FUNCCODE = 'PRI'.
APPEND FCODETAB.
CLEAR FCODETAB.
FCODETAB-FUNCCODE = 'PRINT_OUT'.
APPEND FCODETAB.
CLEAR FCODETAB.
FCODETAB-FUNCCODE = 'LIST'.
APPEND FCODETAB.
CLEAR FCODETAB.
*Added by Elven Wang 20060419 end.

ENDFORM. " set_exclusive_function_code

*&--------------------------------------------------
*&      Form set_cursor_position_for_alarm
*&--------------------------------------------------
FORM. SET_CURSOR_POSITION_FOR_ALARM USING VALUE(CASETYPE).
CASE CASETYPE.
    WHEN 1.
      IF ZCM04WA-MATNR IS INITIAL.
        ITEMCTRL-LEFT_COL = 2.
        SET CURSOR FIELD 'ZCM04-MATNR' LINE SY-TABIX.
      ENDIF.
      IF ZCM04WA-WERKS IS INITIAL.
        ITEMCTRL-LEFT_COL = 4.
        SET CURSOR FIELD 'ZCM04-WERKS' LINE SY-TABIX.
      ENDIF.
      IF ZCM04WA-LGORT IS INITIAL.
        ITEMCTRL-LEFT_COL = 5.
        SET CURSOR FIELD 'ZCM04-LGORT' LINE SY-TABIX.
      ENDIF.
      IF ZCM04WA-ERFMG IS INITIAL.
        ITEMCTRL-LEFT_COL = 6.
        SET CURSOR FIELD 'ZCM04-ERFMG' LINE SY-TABIX.
      ENDIF.
      IF ZCM04WA-ERFME IS INITIAL.
        ITEMCTRL-LEFT_COL = 7.
        SET CURSOR FIELD 'ZCM04-ERFME' LINE SY-TABIX.
      ENDIF.
    WHEN 2.
      IF ZCM04WA-UMWRK IS INITIAL.
        ITEMCTRL-LEFT_COL = 9.
        SET CURSOR FIELD 'ZCM04-UMWRK' LINE SY-TABIX.
      ENDIF.
      IF ZCM04WA-UMLGO IS INITIAL.
        ITEMCTRL-LEFT_COL = 10.
        SET CURSOR FIELD 'ZCM04-UMLGO' LINE SY-TABIX.
      ENDIF.
    WHEN 3.
      IF ZCM04WA-UMMAT IS INITIAL.
        ITEMCTRL-LEFT_COL = 8.
        SET CURSOR FIELD 'ZCM04-UMMAT' LINE SY-TABIX.
      ENDIF.
ENDCASE.
ENDFORM.                    " set_cursor_position_for_alarm