Need a BADI for Manipulating Purchase Order Payment Terms?

Question

Anybody know of one? We are on 4.6C....Thank-You.

Answer 1

Hello Sudheer,
This would be great only I do not see "Call method cl_exithandler=>get_class_name_by_interface " to put a break point in the GET_INSTANCE Code....below. Also, I only see one Method in cl_exithandler and it is GET_INSTANCE. I would really like to do what you say but can't figure out where to pit the breakpoint........Thank-You
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.
act_imp_existing
  IF subrc = 2.
    act_imp_existing = seex_false.
  ELSE.
    act_imp_existing = seex_true.
  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.