topic Re: problem with tabbed screen in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/problem-with-tabbed-screen/m-p/5900362#M1327940 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>find below code</P><P></P><P>Report ZTEST.DATA flag(1) TYPE c.* SUBSCREEN 1SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.</P><P>SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.</P><P>PARAMETERS: Field1(20) TYPE c,</P><P> Field2(20) TYPE c,</P><P> Field3(20) TYPE c.</P><P>SELECTION-SCREEN END OF BLOCK b1.</P><P>SELECTION-SCREEN END OF SCREEN 100.* SUBSCREEN 2SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.</P><P>SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.</P><P>PARAMETERS: q1(20) TYPE c ,</P><P> q2(20) TYPE c ,</P><P> q3(20) TYPE c .</P><P>SELECTION-SCREEN END OF BLOCK b2.</P><P>SELECTION-SCREEN END OF SCREEN 200.* STANDARD SELECTION SCREENSELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,</P><P> TAB (20) button1 USER-COMMAND push1,</P><P> TAB (20) button2 USER-COMMAND push2,</P><P> END OF BLOCK mytab.INITIALIZATION.</P><P> button1 = 'TAB1'.</P><P> button2 = 'TAB2'.</P><P> mytab-prog = sy-repid.</P><P> mytab-dynnr = 100.</P><P> mytab-activetab = 'BUTTON1'.AT SELECTION-SCREEN.</P><P> CASE sy-dynnr.</P><P> WHEN 1000.</P><P> CASE sy-ucomm.</P><P> WHEN 'PUSH1'.</P><P> mytab-dynnr = 100.</P><P> mytab-activetab = 'BUTTON1'.</P><P> WHEN 'PUSH2'.</P><P> mytab-dynnr = 200.</P><P> mytab-activetab = 'BUTTON2'.</P><P> ENDCASE.</P><P> WHEN 100.</P><P> MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.</P><P> WHEN 200.</P><P> MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.</P><P> ENDCASE.MODULE init_0100 OUTPUT.</P><P> LOOP AT SCREEN.</P><P> IF screen-group1 = 'MOD'.</P><P> CASE flag.</P><P> WHEN 'X'.</P><P> screen-input = '1'.</P><P> WHEN ' '.</P><P> screen-input = '0'.</P><P> ENDCASE.</P><P> MODIFY SCREEN.</P><P> ENDIF.</P><P> ENDLOOP.</P><P>ENDMODULE.MODULE user_command_0100 INPUT.</P><P> MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.</P><P> CASE sy-ucomm.</P><P> WHEN 'TOGGLE'.</P><P> IF flag = ' '.</P><P> flag = 'X'.</P><P> ELSEIF flag = 'X'.</P><P> flag = ' '.</P><P> ENDIF.</P><P> ENDCASE.</P><P>ENDMODULE.START-OF-SELECTION.</P><P> WRITE: / 'Field1:', Field1,'Q1:', q1,</P><P> / 'Field2:', Field2,'Q2:', q2,</P><P> / 'Field3:', Field3,'Q3:', q3.</P><P></P><P>regards,</P><P>Rama reddy</P></BODY></HTML> Wed, 15 Jul 2009 16:43:55 GMT Former Member 2009-07-15T16:43:55Z problem with tabbed screen https://community.sap.com/t5/application-development-and-automation-discussions/problem-with-tabbed-screen/m-p/5900361#M1327939 <HTML><HEAD></HEAD><BODY><P>how can i capture the ok code for enter in my tabbed screen?</P></BODY></HTML> Wed, 15 Jul 2009 16:38:15 GMT https://community.sap.com/t5/application-development-and-automation-discussions/problem-with-tabbed-screen/m-p/5900361#M1327939 Former Member 2009-07-15T16:38:15Z Re: problem with tabbed screen https://community.sap.com/t5/application-development-and-automation-discussions/problem-with-tabbed-screen/m-p/5900362#M1327940 <HTML><HEAD></HEAD><BODY><P>Hi,</P><P></P><P>find below code</P><P></P><P>Report ZTEST.DATA flag(1) TYPE c.* SUBSCREEN 1SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.</P><P>SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.</P><P>PARAMETERS: Field1(20) TYPE c,</P><P> Field2(20) TYPE c,</P><P> Field3(20) TYPE c.</P><P>SELECTION-SCREEN END OF BLOCK b1.</P><P>SELECTION-SCREEN END OF SCREEN 100.* SUBSCREEN 2SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.</P><P>SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.</P><P>PARAMETERS: q1(20) TYPE c ,</P><P> q2(20) TYPE c ,</P><P> q3(20) TYPE c .</P><P>SELECTION-SCREEN END OF BLOCK b2.</P><P>SELECTION-SCREEN END OF SCREEN 200.* STANDARD SELECTION SCREENSELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,</P><P> TAB (20) button1 USER-COMMAND push1,</P><P> TAB (20) button2 USER-COMMAND push2,</P><P> END OF BLOCK mytab.INITIALIZATION.</P><P> button1 = 'TAB1'.</P><P> button2 = 'TAB2'.</P><P> mytab-prog = sy-repid.</P><P> mytab-dynnr = 100.</P><P> mytab-activetab = 'BUTTON1'.AT SELECTION-SCREEN.</P><P> CASE sy-dynnr.</P><P> WHEN 1000.</P><P> CASE sy-ucomm.</P><P> WHEN 'PUSH1'.</P><P> mytab-dynnr = 100.</P><P> mytab-activetab = 'BUTTON1'.</P><P> WHEN 'PUSH2'.</P><P> mytab-dynnr = 200.</P><P> mytab-activetab = 'BUTTON2'.</P><P> ENDCASE.</P><P> WHEN 100.</P><P> MESSAGE s888(sabapdocu) WITH text-040 sy-dynnr.</P><P> WHEN 200.</P><P> MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.</P><P> ENDCASE.MODULE init_0100 OUTPUT.</P><P> LOOP AT SCREEN.</P><P> IF screen-group1 = 'MOD'.</P><P> CASE flag.</P><P> WHEN 'X'.</P><P> screen-input = '1'.</P><P> WHEN ' '.</P><P> screen-input = '0'.</P><P> ENDCASE.</P><P> MODIFY SCREEN.</P><P> ENDIF.</P><P> ENDLOOP.</P><P>ENDMODULE.MODULE user_command_0100 INPUT.</P><P> MESSAGE s888(sabapdocu) WITH text-050 sy-dynnr.</P><P> CASE sy-ucomm.</P><P> WHEN 'TOGGLE'.</P><P> IF flag = ' '.</P><P> flag = 'X'.</P><P> ELSEIF flag = 'X'.</P><P> flag = ' '.</P><P> ENDIF.</P><P> ENDCASE.</P><P>ENDMODULE.START-OF-SELECTION.</P><P> WRITE: / 'Field1:', Field1,'Q1:', q1,</P><P> / 'Field2:', Field2,'Q2:', q2,</P><P> / 'Field3:', Field3,'Q3:', q3.</P><P></P><P>regards,</P><P>Rama reddy</P></BODY></HTML> Wed, 15 Jul 2009 16:43:55 GMT https://community.sap.com/t5/application-development-and-automation-discussions/problem-with-tabbed-screen/m-p/5900362#M1327940 Former Member 2009-07-15T16:43:55Z