Re: reports

prasanth_kasturi — Thu, 29 May 2008 05:32:52 GMT

That fm doesnot exist check out. the way i mentioned is one one of the procedures

check the example using alv check boxes

&----

*& Report ZP_ALV_CHECKBOXES

&----

REPORT ZP_ALV_CHECKBOXES NO STANDARD PAGE HEADING MESSAGE-ID Zpra

LINE-SIZE 225 LINE-COUNT 65(3).

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

TYPE-POOLS

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

TYPE-POOLS : SLIS.

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

DDIC TABLES

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

TABLES : VAPMA, VBAK,VBAP,VBEP.

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

ALV-PARAMETERS DECLERATION

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

DATA : W_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.

DATA : I_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA : W_EVENTS TYPE SLIS_ALV_EVENT,

I_EVENTS TYPE SLIS_T_EVENT.

DATA : I_LISTHEADER TYPE SLIS_T_LISTHEADER,

W_LISTHEADER TYPE SLIS_LISTHEADER.

Interactive params

DATA : W_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV,

I_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

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

iNTERNAL TABLES DECLERATION

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

TYPES : BEGIN OF S_VAPMA,

CH TYPE CHECKBOX,

MATNR LIKE VAPMA-MATNR,

VKORG LIKE VAPMA-VKORG,

TRVOG LIKE VAPMA-TRVOG,

VTWEG LIKE VAPMA-VTWEG,

SPART LIKE VAPMA-SPART,

AUART LIKE VAPMA-AUART,

VBELN LIKE VAPMA-VBELN,

POSNR LIKE VAPMA-POSNR,

END OF S_VAPMA.

DATA : I_VAPMA TYPE TABLE OF S_VAPMA,

W_VAPMA TYPE S_VAPMA.

TYPES : BEGIN OF S_VBAK,

VBELN LIKE VBAK-VBELN,

ERDAT LIKE VBAK-ERDAT,

AUDAT LIKE VBAK-AUDAT,

VBTYP LIKE VBAK-VBTYP,

TRVOG LIKE VBAK-TRVOG,

AUART LIKE VBAK-AUART,

NETWR LIKE VBAK-NETWR,

WAERK LIKE VBAK-WAERK,

END OF S_VBAK.

DATA : I_VBAK TYPE TABLE OF S_VBAK,

W_VBAK TYPE S_VBAK.

TYPES : BEGIN OF S_VBAP,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

ARKTX LIKE VBAP-ARKTX,

END OF S_VBAP.

DATA : I_VBAP TYPE TABLE OF S_VBAP,

W_VBAP TYPE S_VBAP.

TYPES : BEGIN OF S_VBEP,

VBELN LIKE VBEP-VBELN,

POSNR LIKE VBEP-VBELN,

ETENR LIKE VBEP-ETENR,

WMENG LIKE VBEP-WMENG,

MEINS LIKE VBEP-MEINS,

END OF S_VBEP.

DATA : I_VBEP TYPE TABLE OF S_VBEP,

W_VBEP TYPE S_VBEP.

types : BEGIN OF S_RESULT,

CH TYPE CHECKBOX,

MATNR LIKE VAPMA-MATNR,

TRVOG LIKE VAPMA-TRVOG,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

ARKTX LIKE VBAP-ARKTX,

ETENR LIKE VBEP-ETENR,

WMENG LIKE VBEP-WMENG,

MEINS LIKE VBEP-MEINS,

END OF S_RESULT.

DATA : I_RESULT TYPE TABLE OF S_RESULT,

W_RESULT TYPE S_RESULT.

TYPES : BEGIN OF S_VBFA,

VBELV LIKE VBFA-VBELV,

POSNV LIKE VBFA-POSNV,

VBELN LIKE VBFA-VBELN,

POSNN LIKE VBFA-POSNN,

VBTYP_N LIKE VBFA-VBTYP_N,

END OF S_VBFA.

data : I_VBFA TYPE TABLE OF S_VBFA,

W_VBFA TYPE S_VBFA.

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

GLOBAL VARIABLES

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

DATA : V_STR(30) TYPE C.

data : V_REPID LIKE SY-REPID,

v_matnr like VAPMA-MATNR.

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

SELECTION-SCREEN

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

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

SELECT-OPTIONS : S_MATNR FOR VAPMA-MATNR OBLIGATORY .

PARAMETERS : P_VKORG LIKE VAPMA-VKORG OBLIGATORY VALUE CHECK.

PARAMETERS : P_TRVOG LIKE VAPMA-TRVOG.

PARAMETERS : P_VTWEG LIKE VAPMA-VTWEG OBLIGATORY VALUE CHECK.

PARAMETERS : P_SPART LIKE VAPMA-SPART OBLIGATORY VALUE CHECK.

SELECTION-SCREEN END OF BLOCK B1.

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

Validation on Matrl no

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

AT SELECTION-SCREEN ON S_MATNR.

select single MATNR

FROM VAPMA

INTO V_MATNR

WHERE MATNR IN S_MATNR.

IF NOT SY-SUBRC IS INITIAL.

MESSAGE E999 WITH TEXT-002.

ENDIF.

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

START-OF-SELECTION

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

START-OF-SELECTION.

PERFORM BUILD_LAYOUT.

PERFORM GET_DATA.

PERFORM DISPLAY_DATA.

&----

*& Form BUILD_LAYOUT

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_LAYOUT .

I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

I_LAYOUT-ZEBRA = 'X'.

I_LAYOUT-F2CODE = 'PICK'.

ENDFORM. " BUILD_LAYOUT

&----

*& Form BUILD_FIELD_CATALOG

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELD_CATALOG .

REFRESH I_FIELDCAT1.

W_FIELDCAT1-COL_POS = '1'.

W_FIELDCAT1-FIELDNAME = 'CH'.

W_FIELDCAT1-tabname = 'I_RESULT'.

w_fieldcat1-checkbox = 'X'.

w_fieldcat1-edit = 'X'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '2'.

W_FIELDCAT1-FIELDNAME = 'MATNR'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Material number'.

W_FIELDCAT1-seltext_M = 'Matrl no'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C110'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '3'.

W_FIELDCAT1-FIELDNAME = 'TRVOG'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Trans group'.

W_FIELDCAT1-seltext_M = 'Trans group'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C210'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '4'.

W_FIELDCAT1-FIELDNAME = 'VBELN'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Sales ordernumber'.

W_FIELDCAT1-seltext_M = 'Sales ord' .

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C310'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '5'.

W_FIELDCAT1-FIELDNAME = 'POSNR'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Item'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C400'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '6'.

W_FIELDCAT1-FIELDNAME = 'ARKTX'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Description'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C510'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

W_FIELDCAT1-COL_POS = '7'.

W_FIELDCAT1-FIELDNAME = 'MEINS'.

W_FIELDCAT1-tabname = 'I_RESULT'.

W_FIELDCAT1-SELTEXT_L = 'Order qty in sales units'.

W_FIELDCAT1-seltext_M = 'Order qty'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT1-HOTSPOT = 'X'.

W_FIELDCAT1-EMPHASIZE = 'C610'.

APPEND W_FIELDCAT1 TO I_FIELDCAT1.

CLEAR W_FIELDCAT1.

ENDFORM. " BUILD_FIELD_CATALOG

&----

*& Form EVENT_CALL

&----

text

----

--> p1 text
<-- p2 text

----

FORM EVENT_CALL .

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = I_EVENTS

EXCEPTIONS

LIST_TYPE_WRONG = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " EVENT_CALL

&----

*& Form EVENT_BUILD

&----

text

----

--> p1 text
<-- p2 text

----

FORM EVENT_BUILD .

READ TABLE I_EVENTS INTO W_EVENTS WITH KEY NAME = 'TOP_OF_PAGE'.

IF SY-SUBRC EQ 0.

W_EVENTS-FORM = 'TOP_OF_PAGE'.

MODIFY I_EVENTS FROM W_EVENTS TRANSPORTING FORM WHERE NAME = W_EVENTS-NAME.

ENDIF.

READ TABLE I_EVENTS INTO W_EVENTS WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC EQ 0.

W_EVENTS-FORM = 'ALV_USER_COMMAND'.

MODIFY I_EVENTS FROM W_EVENTS TRANSPORTING FORM WHERE NAME = W_EVENTS-NAME.

ENDIF.

READ TABLE I_EVENTS INTO W_EVENTS WITH KEY NAME = 'PF_STATUS_SET'.

IF SY-SUBRC EQ 0.

W_EVENTS-FORM = 'ALV_SET_PF_STATUS'.

MODIFY I_EVENTS FROM W_EVENTS TRANSPORTING FORM WHERE NAME = W_EVENTS-NAME.

ENDIF.

READ TABLE I_EVENTS INTO W_EVENTS WITH KEY NAME = 'END_OF_PAGE'.

IF SY-SUBRC EQ 0.

W_EVENTS-FORM = 'END_OF_PAGE'.

MODIFY I_EVENTS FROM W_EVENTS TRANSPORTING FORM WHERE NAME = W_EVENTS-NAME.

ENDIF.

ENDFORM. " EVENT_BUILD

&----

*& Form GET_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM GET_DATA .

SELECT MATNR

VKORG

TRVOG

VTWEG

SPART

AUART

VBELN

POSNR

FROM VAPMA

INTO CORRESPONDING FIELDS OF TABLE I_VAPMA

WHERE MATNR IN S_MATNR

AND VKORG = P_VKORG

AND TRVOG = P_TRVOG

AND VTWEG = P_VTWEG

AND SPART = P_SPART.

IF NOT I_VAPMA IS INITIAL.

SELECT VBELN

ERDAT

AUDAT

VBTYP

TRVOG

AUART

NETWR

WAERK

FROM VBAK

INTO TABLE I_VBAK

FOR ALL ENTRIES IN I_VAPMA

WHERE VBELN = I_VAPMA-VBELN.

ENDIF.

IF NOT I_VBAK IS INITIAL.

SELECT VBELN

POSNR

MATNR

ARKTX

FROM VBAP

INTO TABLE I_VBAP

FOR ALL ENTRIES IN I_VBAK

WHERE VBELN = I_VBAK-VBELN.

ENDIF.

IF NOT I_VBAP IS INITIAL.

SELECT VBELN

POSNR

ETENR

WMENG

MEINS

FROM VBEP

INTO TABLE I_VBEP

FOR ALL ENTRIES IN I_VBAP

WHERE VBELN = I_VBAP-VBELN.

ENDIF.

LOOP AT I_VBAK INTO W_VBAK.

READ TABLE I_VBAP INTO W_VBAP WITH KEY VBELN = W_VBAK-VBELN.

IF SY-SUBRC IS INITIAL.

MOVE-CORRESPONDING W_VBAP TO W_RESULT.

ENDIF.

READ TABLE I_VBEP INTO W_VBEP WITH KEY VBELN = W_VBAK-VBELN.

IF SY-SUBRC IS INITIAL.

MOVE-CORRESPONDING W_VBEP TO W_RESULT.

ENDIF.

MOVE-CORRESPONDING W_VBAK TO W_RESULT.

APPEND W_RESULT TO I_RESULT.

CLEAR W_RESULT.

ENDLOOP.

ENDFORM. " GET_DATA

&----

*& Form DISPLAY_DATA

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_DATA .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = I_FIELDCAT1

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =

IT_EVENTS = I_EVENTS

IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = I_RESULT

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " DISPLAY_DATA

FORM TOP_OF_PAGE .

W_LISTHEADER-TYP = 'H'.

W_LISTHEADER-INFO = 'SD Index: Order items by Material'.

append W_LISTHEADER TO I_LISTHEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = I_LISTHEADER

I_LOGO = 'ENJOYSAP_LOGO'

I_END_OF_LIST_GRID =
I_ALV_FORM =

REFRESH I_LISTHEADER.

ENDFORM. "

FORM END_OF_PAGE .

WRITE : / 'Page no: ',SY-PAGNO.

ENDFORM. " END_OF_PAGE

FORM ALV_SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.

SET PF-STATUS 'STATUS'.

ENDFORM. " ALV_SET_PF_STATUS

FORM ALV_USER_COMMAND using R_UCOMM LIKE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

data : V_FCODE LIKE SY-UCOMM.

DATA : V_SEL_LINE LIKE RS_SELFIELD-TABINDEX.

DATA : V_SEL_VALUE LIKE RS_SELFIELD-VALUE.

data : v_field like RS_SELFIELD-FIELDNAME.

MOVE RS_SELFIELD-TABINDEX TO V_SEL_LINE.

MOVE RS_SELFIELD-VALUE TO V_SEL_VALUE.

MOVE RS_SELFIELD-FIELDNAME TO V_FIELD.

V_FCODE = R_UCOMM.

CASE V_FCODE.

WHEN 'PICK'.

PERFORM AT-LINE-SELECTION USING V_SEL_LINE.

WHEN 'DISPLAY'.

PERFORM GRID_CB_DISPLAY USING V_SEL_VALUE V_SEL_LINE.

WHEN 'EXIT'.
PERFORM EXIT_PROGRAM.

ENDCASE.

ENDFORM. " ALV_USER_COMMAND

FORM EXIT_PROGRAM .

DATA : RS_SELFIELD TYPE SLIS_SELFIELD.

RS_SELFIELD-EXIT = 'X'.

ENDFORM. " EXIT_PROGRAM

&----

*& Form AT-LINE-SELECTION

&----

text

----

--> p1 text
<-- p2 text

----

FORM AT-LINE-SELECTION USING V_INDEX.

DATA : V_SEL_LINE1 TYPE I.

DATA : V_VALUE TYPE RS_SEL_FIELD-VALUE.

V_SEL_LINE1 = V_INDEX.

READ TABLE I_RESULT INTO W_RESULT INDEX V_SEL_LINE1 .

if SY-SUBRC IS INITIAL.

SELECT VBELV

POSNV

VBELN

POSNN

VBTYP_N

FROM VBFA

INTO TABLE I_VBFA

WHERE VBELV = W_RESULT-VBELN

AND POSNV = W_RESULT-POSNR.

ENDIF.

PERFORM BUILD_FIELDCAT1.

PERFORM GET_DATA1.

PERFORM DISPLAY_DATA1.

ENDFORM. " AT-LINE-SELECTION

&----

*& Form GRID_CB_DISPLAY

&----

text

----

--> p1 text
<-- p2 text

----

FORM GRID_CB_DISPLAY USING V_VALUE V_NUM.

DATA : V_VALUE1(65) TYPE C.

DATA : V_SEL_LINE TYPE SLIS_SELFIELD-TABINDEX.

V_VALUE1 = V_VALUE.

V_SEL_LINE = V_NUM.

if V_VALUE1 = '1'.

READ TABLE I_RESULT INTO W_RESULT INDEX V_SEL_LINE.

LOOP AT I_RESULT INTO W_RESULT WHERE CH = 'X'.

if SY-SUBRC IS INITIAL.

SELECT VBELV

POSNV

VBELN

POSNN

VBTYP_N

FROM VBFA

INTO TABLE I_VBFA

WHERE VBELV = W_RESULT-VBELN

AND POSNV = W_RESULT-POSNR.

APPEND W_VBFA TO I_VBFA.
CLEAR W_VBFA.
ENDLOOP.

ENDIF.

PERFORM BUILD_FIELDCAT1.

PERFORM GET_DATA1.

PERFORM DISPLAY_DATA1.

ENDFORM. " GRID_CB_DISPLAY

&----

*& Form BUILD_FIELDCAT1

&----

text

----

--> p1 text
<-- p2 text

----

FORM BUILD_FIELDCAT1 .

REFRESH I_FIELDCAT.

W_FIELDCAT-COL_POS = '1'.

W_FIELDCAT-FIELDNAME = 'VBELV'.

W_FIELDCAT-tabname = 'I_VBFA'.

W_FIELDCAT-SELTEXT_L = 'Preceding sales document'.

W_FIELDCAT-seltext_M = 'Preceding sales'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT-HOTSPOT = 'X'.

W_FIELDCAT-EMPHASIZE = 'C110'.

APPEND W_FIELDCAT TO I_FIELDCAT.

CLEAR W_FIELDCAT.

W_FIELDCAT-COL_POS = '2'.

W_FIELDCAT-FIELDNAME = 'POSNV'.

W_FIELDCAT-tabname = 'I_VBFA'.

W_FIELDCAT-SELTEXT_L = 'Preceding Item'.

W_FIELDCAT-seltext_M = 'Preceding Item'.

W_FIELDCAT-seltext_s = 'Pre Item'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT-HOTSPOT = 'X'.

W_FIELDCAT-EMPHASIZE = 'C210'.

APPEND W_FIELDCAT TO I_FIELDCAT.

CLEAR W_FIELDCAT.

W_FIELDCAT-COL_POS = '3'.

W_FIELDCAT-FIELDNAME = 'VBELN'.

W_FIELDCAT-tabname = 'I_VBFA'.

W_FIELDCAT-SELTEXT_L = 'Subsequent sales document'.

W_FIELDCAT-seltext_M = 'Subsequent sales '.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT-HOTSPOT = 'X'.

W_FIELDCAT-EMPHASIZE = 'C310'.

APPEND W_FIELDCAT TO I_FIELDCAT.

CLEAR W_FIELDCAT.

W_FIELDCAT-COL_POS = '4'.

W_FIELDCAT-FIELDNAME = 'POSNN'.

W_FIELDCAT-tabname = 'I_VBFA'.

W_FIELDCAT-SELTEXT_L = 'Subsequent Item'.

W_FIELDCAT-seltext_M = 'subseq item'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT-HOTSPOT = 'X'.

W_FIELDCAT-EMPHASIZE = 'C410'.

APPEND W_FIELDCAT TO I_FIELDCAT.

CLEAR W_FIELDCAT.

W_FIELDCAT-COL_POS = '5'.

W_FIELDCAT-FIELDNAME = 'VBTYP_N'.

W_FIELDCAT-tabname = 'I_VBFA'.

W_FIELDCAT-SELTEXT_L = 'Document cat'.

W_FIELDCAT-seltext_M = 'Document cat'.

W_FIELDCAT-KEY = 'X'.

W_FIELDCAT-HOTSPOT = 'X'.

W_FIELDCAT-EMPHASIZE = 'C510'.

APPEND W_FIELDCAT TO I_FIELDCAT.

CLEAR W_FIELDCAT.

ENDFORM. " BUILD_FIELDCAT1

&----

*& Form DISPLAY_DATA1

&----

text

----

--> p1 text
<-- p2 text

----

FORM DISPLAY_DATA1 .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'Sales document flow'

I_GRID_SETTINGS =

IS_LAYOUT = I_LAYOUT

IT_FIELDCAT = I_FIELDCAT

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = I_VBFA

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " DISPLAY_DATA1

topic reports in Application Development and Automation Discussions

reports

Re: reports

Re: reports

Re: reports

Re: reports