Quantcast
Channel: SCN: Message List - SAP CRM: Webclient UI - Framework
Viewing all articles
Browse latest Browse all 7775

Re: Need to add some fields from transaction data(lead) in the work-list columns of user on web UI.

$
0
0

Thanks a lot Srinivas,

The issue has been resolved now.

The combined code that I have written is:

 

DATA: ls_wi_attributes TYPE crmt_ct_inbox_wf_root_attrib,
         lv_value
TYPE SWW_WIID.

  
DATA: lrf_current_wi TYPE REF TO if_bol_bo_property_access,
            lrf_current_wi_mixed
TYPE REF TO if_bsp_wd_ext_property_access. "It is a mixed Node with Value Attribute(s) now

  
DATA: lv_objlist TYPE TABLE OF SIBFLPORB,
         wa_objlist
TYPE SIBFLPORB,
         lv_return_code
type SYSUBRC,
         lv_object_guid
TYPE SIBFBORIID,
         lv_guid
TYPE CRMT_OBJECT_GUID,
         lv_guid_tb
TYPE CRMT_OBJECT_GUID_TAB,
         lv_orderadm_i
TYPE CRMT_ORDERADM_I_WRKT,
         lw_orderadm_i
type CRMT_ORDERADM_I_WRK,"jjjj
         lv_ordered_product
TYPE CRMT_ITEM_DESCR_PARTNER,
         lv_ordered_product_string
TYPE STRING.


  
if iterator is bound.
     lrf_current_wi_mixed ?=
iterator->get_current( ).
  
else.
     lrf_current_wi_mixed ?= collection_wrapper
->get_current( ).
  
endif.

   lrf_current_wi
= lrf_current_wi_mixed->get_model_node( ).

  
CHECK lrf_current_wi IS BOUND.

   lrf_current_wi
->get_property_as_value( EXPORTING iv_attr_name = 'WI_ID' IMPORTING ev_result = lv_value ).

  
IF lv_value IS NOT INITIAL.       "CHECK lv_value IS BOUND.

    
.
    
CALL FUNCTION 'SAP_WAPI_OBJECTS_IN_WORKITEM'
      
EXPORTING
         WORKITEM_ID    = lv_value
      
IMPORTING
         RETURN_CODE   
= lv_return_code
      
TABLES
         OBJLIST       
= lv_objlist[].

     
IF sy-subrc = 0 AND lv_objlist[] IS NOT INITIAL.

      
READ TABLE lv_objlist INTO wa_objlist WITH KEY TYPEID = 'BUS2000108'.
      
IF sy-subrc = 0 .
         lv_object_guid
= wa_objlist-INSTID.

        
MOVE lv_object_guid to lv_guid.

        
INSERT lv_guid INTO TABLE lv_guid_tb.

        
CALL FUNCTION 'CRM_ORDER_READ'
                 
EXPORTING
                    IT_HEADER_GUID                   
= lv_guid_tb
                 
IMPORTING
                    ET_ORDERADM_I                    
= lv_orderadm_i

      
.         IF sy-subrc = 0.
          
read table lv_orderadm_i into lw_orderadm_i INDEX 1.
           lv_ordered_product
= lw_orderadm_i-ORDERED_PROD.
        
ENDIF.

        
MOVE lv_ordered_product to lv_ordered_product_string.
        
value = lv_ordered_product_string.

      
ENDIF.
    
ENDIF.
  
ENDIF.

 

 

Thanks and Regards,

kavita chaudhary


Viewing all articles
Browse latest Browse all 7775

Trending Articles