Badi not invoked in standard code because of act_imp_existing check

Question

HI
Can you please tell me when act_imp_existing is set during cl_exithandler->get_instance method call. We are on 46C.
I have debugged and also checked the code of get_instance. act_imp_existing is not set at all. Now I have seen that wherever in SAP standard code BADI method is invoked based on whether act_imp_existing is not initial BADI is not called at all. Is it by design or I have not implemented BADI properly.
Consider this case.
1) MB_DOCUMENT_BADI (called from mb_post_document)
SAP code is
call method cl_exithandler=>get_instance
changing instance = mb_document_badi.
call method mb_document_badi->mb_document_update
exporting
xmkpf = zmkpf[]
xmseg = zmseg[]
xvm07m = zvm07m[].
Here since act_imp_existing is not being used call goes thru whereas
in
2) BADI me_define_caltype (called from me21n, me22n). SAP code is
if static_calctype_instance is initial.
call method cl_exithandler=>get_instance
importing
act_imp_existing = static_calctype_active
changing
instance = static_calctype_instance.
endif.
if not static_calctype_active is initial.
call method static_calctype_instance->define_calctype
exporting
im_x_nekko = p_im_nekko
im_x_oekko = p_im_oekko
im_x_nekpo = p_im_nekpo
im_x_oekpo = p_im_oekpo
im_x_nbekpo = p_im_nbekpo
im_x_obekpo = p_im_obekpo
changing
ch_x_lf_calctype = p_lf_calctype.
endif.
Here since static_calctype_active is not set badi won't be invoked. Please tell me how to invoke define_calctype which I need to manually do repricing during me21n/me22n.
Regards
Saurav Choudhury

Answer 1

HI
  Christian and Sergei
   Thanks a lot for the reply. But may be there is some note which would apply the correction as per sergei. (But while searching thru oss I could not find any such note). Source code of our system is as follows.
method get_instance.
  class cl_abap_typedescr definition load.
  data: exit type ref to object,
        temp type abap_abstypename,
        int_ref type ref to cl_abap_refdescr,
        type_ref type ref to cl_abap_typedescr,
        interface type seoitfname,
        exit_name type exit_def,
        clskey type seoclskey,
        mult type seex_boolean,
        subrc like sy-subrc,
        abs_type_classname type string.
The absolte type name of the changing parameter instance
is got via dynamic describe
  call method cl_abap_typedescr=>describe_by_data
         exporting
                   p_data       = instance
         receiving
                   p_descr_ref  = type_ref.
  if type_ref->type_kind ne type_ref->typekind_oref.
    raise no_reference.
  endif.
  catch system-exceptions others = 1.
    int_ref ?= type_ref.
  endcatch.
  if sy-subrc = 1.
    raise no_reference.
  endif.
  call method int_ref->get_referenced_type
        receiving
            p_descr_ref = type_ref.
  if type_ref->type_kind ne type_ref->typekind_intf or
     type_ref->absolute_name ns '\INTERFACE='.
    raise no_interface_reference.
  endif.
Get the interface name by the absolute type name
  split type_ref->absolute_name at '=' into temp interface.
Get the exit_name for the interface name
  select exit_name from sxs_inter into exit_name
           where inter_name = interface.
    exit.
  endselect.
  if sy-subrc = 4.
    raise data_incons_in_exit_managem.
  endif.
Get the name of the exit class
  call function 'SXV_GET_CLIF_BY_NAME'
       exporting
            name   = exit_name
            prefix = seex_exit_class_prefix
       importing
            clif   = clskey-clsname.
  concatenate '\CLASS=' clskey-clsname into abs_type_classname.
Is the given instance initial?
  if not instance is initial.
    call method cl_abap_typedescr=>describe_by_object_ref
           exporting
                     p_object_ref = instance
           receiving
                     p_descr_ref  = type_ref.
    check type_ref->absolute_name ne abs_type_classname.
  endif.
check how many implementations exist for an exit
  call function 'SXC_ACT_IMPS_PER_FLT_VAL'
       exporting
            exit_name                = exit_name
       exceptions
            multiply_active          = 1
            no_active_implementation = 2
            others                   = 3.
  subrc = sy-subrc.
  if subrc = 1.
there are more than one active implementations
read the properties of the exit
    select single mltp_use from sxs_attr into mult
                  where exit_name = exit_name.
    if sy-subrc = 4.
      raise data_incons_in_exit_managem.
    elseif mult = seex_false.          " singular exit
      raise single_exit_multiply_active.
    endif.
  endif.
ok, then do your job
  create object exit type (abs_type_classname).
  catch system-exceptions move_cast_error = 1.
    instance ?= exit.
  endcatch.
  if sy-subrc = 1.
    raise cast_error.
  endif.
endmethod.