REPORTS URGENT

[Former Member]

1) HI everybody

i have 3 fields as shown below

data : begin of itab occurs 0,

matnr type mara-matnr,

lgort type mard-lgort,

werks type mard-werks,

end of itab.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

parameters : matnr like mara-matnr,

lgort like mard-lgort,

werks like mard-werks.

SELECTION-SCREEN END OF BLOCK b1.

now my problem is i want to hide lgort field. i can do this by at slection-screen out-put event.... can any body tell hw to do that.

plz gv me the code.

[Former Member]

1) HI everybody

i have 3 fields as shown below

data : begin of itab occurs 0,

matnr type mara-matnr,

lgort type mard-lgort,

werks type mard-werks,

end of itab.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

parameters : matnr like mara-matnr,

lgort like mard-lgort,

werks like mard-werks.

SELECTION-SCREEN END OF BLOCK b1.

now my problem is i want to hide lgort field. i can do this by at slection-screen out-put event.... can any body tell hw to do that.

plz gv me the code.

[former_member386202]

Hi,

Do like this

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.

parameters : matnr like mara-matnr,

lgort like mard-lgort NO-DISPLAY,

werks like mard-werks.

SELECTION-SCREEN END OF BLOCK b1.

Regards,

Prashant

[former_member784222]

Hi,

You can do this as follows: if you are talking about LGORT field in the selection screen.

first option: lgort like mard-lgort no-display.

Second:

at selection-screen output.

loop at screen.

if screen-name = 'LGORT'.

screen-invisible = 'X'.

modify screen.

endif.

endloop.

Thanks and regards,

Mouli.

[Former Member]

take care of the case upper or lower when looping at screen.

at selection-screen output.

loop at screen.

if screen-name = 'lgort'. "same case as in the declaration.

screen-invisible = 1.

screen-active = 0.

modify screen.

endif.

endloop.

[Former Member]

REPORT ZNNR_REPORT NO STANDARD PAGE HEADING MESSAGE-ID ZNNR LINE-SIZE 100 LINE-COUNT 65(4).

******DATA DECLARATIONS**********

DATA : BEGIN OF IT_PLANT OCCURS 0,

MATNR LIKE MARA-MATNR,

WERKS LIKE MARC-WERKS,

PSTAT LIKE MARC-PSTAT,

EKGRP LIKE MARC-EKGRP,

END OF IT_PLANT.

DATA : BEGIN OF IT_PONO OCCURS 0,

EBELN LIKE EKKO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

WERKS LIKE EKPO-WERKS,

LGORT LIKE EKPO-LGORT,

END OF IT_PONO.

TABLES EKKO.

********END OF DATA DECLARATIONS*********

********SELECTION SCREEN DESIGN ***********

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETER : P_WERKS LIKE MARC-WERKS MODIF ID S1.

SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN NO INTERVALS MODIF ID S2.

SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R1 RADIOBUTTON GROUP G1 DEFAULT 'X'.

SELECTION-SCREEN COMMENT 5(20) TEXT-002 FOR FIELD R1.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS : R2 RADIOBUTTON GROUP G1.

SELECTION-SCREEN COMMENT 5(20) TEXT-003 FOR FIELD R2.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

******END OF SELECTION SCREEN DESIGN****************

*********INITIALIZATION OF SELECTION SCREEN ELEMENTS.*****

INITIALIZATION.

P_WERKS = '1000'.

S_EBELN-LOW = '4500016926'.

S_EBELN-OPTION = 'EQ'.

S_EBELN-SIGN = 'I'.

APPEND S_EBELN.

CLEAR S_EBELN.

************END OF INITIALIZATION***********************

***********SCREEN MODIFICATIONS*******************

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF R1 EQ 'X' AND SCREEN-GROUP1 EQ 'S2'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF R2 EQ 'X' AND SCREEN-GROUP1 EQ 'S1'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

********END OF SCREEN MODIFICATIONS*****************

***************SCREEN VALIDATIONS *****************

at selection-screen.

SELECT SINGLE *

FROM EKKO

INTO EKKO

WHERE EBELN IN S_EBELN.

IF SY-SUBRC <> 0.

SET CURSOR FIELD 'S_EBELN-LOW'.

MESSAGE E999 WITH TEXT-005.

ENDIF.

********end of screen validation*****************