Changing a crm order status

Question

Hi!!! I wrote a post some weeks ago but i didn't solve my problem... I need to make a change in a crm badi (ORDER_SAVE) to get the following results: when i create a new order it is created by default with status "open" and i want it to become "in process" so that it is created automatically in R/3..
In this badi i have tried some things, like using function CRM_ORDER_MAINTAIN, CRM_STATUS_CHANGE_INTERN_VB.. but i it doesn't work..
Has anyone any idea to do this ??
thanks in advance !!

Answer 1

ok, my source code is the following...
  LOOP AT i_crmd_orderadm_h.
    CLEAR: str_stat, lv_stat, ti_crm_jest.
    REFRESH: ti_crm_jest.
    SELECT *
      FROM crm_jest
        INTO TABLE ti_crm_jest
          WHERE objnr = i_crmd_orderadm_h-guid.
    LOOP AT ti_crm_jest.
      str_stat-stat   = ti_crm_jest-STAT.
      str_stat-inact  = 'X'.
      APPEND str_stat TO lv_stat.
      CLEAR str_stat.
    ENDLOOP.
    ls_input_fields-ref_guid         = i_crmd_orderadm_h-guid.
    ls_input_fields-ref_kind         = 'A'.
    ls_input_fields-objectname       = 'STATUS'.
    ls_input_field_names-fieldname   = 'ACTIVATE'.
    INSERT ls_input_field_names
                   INTO TABLE ls_input_fields-field_names.
    INSERT ls_input_fields INTO TABLE lt_input_fields.
    CLEAR ls_status.
    REFRESH lt_status.
    ls_status-ref_guid = i_crmd_orderadm_h-guid.
    ls_status-ref_kind = 'A'.
    ls_status-status   = 'E0002'.
    ls_status-activate = ' '.
    APPEND ls_status TO lt_status.
    CALL FUNCTION 'CRM_ORDER_MAINTAIN'
      EXPORTING
        IT_STATUS         = lt_status
      CHANGING
        CT_INPUT_FIELDS   = lt_input_fields
      EXCEPTIONS
        ERROR_OCCURRED    = 1
        DOCUMENT_LOCKED   = 2
        NO_CHANGE_ALLOWED = 3
        NO_AUTHORITY      = 4
        OTHERS            = 5.
    CLEAR ls_status.
    REFRESH lt_status.
    ls_status-ref_guid = i_crmd_orderadm_h-guid.
    ls_status-ref_kind = 'A'.
    ls_status-status   = 'E0003'.
    ls_status-activate = 'X'.
    APPEND ls_status TO lt_status.
    CALL FUNCTION 'CRM_ORDER_MAINTAIN'
      EXPORTING
        IT_STATUS         = lt_status
      CHANGING
        CT_INPUT_FIELDS   = lt_input_fields
      EXCEPTIONS
        ERROR_OCCURRED    = 1
        DOCUMENT_LOCKED   = 2
        NO_CHANGE_ALLOWED = 3
        NO_AUTHORITY      = 4
        OTHERS            = 5.
    CALL FUNCTION 'CRM_STATUS_CHANGE_INTERN_VB'
      EXPORTING
        OBJNR  = i_crmd_orderadm_h-guid
      TABLES
        STATUS = lv_stat.
    clear lv_stat.
    str_stat-stat = 'I1054'.
    str_stat-inact = 'X'.
    APPEND str_stat TO lv_stat.
    CLEAR str_stat.
    str_stat-stat = 'I1003'.
    str_stat-inact = ' '.
    APPEND str_stat TO lv_stat.
    CLEAR str_stat.
    CALL FUNCTION 'CRM_STATUS_CHANGE_INTERN_VB'
      EXPORTING
        OBJNR  = ti_crm_jest-objnr
      TABLES
        STATUS = lv_stat.
    data: lt_basket_guid       TYPE  crmt_object_guid_tab.
    INSERT i_crmd_orderadm_h-guid INTO TABLE lt_basket_guid.
    CALL FUNCTION 'CRM_ORDER_SAVE'
      EXPORTING
        IT_OBJECTS_TO_SAVE   = lt_basket_guid
        iv_update_task_local = 'X'
      IMPORTING
        et_saved_objects     = lt_saved_objects
      EXCEPTIONS
        DOCUMENT_NOT_SAVED   = 1
        OTHERS               = 2.
    IF NOT lt_saved_objects IS INITIAL.
      COMMIT WORK.
    endif.
  ENDLOOP.
Yes.. i know it's a little "dirty" code, but it's the only way to make the report work well... my problem is that the order is replicated in R/3 but when i check the order in CRM the system status has changed but the user status no...