Order reasons in CRM 4.0

Question

Hi experts,
We are working on CRM 4.0 and R/3 4.6c as the background.
As part of our busines requirement we need to make order reason as the mandatory field while creating sales transaction in CRM .We have customized bringing order reasons through Activity Reason functionality in CRM .
we have implemented a BAdi "CRM_ORDERADM_H_BADI".for making this activity reason as mandatory.
every time we create sales transaction we need to put twice the activity reason inorder to get this BAdi to activate.
Can anybody plz advice me in this regard why it is behaving like this?
any helpful answers will be rewarded.
Thanks in advance.
DV.

Answer 1

Hi Gunwan,
Thank you for the response.
We have implemented the BAdi"ZCRM_ORDERADM_H_BADI under Definition name CRM_ORDERADM_H_BADI.
<b>Functionality of the BAdi:</b>In order to make the activity reason as mandatory field while creating so called Transaction.
if we do not maintain Activity Reason while creating the Sales Transaction this BAdi will throw an error message.
<b>The following is the Code:</b>Method: CRM_ORDERADM_H_CHECK
method IF_EX_CRM_ORDERADM_H_BADI~CRM_ORDERADM_H_CHECK .
    data : lV_HEADER_GUID TYPE  CRMT_OBJECT_GUID,
           ev_process_type  TYPE  CRMT_PROCESS_TYPE,
           et_subject_wrk  TYPE  CRMT_SRV_SUBJECT_WRKT,
           t_msgidno type BAL_R_IDNO,
           ls_msgidno type BAL_S_IDNO,
           lt_msgidno type bal_r_idno,
           lv_save_message.
    CONSTANTS: BEGIN OF gc_object_name,
               orderadm_h    TYPE  crmt_object_name  VALUE 'ORDERADM_H',
              END OF gc_object_name.
get header guid
    CALL FUNCTION 'CRM_INTLAY_GET_HEADER_GUID'
      IMPORTING
        ev_header_guid = lv_header_guid.
get process type
    CALL FUNCTION 'CRM_INTLAY_GET_PROCESS_TYPE'
      EXPORTING
        iv_orderadm_h_guid  = lv_header_guid
      IMPORTING
        ev_process_type     = ev_process_type
      EXCEPTIONS
        proc_type_not_found = 1
        OTHERS              = 2.
check for process types
    IF ev_process_type EQ 'ZOR' OR ev_process_type EQ 'ZFC'.
get order reason code
      CALL FUNCTION 'CRM_SERVICE_OS_GET_REASON_OW'
        EXPORTING
          iv_ref_guid    = lv_header_guid
        IMPORTING
          et_subject_wrk = et_subject_wrk
        EXCEPTIONS
          invalid_guid   = 1
          no_valid_entry = 2
          OTHERS         = 3.
delete message first
      ls_msgidno-sign = 'I'.
      ls_msgidno-option = 'EQ'.
      ls_msgidno-low-msgid = 'ZCRM_MW'.
      ls_msgidno-low-msgno = '006'.
      APPEND ls_msgidno TO lt_msgidno.
      CALL FUNCTION 'CRM_MESSAGES_DELETE'
        EXPORTING
          it_r_msgidno   = lt_msgidno
          iv_ref_object  = lv_header_guid
          iv_caller_name = gc_object_name-ORDERADM_H.
send error message if order reason is not entered
      IF et_subject_wrk IS INITIAL.
        MESSAGE ID 'ZCRM_MW' TYPE 'E' NUMBER '006' WITH 'in Business Activity tab'
        INTO lv_save_message.
       CALL FUNCTION 'CRM_MESSAGE_COLLECT'
          EXPORTING
            iv_caller_name = gc_object_name-orderadm_h " See include program CRM_OBJECT_NAMES_CON
            iv_ref_object  = lv_header_guid.
      ENDIF.
    ENDIF.
endmethod.
plz advice me in this regard.
Thanks in advance.
DV.