Problem in the BDC Table Control for the T.Code VA01

Question

Hi,
  I faced probelm in the BDC of the VA01. In the Table Control
the records are entered upto 12 line items. after 13th line item overwrites the first record. How to solve the Problem.
Please help me.

Answer 1

or use this
Internal table definition *
data : begin of bdcdata occurs 0.
        include structure bdcdata.
data : end of bdcdata.
data: begin of messtab occurs 0.
        include structure bdcmsgcoll.
data: end of messtab.
data: v_chr_opengrp type c,
      r_matnr like mara-matnr,                       "variable for material conversion
      r_werks like marc-werks,                       "variable for plant
      v_str_fname   type string.
data: begin of count2,
      inrec(9) type n,                               " input I_MATERIAL count
      create(9) type n,                              " create count
      error(9) type n,                               " error count
      bdc(9) type n,                                 " count of BDC creates
      end of count2.
types: begin of ty_source,
partn_numb(10) type n ,"Customer Number 1
ref(035),
sales_org(4) , "Sales Organization
distr_chan(2) , "Distribution Channel
division(002), "DIVISION
doc_type(4) , "Sales Document Type
purch_no(020), "Purchase order
material like vbap-matnr,
reqqty(018),
reqdate(010),
end of ty_source,
begin of ty_header ,
partn_numb(10) ,"Customer Number 1
ref(035),
sales_org(4) , "Sales Organization
distr_chan(2) , "Distribution Channel
division(002), "DIVISION
doc_type(4) , "Sales Document Type
purch_no(020), "Purchase order
end of ty_header,
begin of ty_item,
partn_numb(10) ,"Customer Number 1
ref(035),
material like vbap-matnr,
reqqty(018),
reqdate(010),
end of ty_item.
data : msg(240) type c, " Return Message
e_rec(8) type c, " Error Records Counter
rec_no(8) type c, " Records Number Indicator
s_rec(8) type c, " Successful Records Counter
t_rec(8) type c, " Total Records Counter
v_matnr like mara-matnr.
data: val(2) type n value 01.
data : begin of bdc_itab occurs 0.
        include structure bdcdata.
data : end of bdc_itab.
data : t_source type standard table of ty_source   with header line,
t_header type standard table of ty_header initial size 1,
t_item type standard table of ty_item initial size 1,
t_target type standard table of bdcdata initial size 1.
data : w_source type ty_source,
w_source1 type ty_source,
w_header type ty_header,
w_item type ty_item,
w_target type bdcdata,
count type i,
count1 type n.
Variable Declaration
data: w_fname type string,
fnam(20),
date1(10),
i(2) type n,
v_count type i,
v_group type apqi-groupid.
*& selection screen
selection-screen :begin of block bl1 with frame title  text-001.
parameters : p_fname type rlgrap-filename,                         "Input file
             p_update(1) default 'N',                              "Input for update mode
             p_bdcgrp(12) default 'SD_ORDERS'.                     "Input for session name
selection-screen end of block bl1.
**&SELECTION SCREEN VALIDATIONS
at selection-screen on value-request for p_fname.
  call function 'KD_GET_FILENAME_ON_F4'
    exporting
      program_name  = 'ZMATERIAL'
      dynpro_number = '1000'
      field_name    = 'P_FNAME'
    changing
      file_name     = p_fname.
*& Start of selection
start-of-selection.
  if  p_fname is initial.
    message i016(rp) with 'Please enter a file name'.
    leave list-processing.
  else.
    move p_fname to  v_str_fname.
  endif.
  call function 'GUI_UPLOAD'
    exporting
      filetype                = 'ASC'
      filename                = v_str_fname
      has_field_separator     = 'X'
    tables
      data_tab                = t_source
    exceptions
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      others                  = 17.
  if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
        with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.
  sort t_source by ref partn_numb.
  loop at t_source into w_source.
    add 1 to count2-inrec.
    w_source1 = w_source.
   AT NEW PARTN_NUMB.  "10/31 KVB
    at new ref.
      w_header-doc_type = w_source1-doc_type..
      w_header-sales_org = w_source1-sales_org .            "'0001'
      w_header-distr_chan = w_source1-distr_chan.           "'01'
      w_header-division = w_source1-division.               " '01'
      w_header-purch_no = w_source1-purch_no.
      w_header-partn_numb = w_source1-partn_numb.
      w_header-ref = w_source1-ref.
      append w_header to t_header.
    endat.
    w_item-partn_numb = w_source1-partn_numb.
    w_item-material = w_source1-material.
    w_item-reqqty = w_source1-reqqty.
    w_item-ref = w_source1-ref.
    w_item-reqdate = w_source1-reqdate.
    append w_item to t_item.
    clear :w_item,w_header.
  endloop.
  loop at t_header into w_header.
    perform bdc_dynpro      using         'SAPMV45A'                  '0101'       .
    perform bdc_field       using         'BDC_CURSOR'                'VBAK-SPART'.
    perform bdc_field       using         'BDC_OKCODE'                '/00'.
    perform bdc_field       using         'VBAK-AUART'                w_header-doc_type.
    perform bdc_field       using         'VBAK-VKORG'                w_header-sales_org.
    perform bdc_field       using         'VBAK-VTWEG'                w_header-distr_chan.
    perform bdc_field       using         'VBAK-SPART'                w_header-division.
    perform bdc_dynpro      using         'SAPMV45A'                  '4001'     .
    perform bdc_field       using         'BDC_OKCODE'                '/00'.
    perform bdc_field       using         'BDC_CURSOR'               'VBKD-BSTKD'.
    perform bdc_field       using         'VBKD-BSTKD'                w_header-purch_no.
    perform bdc_field       using         'KUWEV-KUNNR'               w_header-partn_numb.
    i = 1.
    loop at t_item into w_item where partn_numb = w_header-partn_numb
                                     and ref = w_header-ref.
      at new partn_numb.
        clear count1.
        count = 0.
      endat.
      count = count + 1.
      if count gt 5.
        clear i.
        i = 2.
        perform bdc_dynpro      using 'SAPMV45A' '4001'      .
        perform bdc_field       using 'BDC_OKCODE' '=POAN'.
      endif.
      count1 = count1 + 1.
      concatenate 'VBAP-POSNR(' i ')' into fnam.
      perform bdc_field       using  fnam
                                    count1.
      concatenate 'RV45A-MABNR(' i ')' into fnam.
      perform bdc_field    using fnam                            w_item-material.
      concatenate 'RV45A-KWMENG(' i ')' into fnam.
      perform bdc_field       using  fnam                        w_item-reqqty..
      concatenate 'RV45A-ETDAT(' i ')' into fnam.
      perform bdc_field       using  fnam                         w_item-reqdate.
      concatenate 'VBKD-BSTKD_E(' i ')' into fnam.
      perform bdc_field       using  fnam                         w_item-ref.
      i = i + 1.
      clear:  w_item.
    endloop.
    clear w_header.
    perform bdc_dynpro      using 'SAPMV45A' '4001'.
    perform bdc_field       using 'BDC_OKCODE'
                                  '=SICH'.
    perform post_transaction.
    refresh bdc_itab.
    clear   bdc_itab.
  endloop.
*endloop.
end-of-selection.
  perform finalization.
       Start new screen                                              *
form bdc_dynpro using program dynpro.
  clear bdc_itab.
  bdc_itab-program  = program.
  bdc_itab-dynpro   = dynpro.
  bdc_itab-dynbegin = 'X'.
  append bdc_itab.
endform.                    "bdc_dynpro
       Insert field                                                  *
form bdc_field using fnam fval.
  if fval <> ''.
    clear bdc_itab.
    bdc_itab-fnam = fnam.
    bdc_itab-fval = fval.
    append bdc_itab.
  endif.
endform.                    "bdc_field
**&      Form  get_filename
      text
-->  p1        text
<--  p2        text
*form get_filename .
*call function 'WS_FILENAME_GET'
   exporting
     def_filename     = space
     def_path         = file
     mask             = ',.,..'
     mode             = 'N'
     title            = text-015
   importing
     filename         = file
   exceptions
     inv_winsys       = 1
     no_batch         = 2
     selection_cancel = 3
     selection_error  = 4
     others           = 5.
*endform.                    " get_filename
*&      Form  post_transaction
      text
-->  p1        text
<--  p2        text
form post_transaction .
  refresh messtab.
  clear   messtab.
  call transaction  'VA01' using bdc_itab
              mode   p_update
            update  'S'
          messages into messtab.
  read table messtab with key msgtyp = 'E'.
  if sy-subrc eq 0.
    perform process_error_messages.
    add 1 to count2-bdc.
    if v_chr_opengrp is initial.
      perform bdc_open_group.
    endif.
    call function 'BDC_INSERT'
      exporting
        tcode          = 'VA01'
      tables
        dynprotab      = bdc_itab
      exceptions
        internal_error = 1
        not_open       = 2
        queue_error    = 3
        tcode_invalid  = 4
        others         = 5.
    if sy-subrc <> 0.
      case sy-subrc.
        when 1.
          write: / 'Internal error'.
        when 2.
          write: / 'Not open error'.
        when 3.
          write: / 'queue error'.
        when 4.
          write: / 'tcode invalid error'.
        when others.
          write: / 'other error'.
      endcase.
    endif.
  else.
    add +1 to count2-create.
    format intensified off.
    format color col_normal.
    format color col_normal off.
  endif.
  clear   bdc_itab.
  refresh bdc_itab.
endform.                    " post_transaction
*&      Form  finalization
      text
-->  p1        text
<--  p2        text
form finalization .
  if v_chr_opengrp = 'X'.
    call function 'BDC_CLOSE_GROUP'
      exceptions
        not_open    = 1
        queue_error = 2
        others      = 3.
  endif.
  get time.
  skip 2.
  write: / 'Time', sy-uzeit.
  skip.
  format color col_total on.
  write: / 'Total Records: ',           40 count2-inrec.
  write: / 'PERNR not of Emp Group 6 ', 40 count2-error.
  write: / 'Records Created: ',         40 count2-create.
  write: / 'BDC Create in group: ',     40 count2-bdc.
  if v_chr_opengrp = 'X'.
    skip 1.
    format intensified on.
    format color col_negative on.
    write: / 'PLEASE USE TRANSACTION "SM35" ',
             'TO PROCESS THE GENERATED BDC SESSION ... ',
             p_bdcgrp.
  endif.
endform.                    " finalization
*&      Form  bdc_open_group
      text
-->  p1        text
<--  p2        text
form bdc_open_group .
  call function 'BDC_OPEN_GROUP'
    exporting
      client              = sy-mandt
      group               = p_bdcgrp
      holddate            = sy-datum
      keep                = 'X'
      user                = sy-uname
    exceptions
      client_invalid      = 1
      destination_invalid = 2
      group_invalid       = 3
      group_is_locked     = 4
      holddate_invalid    = 5
      internal_error      = 6
      queue_error         = 7
      running             = 8
      system_lock_error   = 9
      user_invalid        = 10
      others              = 11.
  if sy-subrc eq 0.
    v_chr_opengrp = 'X'.
  endif.
endform.                    " bdc_open_group
*&      Form  process_error_messages
      text
-->  p1        text
<--  p2        text
form process_error_messages .
  data: begin of loc_aux_message.
          include structure message.
  data: end of loc_aux_message.
  data : msgno type sy-msgno.
  loop at messtab.
    move messtab-msgnr to msgno.
    call function 'WRITE_MESSAGE'
      exporting
        msgid  = messtab-msgid
        msgno  = msgno
        msgty  = messtab-msgtyp
        msgv1  = messtab-msgv1
        msgv2  = messtab-msgv2
        msgv3  = messtab-msgv3
        msgv4  = messtab-msgv4
      importing
        messg  = loc_aux_message
      exceptions
        others = 1.
    if sy-subrc eq 0.
      format color col_negative on.
      write: /10 loc_aux_message.
      format color col_negative off.
    else.
      format color col_negative on.
      write: /10 t_source-partn_numb.
      write: / 'Error creating message'.
      format color col_negative off.
      exit.
    endif.
  endloop.
endform.                    " process_error_messages