Error : enter currency when we create opportunity (default currency error).

Question

Hi,
We did default currency as Before saving itu2019s showing error : enter currency. I redefine attribute structure.currency context node: BTPRICINGSET View : BT111h_OPPT/details component : BT111H_OPPT.and also redefine curr, currtotval and also for item attribute : currency level view : bt111h_oppt/itemlist context node : btadmini.
If I choose edit then select form list then it's getting saved and if I hit enter button on Exp. Sales volume(structure.currency) it's saving without errors. Why data is not refreshing when we save? please guide me. and implemented BADI also itu2019s not reflecting in web ui only reflecting gui.    
I redefine get and set methods. Below is code
METHOD GET_CURRENCY.
*standard code
  DATA: current TYPE REF TO if_bol_bo_property_access.
  DATA: dref    TYPE REF TO data.
  DATA: lr_collection TYPE REF TO if_bol_bo_col,
        lr_entity        TYPE REF TO cl_crm_bol_entity,
        lr_BTPricingSet  TYPE REF TO cl_crm_bol_entity.
  value = ''.                       "#EC NOTEXT
* get entity BTAdminI
  IF iterator IS BOUND.
    current = iterator->get_current( ).
  ELSE.
    current = collection_wrapper->get_current( ).
  ENDIF.
* get related entity BTPricingSet
  TRY.
      lr_entity ?= current.
      lr_collection = lr_entity->get_related_entities(
             iv_relation_name = 'BTItemPricingSet' ).
      current = lr_collection->get_current( ).
*     Create dependent objects
      IF current IS NOT BOUND.
        IF lr_entity->is_changeable( ) = abap_true.
          lr_BTPricingSet = lr_entity->create_related_entity( iv_relation_name = 'BTItemPricingSet' )."#EC NOTEXT
        ENDIF.
      ENDIF.
      TRY.
          dref = current->get_property( 'CURRENCY' ).       "#EC NOTEXT
        CATCH cx_crm_cic_parameter_error.
      ENDTRY.
    CATCH cx_sy_ref_is_initial cx_sy_move_cast_error
          cx_crm_genil_model_error.
      RETURN.
  ENDTRY.
  IF dref IS NOT BOUND.
    value = 'BTPricingSet/CURRENCY not bound'.              "#EC NOTEXT
    RETURN.
  ENDIF.
  TRY.
      value = if_bsp_model_util~convert_to_string( data_ref = dref
                                  attribute_path = attribute_path ).
    CATCH cx_bsp_conv_illegal_ref.
      FIELD-SYMBOLS: <l_data> TYPE data.
      ASSIGN dref->* TO <l_data>.
      CONCATENATE <l_data> '-CURR/QUANT CONV FAILED-' INTO value
                  SEPARATED BY space.                       "#EC NOTEXT
    CATCH cx_root.
      value = '-CONVERSION FAILED-'.                        "#EC NOTEXT
  ENDTRY.
***custom code
value = if_bsp_model_util~convert_to_string( data_ref = dref
                                  attribute_path = attribute_path ).
if value is not initial.
  value = value.
  else.
  clear : value.
    if value is initial.
      value = 'SGD'.
      endif.
endif.
ENDMETHOD.
  METHOD SET_CURRENCY.
  DATA:
    current TYPE REF TO if_bol_bo_property_access,
    dref    TYPE REF TO data,
    copy    TYPE REF TO data.
  DATA: lr_collection TYPE REF TO if_bol_bo_col,
    lr_entity        TYPE REF TO cl_crm_bol_entity.
  FIELD-SYMBOLS:
    <nval> TYPE ANY,
    <oval> TYPE ANY.
*   get current entity
  IF iterator IS BOUND.
    current = iterator->get_current( ).
  ELSE.
    current = collection_wrapper->get_current( ).
  ENDIF.
* get related entity BTPricingSet
  TRY.
      lr_entity ?= current.
      lr_collection = lr_entity->get_related_entities(
             iv_relation_name = 'BTItemPricingSet' ).
      current = lr_collection->get_current( ).
    CATCH cx_crm_genil_model_error .
  ENDTRY.
*   get old value and dataref to appropriate type
  TRY.
      TRY.
          dref = current->get_property( 'CURRENCY' ).       "#EC NOTEXT
        CATCH cx_crm_cic_parameter_error.
      ENDTRY.
    CATCH cx_sy_ref_is_initial cx_sy_move_cast_error
          cx_crm_genil_model_error.
      RETURN.
  ENDTRY.
*   assure that attribue exists
  CHECK dref IS BOUND.
*   set <oval> to old value
  ASSIGN dref->* TO <oval>.
*   create a copy for new value
  CREATE DATA copy LIKE <oval>.
*   set <nval> to new value
  ASSIGN copy->* TO <nval>.
*   fill new value using the right conversion
  TRY.
      CALL METHOD if_bsp_model_util~convert_from_string
        EXPORTING
          data_ref = copy
          value    = value.
    CATCH cx_sy_conversion_error.
      RAISE EXCEPTION TYPE cx_bsp_conv_failed
        EXPORTING
          name = 'CURRENCY'.                                "#EC NOTEXT
  ENDTRY.
*   only set new value if value has changed
  IF <nval> <> <oval>.
    current->set_property(
                    iv_attr_name = 'CURRENCY'               "#EC NOTEXT
                    iv_value     = <nval> ).
*this is code which I added
current->set_property( iv_attr_name = 'CURRENCY' iv_value = 'SGD' ).
  ENDIF.
ENDMETHOD.
rose.
Edited by: rose01 on Sep 23, 2010 6:14 AM
please guide me
Edited by: rose01 on Sep 23, 2010 6:31 AM

Answer 1

Rose,
Try removing the custom code in GET_CURRENCY. That is not necessary. Just retain the code in SET_CURRENCY. Put break point in SET and test.