topic Re: regarding reports in Application Development and Automation Discussions

regarding reports

Former Member — Mon, 12 Jun 2006 07:55:02 GMT

can we generate a screen for displaying information in a report before selection screen appears??

and if it can be done how can that be done???

regards,

charan.

Re: regarding reports

Former Member — Mon, 12 Jun 2006 07:56:10 GMT

ya u can use alv pop to do this ...

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:09:14 GMT

Hi,

try to call your report output in a popup in the event

at selection-screen output

Regards

vijay

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:10:46 GMT

hi kishan.

i actually want this in a classical report, i want the information screen after executing a report and before selection screen appears...

pls be specific....

thank you,

charan

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:11:01 GMT

Hi Praveen,

Yes, you can insert the report before selection screen appears.

Just append all your source code into an internal table of type string and then write the following statement in your program.

INSERT REPORT 'Program_Name' FROM itab.

Please refer the ABAPDOCU transaction for further information on the same.

Reward points if it helps.

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:11:40 GMT

Hi praveen,

1. We can try this.

2. There will be POPUP message.

3. just copy paste

report abc.

*----

SELECTION SCREEN.

PARAMETERS : A(10) TYPE C.

*----

INITIALIZATION.

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT_LO'

EXPORTING

TITEL = 'TITLE '

TEXTLINE1 = 'HELLO '

TEXTLINE2 = 'AMIT MITTAL'

TEXTLINE3 = ' '
START_COLUMN = 15
START_ROW = 6

regards,

amit m.

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:16:06 GMT

can you pls tell me how to write that.....

is it only a write statment or something else.....

Re: regarding reports

Former Member — Mon, 12 Jun 2006 08:42:51 GMT

hello pravin..

sorry for delay..

just refer this code i didthe same things previously....

REPORT ZVKM5 .

TABLES : ZCREDIT,VBUK,VBAK,VBKRED,syst.

TYPE-POOLS: SLIS.

type-pools: icon.

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

*initialization.

*set pf-status 'ABC'.

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

SELECTION-SCREEN BEGIN OF BLOCK hitliste WITH FRAME TITLE text-100.

SELECT-OPTIONS: P_VBELN FOR ZCREDIT-ZVBELN OBLIGATORY.

*parameters: p_vkbur like vbak-vkbur obligatory.

SELECTION-SCREEN END OF BLOCK hitliste.

selection-screen pushbutton 20(20) gocfg user-command gocfg.

selection-screen pushbutton 40(20) uscredit user-command uscredit.

DATA: BEGIN OF ITAB OCCURS 0,

SELECT_FLAG(1).

ERDAT LIKE VBAK-ERDAT,

NETWR LIKE VBAK-NETWR,

VKORG LIKE VBAK-VKORG,

VTWEG LIKE VBAK-VTWEG,

SPART LIKE VBAK-SPART,

KUNNR LIKE VBAK-KUNNR,

KKBER LIKE VBAK-KKBER,

KNKLI LIKE VBAK-KNKLI,

CTLPC LIKE VBAK-CTLPC,

AMTBL LIKE VBAK-AMTBL,

VKBUR LIKE VBAK-VKBUR,

ZERNAM TYPE ERNAM.

INCLUDE STRUCTURE ZCREDIT.

DATA: END OF ITAB.

DATA:

GS_PRIVATE TYPE SLIS_DATA_CALLER_EXIT,

GS_SELFIELD TYPE SLIS_SELFIELD,

gt_fieldcat type slis_t_FIELDCAT_ALV with header line,

G_EXIT(1) TYPE C.

DATA: P_TITLE TYPE SY-TITLE VALUE 'List Of Blocked Sales Order'.

AT SELECTION-SCREEN.

if sy-ucomm = 'GOCFG'.

SET PARAMETER ID 'AUN' FIELD P_VBELN-LOW.

call transaction 'VA03'.

ENDIF.

if sy-ucomm = 'USCREDIT'.

SET PARAMETER ID 'AUN' FIELD P_VBELN.

SUBMIT ZCREDITUSER VIA SELECTION-SCREEN

USING SELECTION-SETS OF PROGRAM 'ZVKM5'

AND RETURN.

ENDIF.

AT SELECTION-SCREEN OUTPUT.

write icon_configuration as icon to gocfg.

concatenate gocfg 'Go to VA03' into gocfg

separated by space.

PERFORM GET_BLOCK_SALES_ORDER.

write icon_configuration as icon to USCREDIT.

concatenate USCREDIT 'Go to ZUSERCREDIT' into USCREDIT

separated by space.

START-OF-SELECTION.

LOOP AT P_VBELN.

*AUTHORITY-CHECK OBJECT 'ZPSALES'

ID 'VKBUR' FIELD p_vkbur.

*IF SY-SUBRC <> 0 .

*MESSAGE E000(001) WITH 'NOT AUTHRIZED'.

*ELSE.

UPDATE ZCREDIT SET ZCMGST = 'R'

WHERE ZVBELN = P_VBELN-LOW.

UPDATE ZCREDIT SET uname = sy-uname

WHERE ZVBELN = P_VBELN-LOW.

*ENDIF.

ENDLOOP.

WRITE : ' SALES ORDER RELEASED - 2ND AUTHORITY by', 50 sy-uname.

&----

*& Form GET_BLOCK_SALES_ORDER

&----

form GET_BLOCK_SALES_ORDER .

SELECT ZCREDIT~ZVBELN

ZCREDIT~ZCMGST

VBAK~VBELN

VBAK~ERDAT

VBAK~AUART

VBAK~NETWR

VBAK~VKORG

VBAK~VTWEG

VBAK~SPART

VBAK~KUNNR

VBAK~KKBER

VBAK~KNKLI

VBAK~CTLPC

VBAK~AMTBL

VBAK~VKBUR

VBAK~ERNAM

INTO CORRESPONDING FIELDS OF ITAB

FROM ZCREDIT INNER JOIN VBAK

ON ZCREDIT_{ZVBELN = VBAK}VBELN

WHERE ZCREDIT~ZCMGST = 'B'.

and VBAK~VKBUR = p_vkbur.

APPEND ITAB.

ENDSELECT.

call function 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

I_STRUCTURE_NAME = 'VBKRED'

changing

ct_fieldcat = gt_fieldcat[].

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = P_TITLE

I_SELECTION = 'X'
I_ZEBRA = ' '
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 30
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 30

I_CHECKBOX_FIELDNAME = 'SELECT_FLAG'

I_LINEMARK_FIELDNAME =
I_SCROLL_TO_SEL_LINE = 'X'

i_tabname = '1'

IT_FIELDCAT = gt_fieldcat[]

IT_EXCLUDING =
I_CALLBACK_PROGRAM = 'VL03'
I_CALLBACK_USER_COMMAND =

IS_PRIVATE = GS_PRIVATE

IMPORTING

ES_SELFIELD = GS_SELFIELD

E_EXIT = G_EXIT

TABLES

T_OUTTAB = ITAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

LOOP AT ITAB WHERE SELECT_FLAG = 'X'.

P_VBELN-OPTION = 'EQ'.

P_VBELN-LOW = ITAB-ZVBELN.

APPEND P_VBELN.

ENDLOOP.

endform. " GET_BLOCK_SALES_ORDER