ALV Report : How to display popup window?

Hello Friends,
I have developed oone ALV report using classes.
When i hit a button, I want to display one pop window which gives me my internal table details and one more button in this popup window.
Is it possible to call pop window with ALV using classes??
Regards
RH

Use the following Methods:
    METHODS: lmt_toolbar FOR EVENT toolbar OF cl_gui_alv_grid
                                   IMPORTING e_object
                                        e_interactive,
** Method for User Command
             lmt_command FOR EVENT user_command OF cl_gui_alv_grid
                                   IMPORTING e_ucomm,
FORM sub_create_toolbar USING uw_object
                              TYPE REF TO cl_alv_event_toolbar_set
                              uw_interactive TYPE char01.
DATA: lw_stb_button TYPE stb_button.
FIELD-SYMBOLS: <l_button> TYPE stb_button.
** Fill in the toolbar Button
lw_stb_button-function = 'IFLU'.
lw_stb_button-icon      = icon_te_receipts.
lw_stb_button-quickinfo = text-b01.
lw_stb_button-text      = text-b01.
INSERT lw_stb_button INTO uw_object->mt_toolbar INDEX 3.
READ TABLE uw_object->mt_toolbar ASSIGNING <l_button> INDEX 1.
IF sy-subrc = 0.
    <l_button>-butn_type = 1.
ENDIF.
ENDFORM.                    " sub_create_toolbar
FORM sub_access_command USING uw_ucomm TYPE sy-ucomm.
DATA: lt_row   TYPE lvc_t_row,
        lt_rowid TYPE lvc_t_roid,
        lw_count TYPE lvc_index.
FIELD-SYMBOLS: <l_row> TYPE lvc_s_row.
** Get the Selected row to be displayed
CALL METHOD gw_grid->get_selected_rows
IMPORTING
    et_index_rows = lt_row
    et_row_no     = lt_rowid.
** User Command
CASE uw_ucomm.
    WHEN 'IFLU'.
** Read the index from which the Document Flow was selected
      READ TABLE lt_row ASSIGNING <l_row> INDEX 1.
      IF sy-subrc = 0.
        PERFORM sub_get_detail USING <l_row>-index.
      ENDIF.
    WHEN c_detail1.
** Call the screen or the Function Module here to display the popup.
      PERFORM sub_show_detail USING abap_false.
    WHEN c_detail2.
      PERFORM sub_show_detail USING abap_true.
ENDCASE.
ENDFORM.                    " sub_access_command
Hope That Helps
Anirban M.

Similar Messages

ALV report -How to display list contains no data?

Hi Experts,
I have developed an drill down alv report ? I like to display if 'List contains no data ' or 'No data to display' in Grid itself when there is no data to dissplay instead of an Message ?how can i do that?

hi
u should have used this command before calling your grid or list
if gt_itab[] is not initial. --> comment this
call function reuse or call method
endif.
assuming you have given a top of page for your grid output
if helpful, reward
Sathish. R

ALV Report how to display from and to date values in the header.

I develoeped alv report . i want to display selection screen from and to date values in top of page...
any sample code pls guide me..

You have to do many things...
first find the selection details using the FM.
RS_REFRESH_FROM_SELECTOPTIONS
use the Blog to Align/populate the Header from the selection table
/people/community.user/blog/2007/05/07/alignment-of-data-in-top-of-page-in-alv-grid

Hi, coding to display popup window after first alv grid display

hi
can anybody please send coding to display popup window after first alv grid display i.e. first the prog shows grid display and from grid display the user select the field and on the basis of field value i need to show pop up window in the first secondary window and then third popup window.
thanx
rocky

Hi rocky,
here is the sample code .hope this helps you.
TYPE-POOLS : SLIS.
DATA : GT_OUTTAB TYPE VBAK OCCURS 0,
       GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,
       GS_SELFIELD TYPE SLIS_SELFIELD.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA : ITAB TYPE TABLE OF SLIS_SELFIELD,
       WA_ITAB LIKE LINE OF ITAB.
START-OF-SELECTION.
PERFORM POPULATE_GT_OUTTAB.
PERFORM GET_POPUP.
PERFORM POPULATE_ITAB.
PERFORM FIELDCAT.
PERFORM DISPLAY_DETAILS.
*&      Form FIELDCAT
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
LOOP AT ITAB INTO WA_ITAB.
WA_FIELDCAT-FIELDNAME = 'TABINDEX'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 1.
WA_FIELDCAT-SELTEXT_L = 'TABLE INDEX'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'SEL_TAB_FIELD'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 2.
WA_FIELDCAT-OUTPUTLEN = 20.
WA_FIELDCAT-SELTEXT_L = 'FIELD NAME'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
WA_FIELDCAT-FIELDNAME = 'VALUE'.
WA_FIELDCAT-TABNAME = 'WA_ITAB'.
WA_FIELDCAT-COL_POS = 3.
WA_FIELDCAT-SELTEXT_L = 'FIELD VALUE'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDLOOP.
ENDFORM.                    " FIELDCAT
*&      Form POPULATE_GT_OUTTAB
      text
--> p1        text
<-- p2        text
FORM POPULATE_GT_OUTTAB .
SELECT * FROM VBAK
       UP TO 10 ROWS
       INTO TABLE GT_OUTTAB.
ENDFORM.                    " POPULATE_GT_OUTTAB
*&      Form GET_POPUP
      text
--> p1        text
<-- p2        text
FORM GET_POPUP .
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
   I_TITLE                       = 'SALES ORDER'
I_SELECTION                   = 'X'
I_ALLOW_NO_SELECTION          =
   I_ZEBRA                       = 'X'
I_SCREEN_START_COLUMN         = 0
I_SCREEN_START_LINE           = 0
I_SCREEN_END_COLUMN           = 0
I_SCREEN_END_LINE             = 0
I_CHECKBOX_FIELDNAME          =
I_LINEMARK_FIELDNAME          =
I_SCROLL_TO_SEL_LINE          = 'X'
    I_TABNAME                     = 'SALES ORDER'
    I_STRUCTURE_NAME              = 'VBAK'
IT_FIELDCAT                   =
IT_EXCLUDING                  =
I_CALLBACK_PROGRAM            =
I_CALLBACK_USER_COMMAND       =
   IS_PRIVATE                    = GS_PRIVATE
IMPORTING
   ES_SELFIELD                   = GS_SELFIELD
E_EXIT                        = G_EXIT
TABLES
    T_OUTTAB                      = GT_OUTTAB
EXCEPTIONS
   PROGRAM_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.
ENDFORM.                    " GET_POPUP
*&      Form POPULATE_ITAB
      text
--> p1        text
<-- p2        text
FORM POPULATE_ITAB .
WA_ITAB-TABNAME = GS_SELFIELD-TABNAME.
WA_ITAB-TABINDEX = GS_SELFIELD-TABINDEX.
WA_ITAB-SEL_TAB_FIELD = GS_SELFIELD-SEL_TAB_FIELD.
WA_ITAB-VALUE = GS_SELFIELD-VALUE.
APPEND WA_ITAB TO ITAB.
ENDFORM.                    " POPULATE_ITAB
*&      Form DISPLAY_DETAILS
      text
--> p1        text
<-- p2        text
FORM DISPLAY_DETAILS .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
I_CALLBACK_PROGRAM             = ' '
I_CALLBACK_PF_STATUS_SET       = ' '
I_CALLBACK_USER_COMMAND        = ' '
I_STRUCTURE_NAME               =
IS_LAYOUT                      =
   IT_FIELDCAT                    = IT_FIELDCAT
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_DEFAULT                      = 'X'
I_SAVE                         = ' '
IS_VARIANT                     =
IT_EVENTS                      =
IT_EVENT_EXIT                  =
IS_PRINT                       =
IS_REPREP_ID                   =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
TABLES
    T_OUTTAB                       = ITAB
EXCEPTIONS
   PROGRAM_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.
ENDFORM.                    " DISPLAY_DETAILS
award points if helpful.
regards,
deepthi reddy

Check boxes in ALV Report how to do ?

ALV report how to keep check box in the first field?
thanks in advance..
chalapathi

hi,
    Check this small code.. U will get clear idea.
Report.
data : begin of it occurs 0,
        MATNR TYPE MATNR,
        c1 ,                  " CHECK BOX FIELDS
        c2,
        end of it.
type-pools : slis.
data itlog type slis_t_fieldcat_alv.
data walog type slis_fieldcat_alv.
SELECT MATNR
FROM MARA
INTO TABLE IT .
****INSERTING CHECKBOX IN CHANGE MODE
WALOG-FIELDNAME = 'C1'.
WALOG-TABNAME = 'IT'.
WALOG-SELTEXT_M = 'CHECKBOX1'.
walog-CHECKBOX = 'X'.
WALOG-EDIT = 'X'.
APPEND WALOG TO ITLOG.
****INSERTING CHECKBOX IN DISPLAY MODE
WALOG-FIELDNAME = 'C2'.
WALOG-TABNAME = 'IT'.
WALOG-SELTEXT_M = 'CHECKBOX2'.
walog-CHECKBOX = 'X'.
WALOG-EDIT = ''.
APPEND WALOG TO ITLOG.
WALOG-FIELDNAME = 'MATNR'.
WALOG-TABNAME = 'IT'.
WALOG-SELTEXT_M = 'MATERIAL'.
walog-CHECKBOX = ''.
WALOG-EDIT = 'X'.
WALOG-NO_ZERO = 'X'.              " LEFT ZEROS WILL CUT
APPEND WALOG TO ITLOG.
*WALOG-FIELDNAME = 'ICON'.
*WALOG-TABNAME = 'IT'.
*WALOG-SELTEXT_M = 'ICON'.               "IN FIELDCATALOG ADDING THAT ICON
*walog-ICON = 'X'.
*walog-just = 'R'.                   " RIGHT JUSTIFICATION OR LEFT
**WALOG-EDIT = ''.
*APPEND WALOG TO ITLOG.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = 'ZALV_SIMPLE1'
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = ' '
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
   IT_FIELDCAT                       =   ITLOG
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
IT_EVENTS                         =
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
I_HTML_HEIGHT_TOP                 =
I_HTML_HEIGHT_END                 =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
TABLES
    T_OUTTAB                          = IT
EXCEPTIONS
PROGRAM_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.
Thanks and Regards,
surya

How to show Popup window in OAF on click of a button

How to show Popup window in OAF on click of a button (Without using Javascript)
1. I have one OAF page on which i should have button Called "Next"
2. On clicking of this button a new window/page should be displayed with the image stored in database. on clicking on this "Next" button again next image from the database should be displayed on the newly opened window/page.
3. Is it possible to configure OAF to render window_II in the opposite screen of window_I where the OAF client resides? (If the OAF-client resides in screen_I render window with image in screen_II). That is, at the first click on the Next-button, window_II appers on screen_II and not some random location. The user will have 2 screen/monitors on his work place.
4. Given that the two windows reside on each screen, is it possible to make OAF remember the position of window_II ? The goal of this is to force the window to pop up on the same location on the same screen next time the Next-button is pressed.
5. If window_II is closed (eg. by using X) and the Next-button in window_I is pressed again, will window_II pop up in the same location and screen as previously ?
6. Is it possible to have a Print-button in window_I what prints the scanned picture in window_II ? Is it possible to have the click on this Print-button to open the standard print dialog on top of window_II ? Could the button be placed in window_II as well, having the same functionality ?

I have tried to open home page window. You can change the URL according to your requirement.
import oracle.apps.fnd.framework.webui.OAUrl;
StringBuffer l_buffer = new StringBuffer();
l_buffer.append("javascript:mywin = openWindow(top, '");
String url = "/OA_HTML/OA.jsp?OAFunc=OAHOMEPAGE"; // Calling Oracle Home Page
OAUrl popupUrl = new OAUrl(url, OAWebBeanConstants.ADD_BREAD_CRUMB_SAVE );
String strUrl = popupUrl.createURL(pageContext);
l_buffer.append(strUrl.toString());
l_buffer.append("', 'lovWindow', {width:750, height:550},false,'dialog',null);");
pageContext.putJavaScriptFunction("SomeName",l_buffer.toString());
Above code will open the new page in new window.
Thanks
--Anil

In ALV reports how can we capture separate data in 3 internal table

HI
In ALV reports how can we capture data in 3 Internal tables and combine them in another internal table to display........

Hello Sudhanshu
Another option would be to display all three itabs together which is a piece of cake using OO-based ALV lists. Please refer to thread
Re: Alv
for a sample report.
Regards
Uwe

To change the colour of the particular cell of ALV report in Grid display.

Hai Friends,
                  I have created an Alv report in grid display .In that i want to change the colour of the particular cell.Plz provide the answer with a solved example.
         Thank u.

This works for a Custom Control and OO ALV in a Dialog Module
TABLES: kna1.
* Data (for the ALV Grid)
TYPES:
BEGIN OF t_alv_data,
    cust_id    TYPE kunnr,        "Customer Number
    cust_name TYPE name1_gp,     "Customer Name
    cust_color TYPE i,
*   cell coloring field
    color     TYPE lvc_t_scol,   "Cell coloring
END OF t_alv_data.
DATA:
v_alv_data TYPE t_alv_data,
i_alv_data TYPE STANDARD TABLE OF t_alv_data.
* ALV grid containers and objects
DATA:
o_alv_grid TYPE REF TO cl_gui_alv_grid,
o_alv_cont TYPE REF TO cl_gui_custom_container.
* ALV field catalog
DATA:
i_alv_fc TYPE lvc_t_fcat,
v_alv_fc LIKE lvc_s_fcat.
* ALV Layout (colors)
DATA:
v_alv_layout TYPE lvc_s_layo,
i_alv_color TYPE lvc_t_scol,
v_alv_color TYPE lvc_s_scol,
v_alv_color_cell TYPE lvc_s_colo.
* ALV variant
DATA:
v_alv_variant TYPE disvariant.
PARAMETERS:
p_alvvar TYPE disvariant-variant DEFAULT 'DEFAULT'.
DATA: ok_code LIKE sy-ucomm.
* Class for event handling
*       CLASS lcl_event_receiver DEFINITION
* [+] Event listener for the ALV grid
* [+] Handles hotspots and data changes
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
    METHODS:
*     Hotspot clicking
      hotspot_click
           FOR EVENT hotspot_click OF cl_gui_alv_grid
             IMPORTING e_row_id
                       e_column_id
                       es_row_no,
*     Data changed (such as checkbox clicking)
      handle_data_changed
        FOR EVENT data_changed OF cl_gui_alv_grid
            IMPORTING er_data_changed.
ENDCLASS.                    "lcl_event_receiver DEFINITION
*       CLASS lcl_event_receiver IMPLEMENTATION
* [+] Implementation of the ALV Grid event handler class
CLASS lcl_event_receiver IMPLEMENTATION.
*       METHOD hotspot_click                                          *
* [+] Calls evvent_hotspot_click when a hotspot is clicked in the ALV
METHOD hotspot_click.
    PERFORM event_hotspot_click
                  USING e_row_id
                        e_column_id.
ENDMETHOD.                    "hotspot_click
*       METHOD handle_data_changed                                    *
* [+] Updates the source data when the data in the ALV display has
* been changed, such as by clicking a checkbox.
METHOD handle_data_changed.
    DATA: lv_changed TYPE lvc_s_modi.
    LOOP AT er_data_changed->mt_good_cells INTO lv_changed
      WHERE fieldname = 'CUST_NAME'.
      READ TABLE i_alv_data INTO v_alv_data INDEX lv_changed-row_id.
      IF sy-subrc = 0.
        MOVE lv_changed-value TO v_alv_data-cust_name.
        MODIFY i_alv_data FROM v_alv_data INDEX lv_changed-row_id.
      ENDIF.
    ENDLOOP.
ENDMETHOD.                    "handle_data_changed
ENDCLASS.                    "lcl_event_receiver IMPLEMENTATION
* Reference to the event listener class
DATA: event_receiver TYPE REF TO lcl_event_receiver.
*       FORM build_event_listener
* [+] Set the event handler on the ALV Grid
FORM build_event_listener.
* Assigning the event listener to the ALV
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_data_changed FOR o_alv_grid.
SET HANDLER event_receiver->hotspot_click       FOR o_alv_grid.
ENDFORM.                    "build_event_listener
*       AT SELECTION-SCREEN
*         ON VALUE-REQUEST FOR p_alvvar
* [+] Calls choose_alv_variant to ask the user to select an alv grid
*     layout variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_alvvar.
PERFORM choose_alv_variant
    CHANGING
      p_alvvar
      v_alv_variant.
*       START_OF_SELECTION
START-OF-SELECTION.
PERFORM get_data.
SET PF-STATUS 'ALVSCREEN' IMMEDIATELY.
CALL SCREEN 2000.
*       FORM get_data
* [+] Gets the data for the ALV grid
FORM get_data.
SELECT kunnr name1
    INTO (v_alv_data-cust_id,
          v_alv_data-cust_name)
    FROM kna1.
    APPEND v_alv_data TO i_alv_data.
ENDSELECT.
ENDFORM.                    "get_data
*       MODULE build_alv_grid
*   THIS SHOULD BE IN THE "PROCESS BEFORE OUTPUT" OF THE ALV SCREEN
* [+] Builds the ALV Grid objects
* [+] Calls to build the field catalog table
* [+] Loads the field catalog table into the ALV Grid
* [+] Loads the table data into the ALV Grid
MODULE build_alv_grid OUTPUT.
SET TITLEBAR '2000'.
* Also enables layout saving
PERFORM set_alv_variant
    USING
      p_alvvar
    CHANGING
      v_alv_variant.
* Building the grid and container on the screen
* NOTE: the container name MUST be upper-case
* Also, we don't want the objects to be created if in batch mode!
IF sy-batch IS INITIAL.
    CREATE OBJECT o_alv_cont
      EXPORTING
        container_name = 'O_ALV_TABLE'.
ENDIF.
CREATE OBJECT o_alv_grid
    EXPORTING
      i_parent = o_alv_cont.
* builds the event listener
PERFORM build_event_listener.
* Color the cells
PERFORM color_cells.
* Build the field catalog
PERFORM build_alv_fc.
* Loads the data into the grid
CALL METHOD o_alv_grid->set_table_for_first_display
    EXPORTING
      i_save          = 'A'
      i_default       = 'X'
      is_variant      = v_alv_variant
      is_layout       = v_alv_layout
    CHANGING
      it_outtab       = i_alv_data
      it_fieldcatalog = i_alv_fc.
ENDMODULE.                    "build_alv_grid OUTPUT
*       FORM build_alv_fc
* [+] Constructs the ALV Grid field catalog table
FORM build_alv_fc.
CLEAR i_alv_fc.
REFRESH i_alv_fc.
* NOTE: the field name MUST be upper-case
*                   field       heading         hide hot
*                   name                        zero spot just
PERFORM:
    alv_field USING 'CUST_ID'    'Cust ID'        ' ' 'X' 'R',
    alv_field USING 'CUST_NAME' 'Customer Name' ' ' ' ' 'L',
    alv_field USING 'CUST_COLOR' 'Color'          ' ' ' ' 'R'.
ENDFORM.                    "build_alv_fc
*       FORM alv_field
* [+] Describes and constructs a single field for the ALV Grid field
*     catalog. The field length and type are both obtained from the
*     actual field passed in to this method.
* [+] Adds the constructed field to the ALV Grid field catalog table
FORM alv_field
USING
    p_field_name TYPE c
    p_heading    TYPE c
    p_hide_zeros TYPE c
    p_hotspot    TYPE c
    p_justify    TYPE c.
CLEAR v_alv_fc.
DATA:
    lv_type(1) TYPE c,
    lv_length TYPE i,
    lv_heading_length TYPE i.
* get the type and length of this field
FIELD-SYMBOLS <field>.
ASSIGN p_field_name TO <field>.
DESCRIBE FIELD <field> TYPE lv_type OUTPUT-LENGTH lv_length.
* re-adjust the length to the length of the header, if too short
lv_heading_length = strlen( p_heading ).
IF lv_length < lv_heading_length.
    lv_length = lv_heading_length.
ENDIF.
* NOTE: the field name MUST be upper-case
v_alv_fc-fieldname = p_field_name.
TRANSLATE v_alv_fc-fieldname TO UPPER CASE.
v_alv_fc-inttype   = lv_type.
v_alv_fc-outputlen = lv_length.
v_alv_fc-coltext   = p_heading.
v_alv_fc-seltext   = p_heading.
v_alv_fc-hotspot   = p_hotspot.
* Determining which fields should show zeros
IF p_hide_zeros = 'X'.
    v_alv_fc-no_zero = 'X'.
    v_alv_fc-lzero   = ' '.
ELSE.
    v_alv_fc-no_zero = ' '.
    v_alv_fc-lzero   = 'X'.
ENDIF.
v_alv_fc-just = p_justify.
* Add the field to the field catalog
APPEND v_alv_fc TO i_alv_fc.
ENDFORM.                    "alv_field
*       FORM choose_alv_variant
* [+] Shows a popup that allows the user to choose the layout variant
*     for the alv grid of the current program
* [+] Usually called by an AT SELECTION-SCREEN method.
FORM choose_alv_variant
CHANGING
    p_variant_name TYPE disvariant-variant
    p_variant      TYPE disvariant.
CLEAR p_variant.
DATA:
    p_exit_check(1) TYPE c.
MOVE sy-repid TO p_variant-report.
CALL FUNCTION 'LVC_VARIANT_F4'
       EXPORTING
            is_variant = p_variant
            i_save     = 'A'
       IMPORTING
            e_exit     = p_exit_check
            es_variant = p_variant
       EXCEPTIONS
            not_found = 1
            OTHERS     = 99.
IF sy-subrc = 0.
    IF p_exit_check <> 'X'.
      p_variant_name = p_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    "choose_alv_variant
*       FORM set_alv_variant
* [+] Sets the alv grid layout variant. Used for setting the variant
*     when its name is entered in a parameter rather than by using the
*     popup, or when loading the variant from a variable of type C
FORM set_alv_variant
USING
    p_variant_name TYPE disvariant-variant
CHANGING
    p_variant      TYPE disvariant.
MOVE sy-repid TO p_variant-report.
p_variant-variant = p_variant_name.
ENDFORM.                    "set_alv_variant
*       FORM color_cells
* [+] Loop through the data and apply coloring
FORM color_cells.
DATA:
    my_color TYPE i.
* tell the ALV grid what field in v_alv_data contains color information
v_alv_layout-ctab_fname = 'COLOR'.
my_color = 0.
* loop through each row of the table
LOOP AT i_alv_data INTO v_alv_data.
*   clear the variables
    CLEAR:
      v_alv_color,
      v_alv_color_cell,
      i_alv_color.
    REFRESH:
      i_alv_color.
    v_alv_data-cust_color = my_color.
    PERFORM color_cell USING 'CUST_COLOR' my_color. "negative
*   apply the colors
*    IF v_alv_data-cust_name = 'Testing Credit'.
*      PERFORM color_cell USING 'CUST_NAME' 6. "negative
*    ELSEIF v_alv_data-cust_name = 'Goober Goober Also'.
*      PERFORM color_cell USING 'CUST_NAME' 5. "positive
*    ENDIF.
*   set the color data for this table row
    v_alv_data-color = i_alv_color.
    MODIFY i_alv_data FROM v_alv_data.
    my_color = my_color + 1.
    IF my_color GT 7.
      CLEAR my_color.
    ENDIF.
ENDLOOP.
ENDFORM.                    "color_cells
*       FORM color_cell
* [+] Colors a cell in the ALV grid
FORM color_cell
USING
    p_cellname TYPE c
    p_color    TYPE i.
CLEAR:
    v_alv_color_cell,
    v_alv_color.
* set the color for the cell
* IF p_color = 0.
*    v_alv_color_cell-col = 0. "cl_gui_resources=>list_col_background.
* ELSEIF p_color = 1.
*    v_alv_color_cell-col = 1. "cl_gui_resources=>list_col_heading.
* ELSEIF p_color = 2.
*    v_alv_color_cell-col = 2. "cl_gui_resources=>list_col_normal.
* ELSEIF p_color = 3.
*    v_alv_color_cell-col = 3. "cl_gui_resources=>list_col_total.
* ELSEIF p_color = 4.
*    v_alv_color_cell-col = 4. "cl_gui_resources=>list_col_key.
* ELSEIF p_color = 5.
*    v_alv_color_cell-col = 5. "cl_gui_resources=>list_col_positive.
* ELSEIF p_color = 6.
*    v_alv_color_cell-col = 6. "cl_gui_resources=>list_col_negative.
* ELSEIF p_color = 7.
*    v_alv_color_cell-col = 7. "cl_gui_resources=>list_col_group.
* ENDIF.
v_alv_color_cell-col = p_color.
v_alv_color-nokeycol = 'X'.
v_alv_color-fname = p_cellname.
* v_alv_color-color = p_color.
v_alv_color-color = v_alv_color_cell.
APPEND v_alv_color TO i_alv_color.
ENDFORM.                    "color_cell
*       FORM event_hotspot_click
* [+] What to do when clicking on a hotspot in the ALV Grid
FORM event_hotspot_click
USING
    p_row    TYPE lvc_s_row
    p_column TYPE lvc_s_col.
DATA:
    lv_docnum TYPE kunnr.
READ TABLE i_alv_data INTO v_alv_data INDEX p_row-index.
IF p_column = 'CUST_ID'.
*   call a transaction when the cust_id is clicked
    SET PARAMETER ID 'AUN' FIELD v_alv_data-cust_id.
    CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
ENDIF.
ENDFORM.                    "event_hotspot_click
*&      Module USER_COMMAND_2000 INPUT
*       text
MODULE user_command_2000 INPUT.
CASE ok_code.
    WHEN 'BACK'
      OR 'STOP'
      OR 'CANCEL'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_2000 INPUT

In ALV reports how double click event works?

in ALV reports how double click event works? Explain in detail.....

hi,
last lines is used for clicking
*& Report Z_SWAS_FUNCTIONAL
report z_swas_functional.
tables: qmel,viqmel,iloa,afko.
-- global data declerations--
data: ok_code like sy-ucomm,
      gt_itab type table of zfunctional,
      t_output type table of zfunctional,
      g_container type scrfname value 'CUSTOM_CONTROL',
      grid1 type ref to cl_gui_alv_grid,
      g_custom_container type ref to cl_gui_custom_container,
      e_row type lvc_s_row,
      e_column type lvc_s_col,
      es_row_no type lvc_s_roid.
*CLASS DECLARATION
class z_functional definition.
public section.
class-methods : handle_double_click
                for event double_click of cl_gui_alv_grid
                     importing e_row e_column.
endclass.
*CLASS IMPLEMENTATION
class z_functional implementation.
method handle_double_click.
       perform handle_double_click using e_row e_column es_row_no.
endmethod.
endclass.
*CODE FOR SELECTION SCREEN
selection-screen begin of block 84433 with frame title text-t01.
parameters : n_number like viqmel-qmnum,
                n_type like qmel-qmart,
                f_loca like iloa-tplnr,
                name like qmel-qmnam.
selection-screen end of block 84433.
                    screen validation event                          *
at selection-screen on n_number.
select single *
    from viqmel
      where qmnum eq n_number.
if sy-subrc ne 0.
MESSAGE 'NOTIFICATION NUMBER DOESNOT EXIST' TYPE 'E'.
endif.
select qmart from qmel into qmel where qmart eq N_TYPE.
endselect.
if sy-subrc ne 0.
MESSAGE 'NOTIFICATION TYPE DOES NOT EXIST' TYPE 'E'.
endif.
*START OF SELECTION EVENT
start-of-selection.
    perform fetchdata.
end-of-selection.
*Call screen event
call screen 100.
*PERFORM DISPLAY.
*&      Form FETCHDATA
      text
--> p1        text
<-- p2        text
form fetchdata .
*SELECT VIQMEL~QMNUM VIQMEL~QMTXT VIQMEL~QMDAT VIQMEL~LTRMN VIQMEL~PRIOK
      VIQMELBEZDT VIQMELAUFNR VIQMELTPLNR AFKOGLTRP into corresponding fields of table GT_ITAB
         FROM VIQMEL INNER JOIN AFKO ON VIQMELAUFNR = AFKOAUFNR
               WHERE VIQMELQMNUM IN N_NUMBER and VIQMELQMART IN N_TYPE AND VIQMEL~QMNAM IN NAME.
call function 'ZSWAS_TEST'
exporting
    qmnum         = n_number
   qmart         = n_type
   tplnr         = f_loca
   qmnam         = name
tables
    output        = gt_itab
if sy-subrc ne 0.
   message e000(z84433_msg_class).
endif.
endform.                    " FETCHDATA
*&      Module STATUS_0100 OUTPUT
      text
module status_0100 output.
set pf-status 'MAIN'.
SET TITLEBAR 'xxx'.
*creating custom container and grid instance
if g_custom_container is initial.
    create object g_custom_container
           exporting container_name = g_container.
    create object grid1
           exporting i_parent = g_custom_container.
    call method grid1->set_table_for_first_display
      exporting
        i_structure_name = 'ZFUNCTIONAL'
      changing
        it_outtab        = gt_itab.
*set handler events
    set handler z_functional=>handle_double_click for grid1.
endif.
endmodule.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
      text
module user_command_0100 input.
case ok_code.
   when 'EXIT'.
    perform exit_program.
endcase.
clear ok_code.
endmodule.                 " USER_COMMAND_0100 INPUT
*&      Form EXIT_PROGRAM
      text
--> p1        text
<-- p2        text
form exit_program .
leave program.
endform.                    " EXIT_PROGRAM
*&      Form handle_double_click
      text
     -->P_E_ROW text
     -->P_E_COLUMN text
     -->P_ES_ROW_NO text
form handle_double_click using   e_row type lvc_s_row
                                  e_column type lvc_s_col
                                  es_row_no type lvc_s_roid.
data: t_output type zfunctional.
    read table gt_itab into t_output index e_row-index .
if sy-subrc = 0 and e_column-fieldname eq 'QMNUM'.
    set parameter id 'K01' field t_output-qmnum.
    call transaction 'ZSMART' and skip first screen .
endif.
endform.                    " handle_double_click
regards,
swaroop.

Display popup window when closing "X" web browser

Hi All - how I can display a popup window when user press "X" from web browser.
I know how to create popups windows but where I can code the popup window when the user close the browser?
e.g. I press at the top right the web browser "X" to close the browser, how I can display a popup asking if they want to SAVE the data before closing the browser.
thanks!
-Jason PV

Hi Manas,
are you sure?
If you close the browser window - even if you have set the portal work protect mode, set the app as dirty and running the app in the portal - the windows closes without any complaint.
If you were in the portal and tried to navigate away from the page, that would be a different thing - but a browser close is just that. You can capture the onUnload event of the browser window (not in WD - but JS) but you have no way of detecting that it is not just a page refresh.
Do a search for "intercepting browser close events" via google etc, to see just how tricky to build a solution would be.
So I'd say - no ability to stop browser close events - or to react to them - but yes to portal navigation type event within the portal. And further to that - I'd suggest using the FPM work protect mode interface to help you take advantage of the Portal work protection.
Cheers,

How to display another window by using Check box

Hi Friends,
I have one doubt in Webdynpro with java. How to display another window by using Check box?
For Exam My requirement is I am getting BAPI from ECC System. So I have to go given input details in first view and output details in Second View. So in Second View I will taken Table that data will displayed in rows. each and every row first check box is available.
Here Select Check Box of particular row then click Edit button. That row data will be displayed in one popup window.
empid, name, sal ,firstname, last Name
empid, name, sal ,firstname, last Name
empid, name, sal ,firstname, last Name
Suppose I have to select check box in First Row Click on EDIT button That row data will be displayed in another popup window here customer will change details depending up requirement click on SAVE Button that update data will saved in ECC System.
How to display another window by using Check box?
Regards
Vijay

Hi Vijay
Your question is not clear enough to give an answer. Do you have some difficulties with the code for opening a popup-window? There are many-many examples in the forum how to open/close a popup.
Or you do not know how to bind the popup opening with clicking a check box? Just put the code in the onSelect event handler of the check box.
BR, Siarhei
Edited by: Siarhei Pisarenka on Mar 11, 2010 10:55 AM

In alv report , how to reserve 20 lines from beginning of page

hi experts
in alv report , how to reserve 20 lines from beginning of page.
regards
subhasis.

If by reserve you mean should not move on scrolling then make them KEY from fieldcatalog.
But I think maximum of 10-12 can be handled by that.
Regards,
Amit
Reward all helpful replies.

In an alv report how to get data in next and previous pages.

in my alv report i require the output such that
when i will press the next button in the application tool bar the alv report will be displayed for the next inventory document number in the next page. like wise previous
would anybody please help me out.
thanks and regards
papps

In your servlet you could set the arraylist into the HttpRequest object so that it is visible in the JSP you are forwarding to.
RegistrationDAO rdao=new RegistrationDAO();
ArrayList arr1=rdao.getsearchresults(af);
request.setAttribute("someArrayList",arr1);Then in the JSP you could use JSTL 1.1 and jsp:useBean tag to access the ArrayList like this
<%@ page contentType="text/html;charset=UTF-8" language="java" %>
<%@ taglib prefix="c" uri="http://java.sun.com/jsp/jstl/core" %>
<jsp:useBean id="someArrayList" class="java.util.ArrayList" scope="request"/>
<c:forEach var="currentRecord" items="${someArrayList}">
    Some property of the AddressForm object: ${currentRecord.propertyName} <br/>
    Another property of the AddessForm object : ${currentRecord.someOtherPropertyName} <br/>
    <hr/>
</c:forEach>I guess you are using struts, so instead of JSTL there might be some struts tags that do the same as above JSTL tags. You can research further on that.
If you can't use struts tags or JSTL tags then you could write it with JSP scriptlets (highly discouraged option).

To make different colours for the columns of ALV report in Grid display.

Hai Friends,
                   I have created an ALV report in grid display method by using the call function reuse_alv_grid_display.
I have obtained the report.In that report i want to change the colour of each column.Plz provide the answer with a sample program.
                Thank u.

hi i had a program for the rows with diff colors....do the same thing for the columns..
REPORT zdemo_alvgrid                 .
TABLES:     ekko.
type-pools: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) type c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
form build_fieldcatalog.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-col_pos     = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname =      'LINE_COLOR'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_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.
endform.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
data: ld_color(1) type c.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
*Populate field with color attributes
loop at it_ekko into wa_ekko.
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
if ld_color = 8.
    ld_color = 1.
endif.
concatenate 'C' ld_color '10' into wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
modify it_ekko from wa_ekko.
endloop.
endform.                    " DATA_RETRIEVAL
regards,
venkat

PPR Report ,How to display Label with TOTAl

Hi,
How Can i display PPR Report ,How to display Label with TOTAl like
[http://apex.oracle.com/pls/apex/f?p=267:30:]
Thanks
Edited by: 805629 on Jan 6, 2011 3:34 AM

Hi,
For PPR Report:
Select "Yes" in "Enable Partial Page Refresh" item of "Layout and Pagination" region in Report Attributes of that report.
For display Label with TOTAL:
Use "Break Formatting" region in Report Attributes of that report.
Regards,
Kartik Patel
http://patelkartik.blogspot.com/
http://apex.oracle.com/pls/apex/f?p=9904351712:1

ALV Report : How to display popup window?

Similar Messages

Maybe you are looking for