<< Click to Display Table of Contents >> Navigation:  All About ABAP Technique > Indonesia > ABAP Tutorial > ABAP Workbench Tools  > Enhancement > Customer Exits > Contoh Customer Exits > Project ZPPWS001 > Funtions Exits > EXIT_SAPLCOZF_003 > ZXCOZU03

**&---------------------------------------------------------------------*
**&  Include           ZXCOZU03                                         *
**&---------------------------------------------------------------------*
***Check authorization during prod order create
***Production scheduler as check object
data: s_message_text(20) type c.
 
DATA : begin of zmbew occurs 0.
      include structure mbew.
DATA : end of zmbew.
 
concatenate CAUFVD_IMP-werks 'Scheduler' into s_message_text separated
by space.
concatenate s_message_text CAUFVD_IMP-fevor into s_message_text
separated by space.
 
     AUTHORITY-CHECK OBJECT 'Z_AFKO_FEV'
              ID 'ACTVT' FIELD '01'
              ID 'ZFEVOR' FIELD CAUFVD_IMP-FEVOR
              ID 'WERKS' FIELD CAUFVD_IMP-werks.
    if not sy-subrc is initial.
      message e004(CO) with s_message_text.
    endif.
 
* Validation standard cost estimate
*select * from mbew into corresponding fields of zmbew
*                                    where matnr = caufvd_imp-matnr and
*                                    bwkey = caufvd_imp-werks and
*                                    kalkl = 'X'.
*endselect.
*if sy-subrc ne 0.
*    message e155(CK).
*endif.