Clicking on any row in a record set

How can I click any where in a row and retrieve that records data in a report. I know how to highlight a row. Any help would be appreciated.
Thanks
Aron

Hi Scott,
I read your post. and I am able to go to another page when you click a row. that is fine. my real problem is i have a report say with 10 columns. so the user has to scroll all the way to the other side. when they are in the first column and select a particular row that is highlighted, but when they scroll that highlight disappears and they wont really know which row they were in when they selected the 1st column say.
<BR> so what the user wants is highlight the whole row so that they will be able to know on which row they are in even when they scroll. (this is actually like a LOV screen, but they really want to highlight the row they are in, and have the flexibility to highlight another row and scroll to the last column if they have to)
Thanks
Knut

Similar Messages

By which method,i can get the no of rows in the record set?

Does anyone help me that by which method,i can get the no of rows in the record set?
now i use next() to check whether the next record is available or not?

shashi_rajak wrote:
under Practice Exercise #1 heading :
there is a statement.
"Now, the COUNT function does not need to retrieve all of the fields from the table (ie: employee_number, employee_name, and salary), but rather whenever the condition is met, it will retrieve the numeric value of 1. Thus, increasing the performance of the SQL statement."And have you ever tried it? Or do you simply blindly believe everything you read? And what sort of "authority" is "tech on the net"?
P.S. A quick test on Oracle (and you must do each query at least twice throwing away the first result, as Oracle always caches things which will have an effect, and averaging the remaining attempts).
count(*) -- 1 min 17 secs for 35,311,978 rows
count(1) -- 1 min 19 secs for 35,311,978 rows
Edit: And the table has 46 columns.

Click on J button to display record set

How to write a code to click o j button to display record set of MS Access database

http://java.sun.com/docs/books/tutorial/jdbc/index.html
Create a class to perform DB related stuff and call in when the button is clicked. Your question is too generic. It would be better if ou asked a specific query.

When I click on any Bookmark, how do I set it to open in a new window by default?

Right clicking an icon in the Bookmarks Toolbar provides a drop down menu. That menu has "Open" as the Default and "Open in a New Window" as the second choice. I'd like to make "Open in a New Window" the Default. In other words, I'd like to be able to click on a Bookmark icon and open a new window. Is there a line in 'about:config' that I can change to accomplish this?

Go to Tools->Options->Apps
Here you should see two columns: Content Type on the left, Actions on the right.
Find and select excel spreadsheet or any other content type in the left column. There should be a corresponding action in the right column. What is it? You can use the drop-down list to select the option you want:
Always Ask - Firefox will ask each time: What do you want to do with this file?
Save file - Firefox will save this file to your computer
Use - Firefox will give this file to the program to open it
In case of saving, Firefox will either prompt you every time where you want the file to be saved, or save it to the default location. It depends on the preference in
Tools->Options->General->Download

Color a specific row in ALV GRID display when user clicks on that row

hi
i have the entire code ready of how to check the line selected by the user and also to color that line but after settings those parameters
for to refresh the GRID so that the row apppears coloured .plz reply soon.... points will be awarded.....
wat i have done is
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   i_callback_program                 = i_repid
   i_callback_user_command           = 'USER_COMMAND'
   is_layout                         = it_layout
   it_fieldcat                       = int_fieldcat
TABLES
       t_outtab                          = int
EXCEPTIONS
   program_error                     = 1
   OTHERS                            = 2.
to display the GRID then when user clicks on any row this module gets called
   FORM user_command USING r_ucomm TYPE sy-ucomm
                           rs_selfield TYPE slis_selfield.
     READ TABLE int INDEX rs_selfield-tabindex.
     int-rowcolor = 'C410'.
     MODIFY int INDEX rs_selfield-tabindex TRANSPORTING rowcolor.
     it_layout-info_fieldname = 'ROWCOLOR'.
then again i call 'REUSE_ALV_GRID_DISPLAY'
to display the GRID with the user selected line colored . the problem with this is when u go back from this screen u go to the previously displayed grid ....... whihc i dont want .....
   ENDFORM.                    "user_command

Hi,
By using following code,you can set the colors for each row,
Change this based on your requirement.
TABLES VBAK.
TYPE-POOLS SLIS.
Data Declaration
TYPES: BEGIN OF T_VBAK,
      VBELN TYPE VBAK-VBELN,
      ERDAT TYPE VBAK-ERDAT,
      ERNAM TYPE VBAK-ERNAM,
      AUDAT TYPE VBAK-AUDAT,
      VBTYP TYPE VBAK-VBTYP,
      NETWR TYPE VBAK-NETWR,
      VKORG TYPE VBAK-VKORG,
      VKGRP TYPE VBAK-VKGRP,
      LINE_COLOR(4) TYPE C,
      END OF T_VBAK.
DATA: IT_VBAK TYPE STANDARD TABLE OF T_VBAK INITIAL SIZE 0,
      WA_VBAK TYPE T_VBAK.
ALV Data Declaration
DATA: FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
      GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
      GD_REPID TYPE SY-REPID.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BLD_FLDCAT.
PERFORM BLD_LAYOUT.
PERFORM DISPLAY_ALV_REPORT.
Build Field Catalog for ALV Report
FORM BLD_FLDCAT.
FLDCAT-FIELDNAME = 'VBELN'.
FLDCAT-SELTEXT_M = 'Sales Document'.
FLDCAT-COL_POS = 0.
*FLDCAT-EMPHASIZE = 'C411'.
FLDCAT-OUTPUTLEN = 20.
FLDCAT-KEY = 'X'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'ERDAT'.
FLDCAT-SELTEXT_L = 'Record Date created'.
FLDCAT-COL_POS = 1.
FLDCAT-KEY = 'X'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'ERNAM'.
FLDCAT-SELTEXT_L = 'Cteated Object Person Name'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'AUDAT'.
FLDCAT-SELTEXT_M = 'Document Date'.
FLDCAT-COL_POS = 3.
FLDCAT-EMPHASIZE = 'C110'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'VBTYP'.
FLDCAT-SELTEXT_L = 'SD Document category'.
FLDCAT-COL_POS = 4.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'NETWR'.
FLDCAT-SELTEXT_L = 'Net Value of the SO in Document Currency'.
FLDCAT-COL_POS = 5.
FLDCAT-OUTPUTLEN = 60.
FLDCAT-DO_SUM = 'X'.
FLDCAT-DATATYPE = 'CURR'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'VKORG'.
FLDCAT-SELTEXT_L = 'Sales Organization'.
FLDCAT-COL_POS = 6.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
FLDCAT-FIELDNAME = 'VKGRP'.
FLDCAT-SELTEXT_M = 'Sales Group'.
FLDCAT-COL_POS = 7.
FLDCAT-EMPHASIZE = 'C801'.
APPEND FLDCAT TO FLDCAT.
CLEAR FLDCAT.
ENDFORM.
Build Layout for ALV Grid Report
FORM BLD_LAYOUT.
GD_LAYOUT-NO_INPUT = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
GD_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
GD_LAYOUT-WINDOW_TITLEBAR = 'GRID DISPLAY'.
GD_LAYOUT-CONFIRMATION_PROMPT = 'X'. This asks the confirmation before leaving the screen.
ENDFORM.
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
   I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
   I_GRID_TITLE                      = 'SALES DOCUMENT HEADER'
   IT_FIELDCAT                       = FLDCAT[]
   I_SAVE                            = 'X'
TABLES
    T_OUTTAB                          = IT_VBAK
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.
Retrieve data from VBAK table and populate itab IT_VBAK
FORM DATA_RETRIEVAL.
DATA LD_COLOR(1) TYPE C.
SELECT VBELN ERDAT ERNAM AUDAT VBTYP NETWR VKORG
UP TO 20 ROWS
FROM VBAK
INTO TABLE IT_VBAK.
LOOP AT IT_VBAK INTO WA_VBAK.
LD_COLOR = LD_COLOR + 1.
IF LD_COLOR = 8.
LD_COLOR = 1.
ENDIF.
CONCATENATE 'C' LD_COLOR '10' INTO WA_VBAK-LINE_COLOR.
MODIFY IT_VBAK FROM WA_VBAK.
ENDLOOP.
ENDFORM.
FORM TOP_OF_PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
      W_HEADER TYPE SLIS_LISTHEADER.
W_HEADER-TYP = 'H'.
W_HEADER-INFO = 'WELCOME HEADER LIST'.
APPEND W_HEADER TO T_HEADER.
W_HEADER-TYP = 'S'.
W_HEADER-KEY = 'REPORT:'.
W_HEADER-INFO = SY-REPID.
APPEND W_HEADER TO T_HEADER.
W_HEADER-TYP = 'S'.
W_HEADER-KEY = 'DATE:'.
CONCATENATE SY-DATUM6(2) ' / ' SY-DATUM4(2) ' / ' SY-DATUM(4) INTO W_HEADER-INFO.
APPEND W_HEADER TO T_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    IT_LIST_COMMENTARY       = T_HEADER
ENDFORM.
Reward points,if it is useful.
Thanks,
chandu.

ALV hot spot to open a transaction when clicked on a row

hi all
       can you please suggest me where i can get the best code for
       adding hotspot functionality in ALV display in which I have to open a
        related transaction as we click on any row of ALV.
Thanks in Advance.
Naval bhatt

try this code
*& Report ZBATCHNO21N                                                 *
REPORT ZBATCHNO21N LINE-SIZE 280    .
TABLES : CHVW,ZMMSE_BATCH,LFA1,MAKT,MARA.
tables : godynpro.
TYPE-POOLS : SLIS.
DATA : IMMSE LIKE ZMMSE_BATCH OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF ITAB OCCURS 0,
       CHARG LIKE CHVW-CHARG,
       MATNR LIKE CHVW-MATNR,
       LEVEL TYPE I,
       MACID LIKE ZMMSE_BATCH-MACID,
       LEGNO LIKE ZMMSE_BATCH-LEGNO,
       FEDID LIKE ZMMSE_BATCH-FEDID,
       MAKTX LIKE MAKT-MAKTX,
       PRDATE LIKE ZMMSE_BATCH-PRDATE,
       LICHA LIKE CHVW-LICHA,
       NAME1 LIKE LFA1-NAME1,
       LIFNR LIKE CHVW-LIFNR,
       MBLNR LIKE CHVW-MBLNR,
       BISMT LIKE MARA-BISMT,
       END OF ITAB.
DATA : LEVEL TYPE I VALUE 1.
DATA: PA_MATNR LIKE CHVW-MATNR,
      PA_CHARG1 LIKE CHVW-CHARG,
      PA_CHARG LIKE CHVW-CHARG,
      PA_MBLNR LIKE CHVW-MBLNR,
      CH_MATNR LIKE CHVW-MATNR.
DATA : TTABIX LIKE SY-TABIX.
DATA : V_CHARG LIKE CHVW-CHARG.
DATA : IFIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WFIELDCAT TYPE SLIS_FIELDCAT_ALV,
       ILAYOUT   TYPE SLIS_LAYOUT_ALV.
DATA : COUNTER TYPE I VALUE 1.
DATA : V_MBLNR LIKE CHVW-MBLNR.
SELECT-OPTIONS: MATNR FOR CHVW-MATNR OBLIGATORY NO INTERVALS NO-EXTENSION,
                CHARG1 FOR CHVW-CHARG OBLIGATORY NO INTERVALS NO-EXTENSION,
                WERKS FOR CHVW-WERKS OBLIGATORY NO INTERVALS NO-EXTENSION.
START-OF-SELECTION.
SELECT * FROM ZMMSE_BATCH INTO TABLE IMMSE WHERE ACHARG IN CHARG1 AND OMATNR IN MATNR.
SELECT SINGLE * FROM CHVW WHERE MATNR IN MATNR AND
                         CHARG IN CHARG1 AND WERKS IN WERKS AND
                         ( BWART EQ '131' OR BWART EQ '931' ).
    MOVE CHVW-MATNR TO PA_MATNR.
    MOVE CHVW-MATNR TO CH_MATNR.
    MOVE CHVW-CHARG TO PA_CHARG.
    MOVE CHVW-MBLNR TO PA_MBLNR.
    SELECT SINGLE BISMT FROM MARA INTO MARA-BISMT WHERE MATNR EQ PA_MATNR .
    SELECT SINGLE MAX( PRDATE ) INTO ZMMSE_BATCH-PRDATE FROM ZMMSE_BATCH
    WHERE OMATNR IN MATNR AND ACHARG IN CHARG1.
*    APPEND ITAB.
*ENDSELECT.
CLEAR : CHVW.
SELECT MBLNR CHARG MATNR INTO CORRESPONDING FIELDS OF ITAB FROM CHVW
                              WHERE MBLNR = PA_MBLNR AND BWART = '261'.
*READ TABLE IMMSE INDEX COUNTER.
*SELECT SINGLE MACID LEGNO FEDID PRDATE INTO CORRESPONDING FIELDS OF ITAB FROM ZMMSE_BATCH
*              WHERE IMATNR EQ ITAB-MATNR AND CHARG EQ ITAB-CHARG AND ACHARG EQ PA_CHARG
*              AND SBATCH = IMMSE-SBATCH.
*COUNTER = COUNTER + 1.
ITAB-LEVEL = 1.
APPEND ITAB.
ENDSELECT.
SORT ITAB BY MATNR CHARG.
SORT IMMSE BY IMATNR CHARG.
DATA : WTAB LIKE ITAB,
       TABIX LIKE SY-TABIX,
       WTAB1 LIKE ITAB.
LOOP AT ITAB.
TABIX = SY-TABIX.
MOVE-CORRESPONDING ITAB TO WTAB.
AT NEW MATNR.
LOOP AT IMMSE WHERE IMATNR = WTAB-MATNR AND CHARG = WTAB-CHARG.
WTAB-LEGNO = IMMSE-LEGNO.
WTAB-MACID = IMMSE-MACID.
WTAB-FEDID = IMMSE-FEDID.
WTAB-PRDATE = IMMSE-PRDATE.
MODIFY ITAB FROM WTAB INDEX TABIX.
TABIX = TABIX + 1.
READ TABLE ITAB INTO WTAB1 INDEX TABIX.
IF WTAB1-MATNR NE IMMSE-IMATNR.
EXIT.
ENDIF.
ENDLOOP.
ENDAT.
ENDLOOP.
LOOP AT ITAB.
*ITAB-LEVEL = LEVEL.
SELECT SINGLE MAKTX INTO ITAB-MAKTX FROM MAKT WHERE MATNR = ITAB-MATNR.
SELECT SINGLE LICHA LIFNR FROM CHVW INTO (ITAB-LICHA, ITAB-LIFNR) WHERE MATNR
             EQ ITAB-MATNR AND ( BWART EQ '105' OR BWART EQ '101' )
             AND CHARG EQ ITAB-CHARG.
IF ITAB-CHARG CP '2IN*'.
V_CHARG = ITAB-CHARG.
REPLACE FIRST OCCURRENCE OF '2IN' IN V_CHARG WITH '500' .
SELECT SINGLE LIFNR INTO ITAB-LIFNR FROM MSEG WHERE MBLNR = V_CHARG.
ENDIF.
SELECT SINGLE NAME1 INTO ITAB-NAME1 FROM LFA1 WHERE LIFNR = ITAB-LIFNR.
SELECT SINGLE MBLNR INTO ITAB-MBLNR FROM CHVW WHERE MATNR = ITAB-MATNR AND
                                             CHARG = ITAB-CHARG AND
                                             BWART IN ('101','105','561').
MODIFY ITAB.
TTABIX = SY-TABIX.
PERFORM GET_DATA.
ENDLOOP.
PERFORM BUILDFIELDCAT.
PERFORM BUILDLAYOUT.
PERFORM DISPLAYDATA.
*&      Form GET_DATA
*       text
* --> p1        text
* <-- p2        text
FORM GET_DATA .
SELECT SINGLE * FROM CHVW WHERE MATNR = ITAB-MATNR AND
                         CHARG EQ ITAB-CHARG AND WERKS IN WERKS AND
                         ( BWART EQ '131' OR BWART EQ '931' ).
IF SY-SUBRC = 0.
    MOVE CHVW-MATNR TO PA_MATNR.
    MOVE CHVW-MATNR TO CH_MATNR.
    MOVE CHVW-CHARG TO PA_CHARG.
    MOVE CHVW-MBLNR TO PA_MBLNR.
    ITAB-LEVEL = ITAB-LEVEL + 1.
SELECT MBLNR CHARG MATNR INTO CORRESPONDING FIELDS OF ITAB FROM CHVW
                              WHERE MBLNR = PA_MBLNR AND BWART = '261'.
SELECT SINGLE MACID LEGNO FEDID PRDATE INTO CORRESPONDING FIELDS OF ITAB FROM ZMMSE_BATCH
              WHERE IMATNR EQ ITAB-MATNR AND CHARG EQ ITAB-CHARG AND ACHARG EQ PA_CHARG.
TTABIX = TTABIX + 1.
INSERT ITAB INDEX TTABIX.
ENDSELECT.
ELSE.
EXIT.
ENDIF.
ENDFORM.                    " GET_DATA
*&      Form BUILDFIELDCAT
*       text
* --> p1        text
* <-- p2        text
FORM BUILDFIELDCAT .
WFIELDCAT-FIELDNAME = 'LEVEL'.
WFIELDCAT-COL_POS = 1.
WFIELDCAT-SELTEXT_L = 'Level'.
WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MACID'.
WFIELDCAT-COL_POS = 2.
WFIELDCAT-SELTEXT_L = 'Machine Id'.
*WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'LEGNO'.
WFIELDCAT-COL_POS = 3.
WFIELDCAT-SELTEXT_L = 'Legend No'.
*WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'FEDID'.
WFIELDCAT-COL_POS = 4.
WFIELDCAT-SELTEXT_L = 'Feeder Identification'.
*WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'CHARG'.
WFIELDCAT-COL_POS = 5.
WFIELDCAT-SELTEXT_L = 'Batch No'.
*WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-COL_POS = 6.
WFIELDCAT-SELTEXT_L = 'Part No'.
*WFIELDCAT-OUTPUTLEN = 5.
wfieldcat-key = 'X'.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MAKTX'.
WFIELDCAT-COL_POS = 7.
WFIELDCAT-SELTEXT_L = 'Part Name'.
*WFIELDCAT-OUTPUTLEN = 5.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'LICHA'.
WFIELDCAT-COL_POS = 8.
WFIELDCAT-SELTEXT_L = 'Supplier Lot No'.
*WFIELDCAT-OUTPUTLEN = 5.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'NAME1'.
WFIELDCAT-COL_POS = 9.
WFIELDCAT-SELTEXT_L = 'Supplier Name'.
*WFIELDCAT-OUTPUTLEN = 5.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'PRDATE'.
WFIELDCAT-COL_POS = 10.
WFIELDCAT-SELTEXT_L = 'Production Date & Time'.
*WFIELDCAT-OUTPUTLEN = 5.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MBLNR'.
WFIELDCAT-COL_POS = 11.
WFIELDCAT-SELTEXT_L = 'Material Document No'.
WFIELDCAT-HOTSPOT = 'X'.
WFIELDCAT-NO_OUT = 'X'.
**WFIELDCAT-OUTPUTLEN = 5.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
ENDFORM.                    " BUILDFIELDCAT
*&      Form BUILDLAYOUT
*       text
* --> p1        text
* <-- p2        text
FORM BUILDLAYOUT .
ILAYOUT-ZEBRA = 'X'.
ILAYOUT-COLWIDTH_OPTIMIZE = 'X'.
*ILAYOUT-F2CODE = '&IC1'.
ENDFORM.                    " BUILDLAYOUT
*&      Form DISPLAYDATA
*       text
* --> p1        text
* <-- p2        text
FORM DISPLAYDATA .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
*   I_INTERFACE_CHECK                 = ' '
*   I_BYPASSING_BUFFER                = ' '
*   I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = SY-REPID
**   I_CALLBACK_PF_STATUS_SET          = 'PFSTATUS'
   I_CALLBACK_USER_COMMAND           = 'USERCOMMAND'
   I_CALLBACK_TOP_OF_PAGE            = 'TOPOFPAGE'
*   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                         = ILAYOUT
   IT_FIELDCAT                       = IFIELDCAT
*   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                          = 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.                    " DISPLAYDATA
FORM TOPOFPAGE.
DATA : ILISTHEADER TYPE SLIS_T_LISTHEADER,
       WLISTHEADER TYPE SLIS_LISTHEADER,
       TEXT(100),
       TEXT1(50),
       SPACES(5).
SPACES = '     '.
WLISTHEADER-INFO = 'LOGAN Product Traceablity Report'.
WLISTHEADER-TYP = 'H'.
APPEND WLISTHEADER TO ILISTHEADER.
CONCATENATE 'NIP Code :' CHARG1-LOW INTO TEXT SEPARATED BY SPACE.
CONCATENATE 'Pricol Part No :' MATNR-LOW INTO TEXT1 SEPARATED BY SPACE.
CONCATENATE TEXT TEXT1 INTO TEXT SEPARATED BY SPACE.
WLISTHEADER-INFO = TEXT.
WLISTHEADER-TYP = 'S'.
APPEND WLISTHEADER TO ILISTHEADER.
CLEAR TEXT.
SELECT SINGLE BISMT FROM MARA INTO MARA-BISMT WHERE MATNR IN MATNR.
SELECT SINGLE MAX( PRDATE ) INTO ZMMSE_BATCH-PRDATE FROM ZMMSE_BATCH
WHERE OMATNR IN MATNR AND ACHARG IN CHARG1.
CONCATENATE 'Customer Part No :' MARA-BISMT INTO TEXT SEPARATED BY SPACE.
WLISTHEADER-INFO = TEXT.
WLISTHEADER-TYP = 'S'.
APPEND WLISTHEADER TO ILISTHEADER.
CLEAR TEXT.
CONCATENATE 'Date & Time:'
            ZMMSE_BATCH-PRDATE INTO TEXT SEPARATED BY SPACE.
WLISTHEADER-INFO = TEXT.
WLISTHEADER-TYP = 'S'.
APPEND WLISTHEADER TO ILISTHEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    IT_LIST_COMMENTARY       = ILISTHEADER
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
ENDFORM.
FORM USERCOMMAND USING PUCOM LIKE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD.
CASE PUCOM.
WHEN '&IC1'.
IF SELFIELD-FIELDNAME = 'MBLNR'.
SET PARAMETER ID 'MBN' FIELD SELFIELD-VALUE.
CALL TRANSACTION 'MIGO' AND SKIP FIRST SCREEN.
*GODYNPRO-ACTION = 'Display'.
ENDIF.
ENDCASE.
ENDFORM.
*FORM PFSTATUS USING EXTAB TYPE SLIS_T_EXTAB.
*SET PF-STATUS 'ZSTANDARD'.
*ENDFORM.
regards
shiba dutta

Battery , time , signal strength bar is not getting displayed in home screen , these will be displayed only when i click on any app. Can u let me know the setting change ?

Battery , time , signal strength bar is not getting displayed in home screen , these will be displayed only when i click on any app. Can u let me know the setting change ?

Did you check the Zoom setting?
Have you tried a reset (reboot)? Hold HOME and SLEEP until an Apple logo appears.
If it isn't Zoom and a reboot doesn't help try Settings/General/Reset - Reset all settings

Swing button to insert row in displayed table records set

Hi,
I have been trying to insert custom row by pressing button in Swing form, this row should be displayed as last record in the records set fetched from table shown in the Swing form, can I have a help on this.
cheers.

Hi,
the way you do this with ADF is to create an action binding for the ViewObject's CreateInsert operation. You do this in the pageDef file. Then from teh button, you use the panelBinding object to execute that method. Get access to the iterator binding and fill in the infromation you want to add. Then commit the change.
If i find time I'll blog an example at orablogs.oracle.com/fnimphius
Frank

Please help. getting desperate. i cannot set up 3g on my ipad 2. when i go to mobile data in the settings there is no option to view account. which is apprently what i need to click on, any help greatly apprectiated

please help. getting desperate. i cannot set up 3g on my ipad 2. when i go to mobile data in the settings there is no option to view account. which is apprently what i need to click on, any help greatly apprectiated

I got mine (2 weeks ago) 64GB WiFi+3G (Verizon) from the apple store online
I didnt have to do anything to it, turned it on, activated it, got it on my home network then I signed up for the 3G data service, it works where ever I happen to be. (if there is an unknown WiFi connection available it asks me if I want to join before it continues to connect to the 3G when I am surfing or getting e-mail)
do you have an Apple Store close enough to travel to?
I am only assuming here, but since you have a SIM you are not in the US correct?

How to Create a record if vo.executequery does not return any rows

I would like to update a single record on adf form. However if the record does not exist would like to create a row and save it in the table.
The user does not want to add a "create" button on the screen. Hence would need to add the create code if vo.execute does not return any rows...
How to add this and where to add?

you can have a TF router for for exists and does not exist and based on that execute transient VO and other VO.
Add a method call activity like below to create a row in transient VO
public Row createRow()
ViewObjectImpl tVO = (ViewObjectImpl)getTVO();
tVO.executeEmptyRowSet();
Row newRow = tVO.createRow();
tVO.setCurrentRow(newRow);
tVO.insertRow(newRow);
return newRow;
}

How can i show details in ALV GRID with double click in a row?

Hello, ich try to show the details of a row with double click in the line,
but it doesn't work!?
I have a eventhandler for doubleclick and the program run this code, but what i have to do, to show the details!?
I try it with some methods like cl_gui_cfw=>set_new_ok_code, ...
i think about the methods cl_gui_alv_grid->show_detail, but this method is private,
i can create a class with inheritance of the cl_gui_alv_grid class and try this method!?
Have anybody any ideas!?

Hello Lars
The following sample reports shows an ALV list with company codes. Double-clicking on any company code will open a second ALV list displaying all customers.
*& Report ZUS_SDN_ALVGRID_EVENTS_1
REPORT zus_sdn_alvgrid_events_1.
DATA:
gd_okcode        TYPE ui_func,
gt_fcat          TYPE lvc_t_fcat,
go_docking       TYPE REF TO cl_gui_docking_container,
go_docking2      TYPE REF TO cl_gui_docking_container,
go_grid1         TYPE REF TO cl_gui_alv_grid,
go_grid2         TYPE REF TO cl_gui_alv_grid.
DATA:
gt_t001          TYPE STANDARD TABLE OF t001,
gt_knb1          TYPE STANDARD TABLE OF knb1.
*       CLASS lcl_eventhandler DEFINITION
CLASS lcl_eventhandler DEFINITION.
PUBLIC SECTION.
    CLASS-METHODS:
      handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING
          e_row
          e_column
          es_row_no
          sender.
ENDCLASS.                    "lcl_eventhandler DEFINITION
*       CLASS lcl_eventhandler IMPLEMENTATION
CLASS lcl_eventhandler IMPLEMENTATION.
METHOD handle_double_click.
*   define local data
    DATA:
      ls_t001     TYPE t001,
      ls_col_id   TYPE lvc_s_col.
    CHECK ( sender = go_grid1 ).
    READ TABLE gt_t001 INTO ls_t001 INDEX e_row-index.
    CHECK ( ls_t001-bukrs IS NOT INITIAL ).
    SELECT * FROM knb1 INTO TABLE gt_knb1
      WHERE bukrs = ls_t001-bukrs.
    IF ( syst-subrc NE 0 ).
      MESSAGE 'No customers found' TYPE 'S'.
    ELSE.
*     Trigger PAI of dynpro '0100' and set new ok-code
      CALL METHOD cl_gui_cfw=>set_new_ok_code( 'CALL_SCREEN_0200' ).
    ENDIF.
ENDMETHOD.                    "handle_hotspot_click
ENDCLASS.                    "lcl_eventhandler IMPLEMENTATION
START-OF-SELECTION.
SELECT * FROM t001 INTO TABLE gt_t001.
REFRESH: gt_knb1.
* Create docking container
CREATE OBJECT go_docking
    EXPORTING
      parent                      = cl_gui_container=>screen0
      ratio                       = 90
    EXCEPTIONS
      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 go_docking2
    EXPORTING
      parent                      = cl_gui_container=>screen0
      ratio                       = 90
    EXCEPTIONS
      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 ALV grid
CREATE OBJECT go_grid1
    EXPORTING
      i_parent          = go_docking
    EXCEPTIONS
      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.
CREATE OBJECT go_grid2
    EXPORTING
      i_parent          = go_docking2
    EXCEPTIONS
      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.
* Set event handler
SET HANDLER:
    lcl_eventhandler=>handle_double_click FOR go_grid1.
* Display data
CALL METHOD go_grid1->set_table_for_first_display
    EXPORTING
      i_structure_name = 'T001'
    CHANGING
      it_outtab        = gt_t001
    EXCEPTIONS
      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.
CALL METHOD go_grid2->set_table_for_first_display
    EXPORTING
      i_structure_name = 'KNB1'
    CHANGING
      it_outtab        = gt_knb1
    EXCEPTIONS
      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.
* Link the docking container to the target dynpro
CALL METHOD go_docking->link
    EXPORTING
      repid                       = syst-repid
      dynnr                       = '0100'
*      CONTAINER                   =
    EXCEPTIONS
      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.
CALL METHOD go_docking2->link
    EXPORTING
      repid                       = syst-repid
      dynnr                       = '0200'
*      CONTAINER                   =
    EXCEPTIONS
      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.
* ok-code field = GD_OKCODE
CALL SCREEN '0100'.
END-OF-SELECTION.
*&      Module STATUS_0100 OUTPUT
*       text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATUS_0100'.
* SET TITLEBAR 'xxx'.
ENDMODULE.                 " STATUS_0100 OUTPUT
*&      Module USER_COMMAND_0100 INPUT
*       text
MODULE user_command_0100 INPUT.
CASE gd_okcode.
    WHEN 'BACK' OR
         'END' OR
         'CANC'.
      SET SCREEN 0. LEAVE SCREEN.
    WHEN 'CALL_SCREEN_0200'.
      go_grid2->refresh_table_display( ). " necessary
      CALL SCREEN '0200'.
    WHEN OTHERS.
ENDCASE.
CLEAR: gd_okcode.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
Regards
Uwe

Record set size in Gantt Chart

Hi all,
I am developing an application that has a Gantt Chart.
The tree drawn is a 2 level tree. I have two VOs.
The second VO (Child) has more than 20 rows. I want to show only 10 child at once.
Record set size attribute is the one that is used to restrict the size of the number of nodes displayed. Just like in HGRID.
But when the graph is rendered the values that I give are being ignored and the entire graph is rendered.
Any pointers or suggestions on this will be really helpful.
Regards,
Santhosh.

Hi Santosh,
As Anand suggested to add the "rownum <= 10" condition to limit the record set.
But this condition should be set in View Link SQL(Query where clause).
I hope this will work.
Thanks
Renu

Record set order change

I have a record set that has the following MYSql statement
SELECT *
FROM Tickets p JOIN Customer c ON p.Cust_Num = c.Cust_Num
WHERE p.Location_Code = '" & strloc3 &"'
ORDER BY Ticket_No DESC
I have a repeat region that show 10 rows of data.
I have on my form some tabs labeled ticket No date make etc (
these are all
fields in the table)
I need the following to happen when a client clicks on say
the Date radio
button
SELECT *
FROM Tickets p JOIN Customer c ON p.Cust_Num = c.Cust_Num
WHERE p.Location_Code = '" & strloc3 &"'
ORDER BY Date DESC
How do I get the action on a radio button click.
How do I then change the MYSql statement in the record set
and run the
statement.
The client should then see all records sorted by date...
Cheers
SteveW

Are you sure you want to sort this on the database? Depending
on how many rows are returned and query performance, you might want
to just use jscript/dom to sort the rows.

ADF BC: VO based on record set

Hi all,
I'd like to base a VO on a record set returned from a stored procedure. For example, in the procedure
ES_WEB_SHIPPING
(P_SHIPPING_VALUE
P_SHIPPING_WEIGHT
P_WEB_SHIPPING);
P_SHIPPING_VALUE and P_SHIPPING_WEIGHT are IN parameters, and P_WEB_SHIPPING is an OUT parameter containing a record set. Note that I'm not interested in doing what the doc seems to focus on: using a stored procedure to perform DML. This procedure just creates a record set, and I want to base my VO's row set on that record set.
Is this possible? It seems like it should be, but I don't see how to do it. Any help would be much appreciated.
Thanks much,
Avrom

It should be similar to the technique outlined in the ADF Developer's Guide for Forms/4GL Developers in section 27.8.4, "How to Create a View Object on a REF CURSOR"
hope this helps.

Action event on click of any bar in graph???

Hi Everyone,
My Jdev version is 11.1.2.3.0.
I have developed one ADF BAr Graph </dvt:barGraph>. Everything is working fine.
My graph has 15 bars, each bar has some value.
Now my requirement is when i click on any bar then my page navigation should go to next page and show that record in table.
how can i achieve this requirement???
Any suggestions will be really helpful.
Thanks.

Well,
I'm no expert but i think you can do something like:
In the table you want to show the row, you bind it using the bindings property, that will create a RichTable variable.
Then you create the click action method (or selection action method, wich one you prefer), you get the value of the element selected on the bar Graph, pass it to the table, refresh the table with partial trigger and it will show.
If this is possible, then you can have something like this on your action in the bar Graph:
public void onBarGraphSelect(oracle.adf.view.faces.bi.event.graph.SelectionEvent selectionEvent) {
DCIteratorBinding conIter = ADFUtils.findIterator("VGraphStoreSalesView2Iterator"); // iterator of your bar graph
        var_dimStore.append(conIter.getCurrentRow().getAttribute("FkStore")); // this will get a specific attribute
        BindingContext bctx = BindingContext.getCurrent();
        BindingContainer bindings = bctx.getCurrentBindingsEntry();
OperationBinding executeWithParams2 = bindings.getOperationBinding("ExecuteWithParams2");
        executeWithParams2.getParamsMap().put("var_dimStore", var_dimStore.toString());
        executeWithParams2.execute();
        AdfFacesContext adfFacesContext = AdfFacesContext.getCurrentInstance(); // the partial trigger to your table where you want to show the row
        adfFacesContext.addPartialTarget(dimFactSales);
Btw, this is done with BarGraph Selection, not click..
Hope that helps,
Frederico.
ps - if this code does work for you, you only show the row that you put in your binding, if you want to show more, you have to add them to the variable and i use a executeWithParms for this (but i think this is not necessary for you)

Clicking on any row in a record set

Similar Messages

Maybe you are looking for