Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Coding block occurs in SHDB recording for MB1C transaction.

Former Member

‎06-11-2013 11:43 AM

0 Kudos

Hello Experts,

                                        I am facing this Coding block pop-up problem when recording for MB1C transaction.Please guide to solve this in SHDB transaction.

regards:-

Prashant Sharma.

1 REPLY 1

Former Member

‎06-11-2013 2:13 PM

0 Kudos

Why not use a BAPI instead of recording.....

Sample Code :

DATA: l_goodsmvt_header LIKE  bapi2017_gm_head_01,

        l_goodsmvt_code LIKE  bapi2017_gm_code,

        l_goodsmvt_headret LIKE  bapi2017_gm_head_ret,

        l_mblnr LIKE mkpf-mblnr,

        l_mjahr LIKE mkpf-mjahr.

  DATA: i_goodsmvt_item LIKE  bapi2017_gm_item_create OCCURS 10

                                 WITH HEADER LINE,

        i_return LIKE bapiret2 OCCURS 1 WITH HEADER LINE.

      CLEAR l_goodsmvt_header.

      l_goodsmvt_header-pstng_date = I_listado-budat.

      l_goodsmvt_header-doc_date   = I_listado-bldat.

      l_goodsmvt_header-pr_uname   = sy-uname.

      l_goodsmvt_header-header_txt = 'Testing MB1C'.

      SELECT SINGLE gmcode FROM t158g

        INTO l_goodsmvt_code

       WHERE tcode = 'MB1C'.

     REFRESH i_goodsmvt_item.

      CLEAR i_goodsmvt_item.

      i_goodsmvt_item-move_type  = i_listado-bwart.

      i_goodsmvt_item-material   = i_listado-matnr.

      i_goodsmvt_item-plant      = i_listado-werks.

      i_goodsmvt_item-stge_loc   = i_listado-lgort.

      i_goodsmvt_item-entry_qnt  = i_listado-menge.

      i_goodsmvt_item-entry_uom  = i_listado-meins.

      i_goodsmvt_item-quantity  = i_listado-menge. 

      i_goodsmvt_item-BASE_UOM  = i_listado-meins.

      i_goodsmvt_item-mvt_ind   = 'B'.   "CHECK THIS IN THE BAPI DOCUMENTATION

      i_goodsmvt_item-po_number = i_listado-ebeln. 

      i_goodsmvt_item-po_item   = i_listado-ebelp. 

      APPEND i_goodsmvt_item.

      REFRESH: i_return. CLEAR i_return.

      CLEAR l_mblnr.

      CALL FUNCTION 'BAPI_GOODSMVT_CREATE'

        EXPORTING

          goodsmvt_header  = l_goodsmvt_header

          goodsmvt_code    = l_goodsmvt_code

          testrun          = ' '

        IMPORTING

          goodsmvt_headret = l_goodsmvt_headret

          materialdocument = l_mblnr

          matdocumentyear  = l_mjahr

        TABLES

          goodsmvt_item    = i_goodsmvt_item

          return           = i_return.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

      COMMIT WORK AND WAIT.