Module-pool edit mode to non edit mode

Dear friends ,
I am working with module-pool, In that when i enters value that field should become Visible mode and should not allow user to edit amount Please guide me .
thanks & regards

Hi try this way...
PROCESS BEFORE OUTPUT.
MODULE status_<screen>.
* Table control for OUTPUT
LOOP WITH CONTROL <TableControl>.
    MODULE Modify_screen.
ENDLOOP.
MODULE Modify_screen OUTPUT.
* Table control reading values from input screen & displaying on screen
READ TABLE <Internal table>    INDEX <Table control >-current_line.
* Logic for screen Display Mode when User enters data
IF <ITAB>-FIELD is not Initial.       "This means User has enterd Data for the Particular Row
    LOOP AT SCREEN.
      IF screen-name = 'ITAB-FIELD'.       "Passs the table/WorkArea with Field name to make field Display mode
        screen-input = 0.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ENDIF.
ENDMODULE.
Prabhudas

Similar Messages

Module Pool:editable field not changing

Hi All,
I created one module pool program with three fields MATNR,EBELN,KTMNG(qty). KTMNG is user key in accordingly to create delivery order.
Now the problem is when user key in KTMNG field value let say 10.000.when press enter Again its taking the database value(20.000 for example).
how to keep the user key value 10.000.
here is my coding:
PROCESS BEFORE OUTPUT.
LOOP AT ITAB INTO WA WITH CONTROL tabcontrol.
MODULE STATUS_0100.
   ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
   LOOP AT ITAB.
     ENDLOOP.
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'DIS'.
      REFRESH:ITAB.
      SELECT EBELN MATNR KTMNG INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKPO
                                                WHERE EBELN EQ EKPO-EBELN.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ZTESTING'.
SET TITLEBAR 'ZTEST'.
MOVE:WA-EBELN TO EKKO-EBELN,
       WA-KTMNG TO EKPO-KTMNG,
       WA-MATNR TO EKPO-MATNR.
VCONTROL-LINES = SY-DBCNT.
ENDMODULE.
Please help me.
Thank You,
Anu.

PROCESS BEFORE OUTPUT.
LOOP AT ITAB INTO WA WITH CONTROL tabcontrol.
MODULE STATUS_0100.
    ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
    LOOP AT ITAB.
" add this
      CHAIN.
        FIELD EKKO-EBELN.
        FIELD EKPO-KTMNG.
        FIELD EKPO-MATNR.
        Modify tablecontrol.
     ENDCHAIN.
ENDLOOP.
MODULE USER_COMMAND_0100 INPUT.
   CASE SY-UCOMM.
     WHEN 'DIS'.
" Comment this start and Pushi to PBO and check if ITAB is initial then do below Qyery
       REFRESH:ITAB.
       SELECT EBELN MATNR KTMNG INTO CORRESPONDING FIELDS OF TABLE ITAB FROM EKPO
                                                 WHERE EBELN EQ EKPO-EBELN.
" Comment this end
     WHEN 'EXIT'.
       LEAVE PROGRAM.
   ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
MODULE STATUS_0100 OUTPUT.
   SET PF-STATUS 'ZTESTING'.
   SET TITLEBAR 'ZTEST'.
   MOVE:WA-EBELN TO EKKO-EBELN,
        WA-KTMNG TO EKPO-KTMNG,
        WA-MATNR TO EKPO-MATNR.
   VCONTROL-LINES = SY-DBCNT.
ENDMODULE.
MODULE TABLECONTROL OUTPUT.        "New addition in PAI for Modify
MOVE:EKKO-EBELN TO WA-EBELN,
        EKPO-KTMNG TO WA-KTMNG ,
        EKPO-MATNR TO WA-MATNR .
MODIFY ITAB FROM wa    INDEX tabcontrol-current_line
ENDMODULE

List Box Problem In MODULE POOL PROGRAM(EDIT MODE)

I Have Developed A MODULE POOL PROGRAM ,
It Basically Consists Of CREATE EDIT and DISPLAY Modes.
CREATE MODE:
When I am Creating For Example FORM NO 1,it is having Fields With drop down list box with values
A,B and C. if I Choose A then That form will Get Created With A value and Form 1 will be created.
EDIT MODE:
The same form If u want to edit In EDIT Mode ,it is displaying value A and it Showing the list box in the fillowing Manner.A,B,C,and A.(This is what the problem I am Facing Know).It Is Displaying the value two times.How to Avoid this ,PLs Help me in this regard.
Thaks & Regards,
Anuradha.

Where ever you are populating the List Box, write a REFRESH statement just before that.
Means Refresh the old content and add new content

Edit screen after error message in module pool

Hello Experts,
In our scenario ,we have some checks over inputs given in a table control of module pool screen.Requirement is that after error message we need to display that record of table control in editable mode.
Thanks.

Thanks for the reply...The issue was resolved by dispaying information message and using EXIT to stop program flow.

Edit a field in ALV tree in a subscreen of a module pool

Hi
I want to make a field editable in the ALV tree based on some condtions in a subscreen of a module pool. I used the edit = 'X' field in the fieldcatalog still it is showing the field as display and not edit.
Please help me to get the field as editable and save it to the database table.
Please not this is ALV TREE
Regards,
Mozila

Hi Mayank,
Thanks for the reply
I am using oops method.
I tried making the field which is to be made editable as wa_fieldcatalog-edit = 'X'. But its not working. I didnt get you when you said edit in layout object.
I also went through the demo programs but these programs are not having editable fields.
My code is as follows:
IF tree4 IS INITIAL.
* create container for alv-tree
l_tree_container_name = 'TREE4'.
CREATE OBJECT l_custom_container
    EXPORTING
      container_name              = l_tree_container_name
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.
* create tree control
CREATE OBJECT tree4
    EXPORTING
      i_parent                    = l_custom_container
      i_node_selection_mode       = cl_gui_column_tree=>node_sel_mode_multiple
      i_item_selection            = 'X'
      i_no_html_header            = 'X'
      i_no_toolbar                = 'X'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      illegal_node_selection_mode = 5
      failed                      = 6
      illegal_column_name         = 7.
* create hierarchy
CALL METHOD tree4->set_table_for_first_display
    EXPORTING
      is_layout       = s_layo
    CHANGING
      it_sort         = it_sort
      it_outtab       = it_final
      it_fieldcatalog = it_fieldcat.
ELSE.
CALL METHOD tree4->refresh_table_display
    EXPORTING
      it_sort           = it_sort
    EXCEPTIONS
      program_error     = 1
      failed            = 2
      cntl_system_error = 3
      others            = 4
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.

Module pool program, table control edit

Hi,
I am doing module pool programming with table control. I have a table control on my screen which is assigned to scarr table with New, Modify, Save, and Delete buttons. When I click on New and Save, the new record is adding to the table where as for Modify, I selected a row, edited, and clicked on save. Only the internal table is getting modified at the time but not the original table. How to update the table in database? Delete is also not working. Please give some idea on this or links related to table control with sample code.
Thanks in advance.

Hi,
modify <table name>.
it will do it
Regards

Module Pool in Batch Mode

Hi
Can I run module pool program in batch mode....
If so how.... can anyone help me out.....
Thanks
Jay

hI,
Yes sure I need the help..... how to run in batch process this progra,/// can I go direct and define in sm36 or so....
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
Program
PROGRAM ZASSET .
tables: anla,zasset.
constants :
                         C_O(1) TYPE C VALUE 0,
C_INSERT(10) TYPE C VALUE 'INSERT'.
DATA: IT_ZASSET LIKE ZASSET.
DATA:   V_emp_exist(1) type c,
                                V_ANLN1 like zASSET-ANLN1.
*--For Pf status
data: begin of it_pf occurs 0,
       stat(8) type c,
      end of it_pf.
DATA: SAVE TYPE C,
       DELETE TYPE C,
       CLEAR TYPE C,
       EXIT TYPE C,
       BACK TYPE C,
       CANCEL TYPE C,
       OK_CODE LIKE SY-UCOMM.
*&      Module EXIT INPUT
      text
MODULE EXIT INPUT.
case sy-ucomm.
when 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " EXIT INPUT
*&      Module USER_COMMAND_0100 INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
OK_CODE = SY-UCOMM.
CASE OK_CODE. "OK_CODE.
WHEN 'INSERT'.
IF NOT ZASSET-ANLN1 IS INITIAL.
MOVE ZASSET-ANLN1 TO IT_ZASSET-ANLN1.
ENDIF.
WHEN 'SAVE'.
MOVE IT_ZASSET-ANLN1 TO ZASSET-ANLN1.
INSERT INTO ZASSET VALUES IT_ZASSET .
COMMIT WORK.
CLEAR IT_ZASSET.
*REFRESH IT_ZASSET.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
*APPEND IT_ZASSET.
*CLEAR ZASSET.
     leave to screen 200.
*ENDIF.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
&      Module STATUS_0100 OUTPUT
        text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'ASSET'.
SET PF-STATUS 'POOL'.
SET TITLEBAR 'UPDATING ZASSET TABLE'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module exitscreen INPUT
      text
MODULE exitscreen INPUT.
Case OK_CODE. "_100.
    WHEN EXIT.
      Leave to screen 0.
    when BACK.
      Leave to screen 0.
    when CANCEL.
      Leave to screen 0.
Endcase.
ENDMODULE.                 " exitscreen INPUT
*&      Module USER_COMMAND_0200 INPUT
      text
*OK_CODE = SY-UCOMM.
*MODULE USER_COMMAND_0200 INPUT.
*Case OK_CODE.
When 'MODIFY'.
Perform move_values.
Perform lock_table.
Perform change_dbase.
Perform unlock_table.
Message s999(z1) with text-001.
Leave to screen 100.
When SAVE.
Perform move_values.
Perform lock_table.
Perform insert_dbase.
Perform unlock_table.
Message s999(z1) with text-002.
Leave to screen 100.
When c_delete.
Perform move_values.
Perform lock_table.
Perform delete_dbase.
Perform unlock_table.
Message s999(z1) with text-003.
Leave to screen 100.
When EXIT.
*Endcase.
*ENDMODULE.                 " USER_COMMAND_0200 INPUT
*&      Form check_emp_exist
      text
--> p1        text
<-- p2        text
FORM check_emp_exist.
Clear IT_ZASSET-ANLN1.
Move zASSET-ANLN1 to IT_ZASSET-ANLN1.
Clear zASSET.
Select single * from zASSET where ANLN1 = IT_ZASSET-ANLN1.
If sy-subrc ne 0.
    Clear v_emp_exist.
Else.
    Clear zASSET.
    Select * up to 1 rows from ztrytxn where empno = v_empno.
    Endselect.
    Move : ztrytxn-valfr to v_date,
               C_x to v_emp_exist.
Endif.
ENDFORM.                    " check_emp_exist
*&      Form move_values
      text
--> p1        text
<-- p2        text
*FORM move_values.
**MOVE ZASSET-ANLN1 TO IT_ZASSET-ANLN1.
**MOVE IT_ZASSET-ANLN1 TO ZASSET-ANLN1.
**MOVE ZASSET-ANLN1 TO IT_ZASSET-ANLN1.
*MOVE IT_ZASSET-ANLN1 TO ZASSET-ANLN1.
*INSERT INTO ZASSET VALUES IT_ZASSET.
*COMMIT WORK.
**MODIFY ZASSET . "INDEX SY-TABIX. " FROM TABLE IT_ZASSET1 .
**COMMIT WORK.
**LEAVE TO SCREEN 100.
*ENDFORM.                    " move_values
ENDFORM.                    " change_dbase
*&      Form delete_dbase
      text
--> p1        text
<-- p2        text
FORM delete_dbase.
Delete zASSET from IT_ZASSET-ANLN1.
Commit work.
ENDFORM.                    " delete_dbase
*&      Module check_BUKRS INPUT
      validating bukrs
MODULE check_BUKRS INPUT.
if zasset-bukrs <> 0.
    Message e999(z1) with text-005.
Endif.
ENDMODULE.                 " check_BUKRS INPUT

Display Mode - Module Pool

Hi Friends,
Need help in Module Pool,
when button click want to display screen in Display Mode only.....

Hi Sharavan,
I hope you want to achieve the Toggle Display Functionality. To achieve this you have perform this following steps:
1. Define the names Properly for each of the individual Screen Elements. Like for Button you can do BTN_01.. etc etc...
2. In the PBO Module define a Module like MODULE screen_settings. In this you will run the following code:
LOOP AT SCREEN.
IF SCREEN-NAME = 'BTN_01'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
For a group of BTNs or Text Elements you can form a GROUP and can Enable and Disable all at once.
3. The Next step is the handling of the Table Control.In the PBO event there you will have the LOOPing the Table control.
There inside the loop place a Module and enable and disable each and individual rows.
You must keep a central Instance from where you can check whether you want the screen elements in DISPLAY/CHANGE mode.
Hope this will help.
Thanks,
Samantak.

Error in editing table control in module pool

Hello Abap experts,
I am working on module pool.
When I am editing row in table control if table control has only one row to edit(By clicking edit push button) then I am getting error as "Dynpro_Field_Conversion error" in module pool.
Error is showing in PBO 'module fill table control'.
But if there are more than 1 rows in table control it doesn't give any error and run successfully.
So please help me on that.
Thanks!
Abhay.
Edited by: abhayjoshi01 on Sep 29, 2010 12:12 PM

Hi,
Can you explain in detail what field(is it quantity, currency etc) you are trying enter and what data.
If you are getting any runtime error can you provide the runtime details.
Regards,
Kranthi

Editable alv container in module pool

Hi,
I have done a module pool program in which for a certain sectain i have to display a alv table...So I added a container in the module pool and called a editable alv in that..But the problem is now I am not able to trap any event in the editable alv..For eg if the user edit somethng in the alv and press enter I am not able to trap the user command..Please guide me how to do this???

create a handler for event DATA_CHANGED - it has parameters
ER_DATA_CHANGED     Type Ref To     CL_ALV_CHANGED_DATA_PROTOCOL
E_ONF4     Type     CHAR01
E_ONF4_BEFORE     Type     CHAR01
E_ONF4_AFTER     Type     CHAR01
E_UCOMM     Type     SY-UCOMM
That means all information you need.
See the sample programs mentionend, search the forum before posting, close the thread as solved.
Regards,
Clemens

Import Knowledge Modules in Synonym Mode

Hi
How can I import a knowledge module in synonym mode to ensure that IDs are preserved?
I am performing a partial import/export from our Dev environment to our QA environment, following these steps:
1. Export Models and import them in “Synonym Mode” in the new repository to preserve their IDs
2. Export and Import new Knowledge Modules and Variables that have been created as part of this release
3. Export new interfaces and import them in “Synonym Mode” in the new repository
4. Export new packages and import them in “Synonym Mode”
Cheers

Hi,
You need to perform the foolowing steps to import a KM in Synnym mode:
1.Locate the Knowledge Module XML file on your file system and rename its prefix to “TRT_”
instead of “KM_”
2. Right-click on any Folder of your Project and select “Import…> Import Procedure..” menu
3. Select “Synonym Mode INSERT_UPDATE”, go to the directory where your KM is stored on
your file system and select your KM, then click OK.
Hope that helps.

Executing bapi function module in simulation mode....

I wanted to create 5000+ users in the system. I am using bapi_user_create1 to create user.Before actually creating all the users i need to simulate and see how many users will be actually created when i supply the set . Also please let me know if there are any general way of calling function modules in simulation mode without actually committing to database.
Thanks,
Kiran A.

max,
when I upload the file that contains data to create user how many will be created and how many will fail without updating the database.i.e i need the result of the bapi without any commit being performed.
Thanks,
Kiran A.

ACE MODULE IN BRIDGE MODE NOT LOADBALANCING

Hi,
I setup an ace module in bridge mode as follows:
mfsc(vla80) > (vla80)outside fwsm, fwsm inside(vla40) > (vla40)ace-clientside, aceserverside(vla41)
and the servers have the fwsm svi(vla40) as their gateway. But, the ace is not loadbalancing.
The config script is attached. Is their anything I am missing?
Attach

Check my troubleshooting guide on this forum.
There are few things to do to narrow down the issue.
Gilles.

Function Module to edit the ALV Output

Hi,
I have an ALV report output.I need the edit values based on some conditions in the ALV output and
save the changes. Is there any function module to edit the output and proceed further.
Thanks in advance.
Regards,
Navas

First create the field catalog of the field that you want to edit in this way
WA_fieldcat-fieldname = 'MENGE'.
WA_fieldcat-qfieldname = 'MEINS'.
WA_fieldcat-seltext_m = 'PO Quan.'
WA_fieldcat-edit = 'X' .
Secondly you keep a custom button like 'SAVE' in the toolbar and also try to keep a checkbox in your ALV.
for checkbox you have to keep a following code snippet in your finallly displayed interanal table:
chk(1)    TYPE c, and in the fieldcatalog you have to write following piece of code
WA_fieldcat-fieldname = 'CHK'.
WA_fieldcat-seltext_m = 'CheckBox'.
WA_fieldcat-checkbox = 'X'.
WA_fieldcat-edit = 'X' .
WA_fieldcat-input = 'X'.
WA_fieldcat-tabname = 'IT_FINAL'.
WA_fieldcat-col_pos = 1.
then you have to set the parameter i_callback_user_command           = 'USER_COMMAND'
of FM REUSE_ALV_GRID_DISPLAY.
Then write a subroutine like the following one to handle the SAVE operation
FORM user_command USING I_r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
DATA:l_cntr TYPE i.
CASE I_r_ucomm.
WHEN '&ZXZ'.
      CLEAR l_cntr.
      CLEAR WA_final.
      LOOP AT IT_final INTO WA_final.
        IF WA_final-chk = 'X'.
          l_cntr = l_cntr + 1.
        ENDIF.
      ENDLOOP.
      IF l_cntr GT 1.
        MESSAGE i011.
      ELSEIF l_cntr = 1.
           READ TABLE IT_final INTO WA_final WITH KEY chk = 'X'.
           MODIFY IT_final FROM WA_final TRANSPORTING menge
          WHERE chk = 'X'.
          CLEAR WA_final.
          PERFORM disp_alv. <<<This is to display the refreshed alv after saving your data
     endif.
ENDCASE.
ENDFORM.

Module pool - table control - update ztable

hello , i doing a module pool that will have few screens , now i have one screen with a table control that fetch the data from a ztable when screen is call the table control is showing the data and is in grey and no editable i add a pf-status for change that mode i can delete the row from the table control but i don't figure out how update to the ztable when i press save , i wan't too another button for add a new row ( and remain the already in grey ) for add new entrie in the table and update the ztable
pd: sorry for my bad english
this is my code:
TOP:
PROGRAM z_pp_lote_etiquetas MESSAGE-ID zz.
TABLES:zc2p_lote_etique,
       zc2p_lider_modul.
DATA: ok_code LIKE sy-ucomm.
DATA save_ok LIKE sy-ucomm.
* internal table
DATA: it_zc2p_lote_etique LIKE STANDARD TABLE OF zc2p_lote_etique.
DATA: it_zc2p_lider_modul TYPE STANDARD TABLE OF zc2p_lider_modul WITH HEADER LINE.
DATA: it_zc2p_lider_modul_del TYPE STANDARD TABLE OF zc2p_lider_modul WITH HEADER LINE.
**************Workarea
DATA: wa_c2p_lote_etique TYPE zc2p_lote_etique.
DATA: wa_c2p_lider_modul TYPE zc2p_lider_modul.
DATA: wa_c2p_lider_modul_del TYPE zc2p_lider_modul.
DATA: sel.
DATA: MARK.
DATA: init.
DATA: col TYPE scxtab_column.
DATA: lines TYPE i.
* Variable Declaration
DATA : flg, "Flag to set the change mode
ln TYPE i. "No. of records
* Table Control Declartion.
CONTROLS: zc2p_lider_crtl TYPE TABLEVIEW USING SCREEN '101'.
**PROCESS BEFORE OUTPUT INCLUDE **
*& Include           Z_PP_LOTE_ETIQUETAS_O01
*& Module set_status OUTPUT
* Setting the GUI status
MODULE status_0100 OUTPUT.
SET PF-STATUS 'Z_PP_LOT_ETIQ_MENU'.
SET TITLEBAR 'Z_PP_LOT_ETIQ'.
ENDMODULE. " set_status OUTPUT screen 100
* MODULE status_0101 OUTPUT
* Setting the GUI status
MODULE status_0101 OUTPUT.
SET PF-STATUS 'Z_PP_LOT_ETIQ_ME_101'.
SET TITLEBAR 'Z_PP_LOT_ETIQ'.
* Data retreving
if init is INITIAL.
select * from zc2p_lider_modul into CORRESPONDING FIELDS OF TABLE it_zc2p_lider_modul.
    DESCRIBE TABLE it_zc2p_lider_modul LINES ln.
    zc2p_lider_crtl-lines = ln + 10.
    init = 'X'.
endif.
ENDMODULE.                    "status_0101 OUTPUT
module change_sdyn_conn output.
* you can change the content of current table control line via
* sdyn_conn
READ TABLE it_zc2p_lider_modul INTO zc2p_lider_modul INDEX zc2p_lider_crtl-current_line.
endmodule.                             " FILL_TABLE_CONTROL OUTPUT
MODULE set_screen_fields OUTPUT.
LOOP AT SCREEN.
IF flg IS INITIAL.
screen-input = 0.
ELSE.
screen-input = 1.
ENDIF.
*ENDIF.
* Modifying the screen after making changes
MODIFY SCREEN.
ENDLOOP.
ENDMODULE. " set_screen_fields OUTPUT
PROCESS AFTER INPUT INCLUDE.
* MODULE USER_COMMAND_0100 INPUT
MODULE user_command_0100 INPUT.
CASE ok_code.
    WHEN 'LIDM'.
      CALL SCREEN 101.
    WHEN 'CANC'.
      LEAVE PROGRAM.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                    "USER_COMMAND_0100 INPUT
* MODULE USER_COMMAND_0101 INPUT
MODULE user_command_0101 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
    WHEN 'SORT'.
      DATA: fldname(100),help(100).
      READ TABLE zc2p_lider_crtl-cols INTO col WITH KEY selected = 'X'.
      SPLIT col-screen-name AT '-' INTO help fldname.
      SORT it_zc2p_lider_modul BY (fldname).
    WHEN 'CHANGE'.
* Setting the flag to make the table control in editable mode[excluding
* primary key].
      flg = 'Y'.
    WHEN 'BACK'.
      CALL SCREEN 100.
      LEAVE SCREEN.
    WHEN 'CANCEL'.
      LEAVE PROGRAM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'SAVE'.
      MODIFY zc2p_lider_modul FROM it_zc2p_lider_modul.
      COMMIT WORK.
ENDCASE.
ENDMODULE.                    "USER_COMMAND_0101 INPUT
* MODULE read_table_control INPUT
MODULE read_table_control INPUT.
* Check input values
IF mark = 'X' AND save_ok = 'DELETE'.
    DELETE TABLE it_zc2p_lider_modul FROM zc2p_lider_modul.
    DESCRIBE TABLE it_zc2p_lider_modul LINES zc2p_lider_crtl-lines.
ENDIF.
ENDMODULE.                             " READ_TABLE_CONTROL INPUT
Screen Flow Logic 100
PROCESS BEFORE OUTPUT.
MODULE status_0100.
PROCESS AFTER INPUT.
MODULE user_command_0100.
Screen Flow Logic 101.
PROCESS BEFORE OUTPUT.
MODULE status_0101.
LOOP AT it_zc2p_lider_modul INTO zc2p_lider_modul WITH CONTROL
zc2p_lider_crtl.
* Dynamic screen modifications
    MODULE set_screen_fields.
    MODULE change_sdyn_conn.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE user_command_0101.
LOOP AT it_zc2p_lider_modul.
    MODULE read_table_control.
ENDLOOP.
i hope somebody can help for what i missing here thanks

>
Sanjeev Kumar wrote:
> Hello Edgar,
>
> Problem seems to be there in the flow logic of 101
>
>
> PROCESS BEFORE OUTPUT.
>   MODULE status_0101.
>   LOOP AT it_zc2p_lider_modul INTO zc2p_lider_modul WITH CONTROL
> zc2p_lider_crtl. " no need to have 'INTO zc2p_lider_modul' above
> * Dynamic screen modifications
>     MODULE set_screen_fields.
>     MODULE change_sdyn_conn.
>   ENDLOOP.
> *
> PROCESS AFTER INPUT.
>   MODULE user_command_0101. "this should be shifted after the following LOOP...ENDLOOP.
>
>   LOOP AT it_zc2p_lider_modul. "need to have 'WITH CONTROL zc2p_lider_crtl' here
>     MODULE read_table_control.
>   ENDLOOP.
>
>
>
> With MODULE user_command_0101 call before the LOOP calls the MODIFY statement (under case save_ok 'SAVE') first and Z-table is updated with the old values as the changes are transferred from screen into the internal table it_zc2p_lider_modul in the LOOP...ENDLOOP later.
>
> Try these changes and I hope it will work.
>
> Thanks
> Sanjeev
i do the firts advice but the second one i get syntax error :
my code :
PROCESS AFTER INPUT.
LOOP at it_zc2p_lider_modul WITH CONTROL zc2p_lider_crtl.
    MODULE read_table_control.
ENDLOOP.
   MODULE user_command_0101.
error :
In the event PROCESS AFTER INPUT, no additions are allowed with "LOOP
AT".

Module-pool edit mode to non edit mode

Similar Messages

Maybe you are looking for