topic Re: What am I doing wrong ? in Application Development and Automation Discussions

What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 08:22:35 GMT

Hi Guys,

Well I am having a problem, I am trying this simple program what it does is it will have two pushbutton on the screen upon clicking one it will just popup a message. What I am trying to achieve is that I need to show a message box before any of the pushbuttons are displayed and a message box after the pushbuttons are displayed. Below is the code but does not seem to work once I run it.

Your help is much appreciated.

*&---------------------------------------------------------------------*

*& Report ZAABTEST6

*&---------------------------------------------------------------------*

REPORT ZAABTEST6.

TABLES sscrfields.

*--------------------------------------------------------------*

*Selection-Screen

*--------------------------------------------------------------*

SELECTION-SCREEN:

PUSHBUTTON /2(40) button1 USER-COMMAND but1,

PUSHBUTTON /2(40) button2 USER-COMMAND but2.

*--------------------------------------------------------------*

*Initialization

*--------------------------------------------------------------*

INITIALIZATION.

button1 = 'Button 1'.

button2 = 'Button 2'.

MESSAGE 'initialization' TYPE 'I'.

*--------------------------------------------------------------*

*At Selection-Screen

*--------------------------------------------------------------*

AT SELECTION-SCREEN.

CASE sscrfields.

WHEN 'BUT1'.

MESSAGE 'Button 1 was clicked' TYPE 'I'.

WHEN 'BUT2'.

MESSAGE 'Button 2 was clicked' TYPE 'I'.

ENDCASE.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

START-OF-SELECTION.

MESSAGE 'start' TYPE 'I'.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

END-OF-SELECTION.

MESSAGE 'end' TYPE 'I'.

Re: What am I doing wrong ?

former_member183073 — Wed, 19 Mar 2014 08:33:31 GMT

what do you mean by this(highlighted)?


What I am trying to achieve is that I need to show a message box before any of the pushbuttons are displayed and a message box after the pushbuttons are displayed. Below is the code but does not seem to work once I run it.

Re: What am I doing wrong ?

Former Member — Wed, 19 Mar 2014 08:34:26 GMT

Hi Aabid,

Something like this?


REPORT ZAABTEST6.

 TABLES sscrfields.

 DATA: flag.

 SELECTION-SCREEN:
        PUSHBUTTON /2(40) button1 USER-COMMAND but1,
        PUSHBUTTON /2(40) button2 USER-COMMAND but2.

 INITIALIZATION.
   button1 = 'Button 1'.
   button2 = 'Button 2'.
   MESSAGE 'initialization' TYPE 'I'.

 AT SELECTION-SCREEN.
   CASE sy-ucomm.
     WHEN 'BUT1'. flag = '1'.
     WHEN 'BUT2'. flag = '2'.
   ENDCASE.
   sscrfields-ucomm = 'ONLI'.

 START-OF-SELECTION.
   MESSAGE 'start' TYPE 'I'.

   CASE flag.
     WHEN '1'. MESSAGE 'Button 1 was clicked' TYPE 'I'.
     WHEN '2'. MESSAGE 'Button 2 was clicked' TYPE 'I'.
     WHEN  OTHERS.
   ENDCASE.

   MESSAGE 'end' TYPE 'I'.

Regards,

Luis

Re: What am I doing wrong ?

rajeevgoswami1 — Wed, 19 Mar 2014 08:40:50 GMT

Message in initialization is displayed in status bar. Its like a status message.

Re: What am I doing wrong ?

former_member821147 — Wed, 19 Mar 2014 08:45:26 GMT

Hi,

You can use below code in event INITIALIZATION, then your issue will be resolved.

INITIALIZATION.

   button1 = 'Button 1'.

   button2 = 'Button 2'.
CALL FUNCTION 'POPUP_DISPLAY_MESSAGE'
EXPORTING
*   TITEL         =
    msgid         = 'Message ID'
    msgty         = 'I'
    msgno         = 'message Number'
*   MSGV1         =
*   MSGV2         =
*   MSGV3         =
*   MSGV4         =

* MESSAGE 'initialization' TYPE 'I'. (comment this line)

and pass the message to MSGV1,V2 and V3 what you want to display.

Re: What am I doing wrong ?

VijayaKrishnaG — Wed, 19 Mar 2014 08:46:29 GMT

Hi,

I hope your code is working fine as displaying the message after clicking on the buttons. But I did not understand still what are you expecting?

Vijay

Re: What am I doing wrong ?

adrian_mejido — Wed, 19 Mar 2014 08:49:36 GMT

Hi Aabid,

The messages that are in the EVENTs: STAR-OF-SELECTION and END-OF-SELECTION, will be shown if you push the execute buttom.

For showing a popup message before the selection-screen, you should use the event LOAD-OF-PROGRAM. I have modified your code, have a look to it:

TABLES sscrfields.

*--------------------------------------------------------------*

*LOAD OF PROGRAM

*--------------------------------------------------------------*

LOAD-OF-PROGRAM.

   CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
     EXPORTING
*     TITEL        = ' '
       TEXTLINE1    = 'initialization'.
*     TEXTLINE2    = ' '
*     START_COLUMN = 25
*     START_ROW    = 6.

*--------------------------------------------------------------*

*Selection-Screen

*--------------------------------------------------------------*

   SELECTION-SCREEN:

          PUSHBUTTON /2(40) button1 USER-COMMAND but1,

          PUSHBUTTON /2(40) button2 USER-COMMAND but2.

*--------------------------------------------------------------*

*Initialization

*--------------------------------------------------------------*

INITIALIZATION.

   button1 = 'Button 1'.

   button2 = 'Button 2'.

*--------------------------------------------------------------*

*At Selection-Screen

*--------------------------------------------------------------*

AT SELECTION-SCREEN.

   CASE sscrfields.

     WHEN 'BUT1'.

       MESSAGE 'Button 1 was clicked' TYPE 'I'.

     WHEN 'BUT2'.

       MESSAGE 'Button 2 was clicked' TYPE 'I'.

   ENDCASE.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

START-OF-SELECTION.

   MESSAGE 'start' TYPE 'I'.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

END-OF-SELECTION.

   MESSAGE 'end' TYPE 'I'.

Best Regards

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 08:53:41 GMT

Well in the above I have added 2 pushbuttons on the default screen that comes when I run the code. When I run it they get displayed and then once clicked the respective event is triggered and the message comes. But what I want is I want to show a message once the program loads completely this is basically to understand the sequence of the events in a screen programs as I am still having some doubts in it. As far as I know once the program is loaded completely to display anything after I must add the code in the START-OF-SELECTION yea ? hope you understood.

Thanks

Re: What am I doing wrong ?

former_member201275 — Wed, 19 Mar 2014 08:58:47 GMT

Like this:

TABLES sscrfields.
*--------------------------------------------------------------*
*Selection-Screen
*--------------------------------------------------------------*
SELECTION-SCREEN:
BEGIN OF SCREEN 500 AS WINDOW TITLE title,
       PUSHBUTTON /2(40) button1 USER-COMMAND but1,
       PUSHBUTTON /2(40) button2 USER-COMMAND but2,
END OF SCREEN 500.
*--------------------------------------------------------------*
*Initialization
*--------------------------------------------------------------*
INITIALIZATION.
button1 = 'Button 1'.
button2 = 'Button 2'.
*--------------------------------------------------------------*
*At Selection-Screen
*--------------------------------------------------------------*
AT SELECTION-SCREEN.
CASE sscrfields.
    WHEN 'BUT1'.
      MESSAGE 'Button 1 was clicked' TYPE 'I'.
    WHEN 'BUT2'.
      MESSAGE 'Button 2 was clicked' TYPE 'I'.
ENDCASE.
*--------------------------------------------------------------*
*At START-OF-SELECTION
*--------------------------------------------------------------*
START-OF-SELECTION.
title = 'MY title'.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel        = 'MSG'
      textline1    = 'message box BEFORE'
      textline2    = 'pushbuttons are displayed'
      start_column = 25
      start_row    = 6.
CALL SELECTION-SCREEN '0500'.
*--------------------------------------------------------------*
*At START-OF-SELECTION
*--------------------------------------------------------------*
END-OF-SELECTION.
CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel        = 'MSG'
      textline1    = 'message box AFTER'
      textline2    = 'pushbuttons are displayed'
      start_column = 25
      start_row    = 6.

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 09:01:20 GMT

Hi Luis,

Appreciate the code a lot. Well from this I understood something else which is great but again what I am trying to do is understand the sequence of events that comes in a screen program. So all I want to do is prompt a message dialog once the whole screen is loaded I just want to know if I am to add it in the START-OF-SELECTION. event which I am done as you can see in the above code but it does appear once the screen is loaded.

Basically I need.

1. Run the program.

2. Then the pushbuttons will get created on the screen.

3. Once done prompt a message box telling for an eg: 'Program loaded' or something like that

thanks.

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 09:05:41 GMT

Hi Adrian,

Exactly what I wanted. I just want to know if I can trigger a message box once all the pushuttons are displayed as well.

thanks.

Re: What am I doing wrong ?

adrian_mejido — Wed, 19 Mar 2014 09:11:04 GMT

Nice to help you,

If you mean to show the message popup when the buttons are shown, for that, you have to put the

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' in the initialization event.

Best Regards.

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 09:11:14 GMT

Hi Glen,

Yup something like this is what I wanted thanks a lot. When exiting after running the above code the following message is displayed as done in your code

" message box AFTER pushbuttons are displayed"

I want this message to come once the code is completely loaded.

so basically its like

1. run the code.

2. display message 'program loaded'.

3. once I click ok display the pushbuttons.

4. then display a message 'pushbuttons loaded' .

something like that ...

regards

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 09:14:14 GMT

Hi,

Thanks again will check that out,

regards

Re: What am I doing wrong ?

former_member183073 — Wed, 19 Mar 2014 09:17:59 GMT

you can use AT SELECTION-SCREEN OUTPUT event for displaying message. try using a flag as it executes for all events also

data: lv_flag type flag. // this should be some global variable

AT SELECTION-SCREEN OUTPUT.

if lv_flag is initial.
CALL FUNCTION 'POPUP_TO_INFORM'
    EXPORTING
      titel         = 'Loaded Successfully'
      txt1          = 'Loaded'
      txt2          = 'Loaded1'.

lv_flag = 'x'.

endif.

Re: What am I doing wrong ?

Former Member — Wed, 19 Mar 2014 09:19:23 GMT

I have made some modification in your code.Please check if it suits your requirement.

   TABLES sscrfields.

*--------------------------------------------------------------*

*Selection-Screen

*--------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF SCREEN 9000 as window.
SELECTION-SCREEN:
       PUSHBUTTON /2(40) button1 USER-COMMAND but1,

       PUSHBUTTON /2(40) button2 USER-COMMAND but2.
selection-screen end of screen 9000 .

*--------------------------------------------------------------*

*Initialization

*--------------------------------------------------------------*

INITIALIZATION.

   button1 = 'Button 1'.

   button2 = 'Button 2'.

     MESSAGE 'initialization' TYPE 'I'.

call SELECTION-SCREEN 9000 starting at 10 05.

*--------------------------------------------------------------*

*At Selection-Screen

*--------------------------------------------------------------*

AT SELECTION-SCREEN.

   CASE sscrfields.

     WHEN 'BUT1'.

       MESSAGE 'Button 1 was clicked' TYPE 'I'.

     WHEN 'BUT2'.

       MESSAGE 'Button 2 was clicked' TYPE 'I'.

   ENDCASE.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

START-OF-SELECTION.

   MESSAGE 'start' TYPE 'I'.

*--------------------------------------------------------------*

*At START-OF-SELECTION

*--------------------------------------------------------------*

END-OF-SELECTION.

   MESSAGE 'end' TYPE 'I'.

Re: What am I doing wrong ?

aabida_majeed — Wed, 19 Mar 2014 09:28:56 GMT

Hi Monami,

Not exactly what I want but really appreciate the effort .

thanks.