hi

Former Member — Tue, 30 Oct 2007 15:04:23 GMT

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

with functionality.

regards,

Vaasu.

Re: hi

Former Member — Tue, 30 Oct 2007 15:06:22 GMT

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.

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.

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.

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.

FORM METH.

WRITE:/ 'PLAN',Z243_CUS_PL_DETB-PL_CID,

'NAME',Z243_CUS_PL_DETB-AG_ID.

ENDFORM.

Regards

Siva

Message was edited by:

Alvaro Tejada Galindo

Re: hi

Former Member — Tue, 30 Oct 2007 15:24:32 GMT

Hi,

Please look into the below program.

<b>demo_sel_screen_with_subscreen</b>

Thanks,

Sriram Ponna.

topic Re: hi in Application Development and Automation Discussions

hi

Re: hi

Re: hi