Update screen on cl_gui_container_bar_xt "clicked" event

I have a list of buttons in a cl_gui_container_bar_xt object (like the SE80 navigation bar on the left) - I have set up event listiners for the "clicked" event and it works great except for changing screen field values.
What I need to do is change a screen element when one of these buttons is clicked.
EG: - I want to change the screen field E070-TRKORR to blank if a button is clicked. Problem is that PAI or PBO are not fired, and it wont work within the event handler...
My understanding is that the cl_gui_container_bar_xt object uses CL_GUI_TOOLBAR within it for the buttons, so it should work the same, but it's not...?
Any ideas?

Similar Messages

Update notification shows there are updates but when I click on the update option it shows a blank screen

The update option on the app store shows a notification that I have 'n' numbers of updates but when I click on the update option it only shows a blank screen. Even after updating the apps individually from the purchased option, the update option still shows a blank screen instead of "All you applications are up to date". Please help.

Many people are having this problem for the last couple of days. According to Fly150in another discussion, this will work.
If you want to update the Apps while waiting for Apple to fix Updates:
1. Go to App Store
2. Select Purchased
3. Select All
4. Scroll down to find the Apps showing update
5. Select update on the Apps
This should update the Apps and get rid of the update count in App Store.

I just updated my iphone to ios7 and I keep getting stuck at the 'Set up your iPhone' screen. I click 'Restore from Itunes Backup', but it only ends up restarting after restoring and fails to get past the 'Set up your iPhone' screen. Any ideas?

I just updated my iphone to ios7 and I keep getting stuck at the 'Set up your iPhone' screen. I click 'Restore from Itunes Backup', but it only ends up restarting after restoring and fails to get past the 'Set up your iPhone' screen. Any ideas?

Normally, I would suggest restoring the iPad and uninstall and reinstall iTunes but you have done both of those things - more times than you ever imagined!
Have you thought about turning auto syncing off?
Without connecting your iPad to your laptop, start iTunes. Click on Edit. Click on Preferences. Click on Devices. Check the box next to "Prevent your iPod etc. from automatically syncing." Click OK.
If you do this you can backup the iPad right away before it syncs. You may want to go into all of the iTunes tabs and just make sure that all of the current content on the iPad is selected to sync before you actually do sync.
This doesn't solve the problem, but it would prevent the automatic sync and erasing content. Hopefully, in the next few days- when iOS 5 is released - you will also be relieved of this weird iPad behavior - since the iOS devices are supposed to become PC free.
BTW - and this is no excuse for what you are experiencing, but I have found that some of the game apps that I had on my iPad turned out to be quite troublesome and after I removed them, my problems went away. I know that is almost sacrilege with regard to the Angry Birds addiction .... But I'm just saying ...

How can I capture mouse click events on BSP or Web Dynpro ABAP Screen

hi Guys,
Currently we have a user inactivity problem,
the requirement is: if user is clicking on BSP/Web Dynpro ABAP screen, he/she is considered active. so we need an mechanism to capture the mouse click event.
Using Firebug, we found that this js is in the iframe which contains BSP/web dynpro scrren: /sap/public/bc/ur/nw5/js/languages/urMessageBundle_en.js
we want to find this js file & put in some javascript code to track user's mouse click, but i cannot find it on server.
while in ie if we type http://host:port/sap/public/bc/ur/nw5/js/languages/urMessageBundle_en.js
this file can be downloaded, means this file is there.
Any one can help on this issue? find the js file or another way to capture the mouse click event.
Thanks a lot with points!

Hi Feng Guo,
We can not capture mouse click events on Web Dynpro ABAP Screen . I am not sure about BSP. But as for as I know the portal keep active the iViews until unless mouse clicks happens.
But for your problem I think you can get solution by setting iView Expiration to some more time period.
Regards,
Siva

Determining Tables on Double Click Event on Split Screen

Hi,
I have an OO split screen scenario where I display 2 different internal tables, 1 in the upper section of the split screen and the other in the lower section part. The layout structure used is the same for both internal tables since they display similar information. I am trying to establish that if I use the double click event to drill into specific line items, how do I determine which one of the split screens (and hence which internal table) have I double clicked on so that the correct internal tables details is read for further processing?
Thanks

Hi Uwe,
Thanks very much for this. I have tried this out and it works perfect. However I'm trying to understand this further from the point of view that I did originally look at the event DOUBLE_CLICK in the class CL_GUI_ALV_GRID but didn't think I could use if further since there was no tie in with the optional parameter 'SENDER' you show. It only has 3 parameters listed for this so how does the 'SENDER' optional parameter work? Is this by reference/registration via the SET HANDLER statrement? I also debugged and looked at 'value' passed into the SENDER optional parameter... its not what I expected to see but contains what looked like the whole class object? Apologies but I'm coming more from years in the trenches of "classical" ABAP and seeing the light with ABAP OO!!
Appreciate all your assistance.
Thanks

To catch click event on a picture on screen

How to catch the click event on a picture on screen? Please answer with code.
regards
agn

Try this code....
REPORT zaby_pic.
CLASS cl_picture_click DEFENITION.
PUBLIC SECTION.
METHODS: picture_yclick FOR EVENT picture_click of cl_gui_picture IMPORTING mouse_pos_x mouse_pos_y.
ENDCLASS.
CLASS cl_picture_click IMPLEMENTATION.
METHOD: picture_yclick.
Perform onclick. "write the action of click in this form.
ENDMETHOD.
ENDCLASS.
DATA: obj_cl_picture_class TYPE REF TO cl_picture_click.
DATA: it_event_picture TYPE TABLE OF cntl_simple_event,
      wa_event_picture TYPE cntl_simple_event.
MODULE status_001_output.
wa_event_picture-eventid = cl_gui_picture=>eventid_picture_click.
wa_event_picture-appl_event = 'X'.
APPEND wa_event_picture to it_event_picture.
CALL METHOD h_picture->set_registered_events
Exporting
    events = it_evet_picture
Exceptions
    cntl_error                = 1
    cntl_system_error         = 2
    illegal_event_combination = 3
    OTHERS                    = 4.
CREATE OBJECT obj_cl_picture_click.
SET HANDLER obj_cl_picture_click->picture_yclick FOR h_picture. "h_picture is the object of class cl_gui_picture.
ENDMODULE
...................Hope this code will help you. Thanks.

Why is the App Store on my ipad not letting me update anything? It just brings up a blank screen when I click on the update section.

When I open the App Store and it says I have updates available and I click on the update section it brings me to a blank page and I cannot click on anything.

This has been an ongoing issue for days now.
Many people are having this problem for the last couple of days. This is a problem that Apple has to fix. If you look around the forum, you will see many, many discusssions about this and they have been going on for a few days.
According to Fly150 in another discussion, this is a workaround - for the time being.
If you want to update the Apps while waiting for Apple to fix Updates:
1. Go to App Store
2. Select Purchased
3. Select All
4. Scroll down to find the Apps showing update
5. Select update on the Apps
This should update the Apps and get rid of the update count in App Store.

HT1338 App Store says I have six updates but when I click on update tab I get blank white screen

App Store says I have six updates but when I click on update tab I get blank white screen

That's strange....
Under Snow Leopard (which is the forum you posted in), updates are done through Software Update. Not the App Store.

How to handle double click event in a text control

Hi,
   Will u please send me information on handling double click events inside text control and also about locking and unlocking of DB tables for updation.
Regards,
Praba.

Hi Prabhavathi,
Here is how you handle double click events in Textedit control.
1)Create a custom control in screen (say TEXT_CONTROL)
2)In main program,
a) Declarations:
data: obj type ref to cl_gui_custiom_control.
      text type ref to cl_gui_textedit.
b) Create the instance of custom container
c) Create the instance of textedit control.
3)Now to handle double click events , create a local class as follows.
class shail_event definition.
public section.
methods:
handle_doubleclick for event dblclick of cl_gui_textedit .
endclass.
class shail_event implementation.
method handle_doubleclick .
here do the coding for handling the double click.
endmethod.
endclass.
4) Create an instance of the handler class(ie.ZSHAIL_EVENT).Let it be named hand.
5) Define varibles for event.
DATA: i_events TYPE cntl_simple_events,
      wa_events TYPE cntl_simple_event.
SET HANDLER hand->handle_doubleclick for text.
wa_events-eventid = cl_gui_textedit=>event_double_click.
wa_events-appl_event = 'X'. "This is an application event
APPEND wa_events TO i_events.
6)
    CALL METHOD texte->set_registered_events
      EXPORTING
        events                    = i_events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3
        OTHERS                    = 4.
    IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
These are the basic steps needed for handling events in Textedit control.You can go to SE24 and type CL_GUI_TEXTEDIT to find the associated events of the class.
If you want the program, kindly send your mail-id so that I can mail it to you.
Regards,
Sylendra.

ALV OOPS Double-click event

Hi,
I want to handle the double-click event in ALV grid (OOPs).
The output should be shown in the same fashion as it is shown in SE16 when we double-click on any record in the result set.
i.e. if you have selected the ALV grid display for the Data browser in SE16 and when you double click on any record, the complete record is shown in a window.
I want this in my ALV as well..
Can anyone please suggest how to achieve this?
Regards
s.a.k

Hi siemens.a.k ,
The solution for the issue would be to create a custom screen and add a custom table controller in a container.
In this table controller you map the respective fields required for your output
Now once you are done with data population in the custom controller for ALV grid display using cl_gui_alv_grid_display class...
create events in your custom class to handle the on click event.
If you observe the standard functionality it could be clearly seen that sap has created another screen for the display of records in different view.
You could also replicate the similar thing by creating another screen and populating the required fields into the second screen.
As of now i am providing this information ...I would even try to simulate the scenario at my system.
So once i am done i would update you the same...
Thanks
M.Naveen Kumar....

Opening New Browser window for click event on an image

hi all,
I want someone to help me out solving the problem of opening
a new browser window on the mouse click event of an image or a
button etc.... The new window would contain the datagrid details
from the main window, but in an expanded form. If at all there is a
solution, I even want to know whether there is anyway for sizing
the poped up window,because I dont want the new poped up window to
cover the entire screen.
For getting better idea of my problem, the best example I
could give is the popup window that appears when we click on the
preview button while posting the message to the forum.
Someone please do help me out in this regard.
Thanks,
amar.

I'd definitely try to use a Flex popup... but the
flash.net.navigateToURL method is a simple way to open a popup
window in a new browser. You can pass any data needed by the new
page using the URLRequest and/or URLVariables. The URL you navigate
to could, of course, be another Flex application if necessary. I
use this only when I need to open a popup window on another site,
or an HTML formatter report or something similar.
Concerning yourself with the size of the popup window may be
a bad design choice also. I, for example, have my browser
configured to open all popups in a new tab regardless of sizing
constraints imposed by the designer. If it is absolutely necessary
for you to have control over the size of your popup window, you
should follow the advice given by others and use a Flex
popup.

ALV: Issue with double click event after sorting the ALV

Hello Experts,
I have an internal table that populates an ALV grid. When the user doubleclicks a row, my method HANDLE_DOUBLE_CLICK returns the e_row-index value from the ALV Grid. I use this index value to read the internal table, then retrieve additional data.
My problem is the user may sort the ALV grid before double clicking on a line. If this happens my internal table is not sorted to match the ALV grid, so reading the internal table with the e_row-index value returns the wrong information.
When the double click event occurs, is it possible to capture the value in column 1 instead of a value for e_row-index?
There is one more paramter in HANDLE_DOUBLE_CLICK for row id.   It is coming blank in debugging . what is the purpose of this parameter and how i can make use of it ?
Regards
Vivek

Hi,
I am Posting The Code Which Uses Double Click Event.
And This Code will provide the total information to you.
REPORT ZALVGRID_PG.
TABLES: SSCRFIELDS.
DATA: V_BELNR TYPE RBKP-BELNR.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: IRNO FOR V_BELNR.
PARAMETERS: P_GJAHR TYPE RBKP-GJAHR.
SELECTION-SCREEN END OF BLOCK B1.
DATA: WA TYPE ZALVGRID_DISPLAY,
      ITAB TYPE STANDARD TABLE OF ZALVGRID_DISPLAY.
DATA: IDENTITY TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: GRID TYPE REF TO CL_GUI_ALV_GRID.
DATA: L_IDENTITY TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
DATA: L_TREE TYPE REF TO CL_GUI_ALV_TREE_SIMPLE.
TYPE-POOLS: SLIS,SDYDO.
DATA: L_LOGO TYPE SDYDO_VALUE,
      L_LIST TYPE SLIS_T_LISTHEADER.
END-OF-SELECTION.
CLASS CL_LC DEFINITION.
PUBLIC SECTION.
    METHODS: DC FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID IMPORTING E_ROW E_COLUMN.
ENDCLASS.
CLASS CL_LC IMPLEMENTATION.
METHOD DC.
    DATA: WA1 TYPE ZALVGRID_DISPLAY.
    READ TABLE ITAB INTO WA1 INDEX E_ROW-INDEX.
    BREAK-POINT.
    SET PARAMETER ID 'BLN' FIELD WA1-BELNR.
    CALL TRANSACTION 'FB02'.
ENDMETHOD.                    "DC
ENDCLASS.
DATA: OBJ_CL TYPE REF TO CL_LC.
START-OF-SELECTION.
PERFORM SELECT_DATA.
IF SY-SUBRC = 0.
    CALL SCREEN 100.
ELSE.
    MESSAGE E000(0) WITH 'DATA NOT FOUND'.
ENDIF.
INCLUDE ZALVGRID_PG_STATUS_0100O01.
INCLUDE ZALVGRID_PG_LOGOSUBF01.
INCLUDE ZALVGRID_PG_SELECT_DATAF01.
INCLUDE ZALVGRID_PG_USER_COMMAND_01I01.
***INCLUDE ZALVGRID_PG_STATUS_0100O01 .
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'AB'.
* SET TITLEBAR 'xxx'.
IF IDENTITY IS INITIAL.
    CREATE OBJECT IDENTITY
    EXPORTING
      CONTAINER_NAME = 'ALVCONTROL'.
    CREATE OBJECT GRID
    EXPORTING
      I_PARENT = IDENTITY.
    CALL METHOD GRID->SET_TABLE_FOR_FIRST_DISPLAY
      EXPORTING
         I_STRUCTURE_NAME              = 'ZALVGRID_DISPLAY'
      CHANGING
        IT_OUTTAB                     = ITAB.
    CREATE OBJECT OBJ_CL.
    SET HANDLER OBJ_CL->DC FOR GRID.
    ENDIF.
    IF L_IDENTITY IS INITIAL.
      CREATE OBJECT L_IDENTITY
      EXPORTING
        CONTAINER_NAME = 'LOGO'.
      CREATE OBJECT L_TREE
      EXPORTING
        I_PARENT = L_IDENTITY.
      PERFORM LOGOSUB USING L_LOGO.
      CALL METHOD L_TREE->CREATE_REPORT_HEADER
        EXPORTING
          IT_LIST_COMMENTARY    = L_LIST
          I_LOGO                = L_LOGO.
      ENDIF    .
ENDMODULE.                 " STATUS_0100 OUTPUT
***INCLUDE ZALVGRID_PG_LOGOSUBF01 .
FORM LOGOSUB USING    P_L_LOGO.
P_L_LOGO = 'ERPLOGO'.
ENDFORM.                    " LOGOSUB
***INCLUDE ZALVGRID_PG_SELECT_DATAF01 .
FORM SELECT_DATA .
SELECT RBKP~BELNR
         RBKP~BLDAT
         RSEG~BUZEI
         RSEG~MATNR
         INTO TABLE ITAB
         FROM RBKP INNER JOIN RSEG
    ON RBKP~BELNR = RSEG~BELNR
    WHERE RBKP~BELNR IN IRNO
    AND RBKP~GJAHR = P_GJAHR.
ENDFORM.                    " SELECT_DATA
***INCLUDE ZALVGRID_PG_USER_COMMAND_01I01 .
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
    WHEN 'EXIT'.
      LEAVE PROGRAM.
    WHEN 'CANCEL'.
       EXIT.
       ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100 INPUT
Warm Regards,
PavanKumar.G
Edited by: pavankumar.g on Jan 19, 2012 5:30 AM

How to get the alv grid report in another screen when double click on basic

Hi.
I have created an alv report using class cl_gui_alv_grid.I got another report in the same screen,when double clicked on basic list(using double_click event).I want to get this report in another screen.What i have to do?(In classical reports i worked with sy-lsind = 1 ,but how to do here?)
How to set color to the selected rows in the alv grid report?I worked with change_data_from_inside method of cl_gui_alv_grid.But it didn't work out..
With Regards,
Ramana.

On double click event . you will have to call another screen say 9000.
now within screen 900 PBO.. you will have to prepare the fieldcatalog/layout.. and the table to be displayed there.
in PAI of screen 9000, you can return to the original ALV.
method double_click.
call screen 9000.
endmethod.
" now in PBO create a module display_alv2
module display_alv2.
'prepare the fieldcat/layout info for new alv
'add the data to the new ALV table
'instantiate the grid call.. etc
'call the ALV
endmodule
"in PAI
module exit.
case sy-ucomm.
when 'ENT1'.
leave to screen 0.
endcase.
endmodule
while preparing the field catalog you can mention the EMPHASIZE field, whish will give color to tht column
E.g
*--Service Order
    ls_fieldcat-tabname   = 'IT_FINAL_VALID'.
    ls_fieldcat-fieldname = 'AUFNR'.
    ls_fieldcat-scrtext_m = 'Service Order'.
    ls_fieldcat-ref_table = 'AUFK'.
    ls_fieldcat-ref_field = 'AUFNR'.
    ls_fieldcat-col_pos   = 1.
    ls_fieldcat-outputlen = 12.
    ls_fieldcat-emphasize = 'C400'. "This will add color to the cell
    APPEND ls_fieldcat TO fcat_valid.
Hope this helps.

About double click event in ALV report

Hi all,
I want to program a double-click event in ALV reprot.
I am not suppose to use module pool approach for the same.
If a user double clicks on the any of the row of ALV report, the transaction should get called.
Again, I am using function 'REUSE_ALV_GRID_DISPLAY' for displaying ALV.
Can you please help me to solve this?
Thanks,
-Siddhi

Hi Sidhi,
You can do it easily by using Reuse_ALV_GRID_DISPALY.
The User Command subroutine which you pass to this function module in that you can check which field is selected and what is the value of that and also you can get the table index.
I am giving you a code example where interactivity of ALV report is done .
*& Report ZRAIL_LOT_REPORT
REPORT zrail_lot_report.
TABLES :qals,aufk.
TYPE-POOLS:slis.
TYPES:BEGIN OF x_lot,
      sel(1)   TYPE c,                    "SELECTION
      prueflos TYPE qals-prueflos,        "INSPECTION LOT NUMBER
      werk     TYPE qals-werk,            "PLANT
      losmenge TYPE qals-losmenge,        "LOT QUANTITY
      mengeneinh TYPE qals-mengeneinh,   "BASE UNIT OF MEASURE FOR THE INSPECTION LOT QUANTITY
      matnr   TYPE qals-matnr,          " MATERIAL NO. ATTACHED TO ORDER
      zzequnr TYPE qals-zzequnr,         "EQUIPMENT NO.
      zzassembly TYPE qals-zzassembly,    "ASSEMBLY
      herkunft TYPE qals-herkunft,       "INSPECTION LOT ORIGIN
      aufnr     TYPE qals-aufnr,          "ORDER NO.
      sttxt     TYPE qals_d02-sttxt,      "LOT STATUS
      objnr     TYPE qals-objnr,          "OBJECT NUMBER
      enstehdat TYPE qals-enstehdat,      "lot creation date
      pruefer   TYPE qamr-pruefer,        "Name of the Inspector
      END OF x_lot.
TYPES:BEGIN OF x_ordmat,
      aufnr TYPE aufk-aufnr,             "Order No.
      equnr TYPE afih-equnr,             "Equipment No. attached to Order
      zmatnr TYPE aufk-zmatnr,           "Material No. attached to Order
      bautl TYPE afih-bautl,            "Assembly attached to Order
      END OF x_ordmat.
TYPES:BEGIN OF x_status,
      objnr TYPE jest-objnr,
      stat TYPE jest-stat,
      txt04 TYPE tj02t-txt04,
      END OF x_status.
DATA:it_qals TYPE STANDARD TABLE OF x_lot,
     wa_qals TYPE x_lot.
DATA:it_ordmat TYPE TABLE OF x_ordmat,
     wa_ordmat TYPE x_ordmat.
DATA:it_status TYPE STANDARD TABLE OF x_status,
     wa_status TYPE x_status.
DATA:mytabix TYPE sy-tabix.
DATA: wa_layout   TYPE slis_layout_alv,
      wa_fieldcat TYPE slis_fieldcat_alv,
      it_fieldcat TYPE TABLE OF slis_fieldcat_alv,
      it_fcat TYPE TABLE OF slis_fieldcat_alv.
DATA:mytabix1 TYPE sy-tabix.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_werks FOR qals-werk,
                s_zmatnr FOR aufk-zmatnr,
                s_assbly FOR qals-zzassembly,
                s_equnr FOR qals-zzequnr,
                s_lotor FOR qals-herkunft,
                s_lotdat FOR qals-enstehdat.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
s_lotdat-low = sy-datum - 7.
s_lotdat-high = sy-datum.
APPEND s_lotdat.
START-OF-SELECTION.
PERFORM get_data_qals.
PERFORM build_fieldcat.
PERFORM display_data.
EXIT.
END-OF-SELECTION.
*&      Form get_data_qals
      text
--> p1        text
<-- p2        text
FORM get_data_qals .
IF it_qals[] IS INITIAL.
    SELECT a~prueflos
           a~werk
           a~losmenge
           a~mengeneinh
           a~zzequnr
           a~zzassembly
           a~herkunft
           a~aufnr
           a~objnr
           a~matnr
           a~enstehdat
           b~pruefer
           FROM qals AS a INNER JOIN qamr AS b
           ON aprueflos = bprueflos
           INTO CORRESPONDING FIELDS OF TABLE it_qals
           WHERE werk IN s_werks
           AND   zzassembly IN s_assbly
           AND   zzequnr    IN s_equnr
           AND   herkunft   IN s_lotor
           AND   enstehdat IN s_lotdat.
ENDIF.
IF it_ordmat[] IS INITIAL.
    SELECT a~aufnr
           a~zmatnr
           b~bautl
           b~equnr
           FROM aufk AS a INNER JOIN afih AS b
           ON aaufnr = baufnr
           INTO CORRESPONDING FIELDS OF TABLE it_ordmat FOR ALL ENTRIES IN it_qals
           WHERE a~aufnr = it_qals-aufnr
            AND zmatnr IN s_zmatnr.
ENDIF.
IF it_status[] IS INITIAL.
    SELECT a~objnr
           a~stat
           b~txt04
           FROM tj02t AS b
           INNER JOIN jest AS a ON bistat = astat
           INTO CORRESPONDING FIELDS OF TABLE it_status FOR ALL ENTRIES IN it_qals
           WHERE a~objnr = it_qals-objnr
           AND   b~spras = sy-langu
           AND   a~inact = space.
ENDIF.
LOOP AT it_qals INTO wa_qals.
    mytabix = sy-tabix.
    READ TABLE it_ordmat INTO wa_ordmat WITH KEY aufnr = wa_qals-aufnr.
    IF sy-subrc = 0.
      IF wa_qals-herkunft = '14'.
        wa_qals-matnr = wa_ordmat-zmatnr.
        wa_qals-zzequnr = wa_ordmat-equnr.
        wa_qals-zzassembly = wa_ordmat-bautl.
        MODIFY it_qals FROM wa_qals INDEX mytabix TRANSPORTING matnr zzassembly zzequnr.
      ENDIF.
    ENDIF.
    LOOP AT it_status INTO wa_status WHERE objnr = wa_qals-objnr.
      CONCATENATE wa_qals-sttxt wa_status-txt04 INTO wa_qals-sttxt SEPARATED BY space.
      CLEAR :wa_status.
    ENDLOOP.
    MODIFY it_qals FROM wa_qals INDEX mytabix TRANSPORTING sttxt.
    CLEAR :wa_qals,wa_ordmat,mytabix.
ENDLOOP.
IF s_zmatnr[] IS NOT INITIAL.
    DELETE it_qals WHERE matnr IS INITIAL.
ENDIF.
ENDFORM.                    " get_data_qals
*&      Form build_fieldcat
      text
--> p1        text
<-- p2        text
FORM build_fieldcat .
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-box_fieldname = 'SEL'.
wa_layout-box_tabname = 'IT_QALS'.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
    I_PROGRAM_NAME               =
      i_internal_tabname           = 'IT_QALS'
      i_structure_name             = 'QALS_D02'
    I_CLIENT_NEVER_DISPLAY       = 'X'
    I_INCLNAME                   =
    I_BYPASSING_BUFFER           =
    I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = it_fieldcat
IF sy-subrc = 0.
    LOOP AT it_fieldcat INTO wa_fieldcat.
      CASE wa_fieldcat-fieldname .
        WHEN 'PRUEFLOS'.
          wa_fieldcat-col_pos = 1.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN   'WERK'.
          wa_fieldcat-col_pos = 3.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'LOSMENGE'.
          wa_fieldcat-col_pos = 4.
          wa_fieldcat-no_out = ''.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'MENGENEINH'.
          wa_fieldcat-col_pos = 5.
          wa_fieldcat-no_out = ''.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'ZZEQUNR'.
          wa_fieldcat-col_pos = 6.
          wa_fieldcat-no_out = ''.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'ZZASSEMBLY'.
          wa_fieldcat-col_pos = 7.
          wa_fieldcat-no_out = ''.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'HERKUNFT'.
          wa_fieldcat-col_pos = 8.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'AUFNR'.
          wa_fieldcat-col_pos = 9.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'ENSTEHDAT'."enstehdat
          wa_fieldcat-col_pos = 10.
          APPEND wa_fieldcat TO it_fcat.
        WHEN 'STTXT'.
          wa_fieldcat-col_pos = 12.
          wa_fieldcat-hotspot = 'X'.
          APPEND wa_fieldcat TO it_fcat.
        WHEN OTHERS.
      ENDCASE.
      CLEAR wa_fieldcat.
    ENDLOOP.
    wa_fieldcat-fieldname = 'MATNR'.
    wa_fieldcat-tabname = 'IT_QALS'.
    wa_fieldcat-col_pos = 2.
    wa_fieldcat-ref_tabname = 'AUFK'.
    wa_fieldcat-hotspot = 'X'.
    wa_fieldcat-seltext_l = 'Material No.'.
    APPEND wa_fieldcat TO it_fcat.
    wa_fieldcat-fieldname = 'PRUEFER'.
    wa_fieldcat-tabname = 'IT_QALS'.
    wa_fieldcat-col_pos = 11.
    wa_fieldcat-ref_tabname = 'QAMR'.
    wa_fieldcat-seltext_l = 'Name of the Inspector'.
    APPEND wa_fieldcat TO it_fcat.
ENDIF.
ENDFORM.                    " build_fieldcat
*&      Form display_data
      text
--> p1        text
<-- p2        text
FORM display_data .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   i_callback_program                = 'ZRAIL_LOT_REPORT'
I_CALLBACK_PF_STATUS_SET          = ' '
     i_callback_user_command           = 'USER_COMMAND'
     is_layout                         = wa_layout
      it_fieldcat                       = it_fcat
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
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
    TABLES
      t_outtab                          = it_qals
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_data
*&      Form USER_COMMAND
      text
     -->R_UCOMM      text
     -->RS_SELFIELD text
FORM user_command USING r_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield.
CASE rs_selfield-fieldname .
    WHEN 'PRUEFLOS'.
      SET PARAMETER ID 'QLS' FIELD rs_selfield-value.
      CALL TRANSACTION 'QA03' AND SKIP FIRST SCREEN.
    WHEN 'ZZEQUNR'.
      SET PARAMETER ID 'EQN' FIELD rs_selfield-value.
      CALL TRANSACTION 'IE03' AND SKIP FIRST SCREEN.
    WHEN 'ZMATNR'.
      SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN 'ZZASSEMBLY'.
      SET PARAMETER ID 'MAT' FIELD rs_selfield-value.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
    WHEN 'AUFNR'.
      SET PARAMETER ID 'ANR' FIELD rs_selfield-value.
      CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
    WHEN 'STTXT'.
      MOVE rs_selfield-tabindex TO mytabix1.
      PERFORM show_status.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*&      Form show_status
      text
--> p1        text
<-- p2        text
FORM show_status .
DATA:it_systat TYPE TABLE OF bapi2045ss,
       wa_sysstat TYPE bapi2045ss,
       it_bapi2045us TYPE TABLE OF bapi2045us.
DATA:it_fsys TYPE TABLE OF slis_fieldcat_alv.
DATA:insplot TYPE bapi2045d_il0-insplot.
DATA:language TYPE bapi2045la.
CLEAR wa_qals.
READ TABLE it_qals INTO wa_qals INDEX mytabix1.
insplot = wa_qals-prueflos.
language-langu = sy-langu.
CALL FUNCTION 'BAPI_INSPLOT_GETSTATUS'
    EXPORTING
      number        = insplot
      language      = language
    TABLES
      system_status = it_systat
      user_status   = it_bapi2045us.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name     = 'ZRAIL_LOT_REPORT'
      i_internal_tabname = 'IT_SYSTAT'
      i_structure_name   = 'BAPI2045SS'
    CHANGING
      ct_fieldcat        = it_fsys.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = 'ZRAIL_LOT_REPORT'
      it_fieldcat        = it_fsys
    TABLES
      t_outtab           = it_systat.
ENDFORM.                    " show_status
IIn the subrouitne the User command the Parameter rs_selfield will give you the selected or clicked field and its value its record no .
I hope this will help you.

How to call elem. Search help on Button click event in WD appilcation

Hello All,
i have requirement to call elem. search help on button click event in WD application. currently i am calling FM F4IF_START_VALUE_REQUEST but getting the short dump as below,
The following error text was processed in the system X31 : Screen output without connection to user.
The error occurred on the application server saps_X31_31 and in the work process 0 .
The termination type was: RABAX_STATE
The ABAP call stack was:
SYSTEM-EXIT of program SAPLSDH4
Function: F4_PRESEL_WITH_TABSTRIP of program SAPLSDH4
Form: F4PROZ_STEP_PRESEL of program SAPLSDSD
Function: DD_SHLP_SINGLE_STEP of program SAPLSDSD
Form: F4PROZ_LOOP of program SAPLSDSD
Form: F4PROZ of program SAPLSDSD
Function: F4IF_START_VALUE_REQUEST of program SAPLSDHI
Method: ONACTIONSEARCH_CUSTOMER of program /1BCWDY/50TU5ZEXF3K0IWCWE153==CP
Method: IF_WDR_VIEW_DELEGATE~WD_INVOKE_EVENT_HANDLER of program /1BCWDY/50TU5ZEXF3K0IWCWE153==CP
Method: INVOKE_EVENTHANDLER of program CL_WDR_DELEGATING_VIEW========CP
is there any way to achieve the required behaviour.
please let me know.
Regards,
Chandra

Hi Friends,
I have the similar kind of requirement. Upon click on a Button on screen i need to call a search help, and collect one or more selected material numbers.
The search help is working fine and i am getting the entries with the following code.
The problem is i am finding extra popup on screen.
CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
EXPORTING
tabname         = space
fieldname       = space
SEARCHHELP      = 'MAT1'
MULTIPLE_CHOICE = 'X'
STEPL           = 0
value           = 'MATNR'
*dynpprog        = progname
*dynpnr          = dynnum
*dynprofield     = 'CARRIER'
CALLBACK_PROGRAM          = 'ZTEST_1_PRA'
CALLBACK_FORM             = 'F4CALLBACK'
TABLES
RETURN_TAB                = RETURN_TAB
EXCEPTIONS
FIELD_NOT_FOUND           = 1
NO_HELP_FOR_FIELD         = 2
INCONSISTENT_HELP         = 3
NO_VALUES_FOUND           = 4
OTHERS                    = 5.

Update screen on cl_gui_container_bar_xt "clicked" event

Similar Messages

Maybe you are looking for