How to call program in the Module pool screen

hi ,
i am having 2 screen when we press enter in first screen we will go to second screen in second screen i want to call a standard ALV program but second screen is already having some fields i want tthis report in down part of the screen
please help me for that
Edited by: ankita12345 on Nov 19, 2009 12:27 PM

Hi,
Its your choice. If you want a ALV display, then create a custom container and display data like this
DATA: custom_container1 TYPE REF TO cl_gui_custom_container.
IF custom_container1 IS INITIAL.
 CREATE OBJECT custom_container1
 EXPORTING
 container_name = 'CUST_CONT1'
 EXCEPTIONS
 cntl_error = 1
 cntl_system_error = 2
 create_error = 3
 lifetime_error = 4
 lifetime_dynpro_dynpro_link = 5
 OTHERS = 6.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 CREATE OBJECT grid1
 EXPORTING
 i_parent = custom_container1
 EXCEPTIONS
 error_cntl_create = 1
 error_cntl_init = 2
 error_cntl_link = 3
 error_dp_create = 4
 OTHERS = 5.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
 CALL METHOD grid1->set_table_for_first_display
 CHANGING
 it_outtab = t_itemdetails[]
 it_fieldcatalog = t_itemfc
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 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.
If you want to have a table control, then you can do so. Search the SDN, you will find loads for your reference.

Similar Messages

How to print the Module pool screen using a push button in the screen

Hi Every one,
i have developed a module program , which have a selection screen and it display the output in a structured way.
output includes boxes, texts etc...
my problem is :---
How to print the Module pool screen using a push button in the screen.

When the "Print" button is pressed:
leave to list-processing and return to screen 100. "(current screen)
Call a transaction that runs your print program.
Rob

How to insert tabstrip control in module pool screen painter

Hi all!
plz tell e how to use tabstrip control in module pool screen painter.Also plz give me an example program using tabstrip control.

To insert tabstrip just open layout of screen and press on the tabstrip button there .
Use this souce code further to activate it .
CONTROLS tabstrip TYPE TABSTRIP.
DATA: okcode TYPE sy-ucomm,
dynnr TYPE sy-dynnr,
flag type flag,
active like tabstrip-activetab .
call SCREEN 100.
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
data: lv_okcode type syucomm.
lv_okcode = okcode.
clear okcode.
case lv_okcode.
WHEN 'TAB1'.
dynnr = '0110'.
WHEN 'TAB2'.
dynnr = '0120'.
WHEN 'TAB3'.
dynnr = '0130'.
WHEN 'TAB4'.
dynnr = '0140'.
WHEN 'TAB5'.
"check authorization, if authorization fails
flag = 'X'. "set the global flag
active = 'TAB1'. "store active tab in global variable
dynnr = '0110'. "set the screen number
WHEN 'BACK' or 'EXIT'.
leave program.
ENDCASE.
IF lv_okcode(3) = 'TAB'.
tabstrip-activetab = lv_okcode.
ENDIF.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MAIN'.
SET TITLEBAR 'xxx'.
IF tabstrip-activetab IS INITIAL OR
dynnr IS INITIAL.
tabstrip-activetab = 'TAB1'.
dynnr = '0110'.
ENDIF.
"set the activetab explicilty here
if flag eq 'X'. "from authorization failure
tabstrip-activetab = active. "'TAB1'
clear flag.
endif.
ENDMODULE. " STATUS_0100 OUTPUT

How to creat select-option on module pool screen???

Hi All,
please tell me how to creat select-option on module pool screen???
Regards
Deepak

Hi Deepak Kumar Sharma,
There are Two ways to achieve it...
1) How to create a select-options in a module pool screen.
Method 1
a) Create a subscreen area in your screen layout where you want to create the select options.
b) In the top include of your module pool program declare a selection screen as a subscreen e.g.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
select-options s_matnr for mara-matnr.
SELECTION-SCREEN END OF SCREEN.
c) In the PBO and PAI of the main screen where the select options needs to be created do a call subscreen of the above screen (100).
CALL SUBCREEN sub_area INCLUDING <program> <screen>
This call subscreen statement is necessary for transport of values between screen and program.
Note: All validations of the selection screen fields e.g. the s_matnr field created above should be done in selection screen events like AT SELECTION-SCREEN etc and not in PAI. These selection screen validations etc should be done in the top include only.
Method 2
a) 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.
struc_tab_and_field-fieldname = con_cust. " 'KUNNR'
struc_tab_and_field-tablename = con_kna1. " 'KNA1'.
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
EXPORTING
TITLE = ' '
text = g_titl1 " 'Customers'
tab_and_field = struc_tab_and_field
TABLES
RANGE = rng_kunnr
EXCEPTIONS
NO_RANGE_TAB = 1
CANCELLED = 2
INTERNAL_ERROR = 3
INVALID_FIELDNAME = 4
OTHERS = 5.
IF NOT rng_kunnr[] IS INITIAL.
Read the very first entry of the range table and pass it to
dynpro screen field
READ TABLE rng_kunnr INDEX 1.
IF sy-subrc = 0.
g_cust = rng_kunnr-low.
ENDIF.
You can use the return table rng_kunnr to populate your own internal range table with the values entered by the user. Basically here you are just simulating the work of a select-options parameter by module pool screen elements.
Also have a look on below threads
how to make select option in module pool
select option in module pool program
Hope it will solve your problem..
Thanks & Regards
ilesh 24x7

Regarding exit from the module pool screen

h experts,
i have developed a module pool report in which in the selection screen i have four fields which are mandatory ,when i execute the program without entering in the selection screen it do not allow to come out of the module pool screen ...what i want that without entering any input in the selection screen if i press exit button push button it will allow to come out of the screen for this what sud i do plz help me....

Hi
keep a button called EXIT on the screen
Make the function type of that field as E
in Flow logic write
PROCESS AFTER INPUT.
Forced Exit from the transaction from screen
MODULE exit AT EXIT-COMMAND.
double click on exit module and
then in PAI write
*& Module exit INPUT
Exit from the Transaction
MODULE exit INPUT.
CASE okcode.
 WHEN 'EXIT' OR 'CANCEL'.
 CLEAR okcode.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " exit INPUT
Reward points for useful Answers
Regards
Anji

How to create select-options on module pool screen

Hi all
I want get a range of values from the user from the module pool screen.
Is there any element available on module pool screen like select options on the selection screen of reports.
reply me ASAS.
Thanks.

hi krishna
actually I want to display the details of PO numbers from 45000100 to 45000150. user will enter this range on the module pool screen just as we enter on the selection screen of report. My question is do we have a button like select-option on the module pool screen.
Plz . reply me ASAP.
Thanks.

How to retain leading zeros in module pool screen

Hi experts,
I have a ztable field of type NUMC4 being displayed on a module pool screen, the value in the field is '0001', but on the screen it displays value as '1' (without leading zeros), When I save the record, Even in the databse it stores as '1'.
But I have checked in debugging the field always contains '0001' in the program execution and I have also used 'CONVERSION_EXIT_ALPHA_INPUT' in the PBO but no use.
Pls suggest.
Thanks,
Deepak

Check the screen attributes for the field. There is an option to show leading zeroes.
edit.
And how did you see it was stored a 1 and not 0001? Using SE16N? Mind you: with SE16N conversion-exits are executed automatically thus showing 0001 as 1.
To make sure: double click on the record in SE16N and look if it's still 1 and not 0001.

Call LSMW from a Module pool screen

Hi SAP gurus,
In order to call an LSMW from a module pool screen, there is a Function module which I have used earlier, but unable to recollect it. Can someone please tell me the FM which we need to use ?

Sudhakar,
Create an LSMW and assign it to a tcode and then call this tcode from the module pool program so that it will skip all the screens just by allowing the user to input the files and run the lswm.
Regarding the FM I have no idea.
K.Kiran.

How can one save variants for module pool screens.

hai all,
i have done a module pool screen for taking information from user..later i leave to list processor and give a report to the user.
i am testing the program with many input parameters.i don't want to enter the values each time i execute the program.can i not save a variant like i save for normal abap editor programs?
any other solution ?

Hii..
Variants can be created in Selection Screen only...
For ur Scenario:
To leave to the list use the Statements
LEAVE TO LIST-PROCESSING And return .
then the Data will be automatically retained.
Reward if Helpful

How to add TAB functionality in module pool screen

Hi,
I have created a screen with two fields(input/output).My requirement is generally cursor is in the first field when user pressed TAB key then cursor has to move to second field.How can i fulfil this requirment.
Thanks,
shyla

Hi,
If u have created your input filed (Input/Output-Se51) field in screen layout then it will automatically jump to next input field when u press enter.
Chk it out.

How to add logo in module pool screen

Hi Expert,
I need to display company logo in the module pool screen
how this can be added ?
Regards
Bikas

Hi,
create a custom control called 'CUSTOM_CONTROL'
CONSTANTS: CNTL_TRUE TYPE I VALUE 1,
      CNTL_FALSE type i value 0.
data:h_picture       type ref to cl_gui_picture,
     h_pic_container type ref to cl_gui_custom_container.
data: graphic_url(255),
      graphic_refresh(1),
      g_result like cntl_true.
data: begin of graphic_table occurs 0,
        line(255) type x,
      end of graphic_table.
data: graphic_size type i.
data: g_stxbmaps type STXBITMAPS,
      l_bytecnt type i,
      l_content   TYPE standard table of bapiconten initial size 0.
g_stxbmaps-tdobject = 'GRAPHICS'.
g_stxbmaps-tdname = 'ENJOY'.
g_stxbmaps-tdid = 'BMAP'.
g_stxbmaps-tdbtype = 'BMON'.
call function 'SAPSCRIPT_GET_GRAPHIC_BDS'
     exporting
          i_object       = g_stxbmaps-tdobject
          i_name         = g_stxbmaps-tdname
          i_id           = g_stxbmaps-tdid
          i_btype        = g_stxbmaps-tdbtype
     importing
          e_bytecount    = l_bytecnt
     tables
          content        = l_content
     exceptions
          not_found      = 1
          bds_get_failed = 2
          bds_no_content = 3
          others         = 4.
call function 'SAPSCRIPT_CONVERT_BITMAP'
     exporting
          old_format               = 'BDS'
          new_format               = 'BMP'
          bitmap_file_bytecount_in = l_bytecnt
     importing
          bitmap_file_bytecount = graphic_size
     tables
          bds_bitmap_file        = l_content
          bitmap_file            = graphic_table
     exceptions
          others                 = 1.
call function 'DP_CREATE_URL'
     exporting
        type                 = 'image'
        subtype              = cndp_sap_tab_unknown
        size                 = graphic_size
        lifetime             = cndp_lifetime_transaction
     tables
        data                 = graphic_table
     changing
        url                  = graphic_url
     exceptions
        others               = 4 .
create object h_pic_container
       exporting container_name = 'CUSTOM_CONTROL'.
create object h_picture exporting parent = h_pic_container.
call method h_picture->set_display_mode
     exporting
          display_mode = cl_gui_picture=>display_mode_normal.
call method h_picture->load_picture_from_url
     exporting url    = graphic_url
     importing result = g_result.
or you can check the program RSDEMO_CUSTOM_CONTROL
check link :
How to insert Image on Screen
thanks
Parvathi

Getting select options in module pool screen

hi experts,
can any one suggest me how to provide select options in module pool screen.
thank you,
regards
vijay

Hi,
Take two fields on screen first for low value and other for high value (say vbeln_low and vbeln_high) also design a button next to the high textbox for select-option button used to display popup.
Using these two input fields append a range (say r_vbeln for vbap-vbeln) for the field to be used (either in query or anywhere).
ranges : r_vbeln for vbap-vbeln.
IF NOT vbeln_high IS INITIAL.
 IF NOT vbeln_low LE vbeln_high.
 MESSAGE e899 WITH text-007. "high value is smaller than low value
 ENDIF.
ENDIF.
r_vbeln-sign = 'I'.
r_vbeln-low = vbeln_low.
IF vbeln_high IS INITIAL.
 r_vbeln-option = 'EQ'. "if user takes only a singlr value
ELSE.
 r_vbeln-option = 'BT'. "if user takes both low & high value
 r_vbeln-high = vbeln_high.
ENDIF.
APPEND r_vbeln. "append range
CLEAR r_vbeln.
On the button click call this FM to call a popup for select-options.
DATA : tab TYPE rstabfield.
tab-tablename = 'VBAP'.
tab-fieldname = 'VBELN'.
CALL FUNCTION 'COMPLEX_SELECTIONS_DIALOG'
 EXPORTING
 title = text-002
 text = ' '
 signed = 'X'
* lower_case = ' '
* no_interval_check = ' '
* just_display = ' '
* just_incl = ' '
* excluded_options =
* description =
* help_field =
* search_help =
 tab_and_field = tab
 TABLES
 range = r_vbeln
 EXCEPTIONS
 no_range_tab = 1
 cancelled = 2
 internal_error = 3
 invalid_fieldname = 4
 OTHERS = 5.
IF sy-subrc EQ 2.
 MESSAGE s899 WITH text-003. "no value selected
ELSEIF sy-subrc <> 0 AND sy-subrc <> 2.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
This whole code will append your range r_vbeln to be used in program.
Hope this solves your problem.
Thanks & Regards,
Tarun Gambhir

Add Picture to a Module pool screen

Any anyone know how to load a picture,im module pool
I have already uploaded a BMP file in se78.
After that do anyone know how to upload the picture
in the Module pool screen.

ok. first create a container then place this picture in ur container.
For detail.
go through this program......
create object cust_container
exporting
 container_name = 'MYCONTAINER1'
create object picture
exporting
 parent = cust_container
clear url.
path = 'Zex'.
perform get_url using path.
CALL METHOD picture->set_display_mode
 EXPORTING
 display_mode = cl_gui_picture=>display_mode_fit
EXCEPTIONS
 ERROR = 1
 others = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD picture->load_picture_from_url
EXPORTING
 url = url
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
form get_url using p_path.
DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE.
DATA html_table LIKE w3html OCCURS 1.
DATA return_code LIKE w3param-ret_code.
DATA content_type LIKE w3param-cont_type.
DATA content_length LIKE w3param-cont_len.
DATA pic_data LIKE w3mime OCCURS 0.
DATA pic_size TYPE i.
REFRESH query_table.
query_table-name = '_OBJECT_ID'.
query_table-value = p_path.
APPEND query_table.
CALL FUNCTION 'WWW_GET_MIME_OBJECT'
 TABLES
 query_string = query_table
 html = html_table
 mime = pic_data
 CHANGING
 return_code = return_code
 content_type = content_type
 content_length = content_length
 EXCEPTIONS
 object_not_found = 1
 parameter_not_found = 2
 OTHERS = 3.
IF sy-subrc = 0.
 pic_size = content_length.
ENDIF.
CALL FUNCTION 'DP_CREATE_URL'
 EXPORTING
 type = 'image'
 subtype = cndp_sap_tab_unknown
 size = pic_size
 lifetime = cndp_lifetime_transaction
 TABLES
 data = pic_data
 CHANGING
 url = url
 EXCEPTIONS
 OTHERS = 1.
endform. " get_url
Regards
Abhishek

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..

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

How to call program in the Module pool screen

Similar Messages

Maybe you are looking for