01-30-2014 6:40 PM
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
01-30-2014 7:15 PM
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
01-30-2014 8:01 PM
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.