Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

doesnt appear the Classification View for a material

Former Member
0 Kudos

I have made this.

    "Classification
            CLEAR class.
            class-object = bapi_head-material.
            class-objecttable = 'MARA'.
            class-classnum = 'ZPERU_TIPO_ARTÍCUL'.
            class-classtype = '001'.

            CALL FUNCTION 'BAPI_OBJCL_CREATE'
              EXPORTING
                OBJECTKEYNEW    = class-object
                OBJECTTABLENEW  = class-objecttable
                CLASSNUMNEW     = class-classnum
                CLASSTYPENEW    = class-classtype
              TABLES
                RETURN          = returnmessages.

The problem is that doesn't appear the view for this material, what else do I have to do?

Thanks

2 REPLIES 2

FredericGirod
Active Contributor
0 Kudos

Maybe you need more something like that :

*---------------------------------------------------------------------*
*   Form P_CHARGEMENT.                                                *
*---------------------------------------------------------------------*
*---------------------------------------------------------------------*

FORM p_chargement.


  DATA : w_classtype    TYPE klassenart ,
         w_nametable    TYPE tabelle ,
         w_objectname   TYPE objnum ,
         w_key          TYPE cuobj ,
         w_flag_error   TYPE char1 ,

         is_classdetail TYPE bapi1003_basic ,

         it_libelle    TYPE tt_bapi1003_catch   WITH HEADER LINE ,
         it_charact    TYPE tt_bapi1003_charact WITH HEADER LINE ,
         it_return     TYPE tt_bapiret2         WITH HEADER LINE .

* Boucle sur la table des données.

  LOOP AT itg_data.

*   Initialisation.

    MOVE : '022'          TO w_classtype ,
           'MARA'         TO w_nametable ,
           itg_data-matnr TO w_objectname .
    CLEAR : w_key, it_return, w_flag_error.
    REFRESH it_return.

*   Verifie si une clef existe pour l'article en cours.

    CALL FUNCTION 'BAPI_OBJCL_GET_KEY_OF_OBJECT'
      EXPORTING
        objectname         = w_objectname
        objecttable        = w_nametable
        classtype          = w_classtype
        create_missing_key = 'X'
      IMPORTING
        clobjectkeyout     = w_key
      TABLES
        return             = it_return.

*   Verifie si presence d'erreur(s).

    LOOP AT it_return WHERE type EQ 'E'.
      MOVE 'X' TO w_flag_error.
    ENDLOOP.
    IF w_flag_error EQ 'X'.
      LOOP AT it_return.
        PERFORM p_edition_erreur USING it_return.
      ENDLOOP.
      CHECK 1 EQ 2.
    ENDIF.

*   Initialisation.

    CLEAR it_return.
    REFRESH it_return.

*   Créé l'affectation.

    CALL FUNCTION 'BAPI_OBJCL_CREATE_KEY'
      EXPORTING
        clobjectkey_new = w_key
        classnum_new    = itg_data-classnum
        status          = '1'
      TABLES
        return          = it_return.

*   Verifie si presence d'erreur(s).

    LOOP AT it_return WHERE type EQ 'E'.
      MOVE 'X' TO w_flag_error.
    ENDLOOP.
    IF w_flag_error IS INITIAL.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.

*   Edition des données.

    WRITE : /1 'Affectation pour la class et l''article :' ,
               itg_data-classnum COLOR 3 ,
               itg_data-matnr    COLOR 3 .
    SKIP 1.
    LOOP AT it_return.
      PERFORM p_edition_erreur USING it_return.
    ENDLOOP.
    SKIP 2.

  ENDLOOP.


ENDFORM. " P_CHARGEMENT.

regards

Fred

0 Kudos

Hello,

I have the following message, please help me

this is my code

   *            "Classification
            CLEAR class.
            class-object = bapi_head-material.
            class-objecttable = 'MARA'.
            class-classnum = 'ZPERU_TIPO_ARTÍCUL'.
            class-classtype = '001'.

            CALL FUNCTION 'BAPI_OBJCL_CREATE'
              EXPORTING
                OBJECTKEYNEW    = class-object
                OBJECTTABLENEW  = class-objecttable
                CLASSNUMNEW     = class-classnum
                CLASSTYPENEW    = class-classtype
                STATUS          '1'
                KEYDATE         = SY-DATUM
              TABLES
                RETURN          = returnmessages.