MB_CREATE_GOODS_MOVEMENT and BAPI_GOODSMVT_CREATE

Question

Hello all,
Ive been asked to modify a program to create inspection lots.  The change involved adding a prompt to supply the serial numbers for the parts to be moved to inspection.
Previously it was using MB_CREATE_GOODS_MOVEMENT but try as I may, there appeared to be no means of adding the serial numbers. There is a flag for automaticly generating serial numbers but this would not work (The items already have serial numbers anyway.....the user identifies them)
So I substituted MB_CREATE_GOODS_MOVEMENT  with BAPI_GOODSMVT_CREATE and added a table of serial numbers. This worked, giving the mesages Id expect if the user entered an invalid number or one that had already been assigned.
Document numbers produced and the BAPI works.
However, the next step of the program uses 'QPL1_LOT_GET_BY_TABIX_NO'  to get the insprecton lot number from memory. I can only assume that this number is written by MB_CREATE_GOODS_MOVEMENT  because I find no reference anywhere else.
The BAPI does not seem to do this even though MB_CREATE_GOODS_MOVEMENT  is part of its code (the mysteries of SAP!)
The CTCOD (txn code) in the FM was 'MB11' and Ive used '06' as the movement code in the BAPI.
Nothing is going to post without the inspection lot number. Can anyone tell me how this number is generated (and why is it written to memory?)
Many thanks in advance

Answer 1

This is the code I used to resolve the issue. This code AFTER the BAPI_GOODSMVT_CREATE
1) Create a lot number
2) Write it to memory (I dont know why it has to do this)
3) Extract from memory.
  CALL FUNCTION 'QPL1_INITIALIZE'
    EXPORTING
      i_lot_data_only = 'X'.
  DATA:  wa_qals_imp TYPE qals,
         wa_rmqed_imp TYPE rmqed,
         lv_qplos TYPE qplos,
         wa_qals TYPE qals,
         lv_subrc TYPE sy-subrc.
  CLEAR: wa_qals_imp, wa_rmqed_imp, lv_qplos, wa_qals, lv_subrc.
  wa_qals_imp-mandant = sy-mandt.
  wa_qals_imp-werk = l_imseg-werks.
  wa_qals_imp-werkvorg = l_imseg-werks.
  wa_qals_imp-matnr = l_imseg-matnr.
  wa_qals_imp-lifnr = l_imseg-lifnr.
  wa_qals_imp-art = 'XXXXXX'.          "This should be in table QMAT...See below
  wa_qals_imp-ebeln = g_imp_ebeln.
  wa_qals_imp-ebelp =  g_imp_ebelp.
  wa_qals_imp-charg = viqmel-charg.
  wa_qals_imp-herkunft = '08'.    "01
  wa_qals_imp-stat01 = 'X'.
  wa_qals_imp-losmenge = viqmel-rkmng.
  wa_qals_imp-mengeneinh = 'EA'.
  MOVE '01' TO wa_rmqed_imp-dbs_steuer.
  MOVE 'X'         TO wa_rmqed_imp-dbs_flag.
  MOVE 'X'         TO wa_rmqed_imp-dbs_nochg.
  MOVE 'X'         TO wa_rmqed_imp-dbs_nowrn.
  MOVE ' '         TO wa_rmqed_imp-dbs_noerr.
Create a Lot number
  CALL FUNCTION 'QPL1_INSPECTION_LOT_CREATE'
    EXPORTING
      qals_imp   = wa_qals_imp
      rmqed_imp  = wa_rmqed_imp
    IMPORTING
      e_prueflos = lv_qplos
      e_qals     = wa_qals_imp
      subrc      = lv_subrc.
If a lot number has been created then lv_subrc will be < 8
  IF lv_subrc LT 8.
    CALL FUNCTION 'QPL1_UPDATE_MEMORY'
      EXPORTING
        i_qals  = wa_qals_imp
        i_updkz = 'I'.
  ENDIF.
get insp. lot number
  CALL FUNCTION 'QPL1_LOT_GET_BY_TABIX_NO'
    EXPORTING
      i_tabix              = '1'
    IMPORTING
      e_qals               = g_qals
    EXCEPTIONS
      x_no_entry_in_memory = 1
      x_tabix_too_small    = 2
      x_tabix_too_big      = 3
      OTHERS               = 4.
  IF sy-subrc = 0.
    IF  ( g_qals-matnr = viqmel-matnr )
    AND ( g_qals-werk = viqmel-mawerk ).
      g_notification_not_saved = c_kreuz.
      MOVE g_qals-objnr    TO g_insplot_objnr.
      MOVE g_qals-prueflos TO viqmel-prueflos.
      MOVE g_qals-prueflos TO e_qnqmaqmel0-prueflos.
    ENDIF.
  ELSE.
    MESSAGE i162(qm).
    RAISE action_stopped.
  ENDIF.
*wa_qals_imp-art 
This is the inspection type (ART) you get from table QMAT. 
Took a while to get this solution working and I know a number of people looking for an answer to this......Hope it helps.