BAPI/FM to update Characteristics value

[Former Member]

Hi,

Is there any BAPI/FM to update Characteristics value entered in Class overview in IQ02 transaction.

Regards,

Mukesh Kumar

[Former Member]

Hi,

Is there any BAPI/FM to update Characteristics value entered in Class overview in IQ02 transaction.

Regards,

Mukesh Kumar

[adrian_mejido]

Hi Mukesh,

Look at this exits, they might help you:

Exit Name           Description

IEQM0001            Add. checks for equip. installation at functional locations

IEQM0002            Additional checks for definition of equipment hierarchies

IEQM0003            Additional checks before equipment update

IEQM0004            Object is allowed for contract partner (Order->MaintCont.)

IEQM0005            Object allowed for SD contract (MaintContract->MaintCont.)

IEQM0006            Object allowed for SD contract (Maintain maintenance cont.)

IEQM0007            Check/change manufacturer field in equipment master.

Best regards

[gayathri_sunil1]

Hi Mikesh.

You can use BAPI  BAPI_OBJCL_CHANGE to chang the charecteristic value in IQ02.  Please try the following code.

data : lt_val_num  type TABLE OF BAPI1003_ALLOC_VALUES_NUM,

        lt_val_char type TABLE OF BAPI1003_ALLOC_VALUES_CHAR,

        lt_val_curr type TABLE OF BAPI1003_ALLOC_VALUES_CURR,

        lt_return   type TABLE OF BAPIRET2,

        ls_val_char type          BAPIRET2.

ls_val_char-CHARACT = 'KONDM'.

ls_val_char-VALUE_CHAR = '01'.

APPEND ls_val_char to lt_val_char.

ls_val_char-CHARACT = 'EXTWG'.

ls_val_char-VALUE_CHAR = '1001 COLORS'.

APPEND ls_val_char to lt_val_char.

CALL FUNCTION 'BAPI_OBJCL_CHANGE'

   EXPORTING

     objectkey                = '000000000011049924'

     objecttable              = 'EQUI'

     classnum                 =  'ZCOUP'

     classtype                =  '002'

*   STATUS                   = '1'

*   STANDARDCLASS            =

*   CHANGENUMBER             =

*   KEYDATE                  = SY-DATUM

*   NO_DEFAULT_VALUES        = ' '

* IMPORTING

*   CLASSIF_STATUS           =

   TABLES

     allocvaluesnumnew        = lt_val_num

     allocvaluescharnew       = lt_val_char

     allocvaluescurrnew       = lt_val_Curr

     RETURN                   = lt_ret.

           .

read table lt_ret into ls_ret with key type = 'E'.

if sy-subrc ne 0.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

*    EXPORTING

*      WAIT          =

*    IMPORTING

*      RETURN        =

              .

  endif.

[SharathYaralkattimath]

Hi Mukesh,

Please look at the code below:-

" BAPI for Characteristics - Check Existence
     CALL FUNCTION 'BAPI_CHARACT_EXISTENCECHECK'
       EXPORTING
         charactname = charactdetail-charact_name
       TABLES
         return      = return.
     READ TABLE return TRANSPORTING NO FIELDS WITH KEY type = 'E'.
     IF sy-subrc EQ 0.
       REFRESH return.
       " BAPI for Characteristics - Create
       CALL FUNCTION 'BAPI_CHARACT_CREATE'
         EXPORTING
           charactdetail       = charactdetail
         TABLES
           charactdescr        = li_charactdescr
           charactvaluesnum    = li_charactvaluesnum
           charactvalueschar   = li_charactvalueschar
           charactvaluescurr   = li_charactvaluescurr
           charactvaluesdescr  = li_charactvaluesdescr
           charactreferences   = li_charactreferences
           charactrestrictions = li_charactrestrictions
           return              = return.
     ELSE.
       REFRESH return.
       " BAPI for Characteristics - Change
       CALL FUNCTION 'BAPI_CHARACT_CHANGE'
         EXPORTING
           charactname            = charactdetail-charact_name
         TABLES
           charactdetailnew       = li_charactdetail
           charactdescrnew        = li_charactdescr
           charactvaluesnumnew    = li_charactvaluesnum
           charactvaluescharnew   = li_charactvalueschar
           charactvaluescurrnew   = li_charactvaluescurr
           charactvaluesdescrnew  = li_charactvaluesdescr
           charactreferencesnew   = li_charactreferences
           charactrestrictionsnew = li_charactrestrictions
           return                 = return.
     ENDIF.
     READ TABLE return TRANSPORTING NO FIELDS WITH KEY type = 'E'.
     IF sy-subrc EQ 0.
       l_exit = 'X'.
       EXIT.
     ELSE.
       REFRESH return.
       "Execute external Commit when using BAPIs
       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
         EXPORTING
           wait   = 'X'
         IMPORTING
           return = return.
ENDIF.

Thanks,

Sharath