Please help in Table control for fetching

Below is the code which i m using ......but while i use modify statement after selecting row in table control it is not geting  modified.When i saw thru debugger ....it is only modifing the data which is in Header line.....plz help in this
WHEN 'FETCH'.
MODIFY NO_TEMP INDEX TEMP_DET-CURRENT_LINE
FROM NO_TEMP TRANSPORTING ZCHECK.
REFRESH IT_PO_DET.
CLEAR IT_PO_DET.
LOOP AT NO_TEMP WHERE ZCHECK  EQ 'X'.
  LOOP AT I_YPO_TEST
  WHERE SOLD_TO_PARTY_CD EQ NO_TEMP-SOLD_TO_PARTY_CD.
  APPEND I_YPO_TEST TO IT_PO_DET.
  ENDLOOP.
ENDLOOP.
IF SY-SUBRC EQ 0.
        MESSAGE S001(Z1) WITH 'RECORD FETCHED SUCCESSFULLY'.
      ELSE.
        MESSAGE E001(Z1) WITH 'NO RECORD FETCHED SUCCESSFULLY'.
      ENDIF.

Hi dheeraj,
The part of the code which you are showing us must be in a module which is called in the loop of the table control , in the flow logic.
PAI section.
loop at no_temp."
module user_command_0100.
endloop.
module user_command_0100.
WHEN 'FETCH'.
MODIFY NO_TEMP INDEX TEMP_DET-CURRENT_LINE
FROM NO_TEMP TRANSPORTING ZCHECK.
REFRESH IT_PO_DET.
CLEAR IT_PO_DET.
endmodule.

Similar Messages

  • F4 help in table control. - Urgent  Please

    Hi all,
    Iam using F4 help in table control. when the user selects the data in F4 values 4 more fields that are displayed in the F4 has to be updated in the table control
    What function modules should I use to capture the f4 values and keep in the current table control record. Please help by sending some code.
    Helpful answers will be rewarded.
    Thankhs
    Aditya

    Hi ,
    Check out the follwing Eg.
    To read the remaining fields in the corresponding row use <b>dynpfld_mapping</b> parameters in Table option of F4 help Function Module.And then use <b>DYNP_VALUES_UPDATE </b> FM to populate into the screen fields.
    MODULE shlpcntno INPUT.
      DATA : BEGIN OF i_cntno OCCURS 0,
              contnum LIKE zmps_veh_entry-contnum,
              contsl LIKE zmps_veh_entry-contsl,
              END OF i_cntno.
      CLEAR: i_cntno,i_cntno[],i_return,i_return[],i_map,i_map[].
      SELECT contnum contsl FROM zmps_veh_entry INTO TABLE i_cntno.
      i_map-fldname = 'F0001'.
      i_map-dyfldname = 'I_CNTNO-CONTNUM'.
      APPEND i_map.
      CLEAR i_map.
      i_map-fldname = 'F0002'.
      i_map-dyfldname = 'I_CNTNO-CONSTL'.
      APPEND i_map.
      CLEAR i_map.
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
        EXPORTING
          retfield        = 'CONTNUM'
          dynpprog        = sy-repid
          dynpnr          = sy-dynnr
          dynprofield     = 'W_CONTNUM'
          value_org       = 'S'
        TABLES
          value_tab       = i_cntno
          dynpfld_mapping = i_map
          return_tab      = i_return.
      IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      LOOP AT i_return.
        IF i_return-fieldname = 'F0001'.
          w_contnum = i_return-fieldval.
        ELSEIF i_return-fieldname = 'F0002' AND flag = 3.
          w_slno = i_return-fieldval.
          CLEAR: i_dynread, i_dynread[].
          i_dynread-fieldname = 'W_SLNO'.
          i_dynread-fieldvalue = w_slno.
          APPEND i_dynread.
          CLEAR i_dynread.
          CALL FUNCTION 'DYNP_VALUES_UPDATE'
            EXPORTING
              dyname                     = sy-repid
              dynumb                     = sy-dynnr
            TABLES
              dynpfields                 = i_dynread
          IF sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDMODULE.

  • How to add column in table control for transaction APPCREATE

    Hi All,
    How can i add the additional column in table control for transaction APPCREATE.
    There is structure PT1045_EXT present behind table control. But not found any customer exit or badi to display on screen.
    Please help...

    You can add new columns
    If you add new columns in tr. PHAP_CATALOG

  • How to select perticular row in table control for BDC

    Hi all
    I want to select perticular row in table control for deletion through BDC. My transaction is CA02, My input is  material no and plant , then it display table control with work center. Now i want to select W999 cost center and delete through BDC.
    Please Suggest me. it urgent.
    Thanks& Regards,
    RP

    Hi all
    I want to select perticular row in table control for deletion through BDC. My transaction is CA02, My input is  material no and plant , then it display table control with work center. Now i want to select W999 cost center and delete through BDC.
    Please Suggest me. it urgent.
    Thanks& Regards,
    RP

  • Error Handling in table control for line item.

    Hi,
    Please how to do error handling in table control for line item in bdc,i have used format_message for header but i don't no fill decamps internal tabled and  how to do background processing in call transaction.
    Thanks

    Background processing is not possible using call transaction method.
    You can create an executable program which can have CALL TRANSACTION BDC code. And this can be run in background.
    What do you exactly mean by Error handling for Items in table control. Can you give some more details.

  • SEARCH HELP IN TABLE CONTROL

    Hi friends,
           In dialog programming i am using table control for getting material details
          in material number field i am using search help "sales material description(MAT1S)"
          if i select the material number using search help then it display the sales organization
            i give "conver. exit" = MATN1
                    "search help" = MAT1S
    Thanks & Regards,
    Vallamuthu.M

    I solved my own

  • Search Help on Table Control - Fill more than one field in the table?

    Hey everyone,
    I have built a screen with a Table Control on it... the fields of the table control are linked to an internal table...  The internal table has the line type of a structure I've defined in the data dictionary.  Within that structure in the data dictionary, I've linked some fields to search helps (For example, a MATNR and CUSTOMER search help)...  I've defined in the structure definition which fields from the search help are to be returned to which fields in the structure.
    The problem is, even though I have the search help set to export both the customer number and location when using the search help on the customer field, it still does not fill the location field within the table.  Is this a limitation of using search helps within table controls?
    I'm also finding that by defining the search help through the structure, instead of directly within the screen, the search help round button does not show up on the field, yet I can still press F4 to bring up the search help.  Is there a reason why it's not showing the search help clickable button even though it works fine using F4?
    For doing search helps in Table Controls, is it better to just build the search help, attach it directly to the field in the table, and then after the user picks the single field, use the PAI to run a select and fill the rest of the fields required?
    Thanks,
    Dallas

    Hi Dallas,
    (1)
    What  i understood is that you added a search help by defining it in the internal table type for a field customer number..in the search help you have 2 fields customer number and location...user press the search help ..then you need to fill 2 different fields or 1 field?
    if you need to fill the customer location or location (only one) then you need to set the "import" in the search help for whichever is required.....
    if you need to fill 2 or more different fields..then you can use the technique you have mentioned last , to do a select in PAI and fill the fields....but this you can use if the combination for the fields is unique...eg: u have customer number and location..if customer X can be mapped to location X and location Y..when a select statement is done there are 2 options..so in such cases it is better to leave the option to the user otherwise if there is a clear mapping like customer X can be mapped only to location X then you can use the select..
    (2)
    usually when you define it as a type in the internal table the icon doesn't show up..but you can do alternative like mentioned..go to the table,find the search help for the required field if present or create a new one if required and place the search help mentioned in the screen itself..so as to see the icon...sometimes users are adamant that they need the search help icon to be seen..so it depends on if your user
    (3)
    as in the example of customer number and location mentioned we can provide them different search helps and do the needful processing in PAI to fill the fields
    Table controls may be used for different purposes and requirements....even a checkbox,push button can be placed as a field in table control and used,but yes most of the time requirements are like what is mentioned in your case...
    Regards
    Byju

  • HR Abap - Reading table control for infotype 0416

    Hi,
    Infotype 416 'Create Time Quota Compensation' has a table control for 'Absence Quotas'.
    I have to read this table control in user exit ZXPADU02.
    Please assist in how to go about doing this.
    Regards,
    Warren.

    Hi All,
    I am using ZXPADU02.
    The FM's suggested don't work because the user enters a compensation value at runtime and when user clicks 'save' I need to pick this value up. The FM's pick up existing absence records but I need the ones being created at runtime.

  • Help on Table control

    Hi,
    I cretaed my own Z table and i ve to insert new records as well update them when necessary..
    now i ve a table control for that..so how i can insert and update my ztable with table control..?
    In PBO and PAI. what should i mention in Loop at ........?
    Normally it allows only Itab which contains Ztable data. But here itab is empty. since i am not populating itab from Ztable,
    I need to populate the Ztable from Table ctrl datas.
    Is there any parameter which holds the number of rows entered in table Ctrl?
    help me in this regard.

    hello Ram
    im sending one table contro program it may use ful top u..
    REPORT zsiva_bdctable  .
    *include bdcrecx1.
    TYPES : BEGIN OF ty_head,
            auart(4),
            vkorg(4),  "Sales Organization
            vtweg(2),  "Distribution Channel
            spart(2),  "Division
            kunnr(10), "sold-to-party
            bstkd(10), "Customer purchase order number
            END OF ty_head.
    TYPES: BEGIN OF ty_item,
           matnr(18) TYPE c,  "Material
           kwmeng(13) TYPE c, "Quantity
           END OF ty_item.
    DATA: it_head TYPE TABLE OF ty_head.
    DATA: wa_head LIKE LINE OF it_head.
    DATA: it_item TYPE TABLE OF ty_item.
    DATA: wa_item LIKE LINE OF it_item.
    DATA :bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
    DATA:v_kwmeng(30) TYPE c,
         v_mabnr(30) TYPE c.
    DATA: val(2) TYPE n VALUE 01.
    DATA : w_file2 TYPE string,
                   w_file1 TYPE string.
    PARAMETERS: filename LIKE rlgrap-filename.
    PARAMETERS: filenam1 LIKE rlgrap-filename.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
      CALL FUNCTION 'F4_FILENAME'
        IMPORTING
          file_name = filename.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR filenam1.
      CALL FUNCTION 'F4_FILENAME'
        IMPORTING
          file_name = filenam1.
    START-OF-SELECTION.
      w_file2 = filename.
      w_file1 = filenam1.
    HEADER ************************
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          filename            = w_file2
          filetype            = 'ASC'
          has_field_separator = 'X'
        TABLES
          data_tab            = it_head.
    ITEM *******************
      CALL FUNCTION 'GUI_UPLOAD'
        EXPORTING
          filename            = w_file1
          filetype            = 'ASC'
          has_field_separator = 'X'
        TABLES
          data_tab            = it_item.
    **********CREATE SESSION***************
      CALL FUNCTION 'BDC_OPEN_GROUP'
        EXPORTING
          client = sy-mandt
          group  = 'TABLECONT'
          keep   = 'X'
          user   = sy-uname.
    ******POPULATE BDCDATABLE***************
    PERFORM open_group.
      LOOP AT it_head INTO wa_head.
        PERFORM bdc_dynpro      USING 'SAPMV45A' '0101'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                            'VBAK-AUART'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                              '/00'.
        PERFORM bdc_field       USING 'VBAK-AUART'
                                            wa_head-auart.
        PERFORM bdc_field       USING 'VBAK-VKORG'
                                     wa_head-vkorg.
        PERFORM bdc_field       USING 'VBAK-VTWEG'
                                            wa_head-vtweg.
        PERFORM bdc_field       USING 'VBAK-SPART'
                                            wa_head-spart.
        PERFORM bdc_dynpro      USING 'SAPMV45A' '4001'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                            '/00'.
        PERFORM bdc_field       USING 'VBKD-BSTKD'
                                            wa_head-bstkd.
        PERFORM bdc_field       USING 'VBKD-BSTDK'
                                           '30.01.2006'.
        PERFORM bdc_field       USING 'KUAGV-KUNNR'
                                           wa_head-kunnr.
        PERFORM bdc_field       USING 'RV45A-KETDAT'
                                            '30.01.2006'.
        PERFORM bdc_field       USING 'RV45A-KPRGBZ'
                                            'D'.
        PERFORM bdc_field       USING 'VBKD-ZTERM'
                                            '0001'.
        PERFORM bdc_field       USING 'VBKD-INCO1'
                                            'CIF'.
        PERFORM bdc_field       USING 'VBKD-INCO2'
                                            ' COST INSUSRABCE FRIEGHT'.
        LOOP AT it_item INTO wa_item .
          CONCATENATE 'RV45A-MABNR(' '0' val ')' INTO v_mabnr.
          CONCATENATE 'RV45A-KWMENG(' '0' val ')' INTO v_kwmeng.
         PERFORM bdc_field       USING 'BDC_CURSOR'
                                       v_kwmeng.
          PERFORM bdc_field       USING v_mabnr
                                       wa_item-matnr.
          PERFORM bdc_field       USING v_kwmeng
                                        wa_item-kwmeng.
          PERFORM bdc_dynpro      USING 'SAPMV45A' '4001'.
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                        '/00'.
          val = val + 1.          
          IF val >   5.
          val = 5.               
       ENDIF.
        ENDLOOP.
        val = 01.
        PERFORM bdc_dynpro      USING 'SAPMV45A' '4001'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                               '=SICH'.
        CALL FUNCTION 'BDC_INSERT'
          EXPORTING
            tcode     = 'VA01'
          TABLES
            dynprotab = bdcdata.
        REFRESH bdcdata.
    *PERFORM bdc_transaction USING 'VA01'.
      ENDLOOP.
    PERFORM close_group.
    CALL FUNCTION 'BDC_CLOSE_GROUP'.
           Start new screen                                              *
    FORM bdc_dynpro USING program dynpro.
      CLEAR bdcdata.
      bdcdata-program  = program.
      bdcdata-dynpro   = dynpro.
      bdcdata-dynbegin = 'X'.
      APPEND bdcdata.
    ENDFORM.                    "BDC_DYNPRO
           Insert field                                                  *
    FORM bdc_field USING fnam fval.
      CLEAR bdcdata.
      bdcdata-fnam = fnam.
      bdcdata-fval = fval.
      APPEND bdcdata.
    ENDFORM.                    "BDC_FIELD

  • Please help, has been blocked for your account temporarily

    Please help, has been blocked for your account temporarily

    Hey @kat54 ,
    Welcome to the HP Forums!
    I understand you're receiving an error stating "This program has been blocked for your protection."
    You can read about this error here: "Blocked", "User Account Control", "Not trusted", or "Return code: 1625" message in Windows.
    You will find a link for Printers here which directs you to the HP Update Software Utility to resolve the problem. When you install this utility ensure you select version 5.005.002.002 or later.
    Make sure the utility you've downloaded is for your exact product and operating system.
    If this does not resolve the issue please call our technical support at 800-474-6836. If you live outside the US/Canada Region, please click the following link to get the support number for your region: Phone Assist Worldwide.
    Thanks!
    Please click the "Kudos, Thumbs Up" at the bottom of this post if you want to say "Thanks" for helping!
    Please click "Accept as Solution" if you feel my post solved your issue, it will help others find the solution.
    The Great Deku Tree
    I work on behalf of HP.

  • Please help to find docs for Generation-4 Hardware

    Hello
    Please help to find docs for Generation-4 Hardware
    • Cisco MDS 9000 48-Port 8-Gbps Advanced Fibre Channel module (DS-X9248-256K9)
    • Cisco MDS 9000 32-Port 8-Gbps Advanced Fibre Channel module (DS-X9232-256K9)
    • Cisco MDS 9513 Fabric 3 module, DS-13SLT-FAB3 (Generation-4 module)
    Thanks
    Chetan.R

    Hello Chetan,
    Here's a link to the Gen 4 migration guide:
    http://www.cisco.com/en/US/docs/switches/datacenter/mds9000/hw/9500series/installation/5.2/installmigratefab3.html#wp1435702
    I do hope that guide answers the questions you have.
    Regards,
    Ken

  • Dear Apple,please help me.the glitch and lags on games made me sad beause i am too love with my 4s. Why iOS 7 really made me sad...please help me.im beg for you.

    Dear Apple,please help me.the glitch and lags on games made me sad beause i am too love with my 4s. Why iOS 7 really made me sad...please help me.im beg for you.

    www.apple.com/feedback/iphone.html
    No one from Apple is listening on these forums.

  • How to implement F4 help in table control

    Hi all,
    I am working on a table control in a module pool program. I have three fields in table control , material no. , material description and quantity. my requirement is , in table control , i need to provide the F4 help for material no. and material description, in a way, if i select material no. using F4, the corresponding material description field would be entered automatically in the table control field.
    Pls suggest me on this , if possible pls give me code or logic to do this.
    Thanks
    Saravan
    Moderator message: please don't post the identical question again after the first attempt was locked for good reasons. Search for available information before asking.
    Edited by: Thomas Zloch on Mar 3, 2011 11:54 AM

    Hi Saravana,
    Please search in SCN before posting. You will find many threads related to this question. The basic logic is you have to get the selected row of table control  using DYNP_GET_STEPL function in your POV. Then using function DYNP_VALUES_READ read the material and create the description to be displayed. You have use function F4IF_INT_TABLE_VALUE_REQUEST to display search help.

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

    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.

    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

  • Multiple selection in F4 help in table control

    Hi,
    I am providing F4 help for a particular field in the table control. User must be able to select multiple values from this F4 help this is done using the function module F4IF_INT_TABLE_VALUE_REQUEST. Now the selected fields have to be transferred to screen, this is done using FM DYNP_VALUES_UPDATE.
    My problem is i have 6 rows displayed in my table control. So only first 6 values from the user selected values are getting updated in my screen fields others are not getting updated. Say if the user selects 10 values out of them only 6 is populating in the screen. How do i get the others also? Please help.
    Thanks,
    Karthik

    Hi,
    Check the Following threads
    can we select multiple entries from a F4 result?
    Table Control dynamic F4
    After you select Multiple rows from F4 Help these are stored in RETURN table.
    Now in main program modify the Internal Table.
    In PAI
    loop at itab.
    " You can not handle this in this Loop
    endloop.
    module modify_from_f4
    process on value-request
    field fname module get_f4 " Here you get the F4 Help and the values are in RETURN tab
    in Program
    module modify_from_f4.
    " in this module you can use the RETURN TAB like
    loop at itab
    read table RETURN with key fnam = itab-fnam " and get the corresponding value and modify itab from RETURN tab
    if you can not find common fields and just want to pass the values then
    read table RETURN INDEX SY-TABIX. " IF the Itab is empty then follow below loop
    endloop.
    loop at return.
    move return-fieldvalue to itab-fnam
    append itab.
    endloop.
    endmodule.
    Cheerz
    Ram

Maybe you are looking for