Z_implementation of Badi ORDER_SAVE not showing up in WEB UI.

Question

Hi CRM Expert, I did a Z implementation of BADI ORDER_SAVE to auto populate the date , when status changes. The Status is llinkd to the Z_ Date type .We have al the Z_date types in the WEb UI.. but the code is not being triggered ..
The code works fine in GUI but not in WEb UI.
What could be the reason...???

Answer 1

Hi ,
Fetching the current Transaction GUID .
  CALL FUNCTION 'CRM_INTLAY_GET_HEADER_GUID'
    IMPORTING
      ev_header_guid = lv_ref_guid.
Fetching the Process type for which the Badi will trigger .
  CALL FUNCTION 'CRM_INTLAY_GET_PROCESS_TYPE'
    EXPORTING
      iv_orderadm_h_guid  = lv_ref_guid
    IMPORTING
      ev_process_type     = lv_process_type
    EXCEPTIONS
      proc_type_not_found = 1
      OTHERS              = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
CHECK lv_ref_guid IS NOT INITIAL.
  CHECK lv_process_type EQ 'ZDL'.
*Inserting the required fieldname for data into it_requested_objects.
  INSERT gc_object_name-orderadm_h
  INTO TABLE it_requested_objects.
  INSERT gc_object_name-status
  INTO TABLE it_requested_objects.
  INSERT gc_object_name-status_h
  INTO TABLE it_requested_objects.
  INSERT gc_object_name-appointment
  INTO TABLE it_requested_objects.
  INSERT lv_ref_guid INTO TABLE it_header_guid.
Fetching all the Transaction relevent data using FM .
  CALL FUNCTION 'CRM_ORDER_READ'
    EXPORTING
      it_header_guid       = it_header_guid
      iv_only_spec_items   = true
      it_requested_objects = it_requested_objects
    IMPORTING
      et_orderadm_h        = it_orderadm_h
      et_status            = it_status
      et_status_h          = it_status_h
      et_appointment       = it_appointment
    EXCEPTIONS
      document_not_found   = 1
      error_occurred       = 2
      document_locked      = 3
      no_change_authority  = 4
      no_display_authority = 5
      no_change_allowed    = 6
      OTHERS               = 7.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    EXIT.
  ENDIF.
  READ TABLE it_orderadm_h INTO wa_orderadm_h INDEX 1.
  READ TABLE it_status INTO wa_status
  WITH KEY status = 'E0006'.
  IF sy-subrc = 0.
Entering data for structure ls_input_fields
    ls_input_fields-ref_handle  = '0000000000'.
    ls_input_fields-ref_guid    = lv_ref_guid.
    ls_input_fields-ref_kind    = 'A'.
    ls_input_fields-objectname  = 'APPOINTMENT'.
    ls_input_fields-logical_key = 'ZMAINASSI'.
*Entering data for deep structure
    ls_fielname-fieldname = 'DOMINANT'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'DURATION'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'RULE_NAME'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'SHOW_LOCAL'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'TIMESTAMP_FROM'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'TIMESTAMP_TO'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'TIMEZONE_FROM'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'TIMEZONE_TO'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    ls_fielname-fieldname = 'TIME_UNIT'.
    INSERT ls_fielname INTO TABLE ls_input_fields-field_names.
    INSERT ls_input_fields INTO TABLE lt_input_fields.
    GET TIME STAMP FIELD lv_timestamp.
Entering new data for appointment table
    ls_appointment_com-ref_guid       = lv_ref_guid.
    ls_appointment_com-ref_kind       = 'A'.
    ls_appointment_com-timezone_from  = 'INDIA'.
    ls_appointment_com-timestamp_to   = '0'.
    ls_appointment_com-timezone_to    = 'INDIA'.
    ls_appointment_com-appt_type      = 'ZMAINASSI'.
    ls_appointment_com-timestamp_from = lv_timestamp.
    APPEND ls_appointment_com TO it_appointment_com .
Now add the new date i.e.
    CALL FUNCTION 'CRM_APPT_MAINTAIN_SINGLE_OW'
      EXPORTING
        is_appointment_com     = ls_appointment_com
      CHANGING
        ct_input_fields        = lt_input_fields
      EXCEPTIONS
        precondition_violation = 1
        invariant_violation    = 2
        OTHERS                 = 3.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      EXIT.
    ENDIF.
  ENDIF.