How to hide the message or delete the message in CRM WEB UI

Question

Hi ,
I am able to set the quantity value to 1 as default by enhancing the component and adding code to DO_PREPARE_OUTPUT and using method set_property by checking the current guid .
However i am getting the message ' Enter the Quantity (No Schedule Line found) '
Please provide your valuable inputs!!
Lakshmi

Answer 1

Hi ,
I am using below given code.Please suggest changes to the same.
As teh quantity is not getting defaulted to 1.
ls_schedlin_i-ref_handle = '0000000001'.
ls_schedlin_i-ref_guid = is_orderadm_i_wrk-guid.
  ls_schedlines-guid = lv_guid.
ls_schedlines-guid = is_orderadm_i_wrk-guid.
  ls_schedlines-item_guid = is_orderadm_i_wrk-guid.
  ls_schedlines-Quantity = '1'.
ls_schedlines-LogicalKey = lv_guid.
  ls_schedlines-mode = 'A'.
append ls_schedlines to lt_schedlines.
  ls_schedlin_i-schedlines = lt_schedlines.
  append ls_schedlin_i to lt_schedlin_i.
  ls_input_fields-ref_guid = is_orderadm_i_wrk-guid.
  ls_input_fields-ref_kind = 'A'.
  ls_input_fields-objectname = 'ORDERADM_I'.
  ls_field_names-fieldname = 'MODE'.
  append ls_field_names to lt_field_names.
  clear : ls_field_names ,ls_input_fields.
  ls_input_fields-ref_guid = is_orderadm_i_wrk-guid.
  ls_input_fields-ref_kind = 'A'.
  ls_input_fields-objectname = 'ORDERADM_I'.
  ls_field_names-fieldname = 'ORDERED_PROD'.
  append ls_field_names to lt_field_names.
  clear : ls_field_names ,ls_input_fields.
  ls_input_fields-field_names = lt_field_names.
  append ls_input_fields to lt_input_fields.
ls_input_fields-ref_handle = '0000000001'.
  ls_input_fields-ref_guid = is_orderadm_i_wrk-guid.
  ls_input_fields-ref_kind = 'A'.
  ls_input_fields-objectname = 'SCHEDLIN'.
  ls_field_names-fieldname = 'Quantity'.
  append ls_field_names to lt_field_names.
  ls_input_fields-field_names = lt_field_names.
  append ls_input_fields to lt_input_fields.
CALL FUNCTION 'CRM_SCHEDLIN_I_MAINTAIN_OW'
EXPORTING
  IV_FIELD_SELECTION_OFF        = FALSE
  IV_EXTERNAL_CALL              = FALSE
  CHANGING
    cs_schedlin_i_com             = lt_schedlin_i
    ct_input_fields               = lt_input_fields
EXCEPTIONS
   SCHEDLIN_I_CHANGE_ERROR       = 1
   SCHEDLIN_I_CREATE_ERROR       = 2
   ERROR_OCCURRED                = 3
   OTHERS                        = 4
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'CRM_ORDER_SAVE_OW'
EXPORTING
  IT_OBJECTS_TO_SAVE            =
  IV_UPDATE_TASK_LOCAL          = FALSE
  IV_SAVE_FRAME_LOG             = FALSE
  IV_LOG_HANDLE                 =
  IV_NO_BDOC_SEND               = FALSE
  IV_CANCELLED_WHEN_ERROR       =
  IT_ACTIVE_SWITCH              =
IMPORTING
  ET_SAVED_OBJECTS              =
  ET_OBJECTS_NOT_SAVED          =
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
  WAIT          =
IMPORTING
  RETURN        =
commit work and wait.