How to display image and data in module pool screen?

Hi,
I want to display image and relevant data besides the image in module pool screen, I am using docking container to display the image.
Actually I am able to display image or data any one but not both.
one more thing I want to display multiple images and their data.
Please suggest some one if you have any idea.
Regards,
Dileep.

You can try below way, I have used in report.
DATA: gc_docking              TYPE REF TO cl_gui_docking_container, "#EC NEEDED "Docking Container
       gc_split                 TYPE REF TO cl_gui_easy_splitter_container, "#EC NEEDED "Splitter
       gc_top_container         TYPE REF TO cl_gui_container, "#EC NEEDED "Top Container
       gc_bottom_container      TYPE REF TO cl_gui_container, "#EC NEEDED "Bottom Container
      gc_document              TYPE REF TO cl_dd_document, "#EC NEEDED "Document
       gc_events                TYPE REF TO lcl_event_class, "#EC NEEDED " Local Event Class
       gc_grid                  TYPE REF TO cl_gui_alv_grid, "#EC NEEDED " ALV Class
" Creating Docking
CREATE OBJECT gc_docking
       EXPORTING
         ratio = c_95.
     IF sy-subrc EQ 0.
* Splitting the Docking container
       CREATE OBJECT gc_split
         EXPORTING
           parent        = gc_docking
           sash_position = c_10 "Position of Splitter Bar (in Percent)
           with_border   = c_1. "With Border = 1 Without Border = 0
     ENDIF.
*   Placing the containers in the splitter
     gc_top_container = gc_split->top_left_container .
     gc_bottom_container = gc_split->bottom_right_container .
*   Creating Grid
     CREATE OBJECT gc_grid
       EXPORTING
         i_parent = gc_bottom_container.
   ELSE.
* Background job handling
     CREATE OBJECT gc_grid
       EXPORTING
         i_parent = gc_docking.
   ENDIF.
*   Creating the document
   CREATE OBJECT gc_document
     EXPORTING
       style = 'ALV_GRID'.
Regards,
Sameer

Similar Messages

How to display LONG TEXT STRING in Module Pool Screen ?

Hi Experts,
I want to display long text string, on screen designed through module pool(SE51). I tried to display through input/output field , but it displays it in SINGLE LINE and i have to scroll all through to view all string.
I want to display it in rectangular format . It doesnt allow me to set HEIGHT of component.
Please provide solution.
Thanks in advance.
Regards
Deepak

This is the program where u can get the WA_THEAD from other program like report and trying to display and modifying that text. U can do instead of WA_THEAD u can generate here itself and use also
*& Module pool       ZMP_LTEXT                                         *
PROGRAM ZMP_LTEXT                               .
TABLES: STXL.
*&      Module STATUS_9000 OUTPUT
MODULE STATUS_9000 OUTPUT.
CONSTANTS:line_length type i value 132.
DATA:g_editor type ref to cl_gui_textedit,
     g_editor_container type ref to cl_gui_custom_container,
     CONT1 type scrfname value 'CONT1',
     g_repid like sy-repid,
     g_ok_code like sy-ucomm,
     g_mytable(132) type c occurs 0,
     g_mycontainer(30) type c ,
     v_result(256) type c,
     g_head like thead,
     it_line type table of tline with header line,
     wa_stxl type stxl.
DATA : BEGIN OF IT_THEAD1,
       ICON TYPE ICON-ID.
       INCLUDE STRUCTURE STXL.
DATA : END OF IT_THEAD1.
DATA : IT_THEAD LIKE TABLE OF IT_THEAD1,
       WA_THEAD LIKE LINE OF IT_THEAD.
IMPORT WA_THEAD FROM MEMORY ID 'ABCD'.
select SINGLE * from STXL into wa_stxl
                 where tdname = '00006000156500000002'.
SELECT SINGLE * from STXL into wa_stxl
                  where tdname = WA_THEAD-TDNAME
                  AND TDID = WA_THEAD-TDID
                  AND TDOBJECT = WA_THEAD-TDOBJECT
                  AND TDSPRAS = WA_THEAD-TDSPRAS.
IF SY-SUBRC NE 0.
MESSAGE 'NO RECORD EXIST' TYPE 'E'.
ENDIF.
MOVE-CORRESPONDING WA_STXL TO G_HEAD.
SET PF-STATUS 'STATUS'.
SET TITLEBAR '001'.
if g_editor is initial.
     CREATE OBJECT G_EDITOR_CONTAINER
       EXPORTING
        PARENT                      =
         CONTAINER_NAME              = CONT1
        STYLE                       =
        LIFETIME                    = lifetime_default
        REPID                       =
        DYNNR                       =
        NO_AUTODEF_PROGID_DYNNR     =
       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 G_EDITOR
       EXPORTING
        MAX_NUMBER_CHARS       =
        STYLE                  = 0
   WORDWRAP_MODE          = cl_gui_textedit=>wordwrap_at_fixed_position
for to fix number of characters in row to 132 characers
         WORDWRAP_POSITION      = line_length
         WORDWRAP_TO_LINEBREAK_MODE = cl_gui_textedit=>true
for the word to break to next line if it dont fit in line
        FILEDROP_MODE          = DROPFILE_EVENT_OFF
         PARENT                 = G_EDITOR_CONTAINER
        LIFETIME               =
        NAME                   =
       EXCEPTIONS
        ERROR_CNTL_CREATE      = 1
        ERROR_CNTL_INIT        = 2
        ERROR_CNTL_LINK        = 3
        ERROR_DP_CREATE        = 4
        GUI_TYPE_NOT_SUPPORTED = 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.
REFRESH g_mytable.
     MOVE: WA_THEAD-TDNAME TO STXL-TDNAME,
           WA_THEAD-TDID TO STXL-TDID,
           WA_THEAD-TDOBJECT TO STXL-TDOBJECT,
           WA_THEAD-TDSPRAS TO STXL-TDSPRAS.
    CALL FUNCTION 'READ_TEXT'
    EXPORTING
    CLIENT                        = SY-MANDT
      ID                            = wa_stxl-tdid
      LANGUAGE                      = wa_stxl-tdspras
      NAME                          = wa_stxl-tdname
      OBJECT                        = wa_stxl-tdobject
    ARCHIVE_HANDLE                = 0
    LOCAL_CAT                     = ' '
IMPORTING
    HEADER                        =
    TABLES
      LINES                         = it_line
EXCEPTIONS
    ID                            = 1
    LANGUAGE                      = 2
    NAME                          = 3
    NOT_FOUND                     = 4
    OBJECT                        = 5
    REFERENCE_CHECK               = 6
    WRONG_ACCESS_TO_ARCHIVE       = 7
    OTHERS                        = 8
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT IT_LINE INTO V_RESULT.
   APPEND V_RESULT TO G_MYTABLE.
ENDLOOP.
CALL METHOD G_EDITOR->SET_TEXT_AS_R3TABLE
   EXPORTING
     TABLE           = G_MYTABLE
   EXCEPTIONS
     ERROR_DP        = 1
     ERROR_DP_CREATE = 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.
   endif.
ENDMODULE.                 " STATUS_9000 OUTPUT
*&      Module USER_COMMAND_9000 INPUT
MODULE USER_COMMAND_9000 INPUT.
CASE SY-UCOMM.
REFRESH G_MYTABLE[].
REFRESH IT_LINE[].
CLEAR V_RESULT.
WHEN 'SAVE'.
     CALL METHOD G_EDITOR->GET_TEXT_AS_R3TABLE
      EXPORTING
        ONLY_WHEN_MODIFIED     = FALSE
        IMPORTING
          TABLE                  = G_MYTABLE
        IS_MODIFIED            =
      EXCEPTIONS
        ERROR_DP               = 1
        ERROR_CNTL_CALL_METHOD = 2
        ERROR_DP_CREATE        = 3
        POTENTIAL_DATA_LOSS    = 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.
LOOP AT G_MYTABLE INTO V_RESULT.
   APPEND V_RESULT TO IT_LINE.
ENDLOOP.
CLEAR V_RESULT.
    CALL FUNCTION 'SAVE_TEXT'
      EXPORTING
        CLIENT                = SY-MANDT
        HEADER                = G_HEAD
        INSERT                = ' '
        SAVEMODE_DIRECT       = 'X'
      OWNER_SPECIFIED       = ' '
      LOCAL_CAT             = ' '
    IMPORTING
      FUNCTION              =
      NEWHEADER             =
      TABLES
        LINES                 = IT_LINE
    EXCEPTIONS
      ID                    = 1
      LANGUAGE              = 2
      NAME                  = 3
      OBJECT                = 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.
REFRESH G_MYTABLE[].
REFRESH IT_LINE[].
CLEAR V_RESULT.
WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
LEAVE TO SCREEN '0'.
*CALL SCREEN '0'.
WHEN OTHERS.
ENDCASE.
*G_OK_CODE = SY-UCOMM.
*CLEAR SY-UCOMM.
ENDMODULE.                 " USER_COMMAND_9000 INPUT

How to display images and information

how to display images and information(e.g. like questions) on a jsp page that stored in a database

Look As far as i can see....
Utlimately every file could be expressed as a bytes buffer.
so say if you have a bean called Choice Bean which is expressed as
public class ChoiceBean{
   private String choiceid;
   private String choicedesc;
   private byte image[];
   public void setChoiceId(String choiceid){
          this.choiceid = choiceid;
    public String getChoiceId(){
           return this.choiceid;
      public void setChoiceDesc(String choicedesc){
           this.choicedesc = choicedesc;
       public String getChoiceDesc(){
           return this.choicedesc;
       public void setImage(byte image[]){
              this.image = image;
         public byte[] getImage(){
              return this.image;
}QuestionList.java:
===============
public class QuestionList{
     private List<ChoiceBean> choicelist;
      /*Other member variable declarations*/
       public List<ChoiceBean> getChoiceList(){
                /*Custom code where you may build the list by querying the DA layer*/
                 return this.choicelist;
     public int search(String choiceid){
             int index = -1;
             for(int i =0 ; i < this.choicelist.size() ; i++){
                    ChoiceBean cb = this.choicelist.get(i);
                     if(cb.getChoiceId().equals(choiceid)){
                            index = i;
                            break;
             return index;
    /* Other member method declarations */
}and you are retreving List<ChoiceBean> from DB using your query & have created a session attribute / <jsp:useBean> named ChoiceList
NOTE: sometimes your application server can go out of bounds as you are consuming a lot of memory by creating an arraylist object.
use the following methodology to display images & choices
sample.jsp:
=========
<jsp:useBean id="QuestionList" class="com.qpa.dao.QuestionList" scope="session"/>
<TABLE>
<%
/* QuestionList.getChoiceList() is a method which fetches data from the DB & returns it in form of List<ChoiceBean> */
List<ChoiceBean> choicelist = QuestionList.getChoiceList();
for(int i =0 ; i < choicelist.size() ; i++){
%>
<TR>
<TD><%!=choicelist.get(i).getChoiceId()%></TD>

<TD><IMAGE src="ImageServlet?choiceid=<%!=choicelist.get(i).getChoiceId()%>"/> </TD>
<TD><%!=choicelist.get(i).getChoiceDesc()%></TD>
</TR>
<%
%>
</TABLE>
<%
    session.remove("QuestionList");
%>
NOTE: usage of JSTL or any other custom built tag-libraries makes life more simpler in the following case
ImageServlet.java:
===============
public void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException {
        byte buffer[] = null;
        HttpSession session = request.getSession(false);
        /*getting the QuestionList from the session*/
        QuestionList ql = null;
        String choiceid = new String("");
        try{
             choiceid = request.getParameter("choiceid");
             /*getting the QuestionList from the session*/
            ql = (QuestionList) session.getAttribute("QuestionList");
        } catch(Exception exp){
        if(choiceid.equals("") == false && ql != null ){
            List<ChoiceBean> clist = QuestionList.getChoiceList();
               assuming that you have created a serach method which searches the entire choice list and would give you
               the index of that object which is being refered by unique choiceid and returns -1 if not found
            int index = QuestionList.search(choiceid);
            if(index != -1){
               ChoiceBean cb = clist.get(index);
               buffer = cb.getImage();
        if(buffer != null){
             // assuming that we have stored images in JPEG format only
             JPEGImageDecoder decoder = JPEGCodec.createJPEGDecoder(new ByteArrayInputStream(buffer));
             BufferedImage image =decoder.decodeAsBufferedImage();
             response.setContentType("image/jpeg");
             // Send back image
             ServletOutputStream sos = response.getOutputStream();
             JPEGImageEncoder encoder = JPEGCodec.createJPEGEncoder(sos);
             encoder.encode(image);
        } else {
           response.setContentType("text/html");
           response.getWriter().println("<b>Image data not found</b>");
}However,i still feel there are few loopholes with this approach where Application Server can eat up a lot of heap space which may result in outofmemorybound exception.
Hope this might help :)
REGARDS,
RaHuL

How to get the Grand Total in Module pool Screen

Hi Frds.
     How to get the Grand Total in Module pool Screen
Example i have 10 different materials
for each matarial has different moving . But in my case matarials is doesnt matter here
10 material Moving Average price to do Frand total and display in one column...
Please Help me out Frds.
Regards,
Kabil

Hi
You need to calculate the total in a module of PAI (or PBO) event:
PROCESS PAI.
   LOOP.....
   ENDLOOP.
MODULE CALCULATE_TOTAL.
MODULE CALCULATE_TOTAL.
    GRAND_TOTAL = 0.
     LOOP AT ITAB,
        GRAND_TOTAL = GRAND_TOTAL + ITAB-PWB.
    ENDLOOP.
ENDMODULE.
In this way the grand total will be calculated as soon as the user presses enter or another command.
You can't insert the calculation in the loop of table control, because this loop runs the visible lines only, so it's better to calculate the total out of those loop,

Display Continuous Fluctuations in Input Data in Module Pool Screen

Dear All,
We are working on a Weighbridge Interface scenario, where the weighbridge is sending data to a digitizer, which is connected to the COM port of a PC. The objective is to read the data from the digitizer, and display in a Module pool screen. However, there is one more requirement: the weight may fluctuate until it stabilizes, and the fluctuations have to be displayed on screen. For example, the tare weight of a vehicle may be 12.4 TON, but when the vehicle is standing on the weighbridge, the weight may vary from 10.4 to 12.4 TON. The idea is to capture the stable weight, so that any discrepancies can be avoided. In the current IT system implementation, the fluctuations in the weight are displayed. But using ABAP, can these fluctuations be captured? For example, we may design a screen containing a field for capturing the weight, and the weight displayed there automatically refreshes as soon as there is a change in the digitizer reading. Is this possible to achieve? If so, how?
Awaiting answers.
Thanks and Regards,
Sid

Hi Sid,
just a suggestion for the refreshing of an ABAP screen: you can use class CL_GUI_TIMER, but it only handles whole seconds, i.e. 1 second, 2 seconds and so on, but not 0.5 seconds...
An example of an ABAP listing could be the following:
*& Report ZZAVV001
REPORT zzavv001 NO STANDARD PAGE HEADING.
CONSTANTS: c_yes(1) TYPE c VALUE 'X'.
DATA: BEGIN OF t_bseg OCCURS 0.
        INCLUDE STRUCTURE bseg.
DATA: END OF t_bseg.
data: d_num_bkpf type i,
      d_num_bseg type i.
PARAMETERS: interval TYPE i DEFAULT 5. "meaning 5 seconds
*       CLASS lcl_receiver DEFINITION
CLASS lcl_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
      handle_finished FOR EVENT finished OF cl_gui_timer.
ENDCLASS.                    "lcl_receiver DEFINITION
* Global data
DATA:
test       TYPE i,
receiver   TYPE REF TO lcl_receiver,
timer      TYPE REF TO cl_gui_timer.
START-OF-SELECTION.
CREATE OBJECT timer.
CREATE OBJECT receiver.
SET HANDLER receiver->handle_finished FOR timer.
timer->interval = interval.
CALL METHOD timer->run.
PERFORM load_data.   "or whatever you have to do to read the weight
PERFORM show_list.   "or whatever you have to do to print the weight you've read
*       CLASS lcl_receiver IMPLEMENTATION
CLASS lcl_receiver IMPLEMENTATION.
METHOD handle_finished.
    PERFORM carga_datos.
    PERFORM muestra_listado.
    CALL METHOD timer->run.
ENDMETHOD.                    "handle_finished
ENDCLASS.                    "lcl_receiver IMPLEMENTATION
*&      Form load_data
*       text
FORM load_data.
clear: d_num_bkpf,
         d_num_bseg.
select single count( * )
    into d_num_bkpf
    from bkpf.
select single count( * )
    into d_num_bseg
    from bseg.
ENDFORM.                    "load_data
*&      Form show_list
*       text
FORM show_list.
get time.
skip to line 1.
position 1.
write: / 'Date / Time:', sy-datum, sy-uzeit.
write: / 'Number of BKPF records:', d_num_bkpf.
write: / 'Number of BSEG records:', d_num_bseg.
ENDFORM.                    " show_list
Okay, it's just a tiny code snippet, but I hope it may help you by designing auto-refreshing screens.
Kind regards,
Alvaro

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 handle The Back button on Module Pool screen

Hi Gurus,
I have created a module pool screen. In that screen I have used some input/output fields(text box) which i have marked mandatory by making the input field as "required" under program tab.
now when running the screen if no data is entered into these mandatory input field then BACK button does not work. First I have to enter some data into the input filed only then the BACK button works. How should i code so that the back button works even without entering the data into these mandatory fields.

hi,
use AT EXIT-COMMAND with the module.
eg. module user_command at exit command.
then there will be no problem.

How to give ** bydefault in password in module pool screen .

Hi experts
how to give ******* by default in password in module pool screen .
Thanks

Hi ,
    Double click on the field u will get a pop up window
    i.e. attribute window for that field.
    in that window you have a tab called Program at the bottom.
   in program tab you have many checkboxes.
check the check box with name *Entry.
and activate.
what ever you enter now will be in password formate
Regards
Ajay

How to add help documentation in a module pool screen?

Hi ,
I have to add documentation for a module pool screen. I have added the documentation for the program in se38 but what can I do to make it visible on the screen I have designed.
Since I am new to module pool, kindly explain me step by step.
Thanks,
Nidhi

Hello Nidhi,
if you want at field level you use
PROCESS ON HELP-REQUEST. in flow logic of screen.
one mre thing you can add one text edit control on screen and put your text in screen

Displaying report o/p in module pool screen

hi,
i have developed a report &
i want to display the report o/p using module pool screen
shall i use call screen.
pls kindly suggest me

u can use call screen,
but you can only display the O/p in ALV

How to enable the 'FIND' Button in Module Pool Screen. Logic please

Hi All,
   I am writing one Module Pool Program. I have one requirement like I have to put FIND, FIND+ buttons on different screens.
   I am able to do the code for normal FIND. According to my requirement I have to display one Popup when the user click on FIND button. Once he entered some value it should find all the records and all the fields and display the list of hits in another popup. This whole process should as same as in SE11 Transaction functionality.
   Example: SE11 ->Table Entries -> and click the FIND Button. I need the same functionality in my Program.
   Please let me know ASAP. If you provide some code sample it will be Great.
Thanks & Regards
Kiran

Hi
If you have just implemented the code for FIND I believe u need to add some little modifications for FIND+.
U need only to manage the position of the last found value, so u need to go on from that position for FIND+.
The position should have the two coordinates X (the position in the record) and Y (the number of the record):
- FOUND should start for postion = 0, 0
- FOUND+ should start for position = X, Y
Max

How can i embed Area menu in module pool screen

Hi All,
I developed a module screen 100 now i have to call area menu in a container can you please help me in this issue or if i am wrong in this way can you please suggest which approach will full fill this requriement.
Manohar

dfgdfg

How to extract the data from module pool program to Excel Sheet?

Hi Guys
        I am having a requirement to transfer the data from Module pool screen to excel sheet directly.
        This is an urgent requirement.
        So plz reply me with some coding examples.
        I will give points for that.

This report extract excel file. From that concept you can easily extract data from module pool program also by coding in PAI of the screen.
REPORT ztest1 .
* this report demonstrates how to send some ABAP data to an
* EXCEL sheet using OLE automation.
include ole2incl.
* handles for OLE objects
data: h_excel type ole2_object,        " Excel object
      h_mapl type ole2_object,         " list of workbooks
      h_map type ole2_object,          " workbook
      h_zl type ole2_object,           " cell
      h_f type ole2_object,            " font
      h_c type ole2_object.            " color
DATA: FILENAME LIKE RLGRAP-FILENAME.
tables: spfli.
data h type i.
* table of flights
data: it_spfli like spfli occurs 10 with header line.
*&   Event START-OF-SELECTION
start-of-selection.
* read flights
select * from spfli into table it_spfli.
* display header
uline (61).
write: /     sy-vline no-gap,
          (3) 'Flg'(001) color col_heading no-gap, sy-vline no-gap,
          (4) 'Nr'(002) color col_heading no-gap, sy-vline no-gap,
          (20) 'Von'(003) color col_heading no-gap, sy-vline no-gap,
          (20) 'Nach'(004) color col_heading no-gap, sy-vline no-gap,
          (8) 'Zeit'(005) color col_heading no-gap, sy-vline no-gap.
uline /(61).
* display flights
loop at it_spfli.
    write: / sy-vline no-gap,
             it_spfli-carrid color col_key no-gap, sy-vline no-gap,
             it_spfli-connid color col_normal no-gap, sy-vline no-gap,
             it_spfli-cityfrom color col_normal no-gap, sy-vline no-gap,
             it_spfli-cityto color col_normal no-gap, sy-vline no-gap,
             it_spfli-deptime color col_normal no-gap, sy-vline no-gap.
endloop.
uline /(61).
* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
*           PERCENTAGE = 0
           text       = text-007
       exceptions
            others     = 1.
* start Excel
create object h_excel 'EXCEL.APPLICATION'.
* PERFORM ERR_HDL.
set property of h_excel 'Visible' = 1.
* CALL METHOD OF H_EXCEL 'FILESAVEAS' EXPORTING #1 = 'c:kis_excel.xls'
* PERFORM ERR_HDL.
* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
*           PERCENTAGE = 0
           text       = text-008
       exceptions
            others     = 1.
* get list of workbooks, initially empty
call method of h_excel 'Workbooks' = h_mapl.
perform err_hdl.
* add a new workbook
call method of h_mapl 'Add' = h_map.
perform err_hdl.
* tell user what is going on
call function 'SAPGUI_PROGRESS_INDICATOR'
     exporting
*           PERCENTAGE = 0
           text       = text-009
       exceptions
            others     = 1.
* output column headings to active Excel sheet
perform fill_cell using 1 1 1 200 'Carrier id'(001).
perform fill_cell using 1 2 1 200 'Connection id'(002).
perform fill_cell using 1 3 1 200 'City from'(003).
perform fill_cell using 1 4 1 200 'City to'(004).
perform fill_cell using 1 5 1 200 'Dep. Time'(005).
loop at it_spfli.
* copy flights to active EXCEL sheet
    h = sy-tabix + 1.
    if it_spfli-carrid cs 'AA'.
      perform fill_cell using h 1 0 000255000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'AZ'.
      perform fill_cell using h 1 0 168000000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'JL'.
      perform fill_cell using h 1 0 168168000 it_spfli-carrid.
    elseif it_spfli-carrid cs 'LH'.
      perform fill_cell using h 1 0 111111111 it_spfli-carrid.
    elseif it_spfli-carrid cs 'SQ'.
      perform fill_cell using h 1 0 100100100 it_spfli-carrid.
    else.
      perform fill_cell using h 1 0 000145000 it_spfli-carrid.
    endif.
    if it_spfli-connid lt 400.
      perform fill_cell using h 2 0 255000255 it_spfli-connid.
    elseif it_spfli-connid lt 800.
      perform fill_cell using h 2 0 077099088 it_spfli-connid.
    else.
      perform fill_cell using h 2 0 246156138 it_spfli-connid.
    endif.
    if it_spfli-cityfrom cp 'S*'.
      perform fill_cell using h 3 0 155155155 it_spfli-cityfrom.
    elseif it_spfli-cityfrom cp 'N*'.
      perform fill_cell using h 3 0 189111222 it_spfli-cityfrom.
    else.
      perform fill_cell using h 3 0 111230222 it_spfli-cityfrom.
    endif.
    if it_spfli-cityto cp 'S*'.
      perform fill_cell using h 4 0 200200200 it_spfli-cityto.
    elseif it_spfli-cityto cp 'N*'.
      perform fill_cell using h 4 0 000111222 it_spfli-cityto.
    else.
      perform fill_cell using h 4 0 130230230 it_spfli-cityto.
    endif.
    if it_spfli-deptime lt '020000'.
      perform fill_cell using h 5 0 145145145 it_spfli-deptime.
    elseif it_spfli-deptime lt '120000' .
      perform fill_cell using h 5 0 015215205 it_spfli-deptime.
    elseif it_spfli-deptime lt '180000' .
      perform fill_cell using h 5 0 000215205 it_spfli-deptime.
    else.
      perform fill_cell using h 5 0 115115105 it_spfli-deptime.
    endif.
endloop.
* EXCEL FILENAME
CONCATENATE SY-REPID '_' SY-DATUM+6(2) '_' SY-DATUM+4(2) '_'
              SY-DATUM(4) '_' SY-UZEIT '.XLS' INTO FILENAME.
CALL METHOD OF H_MAP 'SAVEAS' EXPORTING #1 = FILENAME.
free object h_excel.
perform err_hdl.
*       FORM FILL_CELL                                                *
*       sets cell at coordinates i,j to value val boldtype bold       *
form fill_cell using i j bold col val.
call method of h_excel 'Cells' = h_zl
    exporting
      #1 = i
      #2 = j.
perform err_hdl.
set property of h_zl 'Value' = val .
perform err_hdl.
get property of h_zl 'Font' = h_f.
perform err_hdl.
set property of h_f 'Bold' = bold .
perform err_hdl.
set property of h_f 'Color' = col.
perform err_hdl.
endform.                    "FILL_CELL
*&      Form ERR_HDL
*       outputs OLE error if any                                       *
* --> p1        text
* <-- p2        text
form err_hdl.
if sy-subrc <> 0.
    write: / 'OLE-Automation Error:'(010), sy-subrc.
    stop.
endif.
endform.                    " ERR_HDL

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

Traffic light in Module Pool screen

How to display traffic light in a module pool screen

To display a traffic light in a screen, put a icon/ i/o field (display only) on the screen.
Say my screen has an icon element ICON_GREEN_LIGHT
Now in my Top include create a data elemnt like
Data:ICON_GREEN_LIGHT(4) type c.
and in PBO assign the value as:
ICON_GREEN_LIGHT = '@08@'." Green light; positive
Check type-group ICON for the 4 char string

How to display image and data in module pool screen?

Similar Messages

Maybe you are looking for