Assigning 2 fields of same table in Module pool screen

Hi,
I want to assign similar fields of table in module pool screen.
In one case i directly use the tablename-fieldname and in other case when i try doing the same i get error. I know that this is not possible.
Is there any way to get around this. The field i am referring to is attached to a custom domain which is having defined fields. In the second assignment i need to retreive the values of the domain and display it in dropdown mode so that the users are able to select it.
Regards,
Imran

The domain only attached with this field?check the same domain attached to any other field and insert that field in the screen.
shibu
reward if helpful

Similar Messages

How to update field values in a database table using module pool prg?

hi
how to update field values in a database table using module pool prg?
we created a customized table, and we put 2 push buttons in screen painter update and display.
but update is not working?
data is enter into screen fields and to internal table, but it is not updated in database table.
thanks in adv
vidya

HI,
we already used the update statement. but its not working.
plz check this.
*& Module Pool       ZCUST_CALL_REC
PROGRAM ZCUST_CALL_REC.
TABLES: ZCUST_CALL_REC,ZREMARKS.
data: v_kun_low like ZCUST_CALL_REC-kunnr ,
       v_kun_high like ZCUST_CALL_REC-kunnr,
       v_bud_low like ZCUST_CALL_REC-budat,
       v_bud_high like ZCUST_CALL_REC-budat.
ranges r_kunnr for ZCUST_CALL_REC-kunnr .
ranges r_budat for zcust_call_rec-budat.
DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,
      JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.
*data:begin of itab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of itab.
*data:begin of Jtab occurs 0,
    MANDT LIKE ZCUST_CALL_REC-MANDT,
    kunnr like ZCUST_CALL_REC-kunnr,
    budat like ZCUST_CALL_REC-budat,
    code like ZCUST_CALL_REC-code,
    remarks like ZCUST_CALL_REC-remarks,
    end of Jtab.
CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.
CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.
*start-of-selection.
*&      Module USER_COMMAND_9000 INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'ENQUIRY'.
perform multiple_selection.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9001'.
WHEN 'UPDATE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
      perform update on commit.
WHEN 'DELETE'.
      perform append_CUSTOMER_code.
      PERFORM SELECT_DATA.
      call screen '9002'.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000 INPUT
*&      Module STATUS_9000 OUTPUT
      text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9001 INPUT
      text
MODULE USER_COMMAND_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
endcase.
ENDMODULE.                 " USER_COMMAND_9001 INPUT
*&      Module STATUS_9001 OUTPUT
      text
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
move itab-MANDT   to zcust_call_rec-MANDT.
move itab-kunnr   to zcust_call_rec-kunnr.
move itab-budat   to zcust_call_rec-budat.
move itab-code    to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
ENDMODULE.                 " STATUS_9001 OUTPUT
*&      Module USER_COMMAND_9002 INPUT
      text
module USER_COMMAND_9002 input.
CASE sy-ucomm.
   WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
      SET SCREEN 0.
      LEAVE SCREEN.
      CLEAR sy-ucomm.
   WHEN 'UPDATE'.
         perform move_data.
     UPDATE ZCUST_CALL_REC FROM TABLE ITAB.
        IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.
        ENDIF.
WHEN 'DELETE'.
         perform move_data.
         DELETE ZCUST_CALL_REC FROM TABLE ITAB.
          IF SY-SUBRC = 0.
           MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.
         ELSE.
           MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.
        ENDIF.
endcase.
endmodule.                 " USER_COMMAND_9002 INPUT
*&      Module STATUS_9002 OUTPUT
      text
module STATUS_9002 output.
SET PF-STATUS 'ZCUSTOMER1'.
SET TITLEBAR 'xxx'.
endmodule.                 " STATUS_9002 OUTPUT
*&      Module update_table OUTPUT
      text
module update_table output.
     move itab-MANDT   to zcust_call_rec-MANDT.
     move itab-kunnr   to zcust_call_rec-kunnr.
     move itab-budat   to zcust_call_rec-budat.
     move itab-code    to zcust_call_rec-code.
     move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
endmodule.                 " update_table OUTPUT
***Selection Data
FORM SELECT_DATA.
SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO
                        table itab
                         WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.
ENDFORM.
****append vendor code
FORM APPEND_CUSTOMER_CODE.
clear r_kunnr.
clear itab.
clear r_budat.
refresh r_kunnr.
refresh itab.
refresh r_kunnr.
IF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                              EXPORTING
                                  input         = v_kun_high
                              IMPORTING
                                  OUTPUT        = r_kunnr-high.
                 r_kunnr-option = 'BT'.
                 r_kunnr-sign = 'I'.
                 append r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND NOT v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
   PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND NOT v_kun_high IS INITIAL.
                    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
                                EXPORTING
                                   input         = v_kun_low
                                IMPORTING
                                   OUTPUT        = r_kunnr-low.
                r_kunnr-SIGN = 'I'.
                r_kunnr-OPTION = 'EQ'.
                APPEND r_kunnr.
      PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
              AND v_kun_low IS INITIAL
               AND v_kun_high IS INITIAL.
                    IF SY-SUBRC = 0.
                         MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.
                          CALL SCREEN '9000'.
                    ENDIF.
PERFORM V_BUDAT.
ENDIF.
ENDFORM.
FORM V_BUDAT.
IF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'BT'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND NOT v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
                 r_budat-low = v_bud_low.
                 r_budat-high = v_bud_high.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
         ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND NOT v_BUD_high IS INITIAL.
                 r_budat-HIGH = v_bud_HIGH.
                 r_budat-option = 'EQ'.
                 r_budat-sign = 'I'.
                 append r_budat.
          ELSEIF R_BUDAT IS INITIAL
               AND v_BUD_low IS INITIAL
               AND v_BUD_high IS INITIAL.
               IF SY-SUBRC = 0.
                   MESSAGE I002(0) WITH 'ENTER POSTING DATE'.
                  CALL SCREEN '9000'.
                r_budat-low = ''.
                r_budat-option = ''.
                r_budat-sign = ''.
                ENDIF.
        ENDIF.
ENDFORM.
*&      Form update
      text
--> p1        text
<-- p2        text
form update .
commit work.
endform.                    " update
*&      Form move_data
      text
--> p1        text
<-- p2        text
form move_data .
   clear itab.
refresh itab.
       move-corresponding zcust_call_rec to itab.
       MOVE ZCUST_CALL_REC-MANDT   TO ITAB-MANDT.
       MOVE ZCUST_CALL_REC-KUNNR   TO ITAB-KUNNR.
       MOVE ZCUST_CALL_REC-BUDAT   TO ITAB-BUDAT.
       MOVE ZCUST_CALL_REC-CODE    TO ITAB-CODE.
       MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.
     APPEND ITAB.
     delete itab where kunnr is initial.
endform.                    " move_data
thanks in adv
vidya

Inserting rows in table control(Module pool)!!

Hi,
Pls provide me with some code sample for inserting rows in a table control (module pool)...
Regards
Gunjan

HI
Y dont u create a TABLE CONTROL using wizard and copy the coding-
TRY THIS-
WHEN 'INSR'.                      "insert row
       PERFORM FCODE_INSERT_ROW USING    P_TC_NAME
                                         P_TABLE_NAME.
FORM fcode_insert_row
               USING    P_TC_NAME           TYPE DYNFNAM
                        P_TABLE_NAME             .
&SPWIZARD: BEGIN OF LOCAL DATA----
   DATA L_LINES_NAME       LIKE FELD-NAME.
   DATA L_SELLINE          LIKE SY-STEPL.
   DATA L_LASTLINE         TYPE I.
   DATA L_LINE             TYPE I.
   DATA L_TABLE_NAME       LIKE FELD-NAME.
   FIELD-SYMBOLS <TC>                 TYPE CXTAB_CONTROL.
   FIELD-SYMBOLS <TABLE>              TYPE STANDARD TABLE.
   FIELD-SYMBOLS <LINES>              TYPE I.
&SPWIZARD: END OF LOCAL DATA----
   ASSIGN (P_TC_NAME) TO <TC>.
*&SPWIZARD: get the table, which belongs to the tc                     *
   CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body
   ASSIGN (L_TABLE_NAME) TO <TABLE>.                "not headerline
*&SPWIZARD: get looplines of TableControl                              *
   CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_LINES_NAME.
   ASSIGN (L_LINES_NAME) TO <LINES>.
*&SPWIZARD: get current line                                           *
   GET CURSOR LINE L_SELLINE.
   IF SY-SUBRC <> 0.                   " append line to table
     L_SELLINE = <TC>-LINES + 1.
*&SPWIZARD: set top line                                               *
     IF L_SELLINE > <LINES>.
       <TC>-TOP_LINE = L_SELLINE - <LINES> + 1 .
     ELSE.
       <TC>-TOP_LINE = 1.
     ENDIF.
   ELSE.                               " insert line into table
     L_SELLINE = <TC>-TOP_LINE + L_SELLINE - 1.
     L_LASTLINE = <TC>-TOP_LINE + <LINES> - 1.
   ENDIF.
*&SPWIZARD: set new cursor line                                        *
   L_LINE = L_SELLINE - <TC>-TOP_LINE + 1.
*&SPWIZARD: insert initial line                                        *
   INSERT INITIAL LINE INTO <TABLE> INDEX L_SELLINE.
   <TC>-LINES = <TC>-LINES + 1.
*&SPWIZARD: set cursor                                                 *
   SET CURSOR LINE L_LINE.
ENDFORM.                              " FCODE_INSERT_ROW
HOpe this helps u
Regds,
Seema.

Make fields invisible based on selection in module pool screen

I have a several fields in my module pool screen.
There i have a box called Ref Obj.
Inside the box i have fields a b c d e f.
suppose my input has parameter 1.
I need to show only fielda a and b inside the box
suppose my input has parameter 2.
I need to show only fielda c and d inside the box
suppose my input has parameter 3.
I need to show only fielda e and f inside the box
suppose my input has parameter 4.
I should not show any fields and box should be invisible.
I would appreciate if any one could help me regarding this
Thanks in advance

hi,
go through this code, and make the required changes according to u'r requirement but the logic is same.
TABLES: mara , lfa1.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_matnr LIKE mara-matnr DEFAULT 'M633640000' MODIF ID m1,
            p_ersda LIKE mara-ersda DEFAULT '30.06.2004' MODIF ID m2,
            p_aenam LIKE mara-aenam DEFAULT 'DOVIND' MODIF ID m3,
            p_matkl LIKE mara-matkl DEFAULT '0000' MODIF ID m4,
            p_meins LIKE mara-meins DEFAULT 'ST' MODIF ID m5,
            p_mbrsh LIKE mara-mbrsh DEFAULT 'M' MODIF ID m6,
            p_vpsta LIKE mara-vpsta DEFAULT 'KV' MODIF ID m7.
SELECTION-SCREEN: END OF BLOCK b1.
SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: p_lifnr LIKE lfa1-lifnr DEFAULT 5070001063 MODIF ID s1 ,
            p_land1 LIKE lfa1-land1 DEFAULT 'FR' MODIF ID s1,
            p_name1 LIKE lfa1-name1 DEFAULT 'HONDA' MODIF ID s3,
            p_ort01 LIKE lfa1-ort01 DEFAULT 'PARIS' MODIF ID s4.
SELECTION-SCREEN: END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF screen-group1 = 'M1' .
      screen-input = 0.
      MODIFY SCREEN.
    ELSE.
      IF screen-group1 = 'M2' .
        screen-invisible = 1.
        MODIFY SCREEN.
      ELSE.
        IF screen-group1 = 'M3' .
          screen-intensified = 1.
          MODIFY SCREEN.
        ELSE.
          IF screen-group1 = 'M5' .
            screen-length = 10.
            MODIFY SCREEN.
          ELSE.
            IF screen-group1 = 'M6' .
              screen-active = 0.
              MODIFY SCREEN.
            ELSE.
              IF screen-group1 = 'M7' .
                screen-display_3d = 1.
                MODIFY SCREEN.
              ELSE.
                IF screen-group1 = 'M4' .
                  screen-output = 0.
                  MODIFY SCREEN.
                ELSE.
                  IF screen-group1 = 'S1' AND
                  screen-name = 'P_LIFNR'.
                    screen-values_in_combo = 1.
                    MODIFY SCREEN.
                  ELSE.
                    IF screen-group1 = 'S1' AND
                    screen-name = 'P_LAND1'.
                      MODIFY SCREEN.
                    ENDIF.
                  ENDIF.
                ENDIF.
              ENDIF.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
ENDLOOP.
<b>please reward points if helpfull.</b>
with regards,
radhika kolluru.

Module-pool screen field value under POV event

Hi All,
I have one issue...please suggest me solution for this.
In module-pool program i have one screen(1000) which has one field(hrname_1000).
Under this event:
PROCESS ON VALUE-REQUEST.
FIELD hrname_1000 MODULE hrname_1000.
under this module hename_1000 i have used F4IF_INT_TABLE_VALUE_REQUEST to put a search help for field hrname_1000.
after that i am trying to retrive HR related stuff's based on the field on module-pool i.e i am using hrname_1000 in the where condition.
but problem is that im not getting value for hrname_1000 which im giving in the module-pool screen.
thats y my select query is not working.
Where as im getting values for the hrname_1000 under PBO & PAI.
It will look like below.
PROCESS ON VALUE-REQUEST.
FIELD hrname_1000 MODULE hrname_1000.
(under the above module)
SELECT DISTINCT ename plans FROM pa0001 INTO CORRESPONDING FIELDS OF TABLE itab WHERE stell = '50001026'.
      LOOP AT itab INTO wa WHERE ename = hrname_1000.
      ENDLOOP.
Please suggest
Thanks & regards
Ansumesh

In some of the cases the screen field is present in the screen but not holding the value in the required structure or field.
so here u need to check the option of reading the screen field values explictly..
//once u hit an enter and do the f4 i think the value will be there ...but if u dont hit enter and do an F4 the value cannot hold and i think u r in this case ..
1.Fill the screen field name in the structure dynpread.
DATA: BEGIN OF DYNP_VALUES OCCURS 10.
        INCLUDE STRUCTURE DYNPREAD.
DATA: END   OF DYNP_VALUES.
DYNP_VALUES-FIELDNAME = 'HRNAME_1000'.
APPEND DYNP_VALUES.
* read screen values
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME     = HELP_REPID "call the repid of ur prog
      DYNUMB     = HELP_DYNNR "pass the screen number
    TABLES
      DYNPFIELDS = DYNP_VALUES
    EXCEPTIONS
      OTHERS     = 1.
now dynp_values hold the field name and field value of the screen .
now
SORT DYNP_VALUES BY FIELDNAME.
    READ TABLE DYNP_VALUES WITH KEY 'HRNAME_1000' BINARY SEARCH.
    IF SY-SUBRC EQ 0.
      HELP_XXXX = DYNP_VALUES-FIELDVALUE. "store the value into a variable
      TRANSLATE HELP_XXXX TO UPPER CASE.
    ENDIF.
Now check the code with the value if its getting populated which once there will make ur select work ..
Vijay..

Dynamic rows increment according to user input in Table Control Module Pool

HI All,
I'm doing a Table Control module pool Program. Now suppose there are two fields - MATNR & MAKTX.
Our requirement is while weu2019ll give the material No (MATNR field), material desc. will be populated in corresponding field (MAKTX field),
Now the problem is, while we are entering Material No. in 1st row it is Material Desc. coming in to corresponding field but while the data is given to next row it replaces the 1st rows data .
eg - ............................... ........                                 MATNR.............................MAKTX
1st entry in 1st row .....................        23................................... XXX --after pressing 'ENTER' mat desc XXX comes. now                 2nd entry in 2nd row 24 ..............................                         YYY         --after pressing 'ENTER'
1st row details like MATERIAL NO(23) & Desc(XXX) got deleted & that is replaced by 24 YYY
We can not extend that no. of rows of Table Control Table more than one row.
If you kindly help me how it is possible to increase the no. of rows of that table dynamically without replacing the previous row it will be very helpful for me.
Thanks & Regards,
Biswajit

Hi Biswajit,
This probably means that the table control PAI is modifying the first line always in the internal table instead of current line
eg: we wite the code
loop at screen and then modify the internal table with current line
table_control => name of table control as given on screen
in PAI of the screen
loop at internaltable.
   modify internaltable index table_control-current_line .
put a break point here and see*
it will always be updating the first record because of some reason - logic error or coding error*
endloop.
Also in PBO we can see that the internal table will be having just one record after the action mentioned above....it is a case of overwrite
To simply increment the number of lines
table_control-lines = table_control-lines + 1. in PAI
Pls check and revert
Hope it helps
Regards
Byju

Entering values in MARA table using module pool programming

Hi All,
I need a help from you all. I want to enter the values in the MARA table using module pool programming.
Can you please give me the detailed approach and if possible then code also as i am new to ABAP.
Thanks in Advance

Create the screen fields with ref to field in MARA table, once data is entered on screen by user then fill appropriate structure of FM BAPI_MATERIAL_SAVEDATA. If call to Fm BAPI_MATERIAL_SAVEDATA is successful then call FM BAPI_TRANSACTION_COMMIT to make changes permanent in database .

Select-option field on module pool screen

hi all,
Can anyone pls let me know, how to design and use a field like a select-option field on a Module-pool screen i.e. how can i get that multiple selections tab after the high field of the select-options.
thanks in advance,
vinny

All you need to do is define your selection screen and then embed it in a subscreen area of your dynpro(screen). Here is a sample program.
report zrich_0006 .
tables: mara.
* Custom Selection Screen 1010
<b>selection-screen begin of screen 1010 as subscreen.</b>
selection-screen begin of block b1 with frame title text-001.
parameters: p_rad1 radiobutton group grp1 default 'X',
            p_rad2 radiobutton group grp1,
            p_rad3 radiobutton group grp1.
select-options: s_matnr for mara-matnr,
                s_matkl for mara-matkl,
                s_mtart for mara-mtart.
selection-screen end of block b1.
selection-screen end of screen 1010.
start-of-selection.
call screen 100.
*&      Module STATUS_0100 OUTPUT
module status_0100 output.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
endmodule.
*&      Module USER_COMMAND_0100 INPUT
module user_command_0100 input.
endmodule.
<b>* Screen screen 100 with a subscreen area called "subscreen_1010"
* Screen Flow Logic follows
*process before output.
* module status_0100.
* call subscreen subscreen_1010 including sy-repid '1010'.
*process after input.
* call subscreen subscreen_1010 .
* module user_command_0100.</b>
Regards,
Rich Heilman

How to use table maintenance view in module pool screen

hi ,
want to use table maintenance view in a module pool screen so that i can edit, insert, delete and update date in to the ztable.please help.

You can simply call it via SM30.   Or you can call the table maintence view from any program(report or module pool) using a function module.
call function 'VIEW_MAINTENANCE_CALL'
       exporting
            action                       = 'U'
            view_name                    = 'Z_Table_Name'
       exceptions
            client_reference             = 1
            foreign_lock                 = 2
            invalid_action               = 3
            no_clientindependent_auth    = 4
            no_database_function         = 5
            no_editor_function           = 6
            no_show_auth                 = 7
            no_tvdir_entry               = 8
            no_upd_auth                  = 9
            only_show_allowed            = 10
            system_failure               = 11
            unknown_field_in_dba_sellist = 12
            view_not_found               = 13
            others                       = 14.
Regards,
RIch Heilman

How to do ICON_EXPAND and ICON_COLLAPSE input fields in module pool screen?

hi frnds.
My problem is in module pool screen how to do ICON_EXPAND and ICON_COLLAPSE input fields in module pool screen?And how to do GUI STATUS and GUI TITLE? IN SE80.
ITS URGENT.POINTS WILL BE REWADED.THANKS IN ADVANCE.

Hi,
Go through this thread.
[expand and collapse|expand and collapse]
Cheers,
Simha.

Module pool screen field should default without pressing enter

Hi
I have got a main module pool screen which has a tabstrip with four tabs.
There are 2 fields in the main screen when we select from F4 for the first field then the field 2 should default in case of a condition.
This happens only when i press enter. I want the second field to change as soon as the first field is selected.
How do I trigger the PAI as soon as the field 1 is selected.
eg:                           Field 1 : i/p
                                Field 2 : display
                               Field 3 : i/p
On F4 for field 1 say i select value 'A' then the valu for field 3 should default to value 'B'. Also field 2 should be displayed based on combination of field 1 and field 2. But now it does it only on pressing enter.
How do I solve this problem?Also if i select field 1 value A and dont press enter and go to the subscreen tab then it does not do any thing. It allows to go on the subscreen tab. But actually it should default the field 3 value. It does it only when I press enter.
Also the F4 is from dictionary that is the screen fields are from dictionary. I have not created any F4 for the fields.
Please help me solve this problem
Regards,
mozila

Hi
You can achieve this using List Box only not by Input Field. Since Input field doesn't trigger automatic PAI/PBO
Go through the below thread
populate drop down menu based on entry in another field
or an alternative is--> In PBO use POPUP_GET_VALUES Fm to get the First input field based on that you can enter further values
unicode error
Cheerz
Ram

Selct Options in Module Pool screen.......

Hi Gurus,
We know the way to get the Select options on the Module -Pool screen as follows....
Create 2 separate fields in your screen layout - one for the low value and one for the high value. Insert an icon beside the high value which will call the multiple selections popup screen on user command. Use function module COMPLEX_SELECTIONS_DIALOG to achieve this.
I have tried the same as a test run for the FM. .but not returning meaningfull range......
Can any 1 clerify where the code containing the FM has to be included in the Screen flow (inside PAI, PBO or else) to get the range which can further be used inside the code for database selections or else..... .
Secondly, how is the inserted icon populated and used while coding........????
Thanks And Regards,
Abhi........

Hi
Please find the below code u will get select options
dont create any screen fitst jus type of prog is 'M' and create a tcode with 100 screen
than execute u will get select options
TABLES:VBAP.
SELECTION-SCREEN BEGIN OF SCREEN 100 .
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS S_VBELN FOR VBAP-VBELN.
PARAMETER P_WERKS LIKE VBAP-WERKS.
SELECT-OPTIONS S_ERDAT FOR VBAP-ERDAT.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN END OF SCREEN 100.
Regards
Surendra

Display Select option in module pool screen

What are the Function modules used to display Select option type fields in a module pool screen?

hi,
You can use the SELECT-OPTIONS statement to place a group of fields on the screen that allows users
to enter complex selections. The selection may be a single value, or any form of interval
Selection ranges are stored in programs using an internal table.
The ABAP statement SELECT-OPTIONS <selname> FOR <field> declares an internal table called
<selname>, containing four fields - SIGN, OPTION, LOW, and HIGH. The fields LOW and HIGH have
the same type as the field <field>.
The SIGN field can take the value 'I' (for inclusive) or 'E' (for exclusive).
The OPTION field can contain relational operators (EQ, NE, LE, LT, GE, GT), pattern operators (CP,NP), and operators that allow you to enter intervals (BT, NB).
SELECTION-SCREEN BEGIN OF BLOCK conn WITH FRAME TITLE text-001.
PARAMETERS pa_car LIKE wa_sflight-carrid OBLIGATORY.
SELECT-OPTIONS: so_car FOR wa_sflight-carrid,
SELECTION-SCREEN END OF BLOCK conn.
Hope this helps, Do reward.

Variants for module pool screena

Hi,
I tried creating a variant for module pool screen by using the FM : RS_CREATE_VARIANT.
For this i created a dummy report which has the same parameters as the fields in the screen.
CALL FUNCTION 'RS_VARIANT_CONTENTS'
        EXPORTING
          report                      = gc_dummy_rep
          variant                     = 'variant5'
        MOVE_OR_WRITE               = 'W'
        NO_IMPORT                   = ' '
        EXECUTE_DIRECT              = ' '
      IMPORTING
        SP                          =
        tables
        L_PARAMS                    =
        L_PARAMS_NONV               =
        L_SELOP                     =
        L_SELOP_NONV                =
          valutab                     = lt_params
        OBJECTS                     =
        FREE_SELECTIONS_DESC        =
        FREE_SELECTIONS_VALUE       =
      EXCEPTIONS
        VARIANT_NON_EXISTENT        = 1
        VARIANT_OBSOLETE            = 2
        OTHERS                      = 3
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
but when i try to retrieve the values stored in the variant using FM : RS_VARIANT_CONTENTS.
CALL FUNCTION 'RS_VARIANT_CONTENTS'
        EXPORTING
          report                      = gc_dummy_rep
          variant                     = 'variant5'
        MOVE_OR_WRITE               = 'W'
        NO_IMPORT                   = ' '
        EXECUTE_DIRECT              = ' '
      IMPORTING
        SP                          =
        tables
        L_PARAMS                    =
        L_PARAMS_NONV               =
        L_SELOP                     =
        L_SELOP_NONV                =
          valutab                     = lt_params
        OBJECTS                     =
        FREE_SELECTIONS_DESC        =
        FREE_SELECTIONS_VALUE       =
      EXCEPTIONS
        VARIANT_NON_EXISTENT        = 1
        VARIANT_OBSOLETE            = 2
        OTHERS                      = 3
      IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
I get an error message : variant5 not found.
is there anything that i miss here?
or is the way i use to create variant for module pool screen not right?
Regards,
Kamini

Hi,
To avail save variant option in module pool screen,
1. You need to create a data base table similar to INDX table with the fields RELID, VARI_NAME
PROG_NAME
UNAME
SRTF2, MEMORYID, CLUSTR, CLUSID. And the remaining fields can be anything.
2. Enable the Save button in the Function keys part of GUI Status. And Add a push button for Get variant.
3. When Save button clicked call a screen with a single field for variant (let us say g_var). After g_var entered, in the PAI of the initial screen export all the screen values to the created database index using the statement .
                     EXPORT: g_characteristics_tab TO DATABASE zav0257(ch) ID g_var,
                                   s_auart TO DATABASE zav0257(au) ID g_var.
                     So that the values will be exported to database.
                     Then update the fields(VARI_NAME,PROG_NAME,UNAME) of the database table using modify from work area.
                     So that you will have the history of variance existence.
4. Next time , when the user clicks on Get Variant option, call another screen to enter the variant name. Then import the values for that variant from the memory id in the database table.
It worked for me.

Default values in module pool screen issue

Hello,
I have 6 input fields in one of my module pool tab-strip. I can able to populate default values in 4 fields, but 2 fields are not showing default value on the screen. I am passing these default value for all 6 fields in PBO module of that screen. My question is, why only these 2 fields are not showing default values on the screen?
Thanks,
Shree

Edgar,
Thanks for the reply, I checked again, the screen fields and variables name is exactly same.
Here is the sample code:
MODULE status_2050 OUTPUT.
gv_id_no_2050 = '200'.
gv_matnr_2050 = '232020191'.
gv_ebeln_2050 = '20019100'.
gv_qty_2050 = 3.
gv_bukrs_2050 = 'JP01'.
gv_comments_2050 = 'my comments here'.
ENDMODULE.

Assigning 2 fields of same table in Module pool screen

Similar Messages

Maybe you are looking for