BDC not working in NO screen mode

Question

Hi All,
We have a BDC in which we need to enter a multiple selection for a document field.
For this we are using the table control concept.
However, how do we fill in more than 8  single selections  (the number of input rows available on the screen)?
We have tried to use the ok code "LINS" that inserts a line at a time. This is working perfectly in ALL screen mode.
However, in NO screen mode what we observed is that the values get overwritten and only 1 document is eventually selected.
Thanks & Regards,
Sana.

Answer 1

Hi,
plz have a look at the below code...
FORM bdc_data .
Work area for data record.
  DATA : lwa_header1 TYPE t_header.
Declaration of local variable.
  DATA : lv_index TYPE sytabix.
  IF NOT i_header[] IS INITIAL.
    v_item_cntr = 1.
    v_cond_cntr = 2.
    v_scale_cntr = 1.
    v_cong_flg = 2.
    LOOP AT i_header INTO wa_header.
      lv_index = sy-tabix + 1.
      CASE wa_header-rec_type.
        WHEN c_h.
-- For header of contracts--
          PERFORM header_data_upload USING wa_header.
--For items of contarcts--
        WHEN  c_i.
If the number of lines in the line item screen exceeds
14 then we need to use the newpage okcode for adding
new line items
          IF v_item_cntr GE 15.
            PERFORM bdc_dynpro      USING 'SAPMM06E' '0220'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                                  '=NP'.
            v_item_cntr = 2.
          ENDIF.
For uploading the item data
          PERFORM item_data_upload USING wa_header.
Read the internal table for next record
          READ TABLE i_header INTO lwa_header1 INDEX lv_index.
          IF lwa_header1-rec_type = c_h OR sy-subrc <> 0.
if no more line items found then the data should be saved
            PERFORM bdc_dynpro      USING 'SAPMM06E' '0220'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                                'BU'.
If there exists condition record for that line item
then go to condition screen with OKCODE '=KO'
          ELSEIF lwa_header1-rec_type = c_c.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                     '=KO'.
          ENDIF.
--for items conditions--
        WHEN c_c.
Upload the condition data
          PERFORM conditions_data_upload USING wa_header.
Read the internal table for next record
          READ TABLE i_header INTO lwa_header1 INDEX lv_index.
If the next record is an item go back to item screen
          IF lwa_header1-rec_type = c_i.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
            PERFORM bdc_field  USING 'BDC_OKCODE'
                                     'BACK'.
If the next record is header then save the data
          ELSEIF lwa_header1-rec_type = c_h OR sy-subrc <> 0.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                    'BACK'.
            PERFORM bdc_dynpro      USING 'SAPMM06E' '0220'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                                'BU'.
If there exists scale record for that condition
then go to scale screen with OKCODE '=PSTF'
          ELSEIF lwa_header1-rec_type = c_s.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=PSTF'.
          ENDIF.
--for items Scales--
        WHEN c_s.
Upload the scales data
          PERFORM scales_data_upload USING wa_header.
Read the internal table for next record
          READ TABLE i_header INTO lwa_header1 INDEX lv_index.
If the next record is condition record then go to condition
screen
          IF lwa_header1-rec_type = c_c .
            v_cong_flg = v_cong_flg + 1.
            v_scale_cntr = 1.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0303'.
            PERFORM bdc_field  USING 'BDC_OKCODE'
                                     'BACK'.
If the next record is header the go back to item screen
and save the data
          ELSEIF lwa_header1-rec_type = c_h OR sy-subrc <> 0.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0303'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                    'BACK'.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                    'BACK'.
            v_cond_cntr = 2.
            v_scale_cntr = 1.
            v_cong_flg = 2.
            PERFORM bdc_dynpro      USING 'SAPMM06E' '0220'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                                'BU'.
If the next record is item the go back to item screen
          ELSEIF lwa_header1-rec_type = c_i.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0303'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                    'BACK'.
            PERFORM bdc_dynpro      USING 'SAPMV13A' '0201'.
            PERFORM bdc_field       USING 'BDC_OKCODE'
                                    'BACK'.
            v_cond_cntr = 2.
            v_scale_cntr = 1.
            v_cong_flg = 2.
          ENDIF.
      ENDCASE.           "CASE wa_header-rec_type.
If the next record is header or no next record found then
call the transaction
      READ TABLE i_header INTO lwa_header1 INDEX lv_index.
      IF lwa_header1-rec_type = c_h OR sy-subrc NE 0.
        v_cong_flg = 2.
        v_scale_cntr = 1.
        v_item_cntr = 1.
        PERFORM call_transaction USING wa_header2 .
        CLEAR lv_index.
      ENDIF.
    ENDLOOP.               "LOOP AT i_header INTO wa_header.
  ENDIF.                   "IF NOT i_header[] IS INITIAL.
ENDFORM.                   "bdc_data
       Start new screen                                              *
FORM bdc_dynpro USING pv_program LIKE bdcdata-program
                      pv_dynpro LIKE bdcdata-dynpro.
  CLEAR wa_bdcdata.
  wa_bdcdata-program  = pv_program.
  wa_bdcdata-dynpro   = pv_dynpro.
  wa_bdcdata-dynbegin = c_x.
  APPEND wa_bdcdata TO i_bdcdata.
  CLEAR wa_bdcdata.
ENDFORM.                    "BDC_DYNPRO
       Insert field                                                  *
FORM bdc_field USING pv_fnam LIKE bdcdata-fnam
                     pv_fval TYPE any.
  CLEAR wa_bdcdata.
  wa_bdcdata-fnam = pv_fnam.
  wa_bdcdata-fval = pv_fval.
  APPEND wa_bdcdata TO i_bdcdata.
  CLEAR wa_bdcdata.
ENDFORM.                    "BDC_FIELD
Declaration of local constants
  CONSTANTS : lc_tcode  TYPE tstc-tcode VALUE 'ME31K',
              lc_n      TYPE ctu_mode   VALUE 'N'.
Declaration of local variables
  DATA: lv_msg   TYPE string,
        lv_opt   TYPE ctu_params.
  lv_opt-defsize = c_x.
  lv_opt-dismode = lc_n.
  lv_opt-updmode = c_l.
  REFRESH i_messtab.
Call the transaction to create the Purchasing Contracts
  CALL TRANSACTION lc_tcode USING i_bdcdata
                   OPTIONS FROM lv_opt
                   MESSAGES INTO i_messtab.
  IF NOT i_messtab[] IS INITIAL.
    READ TABLE i_messtab WITH KEY msgtyp = 'E'.
    IF sy-subrc EQ 0.
      CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
          id   = i_messtab-msgid
          lang = sy-langu
          no   = i_messtab-msgnr
          v1   = i_messtab-msgv1
          v2   = i_messtab-msgv2
          v3   = i_messtab-msgv3
          v4   = i_messtab-msgv4
        IMPORTING
          msg  = lv_msg.
      MOVE: p_wa_header-lifnr TO wa_error-lifnr,
            p_wa_header-evart TO wa_error-evart,
            p_wa_header-vedat TO wa_error-vedat,
            p_wa_header-ekorg TO wa_error-ekorg,
            p_wa_header-ekgrp TO wa_error-ekgrp,
            p_wa_header-epstp TO wa_error-epstp,
            p_wa_header-knttp TO wa_error-knttp,
            p_wa_header-bukrs TO wa_error-bukrs,
            p_wa_header-kdatb TO wa_error-kdatb,
            p_wa_header-kdate TO wa_error-kdate,
            p_wa_header-ktwrt TO wa_error-ktwrt,
            p_wa_header-waers TO wa_error-waers,
            p_wa_header-wkurs TO wa_error-wkurs,
            p_wa_header-inco1 TO wa_error-inco1,
            p_wa_header-inco2 TO wa_error-inco2,
            p_wa_header-ihran TO wa_error-ihran,
            p_wa_header-angnr TO wa_error-angnr,
            lv_msg            TO wa_error-msg.
      APPEND wa_error TO i_error.
      CLEAR wa_error.
    ELSE.
      READ TABLE i_messtab WITH KEY msgtyp = 'S'.
      IF sy-subrc EQ 0.
        CALL FUNCTION 'FORMAT_MESSAGE'
          EXPORTING
            id   = i_messtab-msgid
            lang = sy-langu
            no   = i_messtab-msgnr
            v1   = i_messtab-msgv1
            v2   = i_messtab-msgv2
            v3   = i_messtab-msgv3
            v4   = i_messtab-msgv4
          IMPORTING
            msg  = lv_msg.
        MOVE: p_wa_header-lifnr TO wa_success-lifnr,
              p_wa_header-evart TO wa_success-evart,
              p_wa_header-vedat TO wa_success-vedat,
              p_wa_header-ekorg TO wa_success-ekorg,
              p_wa_header-ekgrp TO wa_success-ekgrp,
              p_wa_header-epstp TO wa_success-epstp,
              p_wa_header-knttp TO wa_success-knttp,
              p_wa_header-bukrs TO wa_success-bukrs,
              p_wa_header-kdatb TO wa_success-kdatb,
              p_wa_header-kdate TO wa_success-kdate,
              p_wa_header-ktwrt TO wa_success-ktwrt,
              p_wa_header-waers TO wa_success-waers,
              p_wa_header-wkurs TO wa_success-wkurs,
              p_wa_header-inco1 TO wa_success-inco1,
              p_wa_header-inco2 TO wa_success-inco2,
              p_wa_header-ihran TO wa_success-ihran,
              p_wa_header-angnr TO wa_success-angnr,
              i_messtab-msgv2   TO wa_success-ebeln.
        APPEND wa_success TO i_success.
        CLEAR wa_success.
      ENDIF.
    ENDIF.
  ENDIF.
  REFRESH i_bdcdata.
ENDFORM.                    " call_transaction
Regards,
Nagaraj