Upload Release strategy into T16FW table

Question

Hi Guys
I am trying to uplad data into T16FW table for release strategy but this program is not working , I would be thankful if anyone correct it please.
*& Report  Z_UPLOAD                                    *
REPORT ZUPLOAD.
INCLUDES                                            *
*INCLUDE ole2incl.
*&   TYPES                                            *
TYPES: BEGIN OF ty_t16fw,
       frggr TYPE T16fw-FRGGR,
       frgco TYPE T16fw-frgco,
       WERKS TYPE T16fw-werks,
       otype TYPE T16fw-otype,
       objid TYPE T16fw-objid,
       END of ty_t16fw.
TYPES: BEGIN OF ty_titles,
       title(20) TYPE c,
       field(20) TYPE c,
       END OF ty_titles.
*&   INTERNAL TABLES                                  *
DATA: t_t16fw TYPE STANDARD TABLE OF ty_t16fw,
      t_titles TYPE STANDARD TABLE OF ty_titles.
*&   FIELD-SYMBOLS                                    *
FIELD-SYMBOLS: <fs_t16fw> LIKE LINE OF t_t16fw,
               <fs_titles> LIKE LINE OF t_titles,
               <fs> TYPE ANY.
*&   VARIABLES                                        *
DATA: w_tabix TYPE sy-tabix,
      w_titles TYPE sy-tabix,
      w_line TYPE sy-tabix,
      w_field TYPE string,
      filename TYPE string,
      path TYPE string,
      fullpath TYPE string.
DATA: data_titles TYPE REF TO data.
*DATA: e_sheet TYPE ole2_object,
     e_activesheet TYPE ole2_object,
     e_newsheet TYPE ole2_object,
     e_appl TYPE ole2_object,
     e_work TYPE ole2_object,
     e_cell TYPE ole2_object,
     e_color TYPE ole2_object,
     e_bold TYPE ole2_object.
*&   SELECTION-SCREEN                                 *
SELECTION-SCREEN BEGIN OF BLOCK b1.
PARAMETERS: p_file TYPE rlgrap-filename,
p_objid TYPE t16fw-objid. "no-extension no intervals OBLIGATORY,
SELECTION-SCREEN END OF BLOCK b1.
*&  START-OF-SELECTION                                *
START-OF-SELECTION.
  PERFORM get_titles.
  PERFORM get_data.
*& AT SELECTION-SCREEN                                *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      window_title      = 'Select archivo'
      default_extension = 'xls'
      file_filter       = '*.xls'
    CHANGING
      filename          = filename
      path              = path
      fullpath          = fullpath.
  IF sy-subrc EQ 0.
    p_file = fullpath.
  ENDIF.
*&      Form  get_titles                              *
FORM get_titles.
  CREATE DATA data_titles TYPE ty_titles.
  ASSIGN data_titles->* TO <fs_titles>.
  <fs_titles>-title = 'Grp'.
  <fs_titles>-field = 'FRGGR'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'Code'.
  <fs_titles>-field = 'FRGCO'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'Plnt'.
  <fs_titles>-field = 'WERKS'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'Ob'.
  <fs_titles>-field = 'OTYPE'.
  APPEND <fs_titles> TO t_titles.
  <fs_titles>-title = 'AGENT ID'.
  <fs_titles>-field = 'objid'.
ENDFORM.                    "get_titles
*&      Form  get_data                                *
FORM get_data.
  SELECT frggr frgco werks otype objid
  INTO TABLE t_t16fw
  FROM t16fw
  WHERE OBJID EQ 'GAIW'.
objid eq p_objid.
ENDFORM.                    " get_data
Regards
Chris

Answer 1

Hi paedro,
I think coresponding events are triggered by SAP automatically when you release/create a PR. What you need to do is just do Event Type Linkage of those events with your Workflow .
For this you can use transaction SWETYPV
Also see
Please check the configuration for Release groups (Path SPRO->Materials Management->Purchasing->Purchase Requisition->Release Procedure->Procedure with Classification->Set up Procedure with Classification->Release Groups). In this, you should check 'OverReqRel'.
Check if you are using workflow template WS20000077 (Workflow for overall release of requisition) with object type 'BUS2105'.
Workflow template WS00000038 (Workflow for requisition release) with object type 'BUS2009', is used for releasing at the item level.
regards,
Hareesha k