Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

hi

Former Member

‎2007 Oct 30 3:04 PM

0 Likes
451

hi can any one tell how to add the button on selection screen or in pop up window

with functionality.

regards,

Vaasu.

Reply
2 REPLIES 2
Read only

Former Member

‎2007 Oct 30 3:06 PM

0 Likes
415

hi,

chk this program.

TABLES: Z243_AGENT,Z243_MAT,Z243_CUS_PL_DETB.

SELECTION-SCREEN: BEGIN OF SCREEN 600 AS SUBSCREEN.

SELECTION-SCREEN:BEGIN OF BLOCK BLK2 WITH FRAME TITLE RH1.

PARAMETERS: CUSNAM(10) TYPE C.

PARAMETERS: ID(10) TYPE C.

PARAMETERS: AGE(10) TYPE C.

PARAMETERS: SEX(10) TYPE C.

SELECTION-SCREEN END OF BLOCK BLK2.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 10(10) SAVE1 USER-COMMAND SAVE1 ,

PUSHBUTTON 30(15) CLEAR1 USER-COMMAND CLEAR1 .

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF SCREEN 600.

SELECTION-SCREEN: BEGIN OF SCREEN 500 AS SUBSCREEN.

SELECTION-SCREEN:BEGIN OF BLOCK BLK3 WITH FRAME TITLE RH2.

PARAMETERS: CLASSID(10) TYPE C.

PARAMETERS: CLASSTYP(10) TYPE C.

PARAMETERS: NOSEAT(10) TYPE C.

SELECTION-SCREEN END OF BLOCK BLK3.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 10(10) SAVE2 USER-COMMAND SAVE2 ,

PUSHBUTTON 30(15) CLEAR2 USER-COMMAND CLEAR2 .

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF SCREEN 500.

SELECTION-SCREEN:BEGIN OF SCREEN 700.

SELECTION-SCREEN:BEGIN OF TABBED BLOCK MYTABS FOR 10 LINES,

TAB (10) TAB1 USER-COMMAND TABB1,

TAB (10) TAB2 USER-COMMAND TABB2,

END OF BLOCK MYTABS.

SELECTION-SCREEN:END OF SCREEN 700.

&--

SCREEN1--

SELECTION-SCREEN: BEGIN OF SCREEN 1001.

PARAMETERS :LOGINID LIKE Z243_MAT-AG_NAM MODIF ID PW1,

PASWRD LIKE Z243_MAT-PWD MODIF ID PW2.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 10(15) BUTTON1 USER-COMMAND LOGIN,

PUSHBUTTON 35(15) BUTTON2 USER-COMMAND EXIT.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF SCREEN 1001.

SELECTION-SCREEN: BEGIN OF SCREEN 1002.

PARAMETERS:NEWAGT RADIOBUTTON GROUP rad USER-COMMAND radio1 MODIF ID 1,

LISTAGT RADIOBUTTON GROUP rad MODIF ID 2.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 10(15) BUTTON3 USER-COMMAND OK,

PUSHBUTTON 30(15) BUTTON8 USER-COMMAND SUBAGENT,

PUSHBUTTON 55(15) BUTTON4 USER-COMMAND CANCEL.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF SCREEN 1002.

SELECTION-SCREEN: BEGIN OF SCREEN 1003.

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TIT1.

PARAMETERS: MAS_AG LIKE Z243_MAT-AG_NAM DEFAULT 'A',"MODIF ID PW3,

AG_ID LIKE Z243_AGENT-AGENT_ID DEFAULT '3' ,"MODIF ID PW4,

PWD LIKE Z243_MAT-PWD DEFAULT '245738'," MODIF ID PW5,

NAM LIKE Z243_AGENT-AGENT_NAM OBLIGATORY,

ADD LIKE Z243_AGENT-ADDR OBLIGATORY.

SELECTION-SCREEN: SKIP 2,

PUSHBUTTON 10(15) BUTTON5 USER-COMMAND SAVE,

PUSHBUTTON 35(15) BUTTON6 USER-COMMAND CANCEL1.

SELECTION-SCREEN: END OF BLOCK B1.

SELECTION-SCREEN: END OF SCREEN 1003.

SELECTION-SCREEN: BEGIN OF SCREEN 1004.

SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME TITLE TIT2.

SELECTION-SCREEN: BEGIN OF LINE,

PUSHBUTTON 10(15) BUTTON7 USER-COMMAND EXECUTE.

SELECTION-SCREEN: END OF LINE.

SELECT-OPTIONS: PLAN FOR Z243_CUS_PL_DETB-PL_CID.

.

SELECTION-SCREEN: END OF BLOCK B2.

SELECTION-SCREEN: END OF SCREEN 1004.

&--

INITIALIZATION--

INITIALIZATION.

BUTTON1 = 'LOGIN'.

BUTTON2 = 'EXIT'.

BUTTON3 = 'OK'.

BUTTON4 = 'CANCEL'.

BUTTON5 = 'SAVE'.

BUTTON6 = 'CANCEL'.

BUTTON7 = 'EXECUTE'.

SAVE1 = 'NEXT'.

CLEAR1 = 'CANCEL'.

BUTTON8 = 'NEW CUSTOMER'.

MYTABS-PROG = SY-REPID.

MYTABS-DYNNR = 600.

MYTABS-ACTIVETAB = 'TABB1'.

TAB1 = 'PERSONAL DETAILS'.

TAB2 = 'POLICY DETAILS'.

CALL SELECTION-SCREEN 1001.

&--

AT SELECTION--

AT SELECTION-SCREEN.

CASE SY-UCOMM.

WHEN 'LOGIN'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'PW1' .

IF PASWRD = '******'.

CALL SELECTION-SCREEN 1002.

ELSE.

LEAVE.

ENDIF.

ENDIF.

ENDLOOP.

WHEN'EXIT'.

LEAVE .

ENDCASE.

*CASE SY-UCOMM.

  • WHEN 'LOGIN'.

  • LOOP AT IT_MAT INTO WA_MAT.

  • IF WA_MAT-AG_NAM = LOGINID AND WA_MAT-PWD = PWD.

  • CALL SELECTION-SCREEN 1002.

  • ENDIF.

  • ENDLOOP.

  • WHEN 'EXIT'.

  • LEAVE .

*

  • ENDCASE.

CASE SY-UCOMM.

WHEN 'OK'.

CALL SELECTION-SCREEN 1003.

WHEN'EXIT'.

LEAVE .

WHEN'CANCEL'.

LEAVE .

ENDCASE.

DATA:WA LIKE Z243_AGENT.

CASE SY-DYNNR.

WHEN '1003'.

  • IF SCREEN-GROUP1 = 'PW3' .

  • MAS_AG = Z243_MAT-AG_NAM.

SELECT * FROM Z243_MAT INTO WA WHERE MAS_AG_ID = 'MA001'.

WA = Z243_MAT-AG_NAM.

MAS_AG = WA.

ENDSELECT.

CASE SY-UCOMM.

WHEN 'SAVE'.

Z243_AGENT-AGENT_ID = AG_ID.

Z243_AGENT-AGENT_NAM = NAM.

Z243_AGENT-PWD = PWD.

Z243_AGENT-ADDR = ADD.

MODIFY Z243_AGENT.

WHEN 'CANCEL1'.

CALL SELECTION-SCREEN 1004.

ENDCASE.

ENDCASE.

CASE SY-DYNNR.

WHEN '1004'.

CASE SY-UCOMM.

WHEN 'EXECUTE'.

PERFORM METH.

ENDCASE.

WHEN '1002'.

CASE SY-UCOMM.

WHEN 'SUBAGENT'.

CALL SELECTION-SCREEN 700.

ENDCASE.

ENDCASE.

CASE sy-dynnr.

WHEN 700.

CASE SY-UCOMM.

WHEN 'TABB1'.

MYTABS-DYNNR = 600.

MYTABS-ACTIVETAB = 'TAB1'.

WHEN 'TABB2'.

MYTABS-DYNNR = 500.

MYTABS-ACTIVETAB = 'TAB2'.

ENDCASE.

ENDCASE.

FORM METH.

WRITE:/ 'PLAN',Z243_CUS_PL_DETB-PL_CID,

'NAME',Z243_CUS_PL_DETB-AG_ID.

ENDFORM.

<b><REMOVED BY MODERATOR></b>

Regards

Siva

Message was edited by:

Alvaro Tejada Galindo

Read only

Former Member

‎2007 Oct 30 3:24 PM

0 Likes
415

Hi,

Please look into the below program.

<b>demo_sel_screen_with_subscreen</b>

Thanks,

Sriram Ponna.