topic Re: text question in Application Development and Automation Discussions

text question

Former Member — Mon, 20 Oct 2008 01:41:14 GMT

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

TITLEBAR = 'Save SOC '

DIAGNOSE_OBJECT = ' '

text_question = 'Sales Order Confirmation Will Be Archived in'

I have to use a message class in the text question, how is that possible?

Re: text question

Former Member — Mon, 20 Oct 2008 01:58:42 GMT

Not possible directly in the Function call, but you can build the TEXT_Question just before calling the functiona module using a message class and number. you can use function module MESSAGE_PREPARE to build a message and pass that to TEXT_QUESTION in the call

Re: text question

Former Member — Mon, 20 Oct 2008 02:13:10 GMT

text_question = perform message

form message.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

msg_id = 002

msg_no = 002.

endform.

if i remove the quote in th test_question, it displays an error,

if i put the quote it displays as is, it seems not to call the function.

is this syntax correct?

Re: text question

Former Member — Mon, 20 Oct 2008 02:29:18 GMT

You need to call Message_Prepapre first to build the message, then call popup fm.check below


data : v_mess(255)
data : v_mess(255), v_ans.

CALL FUNCTION 'MESSAGE_PREPARE'
  EXPORTING
    MSG_ID                       = '00'
    MSG_NO                       = '002'
 IMPORTING
   MSG_TEXT                     = v_mess
.

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
*   TITLEBAR                    = ' '
*   DIAGNOSE_OBJECT             = ' '
    TEXT_QUESTION               = v_mess

 IMPORTING
   ANSWER                      = v_ans

          .

Re: text question

Former Member — Mon, 20 Oct 2008 02:46:48 GMT

REPORT zisd_archivesoc_npsg MESSAGE-ID z10493498.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

MSG_ID = 00

MSG_NO = 002

IMPORTING

MSG_TEXT = v_mess

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

text_question = v_mess

It doesn't display anything.

v_mess(225), what is 255 for? when i enclosed id and no with quote

the program treat it as text element.

Re: text question

former_member451655 — Mon, 20 Oct 2008 02:54:19 GMT

try like this ,

*---w_count - u r Massge Text

EX:

w_count = 'Wot Even the Msg ...!'.

*---Pop Up Message to Confirm -

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

text_question = w_count " Are you certain...?

IMPORTING

answer = w_answer

EXCEPTIONS

text_not_found = 1

OTHERS = 2.

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

MESSAGE i001(zload) WITH text-006. " Func call failed contact IS

STOP.

ENDIF.

IF w_answer NE '1'.

STOP.

ENDIF.

Re: text question

Former Member — Mon, 20 Oct 2008 02:56:12 GMT

code works for me. you need to put msg_id and msg_no within single quotes unless you are passign a variable there.

255 is just the length, you can put that as type string if you want


REPORT  YTEST1.

data : v_mess type string, v_ans.

CALL FUNCTION 'MESSAGE_PREPARE'
  EXPORTING
    MSG_ID                       = '00'
    MSG_NO                       = '002'
 IMPORTING
   MSG_TEXT                     = v_mess
.

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
*   TITLEBAR                    = ' '
*   DIAGNOSE_OBJECT             = ' '
    TEXT_QUESTION               = v_mess.

Re: text question

Former Member — Mon, 20 Oct 2008 02:58:35 GMT

I created a message class Z10493498.

002: Are you certain?

I have to use it instead of text element.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

MSG_ID = 00

MSG_NO = 002

IMPORTING

MSG_TEXT = v_mess.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

titlebar = 'Save SOC '

DIAGNOSE_OBJECT = ' '

text_question = v_mess

I tried this code but the pop up shows no text, why is that?

Re: text question

Former Member — Mon, 20 Oct 2008 03:02:26 GMT

use your own message class and message # in the code


REPORT  YTEST1.

data : v_mess type string, v_ans.

CALL FUNCTION 'MESSAGE_PREPARE'
  EXPORTING
    MSG_ID                       = '00'   *<---------your message class*
    MSG_NO                       = '002'   *<-------your message number*
 IMPORTING
   MSG_TEXT                     = v_mess
.

CALL FUNCTION 'POPUP_TO_CONFIRM'
  EXPORTING
*   TITLEBAR                    = ' '
*   DIAGNOSE_OBJECT             = ' '
    TEXT_QUESTION               = v_mess.

Re: text question

Former Member — Mon, 20 Oct 2008 03:21:18 GMT

I still can't display the message.

Re: text question

Former Member — Mon, 20 Oct 2008 03:23:01 GMT

paste your code, are you getting any errors? do you have the same code as I put. which SAP version are you running

Re: text question

Former Member — Mon, 20 Oct 2008 03:25:01 GMT

do i still have to declare my message id in data declaration section,

because it treats my message class as global field?

Re: text question

Former Member — Mon, 20 Oct 2008 03:26:35 GMT

cant say unless i see your code,

Re: text question

Former Member — Mon, 20 Oct 2008 03:27:43 GMT

version 7.1

REPORT zisd_archivesoc_npsg MESSAGE-ID z10493498.

data : v_mess(225), v_ans.

call subroutine

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'SAVE'.

PERFORM save_file.

WHEN 'BACK' OR 'CANC' OR 'EXIT'.

SET SCREEN 0.

LEAVE SCREEN.

WHEN OTHERS.

ENDCASE.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

MSG_ID = z10493498

MSG_NO = 002

IMPORTING

MSG_TEXT = v_mess

FORM save_file.

CONCATENATE c_fname p_saleno INTO c_path.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

titlebar = 'Save SOC '

DIAGNOSE_OBJECT = ' '

text_question = v_mess

text_button_1 = 'Ok'

ICON_BUTTON_1 = ' '

text_button_2 = 'Cancel'

ICON_BUTTON_2 = ' '
DEFAULT_BUTTON = '1'

display_cancel_button = ''

USERDEFINED_F1_HELP = ' '
START_COLUMN = 25
START_ROW = 6
POPUP_TYPE =
IV_QUICKINFO_BUTTON_1 = ' '
IV_QUICKINFO_BUTTON_2 = ' '

IMPORTING

answer = v_answer

TABLES
PARAMETER =

EXCEPTIONS

text_not_found = 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.

ELSE.

IF v_answer = 1.

OPEN DATASET c_path FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

TRANSFER wa_header TO c_path.

LOOP AT it_item INTO wa_items.

TRANSFER wa_items TO c_path.

ENDLOOP.

TRANSFER wa_total TO c_path.

CLOSE DATASET c_path.

MESSAGE s003 WITH c_path.

ENDIF.

ENDFORM.

Re: text question

Former Member — Mon, 20 Oct 2008 03:30:35 GMT

move your call to inside the form save_file, and use single quote for msg_id and msg_no

FORM save_file.

CALL FUNCTION 'MESSAGE_PREPARE'

EXPORTING

MSG_ID = 'Z10493498'

MSG_NO = '002'

IMPORTING

MSG_TEXT = v_mess

Re: text question

Former Member — Mon, 20 Oct 2008 03:33:18 GMT

Yes!

Its done thank you very much, for the help.

Thanks a lot.