Webdynpro FPM Table Control Toolbar Buttons

Dear Experts,
In Webdynpro FPM Configuration, Table control tool bar to be enhanced with custom buttons and it should call the custom web dynpro applications.
After adding the buttons, where we have to configure the FPM Event ID's and corresponding actions.
Please check and let me know.
Thanks & Regards,
Sunil KS

Hi Sunil,
You have to create enhancement implementation for your application configuration. Then you have to follow the below procedure for enhanceing the feeder class.
1. Create explicit enhancement for your feeder class by choosing spiral button in the class object toolbar, then it will provide pre,post and override method for your methods.
2. As per your requirement you need to add some action in your table control toolbar, for that you need to implement post exit for the GET_DEFINITION method.
3. Enhance your FPM application for adding the table control button and assign the created action in your feeder class and process the events in the post exit implementation of your PROCESS_EVENT method.
THanks & Regards
Praveen Gupta

Similar Messages

Creation of sale order using bapi in webdynpro using table control

only first row is getting updated when checked in va03, the line items are not getting replaced, only first row is committed..
Here is the code for table control i used...
http://www.scribd.com/doc/51879492/creation-of-sale-order-using-bapi-in-webdynpro-using-table-control
pls help me out with this..

Duplicate Posting. Original is here: Sales order creation with bapi in webdynpro using table control

Error in table control push buttons enhancement....

hi all,
iam creating a table control with some push buttons namely Insert, terminate in a enhancement while clicking terminate iam getting error message that
" Flow control: Entry SAPMIEQ0, * , * is missing in T185V " can any one help me to solve this issue.
Thanks in Advance.
Prem.

Even in sm30 also its not allowing me to maintain that T185V table. its taking me to VFBS transaction code.pls help me in this issue
Thanks
Prem.

Sales order creation with bapi in webdynpro using table control

When i use table control to update the line items only first row is getting updated in the sale order creation and the loop is not updating the other row to header only the first row is getting saved, for the same set of data sale order is getting created in va01 for multiple line items. Pls give me some idea to resolve this issue, here is the code i am using for creating sale order using bapi 'BAPI_SALESORDER_CREATEFROMDAT2' method CREATE_SALES_ORDER .
Declaration for Order Header Node DATA: node_order_header TYPE REF TO if_wd_context_node, elem_order_header TYPE REF TO if_wd_context_element, stru_order_header TYPE if_componentcontroller=>element_order_header . * Declaration for Order Items Node DATA: node_order_items TYPE REF TO if_wd_context_node, elem_order_items TYPE REF TO if_wd_context_element, stru_order_items TYPE if_componentcontroller=>element_order_items . * Declaration for Order Partners Node DATA: node_order_partners TYPE REF TO if_wd_context_node, elem_order_partners TYPE REF TO if_wd_context_element, stru_order_partners TYPE if_componentcontroller=>element_order_partners . node_order_header = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_header ). elem_order_header = node_order_header->get_element( ). elem_order_header->get_static_attributes( IMPORTING static_attributes = stru_order_header ). * via lead selection node_order_items = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_items ). elem_order_items = node_order_items->get_element( ). elem_order_items->get_static_attributes( IMPORTING static_attributes = stru_order_items ). * via lead selection node_order_partners = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_partners ). elem_order_partners = node_order_partners->get_element( ). elem_order_partners->get_static_attributes( IMPORTING static_attributes = stru_order_partners ). DATA: v_sales_doc TYPE bapivbeln-vbeln. DATA: w_order_header_in TYPE bapisdhd1, i_order_header_in TYPE table of bapisdhd1," i_order_partners TYPE TABLE OF bapiparnr, w_order_partners TYPE bapiparnr, i_return TYPE TABLE OF bapiret2, w_return TYPE bapiret2, i_order_items_in TYPE TABLE OF bapisditm, w_order_items_in TYPE bapisditm, i_order_conditions_in TYPE TABLE OF bapicond, w_order_conditions_in TYPE bapicond, w_order_SCHDL type BAPISCHDL, i_order_SCHDL type table of BAPISCHDL. * Order Header Details CLEAR: w_order_header_in, i_order_partners, i_return, i_order_items_in, i_order_conditions_in, w_order_SCHDL, i_order_SCHDL. refresh : i_order_partners, i_return, i_order_items_in, i_order_conditions_in, i_order_SCHDL. w_order_header_in-doc_type = stru_order_header-doc_type. w_order_header_in-sales_org = stru_order_header-sales_org. w_order_header_in-distr_chan = stru_order_header-distr_chan. w_order_header_in-division = stru_order_header-division. w_order_header_in-req_date_h = stru_order_header-req_date_h. w_order_header_in-sales_dist = stru_order_header-sales_dist. w_order_header_in-purch_no_c = stru_order_header-purch_no_c. * Order Item Details CLEAR: i_order_items_in,w_order_items_in. * w_order_items_in-itm_num = stru_order_items-itm_num. w_order_items_in-ITM_NUMBER = stru_order_items-ITM_NUMBER. w_order_items_in-material = stru_order_items-material. w_order_items_in-target_qty = stru_order_items-target_qty."'5'. w_order_items_in-target_qu = stru_order_items-target_qu."'5'. w_order_items_in-plant = stru_order_items-plant. w_order_items_in-target_val = stru_order_items-target_val. w_order_items_in-currency = stru_order_items-currency. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_order_items_in-material IMPORTING output = w_order_items_in-material. APPEND w_order_items_in TO i_order_items_in. * Order Partner Details CLEAR: i_order_partners,w_order_partners. w_order_partners-partn_role = stru_order_partners-partn_role. w_order_partners-partn_numb = stru_order_partners-partn_numb. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_order_partners-partn_numb IMPORTING output = w_order_partners-partn_numb. APPEND w_order_partners TO i_order_partners. * Order Condition Details w_order_SCHDL-ITM_NUMBER = stru_order_items-itm_number." '000010'. w_order_SCHDL-req_qty = stru_order_items-target_qty." '5'. APPEND w_order_SCHDL to i_order_SCHDL. * Create Sales Order BAPI Call *loop at i_order_header_in into w_order_header_in. CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2' EXPORTING order_header_in = w_order_header_in IMPORTING salesdocument = v_sales_doc TABLES return = i_return order_items_in = i_order_items_in order_partners = i_order_partners order_schedules_in = i_order_SCHDL order_conditions_in = i_order_conditions_in. * Get message manager DATA: l_current_controller TYPE REF TO if_wd_controller, l_message_manager TYPE REF TO if_wd_message_manager. l_current_controller ?= wd_this->wd_get_api( ). CALL METHOD l_current_controller->get_message_manager RECEIVING message_manager = l_message_manager. DATA: v_message_text TYPE string. * When Sales Order is created commit the data IF NOT v_sales_doc IS INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CONCATENATE 'Sales Document' v_sales_doc 'has been created.' INTO v_message_text SEPARATED BY space. * Report Success message CALL METHOD l_message_manager->report_success EXPORTING message_text = v_message_text. ELSE. v_message_text = 'Error Creating Sales Order'. * Report Error message CALL METHOD l_message_manager->report_error_message EXPORTING message_text = v_message_text. ENDIF. *endloop. endmethod. and code for table control i am using is method WDDOINIT . Types : Begin of item_tab, itm_number type bapisditm-itm_number, material type bapisditm-material, plant type bapisditm-plant , target_qty type bapisditm-target_qty, target_qu type bapisditm-target_qu, target_val type bapisditm-target_val, currency type bapisditm-currency, end of item_tab. *Creating internal table and Work Area of the same structure *as that of the Node created. Data : it_item type standard table of item_tab, wa_item type item_tab. *Appending Blank Work Area to Internal table. ***********************************************888 *LOOP AT it_item INTO wa_item. **wa_item-itm_number to bapisditm-itm_number. **wa_item-material to bapisditm-material. **wa_item-plant to bapisditm-plant. **wa_item-target_qty to bapisditm-target_qty. **wa_item-target_qu to bapisditm-target_qu. **wa_item-target_val to bapisditm-target_val. **wa_item-currency to bapisditm-currency. ** * APPEND wa_item TO it_item. *ENDLOOP. **********************************************88 ******** Do 10 times. Append wa_item to it_item. enddo. ********* "Binding the table DATA lo_nd_order_items TYPE REF TO if_wd_context_node. * DATA lt_material TYPE wd_this->Elements_material. * navigate from to via lead selection lo_nd_order_items = wd_context->get_child_node( name = wd_this->wdctx_order_items ). * @TODO handle non existant child * IF lo_nd_material IS INITIAL. * ENDIF. ** @TODO compute values ** e.g. call a model function * lo_nd_order_items->bind_table( new_items = it_item set_initial_elements = abap_true ). endmethod.

DATA: node_order_header TYPE REF TO if_wd_context_node, elem_order_header TYPE REF TO if_wd_context_element, stru_order_header TYPE if_componentcontroller=>element_order_header . * Declaration for Order Items Node DATA: node_order_items TYPE REF TO if_wd_context_node, elem_order_items TYPE REF TO if_wd_context_element, stru_order_items TYPE if_componentcontroller=>element_order_items . * Declaration for Order Partners Node DATA: node_order_partners TYPE REF TO if_wd_context_node, elem_order_partners TYPE REF TO if_wd_context_element, stru_order_partners TYPE if_componentcontroller=>element_order_partners . node_order_header = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_header ). elem_order_header = node_order_header->get_element( ). elem_order_header->get_static_attributes( IMPORTING static_attributes = stru_order_header ). * via lead selection node_order_items = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_items ). elem_order_items = node_order_items->get_element( ). elem_order_items->get_static_attributes( IMPORTING static_attributes = stru_order_items ). * via lead selection node_order_partners = wd_context->get_child_node( name = if_componentcontroller=>wdctx_order_partners ). elem_order_partners = node_order_partners->get_element( ). elem_order_partners->get_static_attributes( IMPORTING static_attributes = stru_order_partners ). DATA: v_sales_doc TYPE bapivbeln-vbeln. DATA: w_order_header_in TYPE bapisdhd1, i_order_header_in TYPE table of bapisdhd1," i_order_partners TYPE TABLE OF bapiparnr, w_order_partners TYPE bapiparnr, i_return TYPE TABLE OF bapiret2, w_return TYPE bapiret2, i_order_items_in TYPE TABLE OF bapisditm, w_order_items_in TYPE bapisditm, i_order_conditions_in TYPE TABLE OF bapicond, w_order_conditions_in TYPE bapicond, w_order_SCHDL type BAPISCHDL, i_order_SCHDL type table of BAPISCHDL. * Order Header Details CLEAR: w_order_header_in, i_order_partners, i_return, i_order_items_in, i_order_conditions_in, w_order_SCHDL, i_order_SCHDL. refresh : i_order_partners, i_return, i_order_items_in, i_order_conditions_in, i_order_SCHDL. w_order_header_in-doc_type = stru_order_header-doc_type. w_order_header_in-sales_org = stru_order_header-sales_org. w_order_header_in-distr_chan = stru_order_header-distr_chan. w_order_header_in-division = stru_order_header-division. w_order_header_in-req_date_h = stru_order_header-req_date_h. w_order_header_in-sales_dist = stru_order_header-sales_dist. w_order_header_in-purch_no_c = stru_order_header-purch_no_c. * Order Item Details CLEAR: i_order_items_in,w_order_items_in. * w_order_items_in-itm_num = stru_order_items-itm_num. w_order_items_in-ITM_NUMBER = stru_order_items-ITM_NUMBER. w_order_items_in-material = stru_order_items-material. w_order_items_in-target_qty = stru_order_items-target_qty."'5'. w_order_items_in-target_qu = stru_order_items-target_qu."'5'. w_order_items_in-plant = stru_order_items-plant. w_order_items_in-target_val = stru_order_items-target_val. w_order_items_in-currency = stru_order_items-currency. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_order_items_in-material IMPORTING output = w_order_items_in-material. APPEND w_order_items_in TO i_order_items_in. * Order Partner Details CLEAR: i_order_partners,w_order_partners. w_order_partners-partn_role = stru_order_partners-partn_role. w_order_partners-partn_numb = stru_order_partners-partn_numb. CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = w_order_partners-partn_numb IMPORTING output = w_order_partners-partn_numb. APPEND w_order_partners TO i_order_partners. * Order Condition Details w_order_SCHDL-ITM_NUMBER = stru_order_items-itm_number." '000010'. w_order_SCHDL-req_qty = stru_order_items-target_qty." '5'. APPEND w_order_SCHDL to i_order_SCHDL. * Create Sales Order BAPI Call *loop at i_order_header_in into w_order_header_in. CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2' EXPORTING order_header_in = w_order_header_in IMPORTING salesdocument = v_sales_doc TABLES return = i_return order_items_in = i_order_items_in order_partners = i_order_partners order_schedules_in = i_order_SCHDL order_conditions_in = i_order_conditions_in. * Get message manager DATA: l_current_controller TYPE REF TO if_wd_controller, l_message_manager TYPE REF TO if_wd_message_manager. l_current_controller ?= wd_this->wd_get_api( ). CALL METHOD l_current_controller->get_message_manager RECEIVING message_manager = l_message_manager. DATA: v_message_text TYPE string. * When Sales Order is created commit the data IF NOT v_sales_doc IS INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CONCATENATE 'Sales Document' v_sales_doc 'has been created.' INTO v_message_text SEPARATED BY space. * Report Success message CALL METHOD l_message_manager->report_success EXPORTING message_text = v_message_text. ELSE. v_message_text = 'Error Creating Sales Order'. * Report Error message CALL METHOD l_message_manager->report_error_message EXPORTING message_text = v_message_text. ENDIF. *endloop. endmethod. and code for table control i am using is method WDDOINIT . Types : Begin of item_tab, itm_number type bapisditm-itm_number, material type bapisditm-material, plant type bapisditm-plant , target_qty type bapisditm-target_qty, target_qu type bapisditm-target_qu, target_val type bapisditm-target_val, currency type bapisditm-currency, end of item_tab. *Creating internal table and Work Area of the same structure *as that of the Node created. Data : it_item type standard table of item_tab, wa_item type item_tab. *Appending Blank Work Area to Internal table. ***********************************************888 *LOOP AT it_item INTO wa_item. **wa_item-itm_number to bapisditm-itm_number. **wa_item-material to bapisditm-material. **wa_item-plant to bapisditm-plant. **wa_item-target_qty to bapisditm-target_qty. **wa_item-target_qu to bapisditm-target_qu. **wa_item-target_val to bapisditm-target_val. **wa_item-currency to bapisditm-currency. ** * APPEND wa_item TO it_item. *ENDLOOP. **********************************************88 ******** Do 10 times. Append wa_item to it_item. enddo. ********* "Binding the table DATA lo_nd_order_items TYPE REF TO if_wd_context_node. * DATA lt_material TYPE wd_this->Elements_material. * navigate from to via lead selection lo_nd_order_items = wd_context->get_child_node( name = wd_this->wdctx_order_items ). * @TODO handle non existant child * IF lo_nd_material IS INITIAL. * ENDIF. ** @TODO compute values ** e.g. call a model function * lo_nd_order_items->bind_table( new_items = it_item set_initial_elements = abap_true ). endmethod.

WebDynpro FPM configuration exception

Hi Experts,
I'm facing a scenario, I greatly appreciate if some one can answer. Thank you.
We are implementing NW04s SP9. ESS webDynpro version. backend ECC6.0
We are not using NWDI and we are implementing out of the box, no customization to standard delivered ESS WD apps.
In Dev portal every thing works fine. In QA portal I have transported using packages. but I did deployed ESS BP on QA system.
In QA environment every thing works fine if I assign super admin rights to the employee userID, if I remove the super admin role I' getting an dump error saying FPMCpnfiguration Exception: ReadObject "com.sap.pct.erp.srvconfig.DataRecord failed"
Can somebody experienced this issue. I have tried all ways from security standpoint like assigning content admin role only with ESS role same error as above, when I assign super admin role with ESS role, it works just fine.
Can some one suggest some options.
Greatly appreciated.

Hi Sunil,
You have to create enhancement implementation for your application configuration. Then you have to follow the below procedure for enhanceing the feeder class.
1. Create explicit enhancement for your feeder class by choosing spiral button in the class object toolbar, then it will provide pre,post and override method for your methods.
2. As per your requirement you need to add some action in your table control toolbar, for that you need to implement post exit for the GET_DEFINITION method.
3. Enhance your FPM application for adding the table control button and assign the created action in your feeder class and process the events in the post exit implementation of your PROCESS_EVENT method.
THanks & Regards
Praveen Gupta

Last_page button is not working in table control-urgent

hi all,
iam displaying the data in table control.in my pf-status i have first_page,next_page,prev_page and last_page.out of 4 buttons 3 buttons are working finr except last_page. any body can send me the code for this program.iam sending my program below.
REPORT ZMAHI_TABLE_CONTROL .
TABLES : VBAK,VBAP.
DATA : BEGIN OF ITAB OCCURS 0,
         VBELN TYPE VBAK-VBELN,
         ERDAT TYPE VBAK-ERDAT,
         ERNAM TYPE VBAK-ERNAM,
         ERZET TYPE VBAK-ERZET,
         REASON(40) TYPE C,
       END OF ITAB.
DATA :   FILL TYPE I VALUE 1.
DATA : N TYPE I .
DATA      : BEGIN OF XVALUES OCCURS 50,
              BUTXT LIKE T001-BUTXT,
            END OF XVALUES.
DATA      : BEGIN OF XFIELDS OCCURS 50.
        INCLUDE STRUCTURE HELP_VALUE.
DATA      : END OF XFIELDS.
DATA      : BEGIN OF SEL_VAL OCCURS 50.
        INCLUDE STRUCTURE HELP_VTAB.
DATA      : END OF SEL_VAL.
TABLE CONTROL DECLARATIONS------
CONTROLS : CONTROL_DATA TYPE TABLEVIEW USING SCREEN '100'.
DATA : OK_CODE TYPE SY-UCOMM,
LIN TYPE I,
LIN1 TYPE I,
LIN2 TYPE I,
LIN3 TYPE I.
DATA: LINES TYPE I,
      LIMIT TYPE I VALUE 1.
DATA :   LINE_COUNT       TYPE I,
         LINEI            TYPE I,
         LINEJ            TYPE I,
         LINE1            TYPE I,
         LINE2            TYPE I,
         LN1              TYPE I.
SELECTION-SCREEN : BEGIN OF BLOCK B1.
SELECT-OPTIONS   : P_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN : END OF BLOCK B1.
START-OF-SELECTION.
SELECT VBELN
         ERDAT
         ERNAM
         ERZET
    FROM VBAK
    INTO TABLE ITAB
WHERE VBELN IN P_VBELN.
CALL SCREEN 100.
*&      Module F4_HELP INPUT
MODULE F4_HELP INPUT.
FREE : XFIELDS,SEL_VAL,XVALUES.
MOVE : 'ZMAHI'     TO XFIELDS-TABNAME,
         'REASON'    TO XFIELDS-FIELDNAME,
         'X'        TO XFIELDS-SELECTFLAG.
APPEND XFIELDS.
XVALUES = 'Non Trade F&F'.
APPEND XVALUES .
XVALUES = 'Non Trade Retention'.
APPEND XVALUES .
XVALUES = 'Oldbills Accnt cntmnt'.
APPEND XVALUES .
XVALUES = 'Non Trade Not claimed'.
APPEND XVALUES .
XVALUES = 'Non Trade Dispute'.
APPEND XVALUES .
XVALUES = 'Non Trade Payment Block'.
APPEND XVALUES .
XVALUES = 'N/T Subsntly Cleared'.
APPEND XVALUES .
XVALUES = 'N/T Unstld Advances'.
APPEND XVALUES .
XVALUES = 'N/T OThers'.
APPEND XVALUES .
XVALUES = 'Trade Non Receipt OF BOE'.
APPEND XVALUES .
XVALUES = 'Trade OEM Adjustments'.
APPEND XVALUES .
XVALUES = 'Trade Reject Of Material'.
APPEND XVALUES .
XVALUES = 'Trade NOt Claimed'.
APPEND XVALUES .
XVALUES = 'Trade Dispute'.
APPEND XVALUES .
XVALUES = 'Trade Payment BLock'.
APPEND XVALUES .
XVALUES = 'Trade Subsntly Cleared'.
APPEND XVALUES .
XVALUES = 'Trade Non Submission of bills'.
APPEND XVALUES .
XVALUES = 'Trade others'.
APPEND XVALUES .
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'
       EXPORTING
            CUCOL         = 0
            CUROW         = 0
            DISPLAY       = ' '
            FIELDNAME     = 'REASON'
            TABNAME       = 'ZIFIOD011'
       IMPORTING
            SELECT_VALUE = ITAB-REASON
       TABLES
            FIELDS        = XFIELDS
            SELECT_VALUES = SEL_VAL
            VALUETAB      = XVALUES.
ENDMODULE.                 " F4_HELP INPUT
*&      Module STATUS_0100 OUTPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'CANCEL' OR 'EXIT' OR 'BACK'.
      LEAVE TO SCREEN 0.
   WHEN 'NEXT_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line + 1.
     limit = fill - lines + 1.
     IF CONTROL_DATA-top_line > limit.
       CONTROL_DATA-top_line = limit.
     ENDIF.
   WHEN 'PREV_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line - 1.
     IF CONTROL_DATA-top_line < 0.
       CONTROL_DATA-top_line = 0.
     ENDIF.
    WHEN 'NEXT_PAGE'.
      CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE + LINES.
      LIMIT = LIMIT + 1.
      CONTROL_DATA-TOP_LINE = LIMIT.
    WHEN 'PREV_PAGE'.
      CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE - LINES.
      LIMIT = LIMIT - 1.
      CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'LAST_PAGE'.
     CONTROL_DATA-TOP_LINE = FILL - LINES + 1.
    WHEN 'FIRST_PAGE'.
      CONTROL_DATA-TOP_LINE = 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module SCROLL_BAR INPUT
MODULE SCROLL_BAR INPUT.
DESCRIBE TABLE ITAB LINES CONTROL_DATA-LINES.
ENDMODULE.                 " SCROLL_BAR INPUT
thanks,
maheedhar.T

Hi Ravi,
The code which u sent to me is not working for next page and previous page.
can u plz resend me the code.
iam sending my code below.
REPORT ZMAHI_TABLE_CONTROL .
TABLES : VBAK,VBAP.
DATA : BEGIN OF ITAB OCCURS 0,
         VBELN TYPE VBAK-VBELN,
         ERDAT TYPE VBAK-ERDAT,
         ERNAM TYPE VBAK-ERNAM,
         ERZET TYPE VBAK-ERZET,
         REASON(40) TYPE C,
       END OF ITAB.
DATA :   FILL TYPE I VALUE 1.
DATA : N TYPE I .
DATA      : BEGIN OF XVALUES OCCURS 50,
              BUTXT LIKE T001-BUTXT,
            END OF XVALUES.
DATA      : BEGIN OF XFIELDS OCCURS 50.
        INCLUDE STRUCTURE HELP_VALUE.
DATA      : END OF XFIELDS.
DATA      : BEGIN OF SEL_VAL OCCURS 50.
        INCLUDE STRUCTURE HELP_VTAB.
DATA      : END OF SEL_VAL.
TABLE CONTROL DECLARATIONS------
CONTROLS : CONTROL_DATA TYPE TABLEVIEW USING SCREEN '100'.
DATA : OK_CODE TYPE SY-UCOMM,
LIN TYPE I,
LIN1 TYPE I,
LIN2 TYPE I,
LIN3 TYPE I.
DATA: LINES TYPE I,
      LIMIT TYPE I VALUE 1.
DATA :   LINE_COUNT       TYPE I,
         LINEI            TYPE I,
         LINEJ            TYPE I,
         LINE1            TYPE I,
         LINE2            TYPE I,
         LN1              TYPE I.
SELECTION-SCREEN : BEGIN OF BLOCK B1.
SELECT-OPTIONS   : P_VBELN FOR VBAK-VBELN.
SELECTION-SCREEN : END OF BLOCK B1.
START-OF-SELECTION.
SELECT VBELN
         ERDAT
         ERNAM
         ERZET
    FROM VBAK
    INTO TABLE ITAB
WHERE VBELN IN P_VBELN.
CALL SCREEN 100.
*&      Module F4_HELP INPUT
MODULE F4_HELP INPUT.
FREE : XFIELDS,SEL_VAL,XVALUES.
MOVE : 'ZMAHI'     TO XFIELDS-TABNAME,
         'REASON'    TO XFIELDS-FIELDNAME,
         'X'        TO XFIELDS-SELECTFLAG.
APPEND XFIELDS.
XVALUES = 'Non Trade F&F'.
APPEND XVALUES .
XVALUES = 'Non Trade Retention'.
APPEND XVALUES .
XVALUES = 'Oldbills Accnt cntmnt'.
APPEND XVALUES .
XVALUES = 'Non Trade Not claimed'.
APPEND XVALUES .
XVALUES = 'Non Trade Dispute'.
APPEND XVALUES .
XVALUES = 'Non Trade Payment Block'.
APPEND XVALUES .
XVALUES = 'N/T Subsntly Cleared'.
APPEND XVALUES .
XVALUES = 'N/T Unstld Advances'.
APPEND XVALUES .
XVALUES = 'N/T OThers'.
APPEND XVALUES .
XVALUES = 'Trade Non Receipt OF BOE'.
APPEND XVALUES .
XVALUES = 'Trade OEM Adjustments'.
APPEND XVALUES .
XVALUES = 'Trade Reject Of Material'.
APPEND XVALUES .
XVALUES = 'Trade NOt Claimed'.
APPEND XVALUES .
XVALUES = 'Trade Dispute'.
APPEND XVALUES .
XVALUES = 'Trade Payment BLock'.
APPEND XVALUES .
XVALUES = 'Trade Subsntly Cleared'.
APPEND XVALUES .
XVALUES = 'Trade Non Submission of bills'.
APPEND XVALUES .
XVALUES = 'Trade others'.
APPEND XVALUES .
CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE_EXT'
       EXPORTING
            CUCOL         = 0
            CUROW         = 0
            DISPLAY       = ' '
            FIELDNAME     = 'REASON'
            TABNAME       = 'ZIFIOD011'
       IMPORTING
            SELECT_VALUE = ITAB-REASON
       TABLES
            FIELDS        = XFIELDS
            SELECT_VALUES = SEL_VAL
            VALUETAB      = XVALUES.
ENDMODULE.                 " F4_HELP INPUT
*&      Module STATUS_0100 OUTPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'CANCEL' OR 'EXIT' OR 'BACK'.
      LEAVE TO SCREEN 0.
   WHEN 'NEXT_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line + 1.
     limit = fill - lines + 1.
     IF CONTROL_DATA-top_line > limit.
       CONTROL_DATA-top_line = limit.
     ENDIF.
   WHEN 'PREV_LINE'.
     CONTROL_DATA-top_line = CONTROL_DATA-top_line - 1.
     IF CONTROL_DATA-top_line < 0.
       CONTROL_DATA-top_line = 0.
     ENDIF.
   WHEN 'NEXT_PAGE'.
     CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE + LINES.
     LIMIT = LIMIT + 1.
     CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'PREV_PAGE'.
     CONTROL_DATA-TOP_LINE = CONTROL_DATA-TOP_LINE - LINES.
     LIMIT = LIMIT - 1.
     CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'LAST_PAGE'.
     DESCRIBE TABLE ITAB LINES LIMIT.
     CONTROL_DATA-TOP_LINE = LIMIT.
   WHEN 'FIRST_PAGE'.
     CONTROL_DATA-TOP_LINE = 0.
WHEN 'P--'.
CLEAR ok_code.
PERFORM paging USING 'P--'.
WHEN 'P-'.
CLEAR ok_code.
PERFORM paging USING 'P-'.
WHEN 'P+'.
CLEAR ok_code.
PERFORM paging USING 'P+'.
WHEN 'P++'.
CLEAR ok_code.
PERFORM paging USING 'P++'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
*&      Module SCROLL_BAR INPUT
MODULE SCROLL_BAR INPUT.
DESCRIBE TABLE ITAB LINES CONTROL_DATA-LINES.
ENDMODULE.                 " SCROLL_BAR INPUT
*&      Form paging
      text
     -->P_0356   text
*FORM paging USING    VALUE(P_0356).
FORM paging USING code.
DATA: i TYPE i,
j TYPE i.
CASE code.
WHEN 'P--'.
CONTROL_DATA-top_line = 1.
WHEN 'P-'.
CONTROL_DATA-top_line = CONTROL_DATA-top_line - line_count.
IF CONTROL_DATA-top_line LE 0.
CONTROL_DATA-top_line = 1.
ENDIF.
WHEN 'P+'.
i = CONTROL_DATA-top_line + line_count.
j = CONTROL_DATA-lines - line_count + 1.
IF j LE 0. j = 1. ENDIF.
IF i LE j.
CONTROL_DATA-top_line = i.
ELSE.
CONTROL_DATA-top_line = j.
ENDIF.
WHEN 'P++'.
CONTROL_DATA-top_line = CONTROL_DATA-lines - line_count + 1.
IF CONTROL_DATA-top_line LE 0.
CONTROL_DATA-top_line = 1.
ENDIF.
ENDCASE.
ENDFORM. " PAGING
*ENDFORM.                    " paging
thanks,
maheedhar.t

To Disble the Field in Table Control after clicking Save button

Hi,
I have a requirement as follows. i need to disable one field in the table control after clicking save button. i tried with SCREEN elements but it disabling whole the table control but i need to disable that particular one record only in the table control. i found Structure CXTAB_COLUMN in documentaion. it has the properties like invisible. can any body tell how can we disble that particular field in table control only for the one record. and how can we use CXTAB_COLUMN.
Thanks in advance.

hi,
do like this...
in USER_COMMAND_1000 module of PAI,
MODULE user_command_1000 INPUT.
CASE ok_code.
    WHEN 'BACK' OR 'UP' OR 'CANC'.
      LEAVE PROGRAM.
    WHEN 'SAVE'.
      fl = 1.
      GET CURSOR LINE lin.
ENDCASE.
ENDMODULE.                 " user_command_1000 INPUT
and make on module disable in Loop Endloop in PBO.
and write like this...
MODULE disable OUTPUT.
LOOP AT SCREEN.
    IF tab1-current_line = lin AND fl = 1.
      screen-input = 0.
    ELSEIF tab1-current_line < lin.
      screen-input = 0.
    ELSE.
      screen-input = 1.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
ENDMODULE.                 " disable OUTPUT
here fl and lin both are type i.....
and there will b one module in PBO
MODULE tab1_change_tc_attr.
in that put if condition....
MODULE tab1_change_tc_attr OUTPUT.
IF sy-ucomm <> '' AND sy-ucomm <> 'SAVE'.
    DESCRIBE TABLE itab LINES tab1-lines.
ENDIF.
ENDMODULE.                    "TAB1_CHANGE_TC_ATTR OUTPUT
ur problem will solve...
reward if usefull....
Edited by: Dhwani shah on Jan 2, 2008 1:17 PM

Push button in one of the columns of Table Control

Hi,
I have a requirement, where i have to display a push button in one of the columns of table control for long text. When user clicks on the control, a pop up has to be appeared in which user should be able to enter some meaning ful description and save it. please suggest me how to do this requirement.
Best Regards,
Phani Kumar. S

Hai,
You can drag n drop a button to the required column in the table control and give the required parameters like ok_code , name etc.
You can now place a text field as the heading of the column.
Now when the user clicks the the button in a row, read the corresponding line in which he has clicked.For that u can use
get cursor lines wrk_line.
now u'll get the data in that row using
Read table it_tab into wa_tab index wrk_line.
now u can call the text editor (using FM's READ_TEXT ,EDIT_TEXT and CREATE_TEXT in which the user can enter the meaningful description and save it.
When u save the text entered save it with a key part of the row that was read earlier(keep it as the text name).
So now if u need to get the description which was entered earlier u can easily read the text (using READ_TEXT ).
I hope this will be helpful for u .
Thanks
Neeraj

Sort up and sort Down push buttons in module pool with table control wizard

hi,
i have created 2 buttons for Sort up and sort Down push buttons in module pool with table control wizard
please any one can help me.
regards

Hi
Following code is to enable and disable the tbl control using two buttons. Just alter the code and for each button write the sort code.
REPORT YJAN27_SCREEN                                               .
TABLES: SFLIGHT, YFLIGHT_28.
TYPES: BEGIN OF struct1,
      carrid like sflight-carrid,
      connid like sflight-connid,
      fldate like sflight-fldate,
       END OF struct1.
CONTROLS TBL1 TYPE TABLEVIEW USING SCREEN 2700.
DATA: OK_CODE LIKE SY-UCOMM,
      CARRID LIKE SFLIGHT-CARRID,                                    "cols in tbl ctrl
      CONNID LIKE SFLIGHT-CONNID,
      FLDATE LIKE SFLIGHT-FLDATE,
      itab TYPE TABLE OF STRUCT1 WITH HEADER LINE,
      cols like line of TBL1-COLS,
      FLAG TYPE I.
FLAG = 1.
CALL SCREEN 2700.
*&      Module STATUS_2700 OUTPUT
*       text
MODULE STATUS_2700 OUTPUT.
SET PF-STATUS 'BACK'.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_2700 OUTPUT
*&      Module USER_COMMAND_2700 INPUT
*       text
MODULE USER_COMMAND_2700 INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE.
WHEN 'BACK'.
    LEAVE PROGRAM.
WHEN 'DIS'.                                                         "write code for sort up
    loop AT TBL1-COLS INTO COLS.
       COLS-SCREEN-INPUT = 0.
        MODIFY TBL1-COLS FROM COLS.
    ENDLOOP.
    FLAG = 2.
WHEN 'ENA'.                                                       "write code for sort down
    loop AT TBL1-COLS INTO COLS.
        COLS-SCREEN-INPUT = 1.
        MODIFY TBL1-COLS FROM COLS.
    ENDLOOP.
    FLAG = 1.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_2700 INPUT
*&      Module GET_DATA OUTPUT
*       text
MODULE GET_DATA OUTPUT.
select carrid connid fldate from SFLIGHT into table itab.
ENDMODULE.                 " GET_DATA OUTPUT
*&      Module POPULATE_TBL OUTPUT
*       text
MODULE POPULATE_TBL OUTPUT.
    MOVE-CORRESPONDING ITAB TO SFLIGHT.
ENDMODULE.                 " POPULATE_TBL OUTPUT
*&      Module CHANGE_SCREEN OUTPUT
*       text
MODULE CHANGE_SCREEN OUTPUT.    " use this module if you want to hide the other button
CASE FLAG.
WHEN 1.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'B_ENA'.
        SCREEN-INVISIBLE = 1.
         MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'B_DIS'.
        SCREEN-INVISIBLE = 0.
         MODIFY SCREEN.
      ENDIF.
   ENDLOOP.
WHEN 2.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'B_DIS'.
        SCREEN-INVISIBLE = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'B_ENA'.
        SCREEN-INVISIBLE = 0.
         MODIFY SCREEN.
      ENDIF.
   ENDLOOP.
ENDCASE.
ENDMODULE.                 " CHANGE_SCREEN OUTPUT
PROCESS BEFORE OUTPUT.
MODULE STATUS_2700.
MODULE CHANGE_SCREEN.     " use this if you want to display one button at a time
MODULE GET_DATA.
loop at itab WITH control TBL1.
    MODULE POPULATE_TBL.       " populate tbl ctrl
endloop.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_2700.    " do the sort operations
loop at itab.
endloop.
Hope this helps
Regards,
Jayanthi.K

How to have push button in Table control

Hi Experts,
I have an internal table which I populate in table control. How can I have pushbutton in table control(in every row). If done how to have funtion code which will trigger PAI.
Thanks and regards.
Venkat

Hi,
I dont think that pushbuttons will be of much use as when you click a button same code will be executed all time.
So, you can take either selection column in table control (use the SELCOL in the table attributes)
or you can also take a checkbox in table control and then can perform action on lines which were selected by the user.
Hope this helps you out.
Regards,
Tarun

Push button column in table control

Hi,
I have to add a few push button columns into table control. This columns has to be placed between fields of DDic table. How to do this? Shall I create new DDic structure with all the needed fields from DDic table and add also fields for push button columns? Which data element shal I use in this case for push button field? Or is the better solution to add DDic table fields one by one and then using drag and drop technique to add push button column behind it?
Thanks.

Hi ,
Your Last option is better first add columns into DDIC table then Drag and
Drop it on table control .
That will better definitely.................................
if useful rewards the point..............
Thanks .
Nilesh Jain

Grouping Of radio Buttons in table Control

Hi All,
I have one problem in my table control.I am using some radio buttons in the table control.I want that in one row only one button is selected.I have grouped them.But iam not getting mutual exclusivity row wise.Infact I am getting it column wise i.e i am not able to select more than one button in one column but i can select multiple buttons in one row.
Please suggest.
Thanks In Advance,
Saket

Hi ,
The above mentioned is the way of creating a radio button in a table control . Can u elaborate on the issue i.e input field disabled.

Toolbar button is disappearing when clicked table's row

Hi
I use jdeveloper Studio Edition Version 11.1.1.3.0,Build JDEVADF_11.1.1.3.PS2_GENERIC_100408.2356.5660 .
I have problem about click table row that surround with panel collection.I tested my small application on explorer 8.When I click the table's row ,table moves up and toolbar buttons disapper.How can I solve this problem.
Can anybody give suggestions.
Thks

I use jdeveloper Studio Edition Version 11.1.1.3.0,Build JDEVADF_11.1.1.3.PS2_GENERIC_100408.2356.5660 .
I my little project I use <af:inputListOfValues component.It works well but I want resize popUp window that opened by this component.How can I do it?

Create Custom tree table panel collection toolbar buttons

Dear all
i have a tree table inside panel collection,inside the toolbar there is some buttons like show as top ,show top, expand all ....etc
what i want to do is i want to call it from custom button not from the toolbar button.
any suggestions
Regards

Hi,
yes, it is. Its fixed in a the current build and should be fixed in TP4 (upcoming)
Frank

Execute Button in table control

Hi All,
can any one tell me how to insert the execute button in the table control because my requirement is for every row in the table control i have to use the execute button to call and execute custom program in the background.
Thanks
Prince

Hi ,
Only one user-command is enough to handle table control entries.To identify in which line of table control, the execute button is clicked, Use the following calculation.
Data:v_line type i.
CASE ok_code.
WHEN 'EXE'.
Get cursor line v_line.
v_index = tc-top_line + v_line - 1. -
> TC - Table control name
Read table it_ekpo index v_index.
ENDCASE.

Webdynpro FPM Table Control Toolbar Buttons

Similar Messages

Maybe you are looking for