How to create Limit/Non-Limit shopping cart using FM in SRM

This blog is result of my 2 days struggle on finding a way to create a SC using only FMs, particularly to create Limit SCs. I saw lot of threads asking and discussing this topic, but no concrete solution. I would like to post the sample code for this.

Assume that you are having a program where you already have the required data to create SCs i.e., item data, accounting data, partner data etc., The you create a FORM like I have shown below. Pass all the required data to the below form. I am not giving here the details of how to fill these tables as the data might vary from case to case.

The important point to note here is to not populate the P_GUID in Accounting, partner, attachment, organisation data, etc tables. Basically where ever there is a need to fill in item guid just leave it as blank. we will fill those details in the below form.

FORM create_limit_sc  TABLES   pt_item STRUCTURE bbp_pds_sc_item_icu

   pt_account STRUCTURE bbp_pds_acc

   pt_partner STRUCTURE bbp_pds_partner

   pt_longtext STRUCTURE bbp_pds_longtext

   pt_limit STRUCTURE bbp_pds_limit

   pt_orgdata STRUCTURE bbp_pds_org

   pt_item_out STRUCTURE bbp_pds_sc_item_icu

   pt_messages_out STRUCTURE bbp_pds_messages

   USING

   pt_attachment TYPE bbpt_pds_att_t

CHANGING ps_header TYPE bbp_pds_sc_header_ic

          ps_header_out type bbp_pds_sc_header_d.

   FIELD-SYMBOLS: <fs_item> TYPE bbp_pds_sc_item_icu,

   <fs_account> TYPE bbp_pds_acc,

   <fs_partner> TYPE bbp_pds_partner,

   <fs_orgdata> TYPE bbp_pds_org,

   <fs_longtext> TYPE bbp_pds_longtext,

   <fs_attachment> TYPE bbp_pds_att_t,

   <fs_limit> TYPE bbp_pds_limit.

   DATA: lv_guid_item_tmp TYPE bbp_guid,

         lv_tmp TYPE bbp_guid,

         ls_header_out TYPE bbp_pds_sc_header_d,

         lv_guid_limit_tmp TYPE bbp_guid,

         lv_error_found TYPE xfeld,

         ls_header_u TYPE bbp_pds_sc_header_u,

         lv_changed TYPE xfeld.

   CLEAR: ls_header_out, ls_header_u, lv_error_found.

*Create header data of SC

   CALL FUNCTION ‘BBP_PD_SC_CREATE’

     EXPORTING

       i_header   = ps_header

     IMPORTING

       e_header   = ps_header_out

     TABLES

       e_messages = pt_messages_out.

   MOVE-CORRESPONDING ps_header_out TO ls_header_u.

*Fill in the item GUID in each of the table

   LOOP AT pt_item ASSIGNING <fs_item>.

     lv_tmp = <fs_item>-guid.

     lv_guid_item_tmp = lv_guid_item_tmp + 1.

     <fs_item>-guid = lv_guid_item_tmp.

     <fs_item>-parent = ls_header_u-guid.

     LOOP AT pt_limit ASSIGNING <fs_limit> WHERE p_guid EQ lv_tmp.

       lv_guid_limit_tmp = lv_guid_item_tmp * 2.

       <fs_limit>-guid = lv_guid_limit_tmp.

       <fs_limit>-p_guid = lv_guid_item_tmp.

       lv_guid_limit_tmp = lv_guid_limit_tmp + 1.

     ENDLOOP.

     LOOP AT pt_account ASSIGNING <fs_account> WHERE p_guid EQ lv_tmp.

       <fs_account>-p_guid = lv_guid_item_tmp.

     ENDLOOP.

     LOOP AT pt_partner ASSIGNING <fs_partner> WHERE p_guid EQ lv_tmp .

       <fs_partner>-p_guid = lv_guid_item_tmp.

     ENDLOOP.

     LOOP AT pt_orgdata ASSIGNING <fs_orgdata> WHERE p_guid EQ lv_tmp.

       <fs_orgdata>-p_guid = lv_guid_item_tmp.

     ENDLOOP.

     LOOP AT pt_attachment ASSIGNING <fs_attachment> WHERE p_guid EQ lv_tmp.

       <fs_attachment>-p_guid = lv_guid_item_tmp.

     ENDLOOP.

     LOOP AT pt_longtext ASSIGNING <fs_longtext> WHERE guid EQ lv_tmp.

       <fs_longtext>-guid = lv_guid_item_tmp.

     ENDLOOP.

     CLEAR:  lv_guid_limit_tmp, lv_tmp.

   ENDLOOP.

*Create item data, accounting data, partnner data. limit data etc.,

   CALL FUNCTION ‘BBP_PD_SC_UPDATE’

     EXPORTING

       i_header   = ls_header_u

       i_save     = ‘X’

       it_attach  = pt_attachment

     IMPORTING

       e_changed  = lv_changed

     TABLES

       i_item     = pt_item

       i_account  = pt_account

       i_partner  = pt_partner

       i_longtext = pt_longtext

       i_limit    = pt_limit

       i_orgdata  = pt_orgdata

       e_messages = pt_messages_out.

   LOOP AT  pt_messages_out WHERE msgty = ‘A’ OR msgty = ‘E’.

     lv_error_found = ‘X’.

   ENDLOOP.

*

*If there are no errors save the SC

   IF lv_error_found NE ‘X’.

     CALL FUNCTION ‘BBP_PD_SC_SAVE’

       EXPORTING

         iv_header_guid = ls_header_u-guid.

     COMMIT WORK.

   ENDIF.

ENDFORM.                    ” CREATE_LIMIT_SC

I hope this will be helpful to all SRM techies

Thanks

sankar.