popup window

[Former Member]

Hi Experts,

I am working on Costing For Purchase Order in ALV.

I want to make a popup Window to display the Pricing calculation to be display as popup window on click for the price column.

Please guide me to proceed with this work.

Thanks in Advance.

[Former Member]

Hello,

You can use the Hotspot Option for the Values of your Column and when you Click on it, just use the FM

POPUP_FOR_INFORMATION for your Calculations display.

Thanks and Regards,

Venkat Phani Prasad Konduri

[Former Member]

You can use POPUP_FOR_INTERACTION.

Put the Headline, Message u want to display in

Text1, give TICON an the button..

Hope that helps.

[Former Member]

Hi Boopathy,

You can do it by triggering the user command event.

Inside the event just call the following FM:

REUSE_ALV_POPUP_TO_SELECT

Hope this will help.

Regards,

Nitin.

[Former Member]

Hi,

Here you use REUSE_ALV_POPUP_TO_SELECT function module as said above.

Check out this sample code.

TYPE-POOLS:slis.

DATA:it_fieldcat TYPE slis_t_fieldcat_alv,

wa_field LIKE LINE OF it_fieldcat.

DATA:it_fieldcat1 TYPE slis_t_fieldcat_alv,

wa_field1 LIKE LINE OF it_fieldcat.

DATA: BEGIN OF it_likp OCCURS 0,

vbeln TYPE likp-vbeln,

END OF it_likp.

DATA: BEGIN OF it_likp1 OCCURS 0,

vbeln TYPE likp-vbeln,

ernam TYPE likp-ernam,

END OF it_likp1.

wa_field-fieldname = 'VBELN'.

wa_field-tabname = 'IT_LIKP'.

wa_field-hotspot = 'X'.

APPEND wa_field TO it_fieldcat.

SELECT vbeln FROM likp

UP TO 10 ROWS

INTO TABLE it_likp.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

i_callback_user_command = 'USER_COMMAND'

it_fieldcat = it_fieldcat

TABLES

t_outtab = it_likp

EXCEPTIONS

program_error = 1.

&----

---

*& Form user_Command

&----

---

• text

----

---

• -->UCOMM text

• -->SELFIELD text

----

---

FORM user_command USING ucomm TYPE sy-ucomm

selfield TYPE slis_selfield.

CASE ucomm.

WHEN '&IC1'.

IF selfield-fieldname = 'VBELN'.

SELECT vbeln ernam FROM likp

UP TO 10 ROWS

INTO TABLE it_likp1.

wa_field1-fieldname = 'VBELN'.

wa_field1-tabname = 'IT_LIKP1'.

wa_field1-hotspot = 'X'.

APPEND wa_field1 TO it_fieldcat1.

wa_field1-fieldname = 'ERNAM'.

wa_field1-tabname = 'IT_LIKP1'.

wa_field1-hotspot = 'X'.

APPEND wa_field1 TO it_fieldcat1.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

i_title = 'Select Data'

i_selection = 'X'

• I_ALLOW_NO_SELECTION = 'X'

i_zebra = 'X'

i_screen_start_column = 5

i_screen_start_line = 5

i_screen_end_column = 50

i_screen_end_line = 10

• I_CHECKBOX_FIELDNAME =

• I_LINEMARK_FIELDNAME =

• I_SCROLL_TO_SEL_LINE = 'X'

i_tabname = 'IT_LIKP1'

• I_STRUCTURE_NAME =

it_fieldcat = it_fieldcat1

• IT_EXCLUDING =

i_callback_program = sy-repid

• I_CALLBACK_USER_COMMAND =

• IS_PRIVATE =

• IMPORTING

• ES_SELFIELD =

• E_EXIT =

TABLES

t_outtab = it_likp1

• 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.

ENDIF.

ENDCASE.

ENDFORM. "user_Command

Hope this will be useful to you.

Thanks.