Problem in executing BAPI_GOODSMVT_CREATE

Question

Hello Experts,
I have created STO. From STO  I have created an Inbound Delivery.Now I have to do PGR by using BAPI_GOODSMVT_CREATE.
I am passing
  GOODSMVT_CODE  01
GOODSMVT_ITEM
  Material
  Plant
  Storage Location
  Batch
  Move _Type - 109  (As mentioned by Functional)
  Entry_QNT
  Entry_UOM
  PO_Number
  PO_Item
  No_More_GR
  MVT_IND - B
  DELIV_NUMB_TO_SEARCH
  DELIV_ITEM_TO_SEARCH
But error message getting populated in IT_RETURN
E M7                   036 No goods receipt possible for purchase order 5700000855 00010
Can anyone solve this problem??
One more query is this the correct BAPI to do PGR via tcode VL32N??

Answer 1

Hi please check this sample code. it creates goods movement using this BAPIits just that its a upload program. you can modify by your requirement.
TYPE-POOLS: truxs.
PARAMETERS: p_file TYPE  rlgrap-filename.
TYPES: BEGIN OF t_datatab,
col1(30)    TYPE c,
col2(30)    TYPE c,
col3(30)    TYPE c,
col4(30)    TYPE c,
col5(30)    TYPE c,
col6(30)    TYPE c,
col7(30)    TYPE c,
col8(30)    TYPE c,
col9(30)    TYPE c,
col10(30)    TYPE c,
col11(30)    TYPE c,
END OF t_datatab.
DATA: it_datatab type standard table of t_datatab,
wa_datatab type t_datatab.
DATA: it_raw TYPE truxs_t_text_data.
* At selection screen
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
field_name = 'P_FILE'
IMPORTING
file_name  = p_file.
*START-OF-SELECTION.
START-OF-SELECTION.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
*     I_FIELD_SEPERATOR        =
i_line_header            =  'X'
i_tab_raw_data           =  it_raw       " WORK TABLE
i_filename               =  p_file
TABLES
i_tab_converted_data     = it_datatab[]    "ACTUAL DATA
EXCEPTIONS
conversion_failed        = 1
OTHERS                   = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*** Create batch upload using BAPI_GOODSMVT_CREATE
PERFORM CREATE_BATCH_UPLOAD.
*&      Form  CREATE_BATCH_UPLOAD
*       text
*  -->  p1        text
*  <--  p2        text
FORM CREATE_BATCH_UPLOAD .
DATA : GT_GOODSMVT_HEADER  LIKE BAPI2017_GM_HEAD_01.
DATA : GOODSMVT_ITEM  TYPE TABLE OF BAPI2017_GM_ITEM_CREATE,
WA_GOODSMVT_ITEM TYPE BAPI2017_GM_ITEM_CREATE,
*       L_RETURN LIKE BAPIRET2,
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
TYPES : BEGIN OF ITAB,
MATNR TYPE MATNR,
WERKS TYPE WERKS_D,
CHARG TYPE CHARG_D,
END OF ITAB.
DATA : IT_ITAB TYPE STANDARD TABLE OF ITAB,
WA_ITAB TYPE ITAB.
DATA : MATERIALDOCUMENT TYPE BAPI2017_GM_HEAD_RET-MAT_DOC.
*       MATDOCUMENTYEAR TYPE  BAPI2017_GM_HEAD_RET-DOC_YEAR.
*DATA : GT_GOODSMVT_HEARRET LIKE BAPI2017_GM_HEAD_RET.
DATA : V_LINES TYPE CHAR4,
GOODSMVT_CODE TYPE BAPI2017_GM_CODE VALUE '04'.
GT_GOODSMVT_HEADER-PSTNG_DATE = SY-DATUM.
GT_GOODSMVT_HEADER-DOC_DATE   = SY-DATUM.
LOOP AT IT_DATATAB INTO WA_DATATAB.
WA_GOODSMVT_ITEM-MATERIAL = wa_datatab-col7.
WA_GOODSMVT_ITEM-MOVE_BATCH = wa_datatab-col10.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT         = WA_GOODSMVT_ITEM-MOVE_BATCH
IMPORTING
OUTPUT        = WA_GOODSMVT_ITEM-MOVE_BATCH
WA_GOODSMVT_ITEM-PLANT = wa_datatab-col4.
WA_GOODSMVT_ITEM-STGE_LOC = wa_datatab-col5.
WA_GOODSMVT_ITEM-BATCH = wa_datatab-col9.
WA_GOODSMVT_ITEM-MOVE_TYPE = wa_datatab-col3.
WA_GOODSMVT_ITEM-ENTRY_QNT = wa_datatab-col8.
WA_GOODSMVT_ITEM-MOVE_STLOC = wa_datatab-col6.
WA_GOODSMVT_ITEM-ITEM_TEXT = wa_datatab-col11.
APPEND WA_GOODSMVT_ITEM TO GOODSMVT_ITEM.
CLEAR WA_GOODSMVT_ITEM.
ENDLOOP.
select MATNR WERKS CHARG from MCHB into table it_itab for all entries in GOODSMVT_ITEM
where matnr = GOODSMVT_ITEM-MATERIAL and
charg = GOODSMVT_ITEM-MOVE_BATCH.          " GOODSMVT_ITEM-MOVE_BATCH.
DESCRIBE TABLE GOODSMVT_ITEM LINES V_LINES.
IF IT_ITAB[] IS  INITIAL.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
EXPORTING
GOODSMVT_HEADER               = GT_GOODSMVT_HEADER
GOODSMVT_CODE                 = GOODSMVT_CODE
*   TESTRUN                       = ' '
*   GOODSMVT_REF_EWM              =
IMPORTING
*    GOODSMVT_HEADRET              = GT_GOODSMVT_HEARRET
MATERIALDOCUMENT              = MATERIALDOCUMENT
*    MATDOCUMENTYEAR               = MATDOCUMENTYEAR
TABLES
GOODSMVT_ITEM                 = GOODSMVT_ITEM
*   GOODSMVT_SERIALNUMBER         =
RETURN                        = RETURN
*   GOODSMVT_SERV_PART_DATA       =
*   EXTENSIONIN                   =
IF RETURN[] IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT          = 'X'
*  IMPORTING
*    RETURN        = l_return
WRITE : TEXT-001 , MATERIALDOCUMENT.
WRITE : TEXT-005 , V_LINES.
ELSE.
WRITE: TEXT-002 ,
/ RETURN-MESSAGE.
ENDIF.
ELSE.
WRITE : TEXT-003.
ULINE.
Loop at it_itab into wa_itab.
WRITE : TEXT-004 , wa_itab-matnr , wa_itab-charg.
ENDLOOP.
ENDIF.
ENDFORM.                    " CREATE_BATCH_UPLOAD