ca02/ca12 Material Assignment(ca02/ca12分配物料)

  REPORT  zmkp_api_change_routing .

* global fields, declarations
* ================================================
  INCLUDE fc27date .
  INCLUDE cp_cs_const_message .
  TYPE-POOLS :   cc01 ,
               cpsc ,
               cpcl ,
               cmcl ,
               czcl ,
               cssc ,
               cscl .

  TYPES :  BEGIN  OF create_parameter_type ,
          matnr      TYPE mapl -matnr ,
          werks      TYPE mapl -werks ,
          verwe      TYPE plko -verwe ,
          statu      TYPE plko -statu ,
          plnme      TYPE plko -plnme ,
          steus      TYPE plpo -steus ,
          steuf      TYPE plfhd -steuf ,
          fhmat      TYPE plfhd -matnr ,
          sttag      TYPE plko -datuv ,
           number ( 4 )  TYPE n .
  TYPES :  END  OF create_parameter_type .

  DATA g_parameter  TYPE create_parameter_type .

* selection screen
* ================================================
  SELECTION-SCREEN  BEGIN  OF  BLOCK b1  WITH  FRAME  TITLE  TEXT -t01 .
  PARAMETERS : p_plnty  TYPE plko -plnty  DEFAULT  'S' ,
              "task list type
             p_plnnr  TYPE plko -plnnr ,
              "task list group number
             p_plnal  TYPE plko -plnal  DEFAULT  '1' ,
              "group counter
             p_sttag  TYPE plko -datuv  DEFAULT sy -datum .
  "keydate
  SELECTION-SCREEN  END  OF  BLOCK b1 .

  SELECTION-SCREEN  BEGIN  OF  BLOCK b2  WITH  FRAME  TITLE  TEXT -t02 .
  PARAMETERS : p_matnr  TYPE mapl -matnr ,
              "material
             p_werks  TYPE mapl -werks  DEFAULT  '1100' ,
              "plant
             p_verwe  TYPE plko -verwe  DEFAULT  '1' ,
              "usage
             p_statu  TYPE plko -statu  DEFAULT  '4' ,
              "status
             p_plnme  TYPE plko -plnme  DEFAULT  'TAI' .

  SELECTION-SCREEN  END  OF  BLOCK b2 .

 g_parameter -matnr  = p_matnr .
 g_parameter -werks  = p_werks .
 g_parameter -verwe  = p_verwe .
 g_parameter -statu  = p_statu .
 g_parameter -plnme  = p_plnme .
 g_parameter -sttag  = p_sttag .

* main program
* ================================================

* 1. load task list into internal EWB-buffer
  PERFORM load_task_list
    USING
     p_plnty
     p_plnnr
     p_plnal
     p_sttag .

* 2. change the loaded task list
  PERFORM change_task_list
    USING
     p_sttag .

* 3. save changed task list to database
  PERFORM save_to_database .

  COMMIT  WORK .
  WRITE : /  'program ready.' .

*&———————————————————————*
*&      Form  LOAD_TASK_LIST
*&———————————————————————*
*       load task listr into internal EWB-BUFFER
*———————————————————————-*
*      –>I_PLNTY  task list type
*      –>I_PLNNR  task list number = group number
*      –>I_PLNAL  group counter
*      –>I_STTAG  keydate
*———————————————————————-*
  FORM load_task_list
    USING
     i_plnty  LIKE plko -plnty
     i_plnnr  LIKE plko -plnnr
     i_plnal  LIKE plko -plnal
     i_sttag  LIKE plko -datuv .

    DATA : l_classes_in_workarea   LIKE classes_in_workarea ,
         l_tsk_plnty_selection   TYPE cpsc_plnty_type ,
         lt_tsk_plnty_selection  TYPE cpsc_plnty_type  OCCURS  0 ,
         l_tsk_plnnr_selection   TYPE cpsc_plnnr_type ,
         lt_tsk_plnnr_selection  TYPE cpsc_plnnr_type  OCCURS  0 ,
         l_tsk_plnal_selection   TYPE cpsc_plnal_type ,
         lt_tsk_plnal_selection  TYPE cpsc_plnal_type  OCCURS  0 ,
         l_tsk_selection         TYPE cpsc_tsk_sel_type .

* objects for loading
   l_classes_in_workarea -mtk_inarea  =  'X' .
   l_classes_in_workarea -tsk_inarea  =  'X' .
   l_classes_in_workarea -seq_inarea  =  'X' .
   l_classes_in_workarea -opr_inarea  =  'X' .
   l_classes_in_workarea -suo_inarea  =  'X' .
   l_classes_in_workarea -prt_inarea  =  'X' .

* fill selection conditions – PLNTY
    CONCATENATE  'I'  'EQ' i_plnty  INTO l_tsk_plnty_selection .
    APPEND l_tsk_plnty_selection  TO lt_tsk_plnty_selection .
   l_tsk_selection -plnty  = lt_tsk_plnty_selection .

    CONCATENATE  'I'  'EQ' i_plnnr  INTO l_tsk_plnnr_selection .
    APPEND l_tsk_plnnr_selection  TO lt_tsk_plnnr_selection .
   l_tsk_selection -plnnr  = lt_tsk_plnnr_selection .

    CONCATENATE  'I'  'EQ' i_plnal  INTO l_tsk_plnal_selection .
    APPEND l_tsk_plnal_selection  TO lt_tsk_plnal_selection .
   l_tsk_selection -plnal  = lt_tsk_plnal_selection .

* load objects into EWB
    CALL  FUNCTION  'CP_CC_S_LOAD_COMPLEX_BY_TSK'
      EXPORTING
       i_class                         =  'P'
       i_classes_in_workarea           = l_classes_in_workarea
       i_cpsc_tsk_sel                  = l_tsk_selection
       i_date_from                     = i_sttag
       i_date_to                       = i_sttag
      EXCEPTIONS
       workarea_not_found              =  1
       workarea_wrong_type             =  2
       class_in_workarea_inconsistent  =  3
       workarea_not_specified          =  4
       opr_not_found                   =  5
       no_selection_criteria           =  6
       invalid_selection_period        =  7
       key_date_required_for_ecm       =  8
        OTHERS                          =  9 .

  ENDFORM .                     " load_task_list

*&———————————————————————*
*&      Form  create_task_list
*&———————————————————————*
*       text
*———————————————————————-*
*      –>I_PARAMETER  text
*———————————————————————-*
  FORM create_task_list
  USING
 i_parameter  TYPE create_parameter_type .

    DATA : l_tsk           LIKE tsk_class_data ,
         l_opr           LIKE opr_class_data ,
         l_vornr ( 4 )      TYPE n ,
         l_mtk           LIKE mtk_class_data ,
         l_max_vornr ( 4 )  TYPE n .

* create task list header
* ===============================================

    CLEAR l_tsk .
   l_tsk -plnty  =  'S' .                  "task list type

   l_tsk -plnnr  =  '50000325' .
   l_tsk -plnal  =  '01' .
   l_tsk -zaehl  =  '1' .
   l_tsk -verwe  =  '1' .
   l_tsk -werks  =  '1100' .
   l_tsk -statu  =  '4' .
   l_tsk -plnme  = i_parameter -plnme .

    CALL  FUNCTION  'CP_CL_S_TSK_CHANGE'
      EXPORTING
       i_ecn_s                =  ' '
       i_key_date_s           = i_parameter -sttag
       i_flg_tsk_check        =  'X'
       i_mark_txt_update      =  ' '
       i_tsk_class_data       = l_tsk
       i_flg_collect_all_msg  =  ' '
* IMPORTING
*      E_ECM_DATA_ERROR_TYPE =
      EXCEPTIONS
       task_not_consistent    =  1
       no_authority           =  2
       no_valid_task          =  3
       task_not_locked        =  4
       ecm_data_not_suitable  =  5
        OTHERS                 =  6 .

* material task list allocation
* ===============================================
   l_mtk -plnty  = l_tsk -plnty .         "task list type
   l_mtk -plnnr  = l_tsk -plnnr .         "task list group
   l_mtk -plnal  = l_tsk -plnal .         "group counter
   l_mtk -matnr  = i_parameter -matnr .   "material
   l_mtk -werks  = i_parameter -werks .   "plant

    CALL  FUNCTION  'CZ_CL_S_MTK_CREATE'
      EXPORTING
       i_key_date_s               = i_parameter -sttag
       i_mtk_class_data           = l_mtk
      EXCEPTIONS
       allocation_not_consistent  =  1
       no_authority               =  2
       no_authority_for_material  =  3
       task_not_locked            =  4
       no_valid_material          =  5
       no_valid_sales_document    =  6
       counter_overflow           =  7
       ident_already_exists       =  8
       no_valid_task              =  9
       path_incomplete            =  10
       ecm_data_not_suitable      =  11
        OTHERS                     =  12 .

    WRITE :  'task list group ' , l_tsk -plnnr ,  'Updated' .

  ENDFORM .                     " create_task_list

*&———————————————————————*
*&      Form  SAVE_TO_DATABASE
*&———————————————————————*
*       save to database
*———————————————————————-*
  FORM save_to_database .
    CALL  FUNCTION  'CP_CC_S_SAVE' .
  ENDFORM .                     " save_to_database

*———————————————————————*
*       FORM change_task_list                                         *
*———————————————————————*
*         changes the short text of all operations to
*         'SIMPLE_EWB_TEST'
*———————————————————————*
*         –> i_sttag  keydate                                        *
*———————————————————————*
  FORM change_task_list
  USING
 i_sttag  LIKE plko -datuv .

    DATA : lt_opr_class_data  LIKE tsk_class_data  OCCURS  0 ,
         l_opr_class_data   LIKE tsk_class_data ,
         lt_opr_ident       TYPE cpcl_tsk_tab_type ,
*        l_opr_ident TYPE cpcl_tsk_type,
         l_opr_ident        LIKE  LINE  OF lt_opr_ident ,
         lt_opr_lock        TYPE cpcl_tsk_lock_tab_type .

    CALL  FUNCTION  'CP_CL_S_TSK_PROVIDE'
* EXPORTING
*   I_DATE_FROM             = DATE-MIN_GRG
*   I_DATE_TO               = DATE-MAX_GRG
*   I_PLNTY                 =
*   I_PLNNR                 =
*   I_PLNAL                 =
*   I_FLG_PROVIDE_INV       = ' '
* IMPORTING
*   E_TSK_INV               =
      TABLES
       e_tsk_class_data  = lt_opr_class_data
      EXCEPTIONS
       wrong_key         =  1
        OTHERS            =  2 .

* lock the operations and reload operations
    LOOP  AT lt_opr_class_data  INTO l_opr_class_data .
      MOVE-CORRESPONDING l_opr_class_data  TO l_opr_ident .
      APPEND l_opr_ident  TO lt_opr_ident .
    ENDLOOP .

    CALL  FUNCTION  'CP_CC_S_RELOAD_BY_TSK'
      EXPORTING
       i_flg_set_lock         =  'X'
      IMPORTING
       e_tsk_lock             = lt_opr_lock
      CHANGING
       c_tsk_ident            = lt_opr_ident
      EXCEPTIONS
       reloading_not_allowed  =  1
        OTHERS                 =  2 .

    IF  NOT lt_opr_lock[]  IS  INITIAL .
      WRITE : / 'error: some operations are already locked' .
      EXIT .
    ENDIF .

* again: provide all operations from EWB buffer
* reason: between first providing and locking another user can can
* change the operations
    CALL  FUNCTION  'CP_CL_S_TSK_PROVIDE'
      TABLES
       e_tsk_class_data  = lt_opr_class_data
      EXCEPTIONS
       wrong_key         =  1
        OTHERS            =  2 .

* 3. change the task list
    PERFORM create_task_list
      USING
       g_parameter .

  ENDFORM .
  " change_task_list