To delete multiple entries in table control in module pool

Hi,
Please help me out to know , <b>how to delete multiple entries from table control</b> when multiple lines in table control are selected.
Regards,
Irfan Hussain

hai,
you can do it inthis way.
in the PAI event.
loop at <table control name>
module del_itab.
endloop.
in the nodule,write the folowing code.
if <tablecontrol>-fieldname = 'X'.
delete <tablecontrol-itab>
endif.
cheers

Similar Messages

How can we select multiple rows in table control for module pool program?

hi guru's
i cannt able to select multiple table control rows for deletion of records please give any code to select rows?
regrards,
satheesh.

On the Table Control attributes there is a "Selectability" option where you choose one of: None, Single, or Multiple. In your code you then need to pick up which rows have the selection column set to 'X'.

How to insert multiple entries in table control

Hi All,
I want to insert multiple entries in table control in BDC program.Can any body help in this regard.
Thanks,
Satish.

Hi,
Go through the following 2 example programs:
THis is example to upload the Bank details of the Vendor which has the TC.
REPORT zprataptable2
       NO STANDARD PAGE HEADING LINE-SIZE 255.
DATA : BEGIN OF itab OCCURS 0,
        i1 TYPE i,
        lifnr LIKE   rf02k-lifnr,
        bukrs LIKE   rf02k-bukrs,
        ekorg LIKE   rf02k-ekorg,
        ktokk LIKE   rf02k-ktokk,
        anred LIKE lfa1-anred,
        name1 LIKE lfa1-name1,
        sortl LIKE lfa1-sortl,
        land1 LIKE lfa1-land1,
        akont LIKE lfb1-akont,
        fdgrv LIKE lfb1-fdgrv,
         waers LIKE lfm1-waers,
        END OF itab.
DATA : BEGIN OF jtab OCCURS 0,
        j1 TYPE i,
        banks LIKE lfbk-banks,
        bankl LIKE lfbk-bankl,
        bankn LIKE lfbk-bankn,
         END OF jtab.
DATA : cnt(4) TYPE n.
DATA : fdt(20) TYPE c.
DATA : c TYPE i.
INCLUDE bdcrecx1.
START-OF-SELECTION.
CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename = 'C:\first1.txt'
      filetype = 'DAT'
    TABLES
      data_tab = itab.
CALL FUNCTION 'WS_UPLOAD'
   EXPORTING
     filename                      = 'C:\second.txt'
     filetype                      = 'DAT'
    TABLES
      data_tab                      = jtab.
LOOP AT itab.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RF02K-KTOKK'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'RF02K-LIFNR'
                                  itab-lifnr.
    PERFORM bdc_field       USING 'RF02K-BUKRS'
                                  itab-bukrs.
    PERFORM bdc_field       USING 'RF02K-EKORG'
                                   itab-ekorg.
    PERFORM bdc_field       USING 'RF02K-KTOKK'
                                   itab-ktokk.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0110'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFA1-LAND1'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'LFA1-ANRED'
                                  itab-anred.
    PERFORM bdc_field       USING 'LFA1-NAME1'
                                  itab-name1.
    PERFORM bdc_field       USING 'LFA1-SORTL'
                                  itab-sortl.
    PERFORM bdc_field       USING 'LFA1-LAND1'
                                  itab-land1.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0120'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFA1-KUNNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFBK-BANKN(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=ENTR'.
    cnt = 0.
    LOOP AT jtab WHERE j1 = itab-i1.
      cnt = cnt + 1.
      CONCATENATE 'LFBK-BANKS(' cnt ')' INTO fdt.
      PERFORM bdc_field USING fdt jtab-banks.
      CONCATENATE 'LFBK-BANKL(' cnt ')' INTO fdt.
      PERFORM bdc_field USING fdt jtab-bankl.
      CONCATENATE 'LFBK-BANKN(' cnt ')' INTO fdt.
      PERFORM bdc_field   USING fdt jtab-bankn.
      IF cnt = 5.
        cnt = 0.
        PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'LFBK-BANKS(01)'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=P+'.
        PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
        PERFORM bdc_field       USING 'BDC_CURSOR'
                                      'LFBK-BANKN(02)'.
        PERFORM bdc_field       USING 'BDC_OKCODE'
                                      '=ENTR'.
      ENDIF.
    ENDLOOP.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0130'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFBK-BANKS(01)'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=ENTR'.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0210'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFB1-FDGRV'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'LFB1-AKONT'
                                  itab-akont.
    PERFORM bdc_field       USING 'LFB1-FDGRV'
                                  itab-fdgrv.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0215'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFB1-ZTERM'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0220'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFB5-MAHNA'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0310'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'LFM1-WAERS'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'LFM1-WAERS'
                                  itab-waers.
    PERFORM bdc_dynpro      USING 'SAPMF02K' '0320'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RF02K-LIFNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=ENTR'.
    PERFORM bdc_dynpro      USING 'SAPLSPO1' '0300'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=YES'.
    PERFORM bdc_transaction USING 'XK01'.
ENDLOOP.
PERFORM close_group.
ABAP Name   :   ZMM_PR_UPLOAD_MAT
Description :   PR Upload BDC Program(With Material)
Created by :   Anji Reddy V
Created on :   04/11/2004
Description :   This Program is used to Upload the Purchase
                 Requisition data Using the Transaction ME51N.
Modification Log:
Date         Programmer          Correction    Description
04/11/2004   Anji Reddy          Initial
REPORT zmm_pr_upload_mat
       NO STANDARD PAGE HEADING
       LINE-SIZE 255.
Standard Include for Selection Screen
INCLUDE bdcrecx1.
Internal Table for Upload Data
DATA: BEGIN OF i_pr OCCURS 0,
Header Screen
        sno(3),               " SNo
        bsart(004),           " PR Type
        epstp(001),           " Item Category
        knttp(001),           " Account Assignment
        eeind(010),           " Delivery Date
       lpein(001),          " Category of Del Date
        werks(004),           " Plant
        lgort(004),           " Storage Location
        ekgrp(003),           " Purchasing Group
        matkl(009),           " Material Group
        bednr(010),           " Tracking No
        afnam(012),            " Requisitioner
Item Details
        matnr(018),           " Material No
        menge(017),           " Quantity
       badat(010),
       frgdt(010),
        preis(014),           " Valuation Price
       waers(005),           " Currency
       peinh(005),
       wepos(001),
       repos(001),
        sakto(010),           " GL Account
        kostl(010),           " Cost Center
       bnfpo(005),
      END OF i_pr.
Internal Table for header Data
DATA: BEGIN OF it_header OCCURS 0,
        sno(3),               " SNo
        bsart(004),           " PR Type
        epstp(001),           " Item Category
        knttp(001),           " Account Assignment
        eeind(010),           " Delivery Date
        werks(004),           " Plant
        lgort(004),           " Storage Location
        ekgrp(003),           " Purchasing Group
        matkl(009),           " Material Group
        bednr(010),           " Tracking No
        afnam(012),            " Requisitioner
      END OF it_header.
Internal Table for Item Data
DATA: BEGIN OF it_item OCCURS 0,
        sno(3),               " SNo
        matnr(018),           " Material No
        menge(017),           " Quantity
        preis(014),           " Valuation Price
        sakto(010),           " GL Account
        kostl(010),           " Cost Center
      END OF it_item.
Data Variables & Constants
CONSTANTS : c_x             VALUE 'X'. " Flag
DATA : v_l(2),                          " Counter
       v_rowno(5),                      " Row No
       v_2(2),                          " Counter
       v_rows LIKE sy-srows,            " Rows in TC
       v_field(45).                     " String
Parameters
PARAMETERS: p_file LIKE ibipparms-path. " Filename
At selection-screen on Value Request for file Name
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
Get the F4 Values for the File
CALL FUNCTION 'F4_FILENAME'
    EXPORTING
      program_name = syst-cprog
      dynpro_number = syst-dynnr
    IMPORTING
      file_name     = p_file.
Start of Selection
START-OF-SELECTION.
Open the BDC Session
PERFORM open_group.
Upload the File into internal Table
CALL FUNCTION 'UPLOAD'
    EXPORTING
      filename                = p_file
      filetype                = 'DAT'
    TABLES
      data_tab                = i_pr
    EXCEPTIONS
      conversion_error        = 1
      invalid_table_width     = 2
      invalid_type            = 3
      no_batch                = 4
      unknown_error           = 5
      gui_refuse_filetransfer = 6
      OTHERS                  = 7.
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 i_pr BY sno.
LOOP AT i_pr.
    MOVE-CORRESPONDING i_pr TO it_item.
    APPEND it_item.
    CLEAR it_item.
    AT END OF sno.
      READ TABLE i_pr INDEX sy-tabix.
      MOVE-CORRESPONDING i_pr TO it_header.
      APPEND it_header.
      CLEAR it_header.
    ENDAT.
ENDLOOP.
SORT it_header BY sno.
SORT it_item BY sno.
v_rows = sy-srows - 6.
Upload the Data from Internal Table
LOOP AT it_header.
Header Data
    PERFORM bdc_dynpro      USING 'SAPMM06B' '0100'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'EBAN-BEDNR'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '/00'.
    PERFORM bdc_field       USING 'EBAN-BSART'
                                  it_header-bsart.
    PERFORM bdc_field       USING 'RM06B-EPSTP'
                                  it_header-epstp.
    PERFORM bdc_field       USING 'EBAN-KNTTP'
                                  it_header-knttp.
    PERFORM bdc_field       USING 'RM06B-EEIND'
                                  it_header-eeind.
   PERFORM bdc_field       USING 'RM06B-LPEIN'
                                 it_header-lpein.
    PERFORM bdc_field       USING 'EBAN-WERKS'
                                  it_header-werks.
    PERFORM bdc_field       USING 'EBAN-LGORT'
                                  it_header-lgort.
    PERFORM bdc_field       USING 'EBAN-EKGRP'
                                  it_header-ekgrp.
    PERFORM bdc_field       USING 'EBAN-MATKL'
                                  it_header-matkl.
    PERFORM bdc_field       USING 'EBAN-BEDNR'
                                  it_header-bednr.
    PERFORM bdc_field       USING 'EBAN-AFNAM'
                                  it_header-afnam.
Item Details
    v_l = 0.
To add no. of rows
    v_2 = 0 .
As the screen is showing 13 rows defaulted to 130
    v_rowno = 130 .
    LOOP AT it_item WHERE sno = it_header-sno.
      v_l = v_l + 1.
      IF v_l = 14 .
        IF v_2 = 12 .
          v_2 = 12 .
          v_l = 2 .
From second time onwards it is displaying 12 rows only
          v_rowno = v_rowno + 120 .
          PERFORM bdc_dynpro      USING 'SAPMM06B' '0106'.
          PERFORM bdc_field       USING 'BDC_CURSOR'
                                        'RM06B-BNFPO'.
          PERFORM bdc_field       USING 'RM06B-BNFPO'
                                        v_rowno.
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                        '/00'.
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                            '/00'.
        ELSE.
V_2 initialized to 12 for second screen purpose
          v_2 = 12 .
          v_l = 2 .
          PERFORM bdc_dynpro      USING 'SAPMM06B' '0106'.
          PERFORM bdc_field       USING 'BDC_CURSOR'
                                        'RM06B-BNFPO'.
          PERFORM bdc_field       USING 'RM06B-BNFPO'
                                        v_rowno .
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                        '/00'.
          PERFORM bdc_field       USING 'BDC_OKCODE'
                                            '/00'.
        ENDIF.
      ENDIF.
      PERFORM bdc_dynpro      USING 'SAPMM06B' '0106'.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '/00'.
      CLEAR v_field.
      CONCATENATE 'EBAN-MATNR(' v_l ')' INTO v_field.
      PERFORM bdc_field   USING v_field it_item-matnr.
      CLEAR v_field.
      CONCATENATE 'EBAN-MENGE(' v_l ')' INTO v_field.
      PERFORM bdc_field   USING v_field it_item-menge.
      PERFORM bdc_dynpro      USING 'SAPMM06B' '0102'.
      PERFORM bdc_field       USING 'BDC_CURSOR'
                                    'EBAN-PREIS'.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '/00'.
      PERFORM bdc_field       USING 'EBAN-PREIS'
                                  it_item-preis.
      PERFORM bdc_dynpro      USING 'SAPMM06B' '0505'.
      PERFORM bdc_field       USING 'BDC_CURSOR'
                                    'EBKN-SAKTO'.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '=ENTE'.
      PERFORM bdc_field       USING 'EBKN-SAKTO'
                                  it_item-sakto.
Cost Center
      PERFORM bdc_dynpro      USING 'SAPLKACB' '0002'.
      PERFORM bdc_field       USING 'BDC_CURSOR'
                                    'COBL-KOSTL'.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '=ENTE'.
      PERFORM bdc_field       USING 'COBL-KOSTL'
                                    it_item-kostl.
      PERFORM bdc_field       USING 'BDC_OKCODE'
                                    '=ENTE'.
    ENDLOOP.
    PERFORM bdc_dynpro      USING 'SAPMM06B' '0106'.
    PERFORM bdc_field       USING 'BDC_CURSOR'
                                  'RM06B-BNFPO'.
    PERFORM bdc_field       USING 'BDC_OKCODE'
                                  '=BU'.
Call The Transaction
    PERFORM bdc_transaction USING 'ME51'.
ENDLOOP.
Close the BDC Session
PERFORM close_group.
reward for useful answers.
Regards,
Anji

I cannot delete multiple entries from table

Hi
i am trying to delete multiple entries from table while keeping some data.
for example I have the following table
Plant                            Item
US101                         777
US101                         888
US101                         999
US101                         666
I want to keep the rows where the item is 777 and 888 for plant US101 and keep delete the rest data
I wrote the following code
Delete source_package where Plant = 'US101' and Item NE '777' or '888'.
but all the rows get deleted.
I tried deleting single row and it worked.
Delete source_package where Plant = 'US101' and Item NE '777' .
How can I delete multiple rows.
thanks

Hi Bhat Vaidya,
Plz refer the following code.. IT will solve ur problem..
REPORT ZSDN_TEST.
data: BEGIN OF it_data OCCURS 10,
        plant(4),
        item_num TYPE string,
      END OF it_data.
data: str type string.
data: it_final like it_data OCCURS 10 WITH HEADER LINE.
it_data-plant = 'US01'. it_Data-item_num = 777. append it_data.
it_data-plant = 'US01'. it_Data-item_num = 888. append it_data.
it_data-plant = 'US01'. it_Data-item_num = 999. append it_data.
it_data-plant = 'US01'. it_Data-item_num = 666. append it_data.
delete it_data where plant = 'US01' and item_num ne 777 and item_num ne 888.
LOOP AT it_data.
write:it_data-plant,it_data-item_num.
skip.
ENDLOOP.
Regards,
Apoorv

How to delete a column from the table control in module pool?

Hi,
can any one please tell How to delete a column from the table control in module pool?
thanks in advance
warm regards
HareeshKumar N

hi hareesh,
I think it is better to hide it.
How to hide: You can check this link
Dynamic Hide column in table control

How to find the current line in the table control in module pool ?

How to find the current line in the table control in module pool ?
This is an urgent requirement? please do help me.

refer to this example
REPORT demo_dynpro_tabcont_loop_at.
CONTROLS flights TYPE TABLEVIEW USING SCREEN 100.
DATA: cols LIKE LINE OF flights-cols,
lines TYPE i.
DATA: ok_code TYPE sy-ucomm,
      save_ok TYPE sy-ucomm.
DATA: itab TYPE TABLE OF demo_conn.
      TABLES demo_conn.
SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE itab.
LOOP AT flights-cols INTO cols WHERE index GT 2.
cols-screen-input = '0'.
MODIFY flights-cols FROM cols INDEX sy-tabix.
ENDLOOP.
CALL SCREEN 100.
MODULE status_0100 OUTPUT.
SET PF-STATUS 'SCREEN_100'.
DESCRIBE TABLE itab LINES lines.
flights-lines = lines.
ENDMODULE.
MODULE cancel INPUT.
LEAVE PROGRAM.
ENDMODULE.
MODULE read_table_control INPUT.
MODIFY itab FROM demo_conn INDEX<b> flights-current_line.</b>
ENDMODULE.
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
    WHEN 'TOGGLE'.
      LOOP AT flights-cols INTO cols WHERE index GT 2.
        IF cols-screen-input = '0'.
          cols-screen-input = '1'.
        ELSEIF cols-screen-input = '1'.
          cols-screen-input = '0'.
      ENDIF.
MODIFY flights-cols FROM cols INDEX sy-tabix.
ENDLOOP.
    WHEN 'SORT_UP'.
      READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
      IF sy-subrc = 0.
        SORT itab STABLE BY (cols-screen-name+10) ASCENDING.
        cols-selected = ' '.
MODIFY flights-cols FROM cols INDEX sy-tabix.
      ENDIF.
    WHEN 'SORT_DOWN'.
      READ TABLE flights-cols INTO cols WITH KEY selected = 'X'.
      IF sy-subrc = 0.
        SORT itab STABLE BY (cols-screen-name+10) DESCENDING.
        cols-selected = ' '.
MODIFY flights-cols FROM cols INDEX sy-tabix.
      ENDIF.
    WHEN 'DELETE'.
      READ TABLE flights-cols INTO cols
                              WITH KEY screen-input = '1'.
      IF sy-subrc = 0.
        LOOP AT itab INTO demo_conn WHERE mark = 'X'.
          DELETE itab.
ENDLOOP.
      ENDIF.
ENDCASE.
ENDMODULE.

Table control of Module Pool Program

Hi,
I need a help in the table control of Module pool.
Here I am using 40 columns in the table control. Out of 40, 30 columns are numeric type.
Now the client need only 5 columns total in the last row. I made it as per requirement.
But it is giving 5 columns total and the remaining 25 columns are filled zero value of total row.
Now the client doesnt want to display the zero for these 25 columns in the Total row.
Its very urgent. Please help on this.
Reward points will be providing for useful answers.
Advance Thanks 4 all.
Regards,
KBS REDDY

Hi,
In your PBO, inside LOOP ENDLOOP, have a module for screen modifications and for the last row that has totals, you set screen-invisible = 1 inside LOOP AT SCREEN. ENDLOOP.
For example,
If your screen has following PBO Logic,
MODULE ...
MODULE ...
LOOP ...
****New module here for screen modification if does not ****exist already.
    MODULE modify_screen.
ENDLOOP.
and then in MODULE modify_screen.
MODULE modify_screen.
****Basically check MATNR EQ 'TOTAL' or some thing like ****that
    IF <your condition for totals line>.
      LOOP AT SCREEN.
****Note instead of screen-name, you can assign a screen ****group to all columns w/o totals and then use
****SCREEN-GROUP1 EQ <your grp> logic
        IF screen-name EQ <your column name w/o totals>.
          screen-invisible = 1.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
    ENDIF.
ENDMODULE.
On another note, since you are already disabling this fields in the last row, you have all the screen modification logic already I guess, so just add SCREEN-INVISIBLE = 1 for all fields w/o totals..
Hope this helps..
Sri
Message was edited by: Srikanth Pinnamaneni

SRM-EBP: How to delete multiple entries in table BBP_DOCUMENT_TAB easier?

We are running SRM 4.0 EBP on classic scenario. I want to delete entries in table BBP_DOCUMENT_TAB easier and faster using FM BBP_DELETE_FROM_DOCUMENT_TAB. Is there a standard program that calls this FM so that inputting the entries will be faster? I see only CLEAN_REQREQ_UP but does not serve the purpose. If none, how can I develop a program to achieve this? Please help SRM Consultants.

Hi,
Please check note 535765, in it there is a special report that deletes entries from this table.
I hope this helps,
Kind Regards,
Lisa

Dynamic table control in module pool screen

Hi All
        I have got a requirement that in the module pool program i need to create a table control which is going to be dynamic i.e number of columns to be displayed in the screen is going to vary based on the one of the table entries. for example the requirement is as follows.
I wanted to displaye list of bikes available in different states.
State     Bike1    Bike2      Bike3
AP           2             3           1
MP            4            6            7
Currently i have only 3 three types of bike, this may increase to 7 by next year or decrease and this functionality I require dynamically, Can you help on the same?
Thanks
Giri

You can do it,
Just try the code,...
if you have requirement like to make changes in the same screen itself,
then follow the same thing in PAI Module
In PBO...
PROCESS BEFORE OUTPUT.
MODULE STATUS.
LOOP WITH CONTROL TABCTRL.
MODULE MODIFY_100.
ENDLOOP.
MODULE MODIFY_100 OUTPUT.
DATA wa_tabctrl TYPE cxtab_column .
LOOP AT TABCTRL-COLS INTO WA_TABCTRL.
      IF WA_TABCTRL-NAME = 'BIKE3'.
        WA_TABCTRL-SCREEN-INVISIBLE = '1'.
        MODIFY TABCTRL-COLS FROM WA_TABCTRL.
      ENDIF.
ENDLOOP.
ENDMODULE.

Table control in Module pool Program

Hi All,
here i have a small requirement on module pool application.
i will explain my scenario more in detail.Here i have one delivery number.if i give this delivery number and click on capture it will capture all the materials for that delivery numeber in a table control.here the material may be one or more than one.we can select table control records.so if the material is more than one user has to select only one material once.if he will try to select the second material we want to display an error message will display.how to handle this requirement.
please give me suggestions regarding coding also.
Thanks in advance,
swami
Edited by: swaminath kamasani on Oct 1, 2008 11:50 PM

Do you need to know how to display an error message if multiple lines are selected or the coding for the entire requirnment??
For error message part:
Dont set the Table control attributes - multiple selection.

To give colours for a certain row in table control in module pool

Hi,
In module pool,,,,,When I am displaying the Table Control......Suppose in some rows personnel no. is there and for the person who has exited from the company should be highlighted with red colour.
Please some code..
thanks..

Hi Jayasree,
I think I had a similar requirement to have a one column on a particular row
available for input where all other rows for that column were not. It took
me a while to figure this out but it was quite simple. I expect it will
work for colour changes too.
In Process Before Output
LOOP AT INTERNAL TABLE INTO WA WITH CONTROL TC
Call Module
END LOOP
In the module program the condition on which the colour change / input
status etc has to be changed using
IF condition = true
LOOP AT SCREEN
IF SCREEN-NAME = column name
Make your colour / input status change
MODIFY SCREEN
ENDIF
ENDLOOP
ENDIF
I hope this helps you.
Please search the forum before adding a new thread.

How to use table control in module pool programming

Hi
I want to use a table control to fetch some data from mara table.
Please guide me with the procedure and the steps which I can follow to complete my program correctly.
thanks
Lalit Gupta

As [vinraaj|http://forums.sdn.sap.com/profile.jspa?userID=3968041] wrote, call transaction SE51, there is a Wizard to help you generate the table control, it will create the table control and some includes with PBO/PAI modules > Read [Using the Table Control Wizard|http://help.sap.com/saphelp_bw/helpdata/en/6d/150d67da1011d3963800a0c94260a5/frameset.htm]
Also there is a tutorial in the wiki, read [Learn Making First Table Control |http://wiki.sdn.sap.com/wiki/display/ABAP/LearnMakingFirstTableControl] by [Krishna Chauhan|http://wiki.sdn.sap.com/wiki/display/~nc0euof]
Regards,
Raymond

Getting Error when createing Table control in Module Pool.

Hi expert ,
i am creating a module pool program . i want to crate line item value for that i have created table control on screen 200 .
but when i am activation to that giving error below mention.
The field "ZFBDCHALLAN-EBELN" is not assigned to a loop. "LOOP ...ENDLOOP" must appear in "PBO" and "PAI".
thanks
chandra

Its mandatory to have loop endloop in both events
PBO and PAI
loop your internal table similarly.
Please check it should be below format
PROCESS BEFORE OUTPUT.
* Set PF Status for screen 100.
MODULE status_0200.
* This module will initialize the field
MODULE init_0100.
LOOP AT t_custmat_asg INTO w_custmat_asg
      WITH CONTROL tc_1
      CURSOR tc_1-current_line.
* It will count the record in internal table
    MODULE set_linecount.
* Screen Modifications
    MODULE status_check.
ENDLOOP.
PROCESS AFTER INPUT.
* Module AT EXIT-COMMAND
MODULE exit_0200 AT EXIT-COMMAND.
LOOP AT t_custmat_asg .
    CHAIN.
      FIELD :
      w_custmat_asg-check,
              w_custmat_asg-kunnr,
              w_custmat_asg-name1,
              w_custmat_asg-asgtyp,
              w_custmat_asg-productcls,
              w_custmat_asg-sctegry,
              w_custmat_asg-ctegry,
              w_custmat_asg-parent,
              w_custmat_asg-frmdate,
              w_custmat_asg-todate,
              w_custmat_asg-frecster,
              w_custmat_asg-salesrep,
              w_custmat_asg-flag,
              w_custmat_asg-username,
              w_custmat_asg-udate.
* Validation For Forecaster.
      MODULE validate_forecaster.
* Validation For Salesrep.
      MODULE valiate_salesrep.
* Validation for Customer
      module validate_customer.
* Validate null value
      module validate_null_vals.
* Validation For Data Changed On The Screen
      MODULE data_changed_0200 ON CHAIN-REQUEST.
    ENDCHAIN.
ENDLOOP.
Regards
Satish Boguda

Table Control in Module Pool

hi all,
is it possible to update one screen field (which is not a field of d table control) in CHAIN ENDCHAIN of a table control.
plz suggest.
rgds,
Avijit

Thats different then what you first asked, but you should be able to do this
LOOP AT wt_zlmpers.
    CHAIN.
      FIELD wt_zlmpers_rec-fname.
      FIELD wt_zlmpers_rec-lname.
      FIELD wt_zlmpers_rec-birthdat.
      FIELD wt_zlmpers_rec-hobby.
        MODULE EDIT_ME.      "<== in this module if edit fails.. update your other field
    ENDCHAIN.
    FIELD wt_zlmpers_rec-sel
      MODULE tblclt_zlmpers_mark ON REQUEST. " <== maybe here.. not sure exactly
ENDLOOP.

Suppress table control in module pool programming

Hi Frnds
I need your help to find out if is possible to suppress a table control by configuration in SPRO.
I am able to suppress all the other fields on the screen using the configuration in SPRO,but for table control it is not working that ways.
By programming in PBO I am able to proceed but I need to find out if it possible to do the same through configuration.
Thanks
Mitesh
null

add module vertical_scroll in PBO and try.
module vertical_scroll output.
data n type i.
describe table it_div lines n.
tabctrl-lines = n.
endmodule.
reward if useful.

To delete multiple entries in table control in module pool

Similar Messages

Maybe you are looking for