Creating a Service Order automatically when saving a Sales Order

Question

Hello SDN,
I'm trying to have SAP automatically create a Service Order when a Sales Order is created. To this end, I've tried implementing BADI workitem_template and have been using method before_update. I've been using BAPI BAPI_ALM_ORDER_MAINTAIN to create the service order.
The problem is that in order for the BAPI to save the service order, the sales order needs to be fully saved and operational. Otherwise it just keeps saying 'sales order does not exist'. So the problem is that the BADI is intervening too soon in the saving process. The temporary sales order numbers have been replaced with actual ones, but the records do not show in the database just yet. I think there's a commit that still needs to be done or something.
However, I cannot find a BADI or user exit that intervenes after the sales order is saved into the database, so this leaves me stranded.
Any suggestions would be heartily apprechiated.
Kind Regards,
Niels.
Edited by: Niels Ruelens on Feb 20, 2008 4:20 PM
Edited by: Niels Ruelens on Feb 20, 2008 4:22 PM

Answer 1

Following your suggestions, I've created an update function module and inserted it into the USEREXIT_SAVE_DOCUMENT. In this function module, I'm calling the BAPI.
Problem with this approach is that I cannot debug, nor is he actually doing anything. Here's the code that is put in the function. Is there anything wrong with the way I call the BAPI perhaps?
  DATA:
    lt_srule     TYPE TABLE OF bapi_alm_order_srule,
    lt_bheader   TYPE TABLE OF bapi_alm_order_headers_i,
    lt_srule_up  TYPE TABLE OF bapi_alm_order_srule_up,
    lt_methods   TYPE TABLE OF bapi_alm_order_method,
    lt_return    TYPE TABLE OF bapiret2,
    ls_vbak      TYPE vbak,
    ls_vbap      TYPE vbap,
    ls_bheader   TYPE bapi_alm_order_headers_i,
*    ls_header    TYPE cobai_s_header,
    ls_prps      TYPE prps,
    ls_srule     TYPE bapi_alm_order_srule,
    ls_srule_up  TYPE bapi_alm_order_srule_up,
    ls_methods   TYPE bapi_alm_order_method.
*    ls_item      TYPE cobai_s_item.
  SELECT SINGLE * INTO ls_vbak
  FROM vbak
  WHERE vbeln = vbeln.
  SELECT SINGLE * INTO ls_vbap
  FROM vbap
  WHERE vbeln = vbeln.
  FREE: lt_methods, lt_bheader, lt_srule.
* Fill methods
  CLEAR ls_methods.
  ls_methods-refnumber  = 1.
  ls_methods-objecttype = 'HEADER'.
  ls_methods-method     = 'CREATE'.
  ls_methods-objectkey  = '%00000000001'.
  APPEND ls_methods TO lt_methods.
*  CLEAR ls_methods.
*  ls_methods-refnumber  = 1.
*  ls_methods-objecttype = 'SRULE'.
*  ls_methods-method     = 'CREATE'.
*  ls_methods-objectkey  = '%00000000001'.
*  APPEND ls_methods TO lt_methods.
  CLEAR ls_methods.
  ls_methods-refnumber  = 1.
  ls_methods-objecttype = ''.
  ls_methods-method     = 'SAVE'.
  ls_methods-objectkey  = '%00000000001'.
  APPEND ls_methods TO lt_methods.
* Fill header
  CLEAR ls_bheader.
  ls_bheader-orderid    = '%00000000001'.
  ls_bheader-order_type = 'ZM02'.
  ls_bheader-funct_loc  = 'FERBL_TD5C_DER'.
  ls_bheader-planplant  = 'B006'.
  ls_bheader-sales_ord  = vbeln.
  ls_bheader-s_ord_item = '00010'.
  APPEND ls_bheader TO lt_bheader.
** Convert the internal WBS to an external WBS element
*  SELECT SINGLE * INTO ls_prps
*  FROM prps
*  WHERE pspnr = ls_vbap-ps_psp_pnr.
**   Fill settlement rules
*  ls_srule-objnr =   ls_item-aufnr.
****    ls_srule-sales_ord = caufvd_imp-kdauf_aufk.
****    ls_srule-s_ord_item = caufvd_imp-kdpos_aufk.
*  ls_srule-wbs_element = ls_item-projn.
*  ls_srule-settl_type = 'FUL'.
*  ls_srule-percentage = 100.
*  ls_srule-extnr = 1.
*  APPEND ls_srule TO lt_srule.
*  ls_srule_up-wbs_element = 'X'.
*  ls_srule_up-sales_ord = 'X'.
*  ls_srule_up-s_ord_item = 'X'.
*  ls_srule_up-orderid = 'X'.
*  ls_srule_up-settl_type = 'X'.
*  ls_srule_up-percentage = 'X'.
*  ls_srule_up-extnr = 'X'.
*  APPEND ls_srule_up TO lt_srule_up.
  CALL FUNCTION 'BAPI_ALM_ORDER_MAINTAIN'
    TABLES
      it_methods              = lt_methods
      it_header               = lt_bheader
*          IT_HEADER_UP            =
*          IT_HEADER_SRV           =
*          IT_HEADER_SRV_UP        =
*          IT_USERSTATUS           =
*          IT_PARTNER              =
*          IT_PARTNER_UP           =
*          IT_OPERATION            =
*          IT_OPERATION_UP         =
*          IT_RELATION             =
*          IT_RELATION_UP          =
*          IT_COMPONENT            =
*          IT_COMPONENT_UP         =
*          IT_OBJECTLIST           =
*          IT_OBJECTLIST_UP        =
*          IT_OLIST_RELATION       =
*          IT_TEXT                 =
*          IT_TEXT_LINES           =
*     it_srule                = lt_srule
*     it_srule_up             = lt_srule_up
*          IT_TASKLISTS            =
*          EXTENSION_IN            =
         return                  = lt_return.
*          ET_NUMBERS              =.
  IF sy-subrc = 0.
  ENDIF.
Edited by: Niels Ruelens on Feb 20, 2008 4:58 PM