Werksspezifische Konfiguration kopieren

Code: Alles auswählen.

      CALL FUNCTION 'CUXM_GET_CONFIGURATION'
        EXPORTING
          instance                     = int_mat-cuobj
*         werks                        = '1000'
* IMPORTING
*         ET_RETURN                    =
        TABLES
          t_e1cucfg                    = lt_e1cucfg
          t_e1cuins                    = lt_e1cuins
          t_e1cuval                    = lt_e1cuval
          t_e1cucom                    = lt_e1cucom
        EXCEPTIONS
          instance_not_found           = 1
          internal_error               = 2
          instance_is_a_classification = 3
          OTHERS                       = 4.

      IF sy-subrc <> 0.
        WRITE: / 'SY-SUBRC = ', sy-subrc.
      ENDIF.


      CALL FUNCTION 'MATERIAL_SAVE_CONFIGURATION'
        EXPORTING
          material       = int_mat-matnr
          conf_matl      = int_mat-stdpd
          plant          = int_mat-werks
*         conf_matl_plant =
* IMPORTING
*         RETURN         =
        TABLES
          e1cucfg_w      = lt_e1cucfg
          e1cuins_w      = lt_e1cuins
          e1cuval_w      = lt_e1cuval
          e1cucom_w      = lt_e1cucom
          returnmessages = lt_ret_conf.