Pop-up window requirement

[Former Member]

Hi All,

Would appreciate if some one could help me on this-I need to show a pop-up window with some data from Ztable in CRM4.0, currently i am using this function module POPUP_TO_INFORM with this i am able to declare only 5 variables and the requirement is more than 5 variables.

Point will be given..!

Reg,

Surender

[Former Member]

Hi,

Please create a screen where you can show all the data you want show on that window.

Call that screen whenever required.

[Former Member]

copy the same fm in to zfm...............and add more fields..As per the reque....

Regards

Anbu B

[Former Member]

Plz refer -

Regards,

Aparna Gaikwad

[Former Member]

hi...

USE THIS fm POPUP_TO_DECIDE_INFO .

Parameters required for this FM is the Text you require to display on the popup window.

Two buttons automatically comes on this window a Tick and a x sign if you click tick the output varaible ANSWER is J else it is A .

or

See the below Example:

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SEL_NBA-LOW.

PERFORM ZNEW_VALUE_HELP_NBA.

FORM ZNEW_VALUE_HELP_NBA.

SELECT DISTINCT ZBAREA FROM ZDIVNBABU INTO TABLE ITAB_NBA.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

ENDPOS_COL = 30

ENDPOS_ROW = 40

STARTPOS_COL = 20

STARTPOS_ROW = 30

TITLETEXT = 'Please Choose Your Entry'

IMPORTING

CHOISE = COUNTS

TABLES

VALUETAB = ITAB_NBA

EXCEPTIONS

BREAK_OFF = 1

OTHERS = 2.

IF COUNTS NE 0.

READ TABLE ITAB_NBA INDEX COUNTS.

SEL_NBA-LOW = ITAB_NBA-ZBAREA.

ENDIF.

CLEAR :ITAB_NBA,COUNTS.REFRESH:ITAB_NBA.

ENDFORM. " ZNEW_VALUE_HELP_NBA

[Former Member]

hiii

try this also

call function 'POPUP_TO_CONFIRM'

exporting

text_question = text-005 " Are you certain...?

importing

answer = w_answer

exceptions

text_not_found = 1

others = 2.

if sy-subrc <> 0. " Function call failed.

message i000 with text-006. " Func call failed contact IS

stop.

endif.

if w_answer ne '1'.

message i000 with text-007. " Proc cancelled - no update

stop.

endif.

endif. " Update requested

endif. " User pressed 'execute' or 'execute and print

Popups can be annoying, especially for experienced users, so our recommendation is that they be used sparingly.

'

[Former Member]

Hi please check the code I have written for a custom function module for a similar requirement, I am sure it will help you.

*"----

---

""Local Interface:

*" IMPORTING

*" VALUE(SALESDOCUMENT) TYPE BAPIVBELN-VBELN

*" EXPORTING

*" VALUE(ENDLEADTME) TYPE BAPICM61M-WZTER

*" VALUE(AV_QTY_PLT) TYPE BAPICM61V-WKBST

*" VALUE(DIALOGFLAG) TYPE BAPICM61V-DIAFL

*" TABLES

*" WMDVSX STRUCTURE BAPIWMDVS

*" WMDVEX STRUCTURE BAPIWMDVE

*"----

---

DATA : p_ans TYPE c,

v_txt1 TYPE char35,

v_txt2 TYPE char10,

v_txt TYPE char50,

v_txt3 TYPE char35,

v_txt4 TYPE char10,

v_txt5 TYPE char50.

• parameters LIKE spar OCCURS 0 WITH HEADER LINE.

DATA: v_usrlines TYPE i,

v_begrow TYPE sy-curow VALUE 1,

v_ans LIKE sy-tabix.

TYPES: BEGIN OF ty_wf,

plant TYPE werks_d,

material TYPE matnr,

unit TYPE meinh,

lgort TYPE lgort_d,

KWMENG TYPE KWMENG,

END OF ty_wf.

TYPES: BEGIN OF ty_final,

material TYPE matnr,

plant TYPE werks_d,

unit TYPE meinh,

KWMENG TYPE KWMENG,

av_qty_plt TYPE bapicm61v-wkbst,

END OF ty_final.

DATA: wa_wf TYPE ty_wf,

wa_final TYPE ty_final.

DATA: it_wf TYPE STANDARD TABLE OF ty_wf,

it_final TYPE STANDARD TABLE OF ty_final.

CLEAR wa_wf.

SELECT werks

matnr

meins

lgort

KWMENG

FROM vbap

INTO TABLE it_wf

WHERE vbeln EQ salesdocument.

IF sy-subrc EQ 0.

LOOP AT it_wf INTO wa_wf.

CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY'

EXPORTING

plant = wa_wf-plant

material = wa_wf-material

unit = wa_wf-unit

• CHECK_RULE =

stge_loc = wa_wf-lgort

• BATCH =

• CUSTOMER =

• DOC_NUMBER =

• ITM_NUMBER =

• WBS_ELEM =

• STOCK_IND =

• DEC_FOR_ROUNDING =

• DEC_FOR_ROUNDING_X =

• READ_ATP_LOCK =

• READ_ATP_LOCK_X =

• MATERIAL_EVG =

IMPORTING

endleadtme = endleadtme

av_qty_plt = av_qty_plt

dialogflag = dialogflag

• RETURN =

TABLES

wmdvsx = wmdvsx

wmdvex = wmdvex .

wa_final-plant = wa_wf-plant.

wa_final-material = wa_wf-material.

wa_final-unit = wa_wf-unit.

wa_final-av_qty_plt = av_qty_plt.

wa_final-KWMENG = wa_wf-KWMENG.

APPEND wa_final TO it_final.

ENDLOOP.

DESCRIBE TABLE it_final LINES v_usrlines.

v_usrlines = v_begrow + v_usrlines.

CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 60

endpos_row = v_usrlines

startpos_col = 1

startpos_row = v_begrow

titletext = 'USER DISPLAY'

IMPORTING

choise = v_ans

TABLES

valuetab = it_final

EXCEPTIONS

break_off = 1

OTHERS = 2.

IF sy-subrc EQ 0.

READ TABLE it_final INTO wa_final INDEX v_ans.

v_txt1 = 'MATERIAL QUANTITY AVAILABLE IS'.

v_txt2 = wa_final-av_qty_plt.

v_txt3 = 'MATERIAL QUANTITY ORDERED'.

v_txt4 = wa_final-KWMENG.

CONCATENATE v_txt1 v_txt2 INTO v_txt.

CONCATENATE v_txt3 v_txt4 INTO v_txt5.

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

EXPORTING

titel = 'MATERIAL AVAILABILTY STATUS'

textline1 = v_txt5

TEXTLINE2 = v_txt

start_column = 25

start_row = 6.

ENDIF.

ELSE.

MESSAGE i001(zd) WITH 'No material ordered for for the current sales order'.

ENDIF.

ENDFUNCTION.

****************************************************************************************************

With best wishes,

Murthy.

[Former Member]

Hi,

You need to write a Zfunction module with 'POPUP_WITH_TABLE_DISPLAY' function module.

thanx.