ZCMM01-30

*&--------------------------------------------------------------

*&      Module  check_SLOC_E  INPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE CHECK_SLOC_E INPUT.
  G_SLOC = 'E' .
ENDMODULE.                 " check_SLOC_E  INPUT

*---------------------------------------------------------------

*       MODULE CHECK_SLOC_F INPUT

*---------------------------------------------------------------

*       ........

*---------------------------------------------------------------

MODULE CHECK_SLOC_F INPUT.
  G_SLOC = 'F' .
ENDMODULE.                 " check_SLOC_F  INPUT

*&---------------------------------------------------------------------*
*&      Module  check_SLOC_G  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE CHECK_SLOC_G INPUT.
  G_SLOC = 'G' .
ENDMODULE.                 " check_SLOC_G  INPUT

*&--------------------------------------------------------------

*&      Module  check_SLOC_R  INPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE CHECK_SLOC_R INPUT.
  G_SLOC = 'R' .
ENDMODULE.                 " check_SLOC_R  INPUT
*&--------------------------------------------------------------

*&      Module  user_command_1000  INPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE USER_COMMAND_1000 INPUT.
*add by yuan-yuan xiao 080619
  IF F_SHOW = 'Y'.
    SELECT *
    FROM ZCM20
    WHERE BARCODE = ZCM03-CREATER
    AND EMPLOYID = ZCM03-EMPLOYID.
*mark by yuan-yuan xiao 080714
*    and password = zcm03-password.
*
      EXIT.
    ENDSELECT.
    IF SY-SUBRC <> 0.
      MESSAGE S000 WITH 'Creater is error'.
*mark by yuan-yuan xiao 080714
*      'Creater or Password is error'.
*
      CLEAR:ZCM03-CREATER."mark 080714,zcm03-password.
      LEAVE TO SCREEN 1000.
    ELSE.
      CLEAR:F_AUTH,ITAB_DOCTYPE.
      REFRESH ITAB_DOCTYPE.
      SPLIT ZCM20-DOCTYPE_GP AT ',' INTO TABLE ITAB_DOCTYPE.
      LOOP AT ITAB_DOCTYPE WHERE DOCTYPE = ZCM03-DOCTYPE.
        IF ZCM20-AUTHORITY CS '1'.
          F_AUTH = 'Y'.
          EXIT.
        ENDIF.
      ENDLOOP.
      IF F_AUTH <> 'Y'.
        MESSAGE S000 WITH 'This Bar code hasn''t authorization'.
        CLEAR:ZCM03-CREATER."mark 080714,zcm03-password.
        LEAVE TO SCREEN 1000.
      ENDIF.
    ENDIF.
  ENDIF.
*
  IF ZCM03-DOCTYPE = '10' OR ZCM03-DOCTYPE = '11' OR
ZCM03-DOCTYPE
  = '12'.
    CALL SCREEN '2100'.
  ENDIF.
ENDMODULE.                 " user_command_1000  INPUT
*&--------------------------------------------------------------

*&      Module  user_command_vendor_no  INPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE USER_COMMAND_VENDOR_NO INPUT.
  SELECT SINGLE LIFNR INTO LIFNR_NO FROM EKKO WHERE EBELN =
  ZCM03-EBELN.

ENDMODULE.                 " user_command_vendor_no  INPUT
*&--------------------------------------------------------------

*&      Module  Cost_center  OUTPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE COST_CENTER OUTPUT.
*Ting 090715 begin
  IF ZCM03-DOCTYPE <> '5' AND ZCM03-DOCTYPE <> '6'
  AND ZCM03-DOCTYPE <> '7' AND ZCM03-DOCTYPE <> '8' AND ZCM03-DOCTYPE <>
 'B'
*Ting 090715 end
*Echo 20090812.Add.SN
  AND ZCM03-DOCTYPE <> 'C' AND ZCM03-DOCTYPE <> 'D'
*Echo 20090812.Add.EN
*Echo 20090812.Add.SN
  AND ZCM03-DOCTYPE <> 'E'.
*Echo 20090812.Add.EN
*Elven 20070106Marked  and zcm03-doctype <> '9'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'KOS'.
        SCREEN-INPUT = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ELSE.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'KOS'.
        SCREEN-INPUT = '1'.
        SCREEN-REQUIRED = '1'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
  ENDIF.

ENDMODULE.                 " Cost_center  OUTPUT

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666183/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666183/