cancel
Showing results for 
Search instead for 
Did you mean: 

regarding ALV REPORT

Former Member
0 Kudos

Hi,

My requireent on ALV is:

1 Identify all the notifications, for the given set of Cause Code(s). The notifications should contain all of the given cause codes.

Identify all QMUR-QMNUM for QMUR-URCOD = value 1(one entry) or value 1&2(two entries)or value 1&2&3(three entries)

2 For each QMUR-QMNUM, identify equivalent QMEL-QMNUM

3 For the identified notifications from the QMEL table, extract the notifications which meet the entered input criteria, dates (from and to), notification type, material (for which notification was created) and the plant for material.

From the identified QMEL-QMNUM from Step 2, extract QMEL-QMNUM for which,

I. QMEL-QMDAT is between the selection screen value, QMEL-QMDAT (LOW) and QMEL-QMDAT(HIGH), including the entered dates and

II. QMEL-QMART = selection screen QMEL-QMART value and

III. QMEL-MATNR = selection screen QMEL-MATNR value and

IV. QMEL – MAWERK = selection screen QMEL-MAWERK value

Note: If any field is not entered in the selection screen, all possible entries in that field should be considered.

4 If material type field is entered, display only the list (from step 3) for materials which are of the entered material type

If Material Type, MARA-MTART is entered, identify all MARA-MATNR. For each MARA-MATNR, identify equivalent QMEL-MATNR. Display the result from step 3 only for the identified QMEL-MATNR in this step

5 If the status of notification is selected (RQMLA-STAT_OFN, RQMLA-STAT_RST, RQMLA-STAT_IAR, RQMLA-STAT_MAB, RQMLA-STAT_LV), Limit the final output / display to notifications (QMEL-QMNUM) which are in the selected status

This selection is similar to selection in QM19 transaction

3.2.1 Table Data Access

Sequence Table

Table Name

1 QMUR Quality Notification - Causes

2 QMEL Quality Notification

3 MARA General Material Data

4 RQMLA (structure) i/o field for notification selection

if u help me out with suggetsted code veru helpful for me..... plz try out this with Heirarchial ALV

THANKS & REGARDS,

SHEKAR

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

Hi,

check program BCALV_TREE_DEMO for alv tree

and

HERE IS THE SAMPLE CODE.GO THRU THIS.

&----


*& Report ZALV5_OBJECTS *

*& hierarchical tree *

&----


*& *

*& *

&----


REPORT ZALV5_OBJECTS.

TABLES : EKKO.

TYPE-POOLS : SLIS.

TYPES : BEGIN OF TY_EKKO,

EBELN TYPE EKPO-EBELN,

EBELP TYPE EKPO-EBELP,

STATU TYPE EKPO-STATU,

AEDAT TYPE EKPO-AEDAT,

MATNR TYPE EKPO-MATNR,

MENGE TYPE EKPO-MENGE,

MEINS TYPE EKPO-MEINS,

NETPR TYPE EKPO-NETPR,

PEINH TYPE EKPO-PEINH,

END OF TY_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

IT_EKPO TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

IT_EMPTYTAB TYPE STANDARD TABLE OF TY_EKKO INITIAL SIZE 0,

WA_EKKO TYPE TY_EKKO,

WA_EKPO TYPE TY_EKKO.

DATA: OK_CODE LIKE SY-UCOMM, "OK-Code

SAVE_OK LIKE SY-UCOMM.

*ALV data declarations

DATA: FIELDCATALOG TYPE LVC_T_FCAT WITH HEADER LINE.

DATA: GD_FIELDCAT TYPE LVC_T_FCAT,

GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV.

*ALVtree data declarations

CLASS CL_GUI_COLUMN_TREE DEFINITION LOAD.

CLASS CL_GUI_CFW DEFINITION LOAD.

DATA: GD_TREE TYPE REF TO CL_GUI_ALV_TREE,

GD_HIERARCHY_HEADER TYPE TREEV_HHDR,

GD_REPORT_TITLE TYPE SLIS_T_LISTHEADER,

GD_LOGO TYPE SDYDO_VALUE,

GD_VARIANT TYPE DISVARIANT.

*Create container for alv-tree

DATA: GD_TREE_CONTAINER_NAME(30) TYPE C,

GD_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

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

*Includes

*INCLUDE ZDEMO_ALVTREEO01. "Screen PBO Modules

*INCLUDE ZDEMO_ALVTREEI01. "Screen PAI Modules

*INCLUDE ZDEMO_ALVTREEF01. "ABAP Subroutines(FORMS)

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

*Start-of-selection.

START-OF-SELECTION.

  • ALVtree setup data

PERFORM DATA_RETRIEVAL.

PERFORM BUILD_FIELDCATALOG.

PERFORM BUILD_LAYOUT.

PERFORM BUILD_HIERARCHY_HEADER CHANGING GD_HIERARCHY_HEADER.

PERFORM BUILD_REPORT_TITLE USING GD_REPORT_TITLE GD_LOGO.

PERFORM BUILD_VARIANT.

  • Display ALVtree report

  • CALL SCREEN 100.

&----


*& Form data_retrieval

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM DATA_RETRIEVAL .

SELECT EBELN

UP TO 10 ROWS

FROM EKKO

INTO CORRESPONDING FIELDS OF TABLE IT_EKKO.

LOOP AT IT_EKKO INTO WA_EKKO.

SELECT EBELN EBELP STATU AEDAT MATNR MENGE MEINS NETPR PEINH

FROM EKPO

APPENDING TABLE IT_EKPO

WHERE EBELN EQ WA_EKKO-EBELN.

ENDLOOP.

ENDFORM. " data_retrieval

&----


*& Form build_fieldcatalog

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_FIELDCATALOG .

  • Please not there are a number of differences between the structure of

  • ALVtree fieldcatalogs and ALVgrid fieldcatalogs.

  • For example the field seltext_m is replace by scrtext_m in ALVtree.

FIELDCATALOG-FIELDNAME = 'EBELN'. "Field name in itab

FIELDCATALOG-SCRTEXT_M = 'Purchase Order'. "Column text

FIELDCATALOG-COL_POS = 0. "Column position

FIELDCATALOG-OUTPUTLEN = 15. "Column width

FIELDCATALOG-EMPHASIZE = 'X'. "Emphasize (X or SPACE)

FIELDCATALOG-KEY = 'X'. "Key Field? (X or SPACE)

  • fieldcatalog-do_sum = 'X'. "Sum Column?

  • fieldcatalog-no_zero = 'X'. "Don't display if zero

APPEND FIELDCATALOG TO GD_FIELDCAT.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'EBELP'.

FIELDCATALOG-SCRTEXT_M = 'PO Iten'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 1.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'STATU'.

FIELDCATALOG-SCRTEXT_M = 'Status'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 2.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'AEDAT'.

FIELDCATALOG-SCRTEXT_M = 'Item change date'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 3.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MATNR'.

FIELDCATALOG-SCRTEXT_M = 'Material Number'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 4.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MENGE'.

FIELDCATALOG-SCRTEXT_M = 'PO quantity'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 5.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'MEINS'.

FIELDCATALOG-SCRTEXT_M = 'Order Unit'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 6.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'NETPR'.

FIELDCATALOG-SCRTEXT_M = 'Net Price'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 7.

FIELDCATALOG-DATATYPE = 'CURR'.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'PEINH'.

FIELDCATALOG-SCRTEXT_M = 'Price Unit'.

FIELDCATALOG-OUTPUTLEN = 15.

FIELDCATALOG-COL_POS = 8.

APPEND FIELDCATALOG TO GD_FIELDCAT..

CLEAR FIELDCATALOG.

ENDFORM. " build_fieldcatalog

&----


*& Form build_layout

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_LAYOUT .

GD_LAYOUT-NO_INPUT = 'X'.

GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

GD_LAYOUT-TOTALS_TEXT = 'Totals'(201).

  • gd_layout-totals_only = 'X'.

  • gd_layout-f2code = 'DISP'. "Sets fcode for when double

  • "click(press f2)

  • gd_layout-zebra = 'X'.

  • gd_layout-group_change_edit = 'X'.

  • gd_layout-header_text = 'helllllo'

ENDFORM. " build_layout

&----


*& Form build_hierarchy_header

&----


  • text

----


  • <--P_GD_HIERARCHY_HEADER text

----


FORM BUILD_HIERARCHY_HEADER CHANGING

P_HIERARCHY_HEADER TYPE TREEV_HHDR.

P_HIERARCHY_HEADER-HEADING = 'Hierarchy Header'(013).

P_HIERARCHY_HEADER-TOOLTIP = 'This is the Hierarchy Header !'(014).

P_HIERARCHY_HEADER-WIDTH = 30.

P_HIERARCHY_HEADER-WIDTH_PIX = ''.

ENDFORM. " build_hierarchy_header

&----


*& Form build_report_title

&----


  • text

----


  • -->P_GD_REPORT_TITLE text

  • -->P_GD_LOGO text

----


FORM BUILD_REPORT_TITLE USING PT_REPORT_TITLE TYPE SLIS_T_LISTHEADER

P_GD_LOGO TYPE SDYDO_VALUE.

DATA: LS_LINE TYPE SLIS_LISTHEADER,

LD_DATE(10) TYPE C.

  • List Heading Line(TYPE H)

CLEAR LS_LINE.

LS_LINE-TYP = 'H'.

  • ls_line-key "Not Used For This Type(H)

LS_LINE-INFO = 'PO ALVTree Display'.

APPEND LS_LINE TO PT_REPORT_TITLE.

  • Status Line(TYPE S)

LD_DATE(2) = SY-DATUM+6(2).

LD_DATE+2(1) = '/'.

LD_DATE3(2) = SY-DATUM4(2).

LD_DATE+5(1) = '/'.

LD_DATE+6(4) = SY-DATUM(4).

LS_LINE-TYP = 'S'.

LS_LINE-KEY = 'Date'.

LS_LINE-INFO = LD_DATE.

APPEND LS_LINE TO PT_REPORT_TITLE.

  • Action Line(TYPE A)

CLEAR LS_LINE.

LS_LINE-TYP = 'A'.

CONCATENATE 'Report: ' SY-REPID INTO LS_LINE-INFO SEPARATED BY SPACE.

APPEND LS_LINE TO PT_REPORT_TITLE.

ENDFORM. " build_report_title

&----


*& Form build_variant

&----


  • text

----


  • --> p1 text

  • <-- p2 text

----


FORM BUILD_VARIANT .

  • Set repid for storing variants

GD_VARIANT-REPORT = SY-REPID.

ENDFORM. " build_variant

Regards,

Nandha

Reward if it helps