2.) Zuweisen einer Materialklasse, falls noch nicht geschehen.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- *&---------------------------------------------------------------------*
- *& Report ZLO_ASSIGN_CLASS2OBJ
- *&
- *&---------------------------------------------------------------------*
- *&
- *&
- *&---------------------------------------------------------------------*
- REPORT zlo_assign_class2obj.
- TABLES mara.
- TYPE-POOLS rsds.
- TYPE-POOLS sbiwa.
- DATA:
- gv_object_type TYPE tcla-obtab VALUE 'MARA',
- gv_class_type TYPE klah-klart VALUE '001',
- msg_text(80),
- lt_objid TYPE TABLE OF api_ob_key WITH HEADER LINE,
- lt_alloc TYPE TABLE OF api_alloc WITH HEADER LINE.
- matnr TYPE matnr,
- END OF gt_matnr.
- * test 271259118
- SELECT-OPTIONS p_matnr FOR mara-matnr.
- lt_objid-field = 'MATNR'.
- APPEND lt_objid.
- CALL FUNCTION 'CACL_OBJECT_READ_ALLOCATIONS' DESTINATION p_dest
- EXPORTING
- * OBJECT =
- object_type = gv_object_type
- class_type = gv_class_type
- * DATE =
- * LANGUAGE = SYST-LANGU
- * I_OBJ_NOT_CHK = ' '
- * I_AENNR =
- object_identification = lt_objid
- allocations = lt_alloc
- EXCEPTIONS
- error = 1
- warning = 2
- OTHERS = 5.
- EXIT.
- READ TABLE lt_alloc TRANSPORTING NO FIELDS WITH KEY
- class_type = '001'
- CALL FUNCTION 'CACL_OBJECT_ALLOCATION_MAINT' DESTINATION p_dest
- EXPORTING
- * OBJECT =
- object_type = 'MARA'
- class_type = '001'
- * STATUS =
- * STANDARD_CLASS =
- * DELETE_ALLOCATION =
- * CHANGE_NO =
- * I_OBJ_NOT_CHK = ' '
- * I_DATUV =
- * I_NO_DEFAULTS = ' '
- * I_CHECK_SYDATE =
- object_identification = lt_objid
- EXCEPTIONS
- error = 1
- warning = 2
- OTHERS = 5.
- CALL FUNCTION 'CACL_CLASSIFICATION_SAVE' DESTINATION p_dest
- * EXPORTING
- * I_COMMIT = 'X'
- * I_WAIT = ' '
- * I_NO_UPD_TASK = ' '
- * I_NO_CHECK = ' '
- EXCEPTIONS
- error = 1
- warning = 2
- OTHERS = 5.
- REFRESH lt_objid.
- *&---------------------------------------------------------------------*
- *& Form get_mat
- *&---------------------------------------------------------------------*
- * text
- *----------------------------------------------------------------------*
- * -->I_MATNR text
- *----------------------------------------------------------------------*
- it_select TYPE sbiwa_t_select,
- ls_select TYPE rsselect.
- lt_fields-fieldname = 'MATNR'.
- APPEND lt_fields.
- * http://www.sapfans.com/forums/viewtopic.php?f=13&t=231262
- * CALL FUNCTION 'VIEW_GET_DDIC_INFO'
- * CALL FUNCTION 'VIEW_FILL_WHERETAB'
- ls_select-fieldnm = 'MATNR'.
- LOOP AT p_matnr.
- CALL FUNCTION 'AIBZ_FILL_WHERE_CLAUSE'
- EXPORTING
- i_tabname = 'MARA'
- it_select = it_select[]
- IMPORTING
- es_where_clause = lt_where.
- APPEND lt_options.
- CALL FUNCTION 'RFC_READ_TABLE' DESTINATION p_dest
- EXPORTING
- query_table = 'MARA'
- * delimiter = ht
- * rowcount = lv_rows
- OPTIONS = lt_options
- fields = lt_fields
- data = lt_data
- EXCEPTIONS
- table_not_available = 1
- table_without_data = 2
- option_not_valid = 3
- field_not_valid = 4
- not_authorized = 5
- data_buffer_exceeded = 6
- OTHERS = 9.
- EXIT.
- ELSE.
- APPEND i_matnr.
- GeSHi ©