Hi anithosh,
The reference current1 is not bound and hence you are getting the null reference dump.
like
current = me->typed_context->btadminh->collection_wrapper->get_current( ),
even ' current1' should be assigned with a reference.
METHOD do_prepare_output.
**CALL METHOD SUPER->DO_PREPARE_OUTPUT
*** EXPORTING
** iv_first_time = ABAP_FALSE
DATA: current TYPE REF TO if_bol_bo_property_access,
account TYPE zbut0000j3l1fr-zztfldc5lbfr,
partner TYPE string,
lv_partner_fct TYPE string,
current1 TYPE REF TO cl_crm_bol_entity.
DATA:lr_partner_set TYPE REF TO cl_crm_bol_entity,
lr_partner TYPE REF TO cl_crm_bol_entity,
lr_partner_all TYPE REF TO IF_BOL_entity_col.
current = me->typed_context->btadminh->collection_wrapper->get_current( ).
IF current IS NOT INITIAL.
CALL METHOD current->get_property_as_string
EXPORTING
iv_attr_name = 'ZZFLD00000B '
* iv_use_iso_format = ABAP_FALSE
RECEIVING
rv_result = account. *getting accout number which is
given in account no in webui
IF account IS INITIAL. .
SELECT SINGLE partner FROM zbut0000j3l1fr INTO partner WHERE
zztfldc5lbfr = account.
IF partner IS NOT INITIAL.
lv_partner_fct = partner.*Getting partner number which is
related to account number from ztable entry.
*suppose account number
123456 then partner number 000000142
* if lv_partner_fct is not INITIAL.
lr_partner_set = current1->get_related_entity('BTHeaderPartnerSet').
IF lr_partner_set is BOUND.
lr_partner_set->get_related_entities( EXPORTING
IV_RELATION_NAME = 'BTPartnerAll'
RECEIVING RV_RESULT =
lr_partner_all ).
IF lr_partner_all is BOUND.
lr_partner = lr_partner_all->get_first( ).
WHILE lr_partner is bound.
CALL METHOD lr_partner->if_bol_bo_property_access~get_property_as_string
EXPORTING
iv_attr_name = 'PARTNER_FCT'
* iv_use_iso_format = ABAP_FALSE
receiving
rv_result = lv_partner_fct.
IF lv_partner_fct = 'SOLDTO_PARTY'."give the sold to party partner fct
TRY.
CALL METHOD
lr_partner->if_bol_bo_property_access~set_property_as_string
EXPORTING
iv_attr_name = 'SOLDTO_NAME'
iv_value = partner.
CATCH cx_sy_conversion_error .
ENDTRY.
ENDIF.
* lr_partner = lr_partner->get_name( ).
ENDWHILE.
ENDIF.
endif.
ENDIF.
ENDIF.
ENDIF.
* do_prepare_output original code part before redefine
prepare_toolbar( ).
determine_prc_state( ).
ENDMETHOD.