Problem in implimenting BADI CRM_ORDER_AUTH_CHECK

Question

Hi All
The requirement for BADI is to maintain authorization for own transactions.the users who is involved in transactions should only be authorized to see the transactions.Other users who are not involved in partner function like "Assigned to" & "Account responsible " should not be able to see the transactions like Activity .Lead , Opportunity ,Sales orders.& Service orders.
I Have implemented Badi CRM_ORDER_AUTH_CHECK 
but its giving problem while creating a lead.
this the code
METHOD if_ex_crm_order_auth_check~crm_order_add_auth_check.
******************For the Import Parameter****************************
DATA: wa_header_guid TYPE crmt_object_guid.
DATA: wa_mode TYPE crmt_mode.
DATA: wa_process_type TYPE crmt_process_type.
DATA: wa_orgman_wrk TYPE crmt_orgman_wrk.
************Local Variable********************************************
  DATA: username TYPE xubname.
  DATA: person_number TYPE ad_persnum.
  DATA: partner TYPE bu_partner ,
        partner2 TYPE bu_partner ,
        partner1 TYPE bu_partner ,
        flag(1) ,
        flag1(1).
  DATA: curent_user TYPE sy-uname .
  DATA: wa_username TYPE bapibname ,
        partner_order TYPE crmt_partner_external_wrkt ,
        wa_partner_order LIKE LINE OF partner_order ,
        order_guid TYPE crmt_object_guid_tab ,
        wa_order_guid LIKE LINE OF order_guid ,
        auth_check_flag TYPE crmt_boolean VALUE 'X' .
  DATA: org TYPE  crmt_orgman_wrkt .
  DATA: wa_org LIKE LINE OF org .
  DATA: ls_message   TYPE bapiret2,
        ls_applog    TYPE crmt_bsp_applog_tab,
        lt_messages  TYPE bapiret2_t,
        wa_messages  TYPE bapiret2,
        wa_applog    TYPE crmt_bsp_applog,
        count TYPE i ,
        object_key   TYPE crmt_bsp_objectkey.
  DATA:  del_message  TYPE STANDARD TABLE OF   bapiret2,
         wa_del       TYPE bapiret2,
         ref_object TYPE crmt_object_guid .
  DATA: y_lv_log_handle TYPE balloghndl,
        y_i_header_guid TYPE crmt_object_guid_tab.
  curent_user = sy-uname .
  MOVE iv_header_guid TO wa_order_guid .
  APPEND wa_order_guid TO order_guid .
  wa_username-bapibname = curent_user.
  MOVE iv_header_guid TO ref_object.
  CALL FUNCTION 'COM_BPUS_BUPA_FOR_USER_GET'
    EXPORTING
      is_username           = wa_username
    IMPORTING
      ev_businesspartner    = partner1
    EXCEPTIONS
      no_central_person     = 1
      no_business_partner   = 2
      no_id                 = 3
      no_user               = 4
      no_alias              = 5
      alias_and_user_differ = 6
      internal_error        = 7
      OTHERS                = 8.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
    EXPORTING
      input  = partner1
    IMPORTING
      output = partner1.
  CASE iv_process_type .
    WHEN 'YLD'.
      IF iv_mode EQ 'C' .
        CALL FUNCTION 'CRM_ORDER_READ'
          EXPORTING
            it_header_guid       = order_guid
            iv_no_auth_check     = auth_check_flag
          IMPORTING
            et_orgman            = org
            et_partner           = partner_order
          CHANGING
            cv_log_handle        = y_lv_log_handle
          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 EQ 0 AND partner_order IS NOT INITIAL.
          LOOP AT partner_order INTO wa_partner_order WHERE partner_fct = '00000014' OR partner_fct = '00000012'.
            MOVE wa_partner_order-partner_no TO partner2 .
            IF partner2 EQ partner1 .
              flag = 'X' .
            ENDIF .
            flag1 = 'X' .
          ENDLOOP.
          IF flag NE 'X' and flag1 eq 'X' .
            AUTHORITY-CHECK OBJECT 'CRM_ORD_OE'  ID 'SALES_ORG'  FIELD is_orgman_wrk-sales_org .
            IF sy-subrc NE 0 .
              RAISE no_authority .
            ENDIF.
          ELSE.
            RAISE no_authority .
Please help ASAP

Answer 1

Hi Amiya,
I am working on a same Scenario.
*The users who is involved in transactions should only be authorized to see the transactions
and other users who are not involved in PARTNER FUNCTION should not see the transactions*
So, can u help me out in this.
Thanks & Regards,
Esaki