topic Re: Screens in Application Development and Automation Discussions

Screens

govind_parmar — Fri, 17 Nov 2006 07:29:44 GMT

Hi everyone,,

I had created a main screen with a tabbed strip.It includes 5 subscreens.

how should be the declaration part of the main screen ?

the code below is how i declared but there is an error " Generation of Screen 1010 is not possible".

Screen 1010 is the Main Screen.The subscreens are 110,120,130,140,150.

*--- subscreen 1

SELECTION-SCREEN BEGIN OF SCREEN 110 AS SUBSCREEN .

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-110.

SELECT-OPTIONS: s_vbeln FOR v_vbeln, " Sales document

s_bstkd FOR v_bstkd, " Customer purchase

" order number

s_kunnr FOR v_kunnr, " Customer number

s_werks FOR v_werks, " Plant (Own or External)

s_lifsk FOR v_lifsk. " Delivery block

" (document header)

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 110.

*---Subscreen 2

SELECTION-SCREEN BEGIN OF SCREEN 120 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-120.

SELECT-OPTIONS: s_lfgsk FOR v_lfgsk, " Delivery block

" (document header)

s_lfgsa FOR v_lfgsa, " Overall delivery

" status of the item

s_spart1 FOR v_spart1, " Division

s_prctr FOR v_prctr. " Profit center

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN END OF SCREEN 120.

*-- subscreen 3

SELECTION-SCREEN BEGIN OF SCREEN 130 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b8 WITH FRAME TITLE text-130.

SELECT-OPTIONS : s_vbeln1 FOR v_vbeln1, " Delivery

s_posnr FOR v_posnr, " Delivery Item

s_pstyv FOR v_pstyv, " Delivery Item Category

s_ernam1 FOR v_ernam1. " Name of the Person who Created

SELECTION-SCREEN END OF BLOCK b8.

SELECTION-SCREEN END OF SCREEN 130.

*-- subscreen 4

SELECTION-SCREEN BEGIN OF SCREEN 140 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b9 WITH FRAME TITLE text-140.

SELECT-OPTIONS : s_vbeln2 FOR v_vbeln2, " Preceding sales and distribution document

s_posnv FOR v_posnv, " Preceding item of an SD document

s_brgew FOR v_brgew, " Gross weight

s_wbsta FOR v_wbsta. " Goods movement status

SELECTION-SCREEN END OF BLOCK b9.

SELECTION-SCREEN END OF SCREEN 140.

*-- subscreen 5

SELECTION-SCREEN BEGIN OF SCREEN 150 AS SUBSCREEN.

SELECTION-SCREEN PUSHBUTTON /10(20) smartf USER-COMMAND click.

SELECTION-SCREEN END OF SCREEN 150.

*---Tab 4 for Selection screen

SELECTION-SCREEN : BEGIN OF SCREEN 1010.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 7 LINES,

TAB (20) button1 USER-COMMAND push1,

TAB (20) button2 USER-COMMAND push2,

TAB (20) button3 USER-COMMAND push3,

TAB (20) button4 USER-COMMAND push4,

TAB (20) button5 USER-COMMAND push5,

END OF BLOCK mytab.

*---Selection screen to choose the type of the list to be displayed

SELECTION-SCREEN BEGIN OF BLOCK b6 WITH FRAME TITLE text-005.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) text-006 FOR FIELD p_radio1.

PARAMETERS: p_radio1 RADIOBUTTON GROUP g1 DEFAULT 'X' USER-COMMAND ucom.

SELECTION-SCREEN COMMENT 35(20) text-007 FOR FIELD p_radio2.

PARAMETERS: p_radio2 RADIOBUTTON GROUP g1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b6.

*---Selection screen to choose the list typr from a variant

SELECTION-SCREEN BEGIN OF BLOCK b7 WITH FRAME TITLE text-008.

PARAMETERS : p_var TYPE disvariant-variant MODIF ID abc.

PARAMETERS : S_DATE TYPE sy-datum MODIF ID clk.

SELECT-OPTIONS : s_vbeln3 FOR v_vbeln1 MODIF ID sel.

SELECTION-SCREEN END OF BLOCK b7.

SELECTION-SCREEN END OF SCREEN 1010.

Re: Screens

Former Member — Fri, 17 Nov 2006 07:39:26 GMT

Hi,

Screen No. 1000 & above are standard screens ,not for development ,u use some other screen no. to develop your screen.

it shud not then ,give error.

Hope it helps.

Reward if helpful.

Regards,

Sipra

Re: Screens

govind_parmar — Fri, 17 Nov 2006 08:41:43 GMT

Hi Sipra,

Since I havn't declared anything outside SELECTION-SCREEN BEGIN/END OF SCREEN, so screen 1000 is not tirggered. More ever I have named the main screen as 1010.

Thanks.

Regards,

Govind.

Message was edited by:

Govind Parmar

Re: Screens

Former Member — Fri, 17 Nov 2006 08:45:06 GMT

Take this program as a referance:

demo_sel_screen_in_tabstrip

Regards,

ravi

Re: Screens

Former Member — Fri, 17 Nov 2006 08:54:51 GMT

Here i have given a code similar to ur program modify urs accordingly and use it.

It wont give u error.

SELECTION-SCREEN BEGIN OF SCREEN 500 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-010.

PARAMETERS: USER(10) TYPE c,

PWD(10) TYPE c.

SELECTION-SCREEN END OF BLOCK b1.

SELECTION-SCREEN END OF SCREEN 500.

SELECTION-SCREEN BEGIN OF SCREEN 600 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-010.

PARAMETERS: BUSNO(10) TYPE c,

BUSNAME(10) TYPE c.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN END OF SCREEN 600.

SELECTION-SCREEN BEGIN OF SCREEN 700 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-010.

PARAMETERS: TNO(10) TYPE c,

TNAME(10) TYPE c.

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 700.

SELECTION-SCREEN:BEGIN OF SCREEN 1010,

BEGIN OF TABBED BLOCK sub FOR 10 LINES,

TAB (10) LOGIN USER-COMMAND LOGIN,

TAB (10) BUS USER-COMMAND BUS,

TAB (10) TRAIN USER-COMMAND TR,

END OF BLOCK sub,

end of screen 1010.

INITIALIZATION.

BUS = 'BUS'.

TRAIN = 'TRAIN'.

SUB-DYNNR = 500.

SUB-PROG = SY-REPID.

call selection-screen 1010.

AT SELECTION-SCREEN.

CASE SY-UCOMM .

WHEN 'LOGIN'.

SUB-DYNNR = 500.

WHEN 'BUS'.

SUB-DYNNR = 600.

WHEN 'TR'.

SUB-DYNNR = 700.

ENDCASE.

Hope this will be useful.

Re: Screens

govind_parmar — Fri, 17 Nov 2006 09:26:52 GMT

Hi Rajendran,

Here is the exact code . I am calling Screen 1010, after the screen 1000 i.e after giving the correct user name and password. If the user name and password are correct then the screen 1010 is called in static constructor of class lcl_comp_emp. but the code is not working as it is expected.

REPORT Z_EMP .

***********************************************************************

Global Program Data

***********************************************************************

TABLES : ZUSERIDS.

DATA g_no_of_emp1 type i.

***********************************************************************

Global Selection Screens

***********************************************************************

TYPES: BEGIN OF t_tab,

vbeln TYPE vbak-vbeln, " Sales and distribution document number

erdat TYPE vbak-erdat, " Date on which the record was created

kunnr TYPE vbak-kunnr, " Sold-to party 1

vdatu TYPE vbak-vdatu, " Requested delivery date

END OF t_tab.

TYPES: BEGIN OF t_tab1,

vbeln TYPE vbap-vbeln, " Sales and distribution

" document number

posnr TYPE vbap-posnr, " Sales document item

matnr TYPE vbap-matnr, " Material number

arktx TYPE vbap-arktx, " Short text for sales order item

kwmeng TYPE vbap-kwmeng, " Cumulative order quantity

" in sales units

END OF t_tab1.

TYPES: BEGIN OF t_tab2,

bstkd TYPE vbkd-bstkd, " Customer purchase order number

vbeln TYPE vbkd-vbeln, " Sales and distribution document number

END OF t_tab2.

TYPES: BEGIN OF t_tab3,

vbeln TYPE vbep-vbeln, " Sales and distribution document number

posnr TYPE vbep-posnr, " Sales document item

etenr TYPE vbep-etenr, " Schedule line

bddat TYPE vbep-bddat, " Requirement date

" (deadline for procurement)

bmeng TYPE vbep-bmeng, " Confirmed quantity

vrkme TYPE vbep-vrkme, " Sales unit

END OF t_tab3.

TYPES: BEGIN OF t_tab4,

kunnr TYPE kna1-kunnr, " Customer number

name1 TYPE kna1-name1, " Name

END OF t_tab4.

TYPES: BEGIN OF t_tab5,

vbeln TYPE vbuk-vbeln, " Sales and distribution document number

lfgsk TYPE vbuk-lfgsk, " Overall delivery status for all items

END OF t_tab5.

TYPES: BEGIN OF t_tab6,

vbeln TYPE vbup-vbeln, " Sales and distribution document number

posnr TYPE vbup-posnr, " Item number of the SD document

END OF t_tab6.

TYPES: BEGIN OF t_tab8,

vbeln TYPE vbak-vbeln, " Sales and distribution document number

END OF t_tab8.

************VARIABLES FOR SELEC- OPTIONS***********************

*****************************************************************

DATA : v_auart TYPE vbak-auart, " Sales document

v_erdat TYPE vbak-erdat, " Date on which the record was created

v_ernam TYPE vbak-ernam, " Name of person who created the object

v_vkorg TYPE vbak-vkorg, " Sales organization

v_vtweg TYPE vbak-vtweg, " Distribution channel

v_spart TYPE vbak-spart, " Division

v_vbeln TYPE vbak-vbeln, " Sales document

v_bstkd TYPE vbkd-bstkd, " Customer purchase order number

v_kunnr TYPE vbak-kunnr, " Customer number 1

v_werks TYPE vbap-werks, " Plant (own or external)

v_lifsk TYPE vbak-lifsk, " Delivery block

v_lfgsk TYPE vbuk-lfgsk, " Delivery block (Document Header)

v_lfgsa TYPE vbup-lfgsa, " Overall delivery status of the item

v_spart1 TYPE vbap-spart, " Division

v_prctr TYPE vbap-prctr, " Profit Center

v_vbeln1 TYPE lips-vbeln, " Delivery

v_posnr TYPE lips-posnr, " Delivery Item

v_pstyv TYPE lips-pstyv, " Delivery Item Category

v_ernam1 TYPE lips-ernam, " Name of the Person who Created

v_vbeln2 TYPE vbfa-vbeln, " Preceding sales and distribution document

v_posnv TYPE vbfa-posnv, " Preceding item of an SD document

v_brgew TYPE vbfa-brgew, " Gross weight

v_wbsta TYPE vbfa-wbsta, " Goods movement status

*************GLOBAL VARIABLES************************

*******************************************************

*--- To store the variant types

i_variant LIKE disvariant,

v_repid LIKE sy-repid.

DATA : FLAG TYPE I.

SELECTION-SCREEN SKIP 2.

PARAMETERS : client1(3) TYPE n DEFAULT '248'.

SELECTION-SCREEN SKIP 3.

SELECTION-SCREEN BEGIN OF BLOCK MODE WITH FRAME TITLE text-001.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) TEXT-002.

PARAMETERS : userid(7) TYPE c.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(18) TEXT-003.

PARAMETER: password(7) LOWER CASE MODIF ID pas.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK MODE.

*SELECTION-SCREEN END OF SCREEN 1000.

*--- subscreen 1

SELECTION-SCREEN BEGIN OF SCREEN 110 AS SUBSCREEN .

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-110.

SELECT-OPTIONS: s_vbeln FOR v_vbeln, " Sales document

s_bstkd FOR v_bstkd, " Customer purchase

" order number

s_kunnr FOR v_kunnr, " Customer number

s_werks FOR v_werks, " Plant (Own or External)

s_lifsk FOR v_lifsk. " Delivery block

" (document header)

SELECTION-SCREEN END OF BLOCK b3.

SELECTION-SCREEN END OF SCREEN 110.

*---Subscreen 2

SELECTION-SCREEN BEGIN OF SCREEN 120 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-120.

SELECT-OPTIONS: s_lfgsk FOR v_lfgsk, " Delivery block

" (document header)

s_lfgsa FOR v_lfgsa, " Overall delivery

" status of the item

s_spart1 FOR v_spart1, " Division

s_prctr FOR v_prctr. " Profit center

SELECTION-SCREEN END OF BLOCK b4.

SELECTION-SCREEN END OF SCREEN 120.

*-- subscreen 3

SELECTION-SCREEN BEGIN OF SCREEN 130 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b8 WITH FRAME TITLE text-130.

SELECT-OPTIONS : s_vbeln1 FOR v_vbeln1, " Delivery

s_posnr FOR v_posnr, " Delivery Item

s_pstyv FOR v_pstyv, " Delivery Item Category

s_ernam1 FOR v_ernam1. " Name of the Person who Created

SELECTION-SCREEN END OF BLOCK b8.

SELECTION-SCREEN END OF SCREEN 130.

*-- subscreen 4

SELECTION-SCREEN BEGIN OF SCREEN 140 AS SUBSCREEN.

SELECTION-SCREEN BEGIN OF BLOCK b9 WITH FRAME TITLE text-140.

SELECT-OPTIONS : s_vbeln2 FOR v_vbeln2, " Preceding sales and distribution document

s_posnv FOR v_posnv, " Preceding item of an SD document

s_brgew FOR v_brgew, " Gross weight

s_wbsta FOR v_wbsta. " Goods movement status

SELECTION-SCREEN END OF BLOCK b9.

SELECTION-SCREEN END OF SCREEN 140.

*-- subscreen 5

SELECTION-SCREEN BEGIN OF SCREEN 150 AS SUBSCREEN.

SELECTION-SCREEN PUSHBUTTON /10(20) smartf USER-COMMAND click.

SELECTION-SCREEN END OF SCREEN 150.

*---for Selection screen

SELECTION-SCREEN : BEGIN OF SCREEN 1010.

SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 7 LINES,

TAB (20) button1 USER-COMMAND push1,

TAB (20) button2 USER-COMMAND push2,

TAB (20) button3 USER-COMMAND push3,

TAB (20) button4 USER-COMMAND push4,

TAB (20) button5 USER-COMMAND push5,

END OF BLOCK mytab.

SELECTION-SCREEN END OF SCREEN 1010.

AT Selection Screen Output.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'PAS'.

SCREEN-INVISIBLE = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

***********************************************************************

Class Definitions & Implementation

************************************************************************

CLASS lcl_comp_emp DEFINITION.

PUBLIC SECTION.

TYPES : BEGIN OF t_emp,

name TYPE string,

no(8) TYPE n,

wage TYPE i,

END OF t_emp.

CLASS-METHODS: class_constructor.

METHODS : constructor,

add_emp IMPORTING emp_name TYPE string

emp_no TYPE n

emp_wage TYPE i,

disp_emp,

disp_no_of_emp.

*---PROTECTED SECTION.

PRIVATE SECTION.

CLASS-DATA : t_userid TYPE c,

t_pass TYPE c,

g_emp TYPE TABLE OF t_emp,

g_no_of_emp TYPE i.

ENDCLASS.

**--Implementataion

CLASS lcl_comp_emp IMPLEMENTATION.

METHOD class_constructor.

DATA : wa_userids TYPE zuserids.

wa_userids-zuserid = userid.

SELECT SINGLE zpass FROM zuserids INTO wa_userids-zpass

WHERE zuserid = wa_userids-zuserid.

IF sy-subrc EQ 0 AND wa_userids-zpass EQ password.

CALL SELECTION-SCREEN 1010.

ELSE.

MESSAGE E000(zmymsgcl) .

ENDIF.

ENDMETHOD.

METHOD CONSTRUCTOR.

g_no_of_emp = g_no_of_emp + 1.

g_no_of_emp1 = g_no_of_emp.

ENDMETHOD.

METHOD add_emp.

DATA : wa_emp TYPE t_emp.

wa_emp-name = emp_name.

wa_emp-no = emp_no.

wa_emp-wage = emp_wage.

APPEND wa_emp TO g_emp.

ENDMETHOD.

METHOD disp_emp.

DATA : wa_emp TYPE t_emp.

WRITE : / 'LIST OF EMP.'.

LOOP AT g_emp INTO wa_emp.

write : / wa_emp-no, wa_emp-name.

ENDLOOP.

ENDMETHOD.

METHOD disp_no_of_emp.

SKIP 3.

WRITE : / 'No. of emp', g_no_of_emp.

ENDMETHOD.

ENDCLASS.

*----

***********************************************************************

OBJECT REFERENCES

***********************************************************************

TYPES : comp TYPE REF TO lcl_comp_emp.

DATA : o_comp TYPE comp.

***********************************************************************

I N I T I A L I Z A T I O N

***********************************************************************

INITIALIZATION.

PERFORM initialization. " Initializes different fields

***********************************************************************

START-OF-SELECTION.

CREATE OBJECT : o_comp.

&----

*& Form INITIALIZATION

&----

Initializes the selection screen

----

FORM initialization .

button1 = text-001. " Button1 Text

button2 = text-002. " Button2 Text

button3 = text-003. " Button3 Text

button4 = text-004. " Button4 Text

button5 = text-005. " Button5 Text

mytab-prog = sy-repid. " Program Name

mytab-dynnr = 110. " Default Screen

mytab-activetab = 'BUTTON1'. " Default Tab

MOVE 'My Report' TO smartf .

ENDFORM. " INITIALIZATION

Re: Screens

Former Member — Fri, 17 Nov 2006 09:39:06 GMT

May i know the exact error

Re: Screens

govind_parmar — Fri, 17 Nov 2006 09:48:41 GMT

Hi,

The Runtime Error is :

Program " " tried to use screen 0000

The screen does not exist.

The termination occurred in the ABAP program "Z_EMP " in "%_PF_STATUS".

The main program was "Z_EMP ".

The termination occurred in line 6 of the source code of the (Include)

program "<REPINI> "

of the source code of program "<REPINI> " (when calling the editor 60).

000010 * ABAP/4 Logical Databases

000020 *

000030 *

000040 MODULE %_pf_status OUTPUT.

000050 PERFORM set_pf_status IN PROGRAM rsdbrunt.

> ENDMODULE.

000070 *

000080 MODULE %_end_of_pbo OUTPUT.

000090 PERFORM %_end_of_pbo IN PROGRAM rsdbrunt.

Re: Screens

Former Member — Fri, 17 Nov 2006 09:53:52 GMT

I copied ur program and executed first i got a error.

when executed ur program

in first screen i got client, username and password.

do like this.

fill it and then in command field (where we will give the transaction) give /H and activate the debugger and see ( i m able to get the tabstrip screen without error but i dont know hoe to continue without ur data).

Re: Screens

Former Member — Fri, 17 Nov 2006 10:18:49 GMT

I can work in ur coding without any error.

In the 5th tab there is button report that one is not working and i dont know ur requirement so i cant continue.

Have this coding before At selection-screen output to see the tabstrip buttons.

AT SELECTION-SCREEN.

CASE SY-UCOMM .

WHEN 'PUSH1'.

mytab-DYNNR = 110.

mytab-activetab = button1.

WHEN 'PUSH2'.

mytab-DYNNR = 120.

mytab-activetab = button2.

WHEN 'PUSH3'.

mytab-DYNNR = 130.

mytab-activetab = button3.

WHEN 'PUSH4'.

mytab-DYNNR = 140.

mytab-activetab = button4.

WHEN 'PUSH5'.

mytab-DYNNR = 150.

mytab-activetab = button5.

ENDCASE.

Re: Screens

govind_parmar — Thu, 30 Nov 2006 08:39:18 GMT

Hi Kalpanashri,

Thanks for the examples. it's working fine.

Thank once again.