Status change in appropriation Request

[Former Member]

Hi ,

I need your help in resolving the following

I'm using Appropriation requests in IM.When AR is approved it will have status APRV.If AR released,it will create a measure (WBS) automaticaly.At this stage the the Investement program details in AR will disappear as these will be assigned to investement measure.At this point of time,the system status of AR is REL RBMS.

If now it is decided not to go with this measure,is there anyway to get back the status of AR back to APRV only? Plz suggest any method to revoke the status of AR from REL RBMS back to APRV,.

Regards,

[former_member209919]

Hi,

I think it is not possible to revoke status release. But you can use user status, you can create 2 user sttaus for example REL and NREL , the first one can be set automatically when AR is released and the other one can be set manuallly if finally you decide revoke it.

I hope this can be useful,

Cheers,

Sara

[Former Member]

Well, why not , the status of the object changes the standard modules of the system , such as the status of removing the application (appropriation request) can be set with the following code ( the general gist ) :

  data: l_subrc like sy-subrc,

        l_objnr like imak-objnr,

        lt_msg like mesg occurs 2 with header line.

  clear: pt_return [].

  call function 'AIA_BAPI_APPREQ_CLEAR_BUFFER'.

  call function 'MESSAGES_INITIALIZE'.

  concatenate 'IQ' g_imak_posid into l_objnr.

    call function 'STATUS_CHANGE_FOR_ACTIVITY'

    exporting

      check_only = false

      objnr = l_objnr

      vrgng = 'GENA'.

  call function 'STATUS_CHANGE_FOR_ACTIVITY'

    exporting

      check_only = false

      objnr = l_objnr

      vrgng = 'LVMS'.

  call function 'MESSAGES_STOP'

    exceptions

      i_message = 01

      w_message = 02

      e_message = 03

      a_message = 04.

  if sy-subrc <> 0 .

    call function 'MESSAGES_GIVE'

      tables

        t_mesg = lt_msg.

    loop at lt_msg.

      pt_return-type = lt_msg-msgty.

      pt_return-id = lt_msg-arbgb.

      pt_return-number = lt_msg-txtnr.

      pt_return-message_v1 = lt_msg-msgv1.

      pt_return-message_v2 = lt_msg-msgv2.

      pt_return-message_v3 = lt_msg-msgv3.

      pt_return-message_v4 = lt_msg-msgv4.

      pt_return-row = lt_msg-zeile.

      append pt_return.

    endloop.

  endif.