Grid + Popup

Is it possible to open documents (.doc, .xls, .pdf etc) in a
new window (popup) when selected from a flash grid. I can open the
document in the same window but that then requires the user to
refresh the first page when they go back to the first page.

Hi,
According to your description，you thread is main about how to use
Kendo UI Grid. I recommend you should post your thread in the forum about
Kendo UI. You can look for help in the link below:
http://www.telerik.com/support
Best Wishes!
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey. Thanks MSDN Community Support Please remember to "Mark as Answer" the responses that resolved your issue. It is a common way to recognize those who have helped you, and
makes it easier for other visitors to find the resolution later.

Similar Messages

Kendo UI Grid PopUp Is Possible Two Template?

Hi, I can little a speak English...
Kendo two template with grid PopUp possible?
If yes... How can I do please? Thank you!!!
And thanks translate :)
Merhaba,
Projede bir yerde takıldım, aradım ama bulamadım. Sorunum şu, ben gridde hem create işlemi hem de update işlemi yapıyorum. Ancak create işleminde yer alan field'ların bir kaçı Update işleminde olmayacak. Kendo Grid PopUp kullanıyorum.
Teşekkür ederim!
Can Ermutlu

Hi,
According to your description，you thread is main about how to use
Kendo UI Grid. I recommend you should post your thread in the forum about
Kendo UI. You can look for help in the link below:
http://www.telerik.com/support
Best Wishes!
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey. Thanks MSDN Community Support Please remember to "Mark as Answer" the responses that resolved your issue. It is a common way to recognize those who have helped you, and
makes it easier for other visitors to find the resolution later.

ALV Popup in userexit

Hi,
An ALV Grid Popup has to be displayed and the code for this has to be written in the user exit.
The requirement is such that when a particular button is clicked on the cat3_iscr transaction the ALV Grid popup should appear with still the cat3_iscr screen visible in the background.
The appearing ALV Popup should contain the features of a standard ALV Grid (standard buttons of a toolbar, )
It would be great if you can suggest a solution for this.
Thanks,
Siva

I have written a generic function module to do just this.
Here is the code.
function z_popup_with_alvgrid.
*"*"Global interface:
*" IMPORTING
*"     REFERENCE(ENDPOS_COL) TYPE I DEFAULT 90
*"     REFERENCE(ENDPOS_ROW) TYPE I DEFAULT 22
*"     REFERENCE(STARTPOS_COL) TYPE I DEFAULT 10
*"     REFERENCE(STARTPOS_ROW) TYPE I DEFAULT 2
*"     REFERENCE(TITLE) TYPE C OPTIONAL
*"     REFERENCE(FIELDCAT) TYPE LVC_T_FCAT
*" TABLES
*"      I_ALV
call screen 0200 starting at startpos_col
                               startpos_row
                     ending at endpos_col
                               endpos_row.
endfunction.
*      Module STATUS_0200 OUTPUT
module status_0200 output.
set pf-status '0200'.
set titlebar '0200' with title.
data: alv_container type ref to cl_gui_custom_container.
data: alv_grid       type ref to cl_gui_alv_grid.
data: xfieldcat type lvc_t_fcat.
xfieldcat = fieldcat.
* Create Controls
create object:
     alv_container
             exporting
                   container_name    = 'ALV_CONTAINER',
     alv_grid
             exporting
                   i_parent          = alv_container.
* Set grid for first display
call method alv_grid->set_table_for_first_display(
      exporting
           i_structure_name       = 'I_ALV'
      changing
           it_outtab       = i_alv[]
           it_fieldcatalog = xfieldcat[] ).
endmodule.
*     Module USER_COMMAND_0100 INPUT
module user_command_0200 input.
case sy-ucomm.
    when 'CONTINUE' or 'CANCEL'.
      set screen 0.
      leave screen.
endcase.
endmodule.
Create the screen 200. In that screen, put a container and name it ALV_CONTAINER. As you can see from the interface, you must pass the field catalog and of course the internal table which holds the data.
Here is an example of the call to the function module.
    call function 'Z_POPUP_WITH_ALVGRID'
      exporting
*       ENDPOS_COL         = 90
*       ENDPOS_ROW         = 22
*       STARTPOS_COL       = 10
*       STARTPOS_ROW       = 2
        title              = 'This is the title'
        fieldcat           = fieldcat
      tables
        i_alv              = i_alv.
Regards,
Rich Heilman

IWeb photo captions published via ftp?

I'm new to iWeb - are photo captions published via ftp now that MobileMe is defunct? The info in Publish Site says no. As I wish to use photos purchased and downloaded from a stock agency, they must be captioned with the photographer's name. I can work around this by acknowledging the photographers in a list above the Album I've created rather than under each photo (if this proves to be acceptable to the stock agency), but this isn't ideal. Thanks for any advise you can offer.

Captions added to the images inside a photos template are published no matter where you publish your website.
The number of caption lines is chosen in the photo Grid popup window...

Which is better? single jsp or inc or diff jsp

hi,
I have 3 modes as a combo in the top of my form say new, enquiry and amend. If the user selects, new, a new screen should appear.The user can enter values and submit, so that it can be updated into the databse.
If the user selects Enquiry, getting some key fields from the user, the form should get submitted and display the result in the screen fields taking from the database.If it is amend, the user can do select and change and update the database..
In this scenaio, which one is advisable? having three different Jsps or having three different includes or working with single jsp(with bean).currently iam working with single jsp(code comes around 4000 lines + bean code comes around 1500 lines), debugging is bit tedious.
The screen has many dynamic combos, growing grids, popups generated from the grids.
Suggest me a solution.
Thanks in Advance,
Shyam

Hi , If i understood properly , u r stuck with design problems. so u follow the MVC controller technique to solve this problem. split all jsp in 4 parts or more than that if posibble. just pass the controll to the MVC object with the parameter based upon the selection of combobox. this MVC will analyse the objects parameter and based upon that will redirect to jsp's
u have to now seperate the business logic as well as the presentation logic. use Jsp's for presentation logic and for dynamic popup of the message boxes or loading combo boxes. Use JSP for business objects and use the usebean tags in the jsp's.
This will solve u r problem . try to break evry thing as simple objects as posibble. let it be even a chain of objects . it will be easy for u to debug as well as for the session management.
Good Luck.
if u need any more please feel free to mail me at [email protected]

Popup instead of list when using WD4A ALV Grid Drop Down By Key

I am develop a WD4A application and I am using an ALV grid. I have set the cell editor for one column wiht the following code:
CREATE OBJECT lr_ddbk
    EXPORTING
      SELECTED_KEY_FIELDNAME = 'ZCURRENCY'.
Data: lv_key_visable TYPE abap_bool,
        lv_key_visible_fieldname TYPE string.
   lr_ddbk->set_type( if_salv_wd_c_uie_drdn_by_index=>type_key_value ).
* lv_key_visable = lr_ddbk->GET_KEY_VISIBLE( ).
* lv_key_visible_fieldname = lr_ddbk->GET_KEY_VISIBLE_FIELDNAME( ).
* lr_ddbk->SET_KEY_VISIBLE( abap_false ).
lr_alv_column->SET_CELL_EDITOR( lr_ddbk ).
This code works fine. I then fill the drop down with the following code:
*...Build the currency drop down list
DATA lv_default_currency TYPE wdr_context_attr_value.
DATA lv_currency_count TYPE STRING.
DATA ls_tcurt TYPE tcurt.
CLEAR ls_contextvalue_set.
CLEAR lt_contextvalue_set. REFRESH lt_contextvalue_set.
CLEAR lv_default_currency.
loop at it_ac_attr into ls_ac_attr.
    if ls_ac_attr-attr_id eq 'CUR'.
      select single * from tcurt into ls_tcurt
           Where spras = 'EN' AND
                 waers = ls_ac_attr-value.
      If sy-subrc = 0.
        ls_contextvalue_set-value = ls_ac_attr-value.
     ls_contextvalue_set-value = ls_ac_attr-value.
        ls_contextvalue_set-text = ls_tcurt-ktext.
        IF ls_ac_attr-DFT_FLAG = 'X'.
          lv_default_currency = ls_contextvalue_set.
        ENDIF.
        append ls_contextvalue_set to lt_contextvalue_set.
      endif.
    Endif.
endloop.
lo_nd_zebuy_describe_item_info = lo_nd_zebuy_describe_item->get_node_info( ).
lo_nd_zebuy_describe_item_info->set_attribute_value_set(
                                exporting
                                   name = 'ZCURRENCY'
                                  value_set = lt_contextvalue_set ).
*...End build currency drop down list
This code works fine. The issue I am having is that the drop down is behaving like a search help field rather than a drop down list. Meaning a popup comes when I drop down the list. The popup has the values I have set. I don't want a popup I want a drop down list. Additionallly the field is editable (meaning I can type a value into the field as well as select a value). I want the user to only be able to select values from the list. Any help with this issue would be appreciated.

I fugured out what I was doing wrong. I was setting the cell editor to cl_salv_wd_uie_input_field later in the code by mistake.

ALV Grid with Popup Window

Hey @all,
I want to make a ALV Grid with a Popup Window. The idea is that there is a field for notes and when you click on this field a popup window should be opened where you can insert more text or if text already exists only the first column of the text is shown in field until you click on the field.
Is there any possibility to do it this way? Do I have to make a second Grid for this Popup Window? Do anybody have an example how to solve this problem?
Thank you in advance for your answers!
Greetings,
Alexander

*& Report Z_VISHVAS_ALV1
report z_vishvas_alv1.
type-pools: slis.
data: begin of i_outtab occurs 0.
 include structure sflight.
data: w_chk type c. "For multiple selection
data: end of i_outtab.
 I_OUTTAB TYPE SFLIGHT OCCURS 0,
data: i_private type slis_data_caller_exit,
 i_selfield type slis_selfield,
 w_exit(1) type c.
parameters: p_title type sy-title.
start-of-selection.
select * from sflight into table i_outtab.
call function 'REUSE_ALV_POPUP_TO_SELECT'
 exporting
 i_title = p_title
 i_selection = 'X'
 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 = 'W_CHK'
 I_LINEMARK_FIELDNAME =
 I_SCROLL_TO_SEL_LINE = 'X'
 i_tabname = 'I_OUTTAB'
 i_structure_name = 'SFLIGHT'
 IT_FIELDCAT =
 IT_EXCLUDING =
 I_CALLBACK_PROGRAM =
 I_CALLBACK_USER_COMMAND =
 IS_PRIVATE = I_PRIVATE
 importing
 es_selfield = i_selfield
 e_exit = w_exit
 tables
 t_outtab = i_outtab
 exceptions
 program_error = 1
 others = 2.
if sy-subrc <> 0.
 MESSAGE i000(0k) WITH sy-subrc.
endif.
*****the internal table is modified with a cross sign for marking the
***rows selected
loop at i_outtab where w_chk = 'X'.
 write: / i_outtab-carrid, i_outtab-price.
endloop.

To display a popup message alongwith ALV grid

Hi Experts,
I have a requirement where I need to display data using ALV Grid. Also, in case there are any errors encountered during the data extraction I need to inform the user about it by using either a popup message or a status message stating that he needs to check the error log. To display the error log I have provided a push button which will take the user to another screen where he can see all the errors encountered.
Can anyone please let me know as to how to accomplish the task of displaying a status message alongwith a ALV grid display?
Looking forward to your reply.
-Warm regards,
Prajakta K.

use exception handling and pop up.........
try following in grid..
*--Exception handling
ENDIF .
ENDIF .
WHEN 'EU' .
READ TABLE gt_list INDEX ls_selected_row-row_id .
IF sy-subrc = 0 .
CALL FUNCTION 'ZPOPUP_CONV_CURR_AND_DISPLAY'
EXPORTING monun = 'EU'
quant = gt_list-paymentsum.
ENDIF .
ENDCASE .
ENDFORM .

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

ALV Grid/Tree in Dialog Popup

Hi,
I have requirement whereby I display an partially filled ALV Grid.
To populate a specific field of the ALV I need to pop-up a dialog form on which is displayed either another ALV Grid or preferably an ALV Tree.
The data behind the Dilog ALV/Tree is a table of Parent-Child relationships.
The user will either navigate the ALV Grid by clicking on a 'Parent' and refreshing the ALV with the Children etc or do the same by expanding nodes on the ALV Tree.
When the user has reached the lowest level of the 'hierarchy' this value is returned to the initial ALV Grid.
I have had a look around the ABAP and OO Demo's and in the Weblogs etc on SDN.
However I cannot seem to 'manipulate' these into my specific requirements.
Ideally, I need to create either a FM or Class/Method which takes as input the above table of relationships, displays the dilog and then returns the selected child.
My questions are:
Can this be done?
Which is the best way for me to approach this?
Thanks,
Martin

Hi,
I have requirement whereby I display an partially filled ALV Grid.
To populate a specific field of the ALV I need to pop-up a dialog form on which is displayed either another ALV Grid or preferably an ALV Tree.
The data behind the Dilog ALV/Tree is a table of Parent-Child relationships.
The user will either navigate the ALV Grid by clicking on a 'Parent' and refreshing the ALV with the Children etc or do the same by expanding nodes on the ALV Tree.
When the user has reached the lowest level of the 'hierarchy' this value is returned to the initial ALV Grid.
I have had a look around the ABAP and OO Demo's and in the Weblogs etc on SDN.
However I cannot seem to 'manipulate' these into my specific requirements.
Ideally, I need to create either a FM or Class/Method which takes as input the above table of relationships, displays the dilog and then returns the selected child.
My questions are:
Can this be done?
Which is the best way for me to approach this?
Thanks,
Martin

How to add a Hyperlink to open popup in dynamic data grid?

Hi,
I am a new bie in FLEX, the question which I am asking might be very easy but i am not able to find solution to it. Please can some one help me.
I am creating a data grid dynamically using action script code now I want to add a Hyper link to couple of columns in a row. How can I do it in FLex?
Thanks.

HI Prashant,
Thanks for the reply.
This is what I am currently doing right now:
for
(var i:int=0; i<colNameList.length;i++) {
var headerText:String = colNameList[i] + "";
callSellGridCol = cols[i];
callSellGridCol.headerText = headerText;
if(headerText != null && headerText == "RIC"){
var myRenderer : ClassFactory = new ClassFactory(com.db.carving.synthetic.dma.view.UrlLinkRenderer);
In My Renderer class :
public
class UrlLinkRenderer extends LinkButton{
public var clickFunction:Function;
public function UrlLinkRenderer() {
super();}
// Override the set method for the data property.
override public function set data(value:Object):void{
super.data = value;
if (value != null){
label = value[DataGridListData(listData).dataField];
else{
label =
super.invalidateDisplayList();}
Now what i want is to add a new Event Listner to this object so that I can click it?
In your suggestion you said:
var classFacory:ClassFactory = new ClassFactory(LinkRenderer); // here LinkRenderer is any mxml/ as file Having Link Button defined.
Where should be the Link button defined??
Thanks.

Refresh data in popup by external event

Hi folks,
I have got a popup with an alv grid displaying data from a database table.
I want to reload the alv grid in case new entries were created outside of this popup.
I thought it would be possible to fire an ABAP OO event after writing new data to database.
The popup implements a handler for this event and this handler executes a manual refresh.
My problem is that the event handler doesn't get this external event.
In case I fire the event within the popup screen it works.
I already thought about a periodic screen refresh. But that causes to much database traffic.
Are there any suggestions?
Thanks,
Josef

Hi Joseph.,
I think periodic refresh is the way for ur requirement., U pls post ur thread here.. [ABAP OO Forum|ABAP Objects; . U will get some more useful inputs.,
Thanks & Regards
Kiran

Folder in alv grid display report

Hi Experts,
I have a requirement to generate the folder in alv grid display, to display the multiple line items where ever we have.
Actually I am displaying the material details and production order details.
If the material is having the multiple production order details , in that case we need to place all the production order details in one folder, and if you open that folder arrow, we have to display the production order details.
I am using REUSE_ALV_GRID_DISPLAY function module to develope this application. Here Hierseq list is recommended to use for this application, why because folder option is already available in grid display. that we can observe in CL6AN.
Is it possible to implement it through function modules or through OOABAP.
Actually, I have to generate the report which we can see in CL6AN Transaction code,,
Your valuable suggestions surely will attract the benifits.
Thanks in advance.
Ramesh.

Hi ramesh,
Hierseq list is not supported in the grid display. You could do this using an OO tree display but this could be rather complicated. What about displaying one field per material line with the number of production orders. At double-click on that field, open a second grid display (possibly as popup) to show the production order details.
Regards,
Clemens

Selection using check box in std ALV grid!

Hi all,
I have written a custom report to show the O/p in ALV grid.
This is my code:
TABLES :zpo_loi.
TYPE-POOLS : slis.
TYPE-POOLS: icon.
TABLES : sscrfields.
DATA : ls_composer TYPE ssfcompop,
 ls_control TYPE ssfctrlop.
DATA : wa_return TYPE TABLE OF bapiret2 ,
 wa_address TYPE bapiaddr3.
DATA : wa_crmd_orderadm_h TYPE zpo_loi,
 it_po TYPE TABLE OF crmd_orderadm_h,
 wa_po TYPE bbp_pds_header.
DATA : it_tab TYPE TABLE OF zpo_loi.
DATA : it_data TYPE TABLE OF crmd_orderadm_h,
 wa_data TYPE bbp_pds_header,
 et_data TYPE bbps_sf_po_output.
DATA : w_formname TYPE tdsfname ,
 w_sfname TYPE rs38l_fnam.
DATA :it_po_no TYPE TABLE OF select_be_obj_id,
 wa_it_po_no LIKE LINE OF it_po_no.
DATA :r_itab TYPE ddshretval OCCURS 0.
DATA : it_output LIKE TABLE OF zloi,
 wa_output TYPE zloi.
DATA : w_answer TYPE c.
DATA : g_repid LIKE sy-repid,
 g_title TYPE lvc_title,
 g_set_pf_stat TYPE slis_formname VALUE 'SET_PF_STATUS',
 g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
 g_layout TYPE slis_layout_alv,
 g_print_alv TYPE slis_print_alv,
 g_variant LIKE disvariant,
 c_char_a(1) VALUE 'A',
 c_char_x(1) VALUE 'X',
 itab_alv_sort TYPE slis_t_sortinfo_alv,
 itab_alv_fcat TYPE slis_t_fieldcat_alv.
* Internal tables Begin with IT_ *
DATA : it_fcat TYPE slis_t_fieldcat_alv, "---ALV
 it_disp TYPE TABLE OF zloi.
* Work Area for Internal tables Begin with WA_ *
DATA : wa_fcat TYPE slis_fieldcat_alv , "---ALV
 wa_layout TYPE lvc_s_layo, "---ALV
 wa_it_disp LIKE LINE OF it_disp.
DATA : it_sf_po TYPE TABLE OF crmd_orderadm_h,
 wa_sf_po TYPE bbp_pds_header.
*SELECTION-SCREEN:
* BEGIN OF SCREEN 500 AS WINDOW TITLE title,
* END OF SCREEN 500.
*DATA : functxt TYPE smp_dyntxt.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS sel_po FOR zpo_loi-zobject_id.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS : pr_loi RADIOBUTTON GROUP grp1 USER-COMMAND ucom,
 pr_fondo RADIOBUTTON GROUP grp1.
SELECTION-SCREEN END OF BLOCK b2.
* At selection-screen output *
AT SELECTION-SCREEN OUTPUT.
IF pr_fondo = 'X'.
 REFRESH sel_po.
 LOOP AT SCREEN.
 IF screen-name = text-003 OR screen-name = text-004.
 screen-input = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ELSEIF pr_loi = 'X'.
 LOOP AT SCREEN.
 IF screen-name = text-003 OR screen-name = text-004.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.
* At selection-screen on radiobutton *
AT SELECTION-SCREEN ON RADIOBUTTON GROUP grp1.
IF pr_fondo = 'X'.
 REFRESH sel_po.
 LOOP AT SCREEN.
 IF screen-name = text-003 OR screen-name = text-004.
 screen-input = '0'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ELSEIF pr_loi = 'X'.
 LOOP AT SCREEN.
 IF screen-name = text-003 OR screen-name = text-004.
 screen-input = '1'.
 MODIFY SCREEN.
 ENDIF.
 ENDLOOP.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_po-low.
PERFORM populate_table.
PERFORM f4_help.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_po-high.
PERFORM populate_table.
PERFORM f4_help.
* At selection-screen *
AT SELECTION-SCREEN.
*---CHECKING THE INPUT >>>
IF sy-ucomm = 'ONLI'.
 PERFORM f002-check_input.
 PERFORM f001-check.
ENDIF.
*& Form POPULATE_TABLE
* text
* --> p1 text
* <-- p2 text
FORM populate_table .
SELECT zobject_id
 description
FROM zpo_loi
INTO CORRESPONDING FIELDS OF TABLE it_tab.
SORT it_tab BY zobject_id ASCENDING.
ENDFORM. " POPULATE_TABLE
*& Form F4_HELP
* text
* --> p1 text
* <-- p2 text
FORM f4_help .
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 ddic_structure = ' '
 retfield = 'ZOBJECT_ID'
 dynpprog = sy-repid
 dynpnr = sy-dynnr
 dynprofield = 'A'
 value_org = 'S'
 TABLES
 value_tab = it_tab
 return_tab = r_itab.
ENDFORM. " F4_HELP
*& Form F001-CHECK
* text
* --> p1 text
* <-- p2 text
FORM f001-check .
IF pr_fondo = 'X'.
 PERFORM display_expiring_fondos.
ELSEIF pr_loi = 'X'.
 PERFORM fetch_po_det.
 PERFORM build_fcat.
 PERFORM alv_display.
ENDIF.
ENDFORM. " F001-CHECK
*& Form F002-CHECK_INPUT
* text
* --> p1 text
* <-- p2 text
FORM f002-check_input .
IF pr_loi = 'X'.
 REFRESH it_po.
 IF sel_po-low IS NOT INITIAL.
 SELECT object_id
 FROM crmd_orderadm_h
 INTO CORRESPONDING FIELDS OF TABLE it_po
 WHERE object_type = 'BUS2201'
 AND object_id = sel_po-low.
 IF sy-subrc NE 0.
 IF sel_po-high IS NOT INITIAL.
 SELECT object_id
 FROM crmd_orderadm_h
 INTO CORRESPONDING FIELDS OF TABLE it_po
 WHERE object_type = 'BUS2201'
 AND object_id = sel_po-high.
 IF sy-subrc NE 0.
 MESSAGE e009(zsrm).
 ENDIF.
 ENDIF.
 MESSAGE e007(zsrm).
 ENDIF.
 ELSE.
 MESSAGE e010(zsrm).
 ENDIF.
 IF sel_po-high IS NOT INITIAL.
 SELECT object_id
 FROM crmd_orderadm_h
 INTO CORRESPONDING FIELDS OF TABLE it_po
 WHERE object_type = 'BUS2201'
 AND object_id = sel_po-high.
 IF sy-subrc NE 0.
 MESSAGE e008(zsrm).
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " F002-CHECK_INPUT
*& Form FETCH_PO_DET
* text
* --> p1 text
* <-- p2 text
FORM fetch_po_det .
REFRESH it_po.
it_po_no[] = sel_po[].
DATA : w_count TYPE i,
 w_lines TYPE c,
 wa_header TYPE bbp_pds_po_header_d.
REFRESH : it_po,it_output.
IF sel_po-high IS NOT INITIAL.
 SELECT object_id
 description
 posting_date
 created_by
 FROM crmd_orderadm_h
 INTO CORRESPONDING FIELDS OF TABLE it_po
 WHERE object_type = 'BUS2201'
 AND object_id BETWEEN sel_po-low AND sel_po-high.
ELSE.
 SELECT object_id
 description
 posting_date
 created_by
 FROM crmd_orderadm_h
 INTO CORRESPONDING FIELDS OF TABLE it_po
 WHERE object_type = 'BUS2201'
 AND object_id = sel_po-low.
ENDIF.
w_lines = sy-dbcnt.
w_count = 1.
DO.
 IF w_count LE w_lines.
 READ TABLE it_po INTO wa_po INDEX w_count.
 MOVE wa_po-object_id TO wa_output-zzpono.
 MOVE wa_po-description TO wa_output-zzpodesc.
 MOVE wa_po-posting_date TO wa_output-zzpodate.
 MOVE wa_po-created_by TO wa_output-zzpocreator.
 CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
 EXPORTING
 i_object_id = wa_output-zzpono
 IMPORTING
 e_header = wa_header.
 CALL FUNCTION 'BAPI_USER_GET_DETAIL'
 EXPORTING
 username = wa_output-zzpocreator
 IMPORTING
 address = wa_address
 TABLES
 return = wa_return.
 CLEAR wa_output-zzpocreator.
 CONCATENATE wa_address-firstname ' ' wa_address-lastname INTO wa_output-zzpocreator .
 MOVE wa_header-total_value TO wa_output-zzpoval.
 MOVE wa_header-currency TO wa_output-zzpocur.
 APPEND wa_output TO it_output.
 w_count = w_count + 1.
 ELSE.
 EXIT.
 ENDIF.
ENDDO.
ENDFORM. " FETCH_PO_DET
*& Form BUILD_FCAT
* text
* --> p1 text
* <-- p2 text
FORM build_fcat .
g_repid = sy-repid.
g_title = 'Print LOI details'.
g_print_alv-no_print_listinfos = 'X'.
g_variant-report = sy-repid.
g_variant-variant = sy-title.
CLEAR g_layout.
g_layout-f2code = ' '.
wa_layout-zebra = 'X'.
g_layout-flexible_key = 'X'.
g_layout-colwidth_optimize = 'X'.
g_layout-detail_initial_lines = 'X'.
g_layout-box_fieldname = 'ZZCHECK'.
REFRESH it_fcat.
*Po no
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPONO' .
wa_fcat-tabname = 'IT_DISP'.
wa_fcat-seltext_m = 'Purchase Order'.
*wa_fcat-seltext_s = 'Purchase Order.
wa_fcat-icon = 'X'.
wa_fcat-col_pos = '2'.
wa_fcat-outputlen = 10.
APPEND wa_fcat TO it_fcat.
*Description
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPODESC' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'Description'.
wa_fcat-seltext_m = 'Description'.
*wa_fcat-seltext_s = 'Description'.
wa_fcat-col_pos = '3'.
wa_fcat-outputlen = 10.
APPEND wa_fcat TO it_fcat.
*Posting date
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPODATE' .
wa_fcat-tabname = 'IT_DISP'.
wa_fcat-seltext_l = 'Posting Date'.
wa_fcat-seltext_m = 'Posting Date'.
*wa_fcat-seltext_s = 'Posting Date'.
wa_fcat-col_pos = '4'.
wa_fcat-outputlen = 8.
APPEND wa_fcat TO it_fcat.
*value
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOVAL' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'PO value'.
wa_fcat-seltext_m = 'PO value'.
*wa_fcat-seltext_s = 'PO value'.
wa_fcat-col_pos = '5'.
wa_fcat-outputlen = 15.
wa_fcat-no_zero = 'X'.
APPEND wa_fcat TO it_fcat.
*Currency
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOCUR' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'PO Currency'.
wa_fcat-seltext_m = 'PO Currency'.
*wa_fcat-seltext_s = 'PO Currency'.
wa_fcat-col_pos = '6'.
wa_fcat-outputlen = 5.
APPEND wa_fcat TO it_fcat.
*Creator
CLEAR wa_fcat.
wa_fcat-fieldname = 'ZZPOCREATOR' .
wa_fcat-tabname = 'IT_DISP'.
*wa_fcat-seltext_l = 'Buyer'.
wa_fcat-seltext_m = 'Buyer'.
*wa_fcat-seltext_s = 'Buyer'.
wa_fcat-col_pos = '7'.
wa_fcat-outputlen = 12.
APPEND wa_fcat TO it_fcat.
ENDFORM. " BUILD_FCAT
*& Form ALV_DISPLAY
* text
* --> p1 text
* <-- p2 text
FORM alv_display .
SORT it_output BY zzpono.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = g_repid
 i_callback_pf_status_set = g_set_pf_stat
 i_callback_user_command = g_user_command
 i_grid_title = g_title
 is_layout = g_layout
 it_fieldcat = it_fcat[]
 is_variant = g_variant
 is_print = g_print_alv
 TABLES
 t_outtab = it_output[]
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " ALV_DISPLAY
*& Form user_command
* text
* -->R_UCOMM text
* -->RS_SELFIELD text
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield. "#EC CALLED
DATA: gd_repid LIKE sy-repid, "Exists
ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
 CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
 IMPORTING
 e_grid = ref_grid.
ENDIF.
IF NOT ref_grid IS INITIAL.
 CALL METHOD ref_grid->check_changed_data .
ENDIF.
rs_selfield-refresh = 'X'.
CASE r_ucomm.
 WHEN 'PRINTLOI'.
 PERFORM call_sf.
 WHEN 'BACK'.
 CALL SELECTION-SCREEN 1000.
 WHEN 'CANCEL'.
 CALL SELECTION-SCREEN 1000.
 WHEN 'EXIT'.
 CALL SELECTION-SCREEN 1000.
ENDCASE.
ENDFORM. "user_command
*& Form set_pf_status
* text
* -->RT_EXTAB text
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZALV' EXCLUDING rt_extab.
SET TITLEBAR 'ZALV'.
ENDFORM. "set_pf_status
*& Form CALL_SF
* text
* --> p1 text
* <-- p2 text
FORM call_sf .
REFRESH it_sf_po.
LOOP AT it_output INTO wa_output WHERE zzcheck = 'X'.
 wa_sf_po-object_id = wa_output-zzpono.
 APPEND wa_sf_po TO it_sf_po.
ENDLOOP.
w_formname = 'ZSR_EBP_DOCU_LETTEROFINTENT1'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 formname = w_formname
 IMPORTING
 fm_name = w_sfname
 EXCEPTIONS
 no_form = 1
 no_function_module = 2
 OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
ls_composer-tdnewid = 'X'.
ls_control-no_dialog = 'X'.
LOOP AT it_sf_po INTO wa_sf_po.
 CALL FUNCTION w_sfname
 EXPORTING
 control_parameters = ls_control
 output_options = ls_composer
 wa_object = wa_sf_po
 EXCEPTIONS
 formatting_error = 1
 internal_error = 2
 send_error = 3
 user_canceled = 4
 OTHERS = 5.
 IF sy-subrc <> 0.
 ENDIF.
ENDLOOP.
ENDFORM. " CALL_SF
*& Form DISPLAY_EXPIRING_FONDOS
* text
* --> p1 text
* <-- p2 text
FORM display_expiring_fondos .
SET PF-STATUS 'ZLOI'.
SET TITLEBAR 'ZLOI'.
TYPES : BEGIN OF ty_output1,
 guid TYPE bbp_guid,
 object_id TYPE crmt_object_id_db,
 description TYPE crmt_process_description,
 posting_date TYPE crmt_posting_date,
 zzfondo_dat TYPE zfondo_dat,
 created_by TYPE crmt_created_by,
 END OF ty_output1.
DATA : it_output1 TYPE TABLE OF ty_output1,
 wa_output1 TYPE ty_output1,
 w_lines,
 w_count,
 it_fondo TYPE TABLE OF zsr_fondo,
 it_temp_fondo TYPE TABLE OF zsr_fondo,
 wa_temp_fondo TYPE zsr_fondo,
 wa_fondo TYPE zsr_fondo,
 w_diff TYPE p,
 wa_header1 TYPE bbp_pds_po_header_d.
CONSTANTS : c_otype(8) VALUE 'BUS2201'.
REFRESH : it_output1,it_temp_fondo,it_fondo.
SELECT b~zzfondo_dat
 a~guid
 a~object_id
 a~description
 a~posting_date
 a~created_by
INTO CORRESPONDING FIELDS OF TABLE it_output1
FROM bbp_pdhsc AS b
LEFT OUTER JOIN crmd_orderadm_h AS a ON b~guid = a~guid
AND a~object_type = c_otype.
LOOP AT it_output1 INTO wa_output1.
 CALL FUNCTION '/SDF/CMO_DATETIME_DIFFERENCE'
 EXPORTING
 date1 = sy-datum
 date2 = wa_output1-zzfondo_dat
 IMPORTING
 datediff = w_diff
 EXCEPTIONS
 invalid_datetime = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 ENDIF.
 IF w_diff <= '7'.
 wa_temp_fondo-zzpono = wa_output1-object_id.
 APPEND wa_temp_fondo TO it_temp_fondo.
 ENDIF.
ENDLOOP.
*select the final entries for PO whose FONDO is expiring
DESCRIBE TABLE it_temp_fondo LINES w_lines.
w_count = 1.
DO.
 IF w_count LE w_lines.
 READ TABLE it_temp_fondo INTO wa_temp_fondo INDEX w_count.
 IF sy-subrc = 0.
 CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
 EXPORTING
 i_object_id = wa_temp_fondo-zzpono
 IMPORTING
 e_header = wa_header1.
 wa_fondo-zzpono = wa_temp_fondo-zzpono.
 wa_fondo-zzpodesc = wa_header1-description.
 wa_fondo-zzpodate = wa_header1-posting_date.
 wa_fondo-zzexpdate = wa_header1-zzfondo_dat.
 wa_fondo-zzpoval = wa_header1-total_value.
 wa_fondo-zzpocur = wa_header1-currency.
 wa_fondo-zzpocreator = wa_header1-created_by.
 CLEAR : wa_address.
 REFRESH wa_return.
 CALL FUNCTION 'BAPI_USER_GET_DETAIL'
 EXPORTING
 username = wa_header1-created_by
 IMPORTING
 address = wa_address
 TABLES
 return = wa_return.
 CLEAR wa_fondo-zzpocreator.
 CONCATENATE wa_address-firstname ' ' wa_address-lastname INTO wa_fondo-zzpocreator .
 w_count = w_count + 1.
 APPEND wa_fondo TO it_fondo.
 ENDIF.
 ELSE.
 EXIT.
 ENDIF.
ENDDO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_structure_name = 'ZSR_FONDO'
 i_grid_title = 'EXPIRING FONDOS'
 TABLES
 t_outtab = it_fondo[]
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
ENDFORM. " DISPLAY_EXPIRING_FONDOS
Now in my ALV grid o/p i can see the check box but if i select one row and then try to select another the first one gets deselected.
Can anybody tell me what is missing?

Hi,
Try like changing this
insted of
g_layout-f2code = ' '.
use this
g_layout-f2code = 'DISP'. " Sets fcode for when double
and
g_layout-f2code = '&ETA'. " it will display POPUP screen
Best Regards
Ranga
Edited by: Ranga Swamy on Nov 1, 2008 11:07 PM
Edited by: Ranga Swamy on Nov 1, 2008 11:17 PM

F4 help for field in ALV grid control (using ABAP objects)

Hi All,
 I have created a z table ZTAB which is a master table( with single column X). field X should be a input field in ALV Grid through F4 key. I have created searchelp and assigned it to data element of X feild, and in domain level I have assigned ZTAB as value table.
 And in ALV field catalog wrote ls_fcat-ref_tab = 'ZTAB'. But still I'm not getting list of values when I press F4.
Can anyone help me to understand what is missing here? How to call standardard F4 help?
This is very urgent..
Regards
Jaker.

u can refer to this standard program :BCALV_EDIT_08
also u wont get the list of values automatically..
declare a class :
CLASS LCL_EVENT_HANDLER DEFINITION.
PUBLIC SECTION.
 METHODS :
 handle_on_f4 for event onf4 of cl_gui_alv_grid
 importing e_fieldname es_row_no er_event_data,
ENDCLASS. "LCL_EVENT_HANDLER
implementation of class
here u pass ur internal table what u want to display as pop up for f4 help.
*& Class (Implementation) LCL_EVENT_HANDLER
 Text
CLASS LCL_EVENT_HANDLER IMPLEMENTATION.
*Method to handle F4 click.
Method handle_on_f4.
Function to create a popup and passing the values of internal table in it.
 CALL FUNCTION 'POPUP_WITH_TABLE'
 EXPORTING
 ENDPOS_COL = 60
 ENDPOS_ROW = 60
 STARTPOS_COL = 5
 STARTPOS_ROW = 5
 TITLETEXT = 'pop up'
 IMPORTING
 CHOICE = wa_grid-zfield
 TABLES
 VALUETAB = ITAB
 EXCEPTIONS
 BREAK_OFF = 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.
 RETURN.
 ENDIF.
endmethod. "handle_on_f4
ENDCLASS. "LCL_EVENT_HANDLER
hope this gives u some idea.

Grid + Popup

Similar Messages

Maybe you are looking for