BDC code for MB01 Application(Multiple Line Items)

Question

Hi,
Can anybody please send me the BDC CODE for MB01 Application(for Multiple Line items).
Very urgent.
Thanks And Regards,
Ajay

Answer 1

Instead of BDC you can use following BAPI.
see the following ex:
BAPI TO Upload Inventory Data
GMCODE Table T158G - 01 - MB01 - Goods Receipts for Purchase Order
                     02 - MB31 - Goods Receipts for Prod Order
                     03 - MB1A - Goods Issue
                     04 - MB1B - Transfer Posting
                     05 - MB1C - Enter Other Goods Receipt
                     06 - MB11
Domain: KZBEW - Movement Indicator
     Goods movement w/o reference
B - Goods movement for purchase order
F - Goods movement for production order
L - Goods movement for delivery note
K - Goods movement for kanban requirement (WM - internal only)
O - Subsequent adjustment of "material-provided" consumption
W - Subsequent adjustment of proportion/product unit material
LOOP AT I_TAB.
      count = sy-tabix.
      SELECT SINGLE * FROM ZMM_GI_WIP
                                WHERE GI_NO = I_TAB-DOCNO AND
                                GI_DATE = I_TAB-DOCDT.
      IF SY-SUBRC = 0.
        I_TAB-FLAG = 'C'.
        modify i_tab index count.
        CONCATENATE 'ERROR  GI : ' I_TAB-DOCNO
        '  WAS ALREADY UPLOADED' INTO I_MSG1.
        APPEND I_MSG1.
        CLEAR I_TAB-FLAG.
        CONTINUE.
      ELSE.
        CONCATENATE I_TAB-DOCDT+4(2)
                    I_TAB-DOCDT+6(2)
                    I_TAB-DOCDT+2(2)
                    I_TAB-DOCDT+0(2)
                    INTO G_DATE.
        gmhead-pstng_date = G_DATE.
        gmhead-doc_date = sy-datum.
        gmhead-pr_uname = sy-uname.
"01 - MB01 - Goods Receipts for Purchase Order
        gmcode-gm_code = '03'.
        refresh itab.
        clear itab.
        SORT I_MAIN BY SOL_DOCNO.
        LOOP AT I_MAIN WHERE DOCNO = I_TAB-DOCNO.
          IF I_MAIN-GI_TXN_TYPE = 'MGI'.
            itab-move_type  = '291'.
          ENDIF.
          itab-mvt_ind    = ' '.
          itab-plant      = I_MAIN-WERKS.
          itab-material   = I_MAIN-MATNR.
          itab-entry_qnt  = I_MAIN-ERFMG.
          itab-stge_loc   = I_MAIN-LGOBE.
          itab-ENTRY_UOM = I_MAIN-ERFME.
          IF I_MAIN-WERKS = 'MR'.
            itab-TR_PART_BA = '11'.
          ELSEIF I_MAIN-WERKS = 'MR'.
            itab-TR_PART_BA = '12'.
          ENDIF.
          append itab.
        ENDLOOP.
        if not itab[] is initial.
          call function 'BAPI_GOODSMVT_CREATE'
           exporting
               goodsmvt_header             = gmhead
               goodsmvt_code               = gmcode
             *   TESTRUN                     = ' '
          IMPORTING
              goodsmvt_headret            = mthead
         *   MATERIALDOCUMENT            =
  MATDOCUMENTYEAR             =
           tables
             goodsmvt_item               = itab
  GOODSMVT_SERIALNUMBER       =
            return                      = errmsg.
          clear errflag.
          loop at errmsg.
            if errmsg-type eq 'E'.
              write:/'Error in function', errmsg-message.
              errflag = 'X'.
            else.
              write:/ errmsg-message.
            endif.
            move errmsg-message to i_msg1.
            append i_msg1.
          endloop.
          if errflag is initial.
            CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
          EXPORTING
            WAIT          =
          IMPORTING
            RETURN        =
           commit work and wait.
            if sy-subrc ne 0.
              write:/ 'Error in updating'.
              exit.
             endif.
        endif.
      ENDIF.
       wait up to 20 seconds.
    ENDLOOP.