*&------------------------------------------------------
*&      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