Line Graph

Former Member · ‎05-25-2013

Hi,

I want to create a line graph which will have the x-axis values from an internal table . I tried with FM 'graph_stat' but it is not possible. Can someone please help me?

Regards,

Sharbani

Aashish28 · ‎05-25-2013

Hiii sharbani,

In se80 see package - SGRB it contains graphics examples you can refer them - GFW_PROG_COLUMNS_AND_TIME_AXIS.

BR,

Ashish

Former Member · ‎05-25-2013

Hi Ashish,

Thanks for the response. I tried that earlier . But I am not clear with the concepts of OOPs. Is there any way out with other FM??

Aashish28 · ‎05-27-2013

Hiii sharbani,

If you need FM based graph than you can see - GRBUSGMN , GRBUSG_1 , GRBUSG_M demo example or for more detail search fm in se37 - GRAPH* and than find where to use and see examples you will find many FM based examples.

but personally i would suggest you go with OOPS based approach that is better than this and with oops you have many options and chart/graphs available just try you will succeed in oops based approach also , just think about future proof.

BR,

Ashish

Former Member · ‎05-27-2013

Hi Ashish,

Thank you so much for your response. I want to try with OOPs. Can you please help me a bit more in that. I am too confused with those package and programs. I am unable to understand properly and implement. Can you please help me.

Thanks & Regards,

Sharbani

Former Member · ‎05-27-2013

Hi,

One more thing. Is there any way to create graph in excel directly from the internal table?? If yes then that will be best for me. Please help.

Regards,

Sharbani

matt · ‎05-27-2013

Possibly using abap2xlsx

http://wiki.sdn.sap.com/wiki/display/ABAP/abap2xlsx

Aashish28 · ‎05-27-2013

Hiii sharbani ,

All demo examples which is present in package - SGRB contain simple steps for creating graph on custom container just debug one time you can easily understand flow.

i hope you have knowledge of containers .

and for graph on xls - yes you can do this also , use OLE based approach or you can use ABAP2XLSX.

Thanks ,

Ashish

Former Member · ‎05-28-2013

Hi,

My problem is not yet solved. Please help me, I want a simple line graph in excel which will take values from internal table. The X-axis labels will also be from the internal table, For eg, I want the material wise values. so the x-axis must have the material numbers and y-axis will have the values.

Please help me out.

Regards,

Sharbani

Aashish28 · ‎05-28-2013

Hiiii,

If you are urgent requirement see and modify below OLE2 based code as per your requirement -

Note - please clear and remove unnecessary variables . this is running code

but i would suggest you see and use ABAP2XLSX , if it is not urgent requirement

BR,

Ashish

include ole2incl.

FIELD-SYMBOLS: <FS> .

CONSTANTS: CO_09(2) TYPE N VALUE 09.

data: lv_space(1) type c VALUE '|'.

types: ty_data1(15000) type c,

ty_data TYPE TABLE OF TY_DATA1.

data:GT_OUTPUT TYPE TY_DATA,

wa_output like line of gt_output,

lv_active type i,

lv_inactive type i.



data:GT_OUTPUTv TYPE TY_DATA,

wa_output1 like line of gt_output.



DATA: h_excel TYPE ole2_object, " Excel object

h_mapl TYPE ole2_object, " list of workbooks

worksheet TYPE ole2_object, " list of workbooks

workbook TYPE ole2_object,

range TYPE ole2_object,

h_map TYPE ole2_object,

gs_cell1 TYPE ole2_object,

gs_cell2 TYPE ole2_object,



gs_cell3 TYPE ole2_object,

gs_cell4 TYPE ole2_object,

range1 TYPE ole2_object,





h_chart1 TYPE ole2_object,

ch_title TYPE ole2_object,

ac1 TYPE ole2_object,

ac2 TYPE ole2_object,

ac3 TYPE obj_record,

gs_font TYPE obj_record,

gs_colour TYPE obj_record,

h_chart TYPE ole2_object, " workbook

h_chart2 TYPE ole2_object,

h_chart_obj TYPE ole2_object,

h_chart_shape TYPE ole2_object,

ch_font TYPE ole2_object,

h_chart3 TYPE ole2_object,

file_name type string.

data:

begin of wa,

object_type(50) type c,

count(50) type c,

end of wa,

it_report like standard table of wa.



data: lin1 type i.

ASSIGN lv_space TO <FS> TYPE 'X'.

<FS> = CO_09.

wa-object_type = 'material'.

wa-count = 'count'.

append wa to it_report.

wa-object_type = 'mobile'.

wa-count = '20'.

append wa to it_report.

wa-object_type = 'pda'.

wa-count = '30'.

append wa to it_report.

wa-object_type = 'laptops'.

wa-count = 50.

append wa to it_report.

LOOP AT it_report INTO wa.

CONCATENATE wa-object_type

"wa-count

''

INTO WA_OUTPUT.

*SEPARATED BY lv_space.

APPEND WA_OUTPUT TO GT_OUTPUT.

CLEAR WA_OUTPUT.

endloop.



LOOP AT it_report INTO wa.

CONCATENATE wa-count

''

INTO WA_OUTPUT1.

*SEPARATED BY lv_space.

APPEND WA_OUTPUT1 TO GT_OUTPUTv.

CLEAR WA_OUTPUT1.

endloop.



DATA L_RC TYPE I.

DATA L_RC1 TYPE I.



***************** creates an excel application

CREATE OBJECT h_excel 'EXCEL.APPLICATION'.

*Sheet1

CALL METHOD OF h_excel 'Workbooks' = h_mapl.

SET PROPERTY OF h_excel 'Visible' = 1.

*************** opens a work book

CALL METHOD OF h_mapl 'Add' = h_map.

*************** gets the current worksheet

GET PROPERTY OF h_excel 'activesheet' = worksheet.

*************** sets the name of the worksheet

SET PROPERTY OF worksheet 'Name' = 'sheetnew'.

*********** pass data to sheet

CALL METHOD OF worksheet 'Cells' = gs_cell1

EXPORTING

#1 = 1 " starting row of selection

#2 = 1. " starting column of selection

CALL METHOD OF worksheet 'Cells' = gs_cell2

EXPORTING

#1 = 1 " ending row of selection

#2 = 1. " ending column of selection

CALL METHOD OF worksheet 'Range' = range

EXPORTING

#1 = gs_cell1

#2 = gs_cell2.



CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_EXPORT

IMPORTING

DATA = GT_OUTPUT[]

CHANGING

RC = L_RC.



CALL METHOD OF RANGE 'Select'.

CALL METHOD OF WORKSHEET 'Paste'.



CALL METHOD OF worksheet 'Cells' = gs_cell3

EXPORTING

#1 = 1 " starting row of selection

#2 = 2. " starting column of selection

CALL METHOD OF worksheet 'Cells' = gs_cell4

EXPORTING

#1 = 1 " ending row of selection

#2 = 2. " ending column of selection

CALL METHOD OF worksheet 'Range' = range

EXPORTING

#1 = gs_cell3

#2 = gs_cell4.





CALL METHOD CL_GUI_FRONTEND_SERVICES=>CLIPBOARD_EXPORT

IMPORTING

DATA = GT_OUTPUTV[]

CHANGING

RC = L_RC1.



CALL METHOD OF RANGE 'Select'.

CALL METHOD OF WORKSHEET 'Paste'.





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

*************** create a chart sheet

CALL METHOD OF h_excel 'charts' = h_chart.

*************** add a chart of variable h_chart1

*************** opens the initially created sheet

CALL METHOD OF worksheet 'Select'.

CALL METHOD OF h_excel 'Cells' = gs_cell1

EXPORTING

#1 = 1 " starting row of selection

#2 = 1. " starting column of selection

CALL METHOD OF h_excel 'Cells' = gs_cell2

EXPORTING

#1 = 4 " ending row of selection

#2 = 2. " ending column of selection

*************** combine cells to form the range

CALL METHOD OF h_excel 'Range' = range

EXPORTING

#1 = gs_cell1

#2 = gs_cell2.

*************** sets the chart type

CALL METHOD OF h_excel 'charts' = h_chart2.

call method of h_chart2 'add' = h_chart3.

SET PROPERTY OF h_chart3 'charttype' = '69'.

********************************************** title for chart

SET PROPERTY OF h_chart3 'HasTitle' = 1.

GET PROPERTY OF h_chart3 'ChartTitle' = ch_title.

GET PROPERTY OF ch_title 'Characters' = ch_title.

SET PROPERTY OF ch_title 'text' = 'inventory comparison'.

CALL METHOD OF h_chart3 'SetSourceData'

EXPORTING #1 = range " range to be passed to the chart

#2 = 2. " selcts row/column

CALL METHOD OF h_chart3 'ApplyDataLabels'

exporting

#1 = '5'.

****** selects worksheet

CALL METHOD OF worksheet 'Select'.

CALL METHOD OF h_excel 'Cells' = gs_cell1

EXPORTING

#1 = 1 " starting row of selection

#2 = 1. " starting column of selection

CALL METHOD OF h_excel 'Cells' = gs_cell2

EXPORTING

#1 = 1 " ending row of selection

#2 = 2. " ending column of selection

CALL METHOD OF h_excel 'Range' = range

EXPORTING

#1 = gs_cell1

#2 = gs_cell2.

*********** sets the bold for the header

GET PROPERTY OF range 'Font' = GS_FONT .

SET PROPERTY OF GS_FONT 'Bold' = 1 .

free object h_excel.

himanshu_gupta13 · ‎05-25-2013

Hi,

With help of module function 'GRAPH_MATRIX_3D' you can make any graphs I show below the example code for line graph:

**Simple report to create graph in ABAP
**using GRAPH_MATRIX_3D function module
**The graph shows the performance of 3 companies for the Four
**quarters of a single year
**AUTHOR : HIMANSHU GUPTA
**
**structure declaration for performance measurement
**
TYPES: BEGIN OF ty_performance,
company(15) TYPE c,
q1 TYPE i,
q2 TYPE i,
q3 type i,
q4 type i,
END OF ty_performance.

*structure declaration for options table
types : BEGIN OF ty_opttable,
options(30) TYPE c,
END OF ty_opttable.

*Internal table and work area declarations
DATA: it_performance TYPE STANDARD TABLE OF ty_performance,
wa_performance TYPE ty_performance.

DATA : it_opttable type standard table of ty_opttable,
wa_opttable type ty_opttable.

*initialization event
INITIALIZATION.

*start of selection event
START-OF-SELECTION.

*clearing the work areas
CLEAR WA_PERFORMANCE.
CLEAR wa_opttable.

*appending values into the performance internal table
wa_performance-company = 'Company A'.
wa_performance-q1      = 78.
wa_performance-q2      = 68.
wa_performance-q3      = 79.
wa_performance-q4      = 80.

append wa_performance to it_performance.

wa_performance-company = 'Company B'.
wa_performance-q1      = 48.
wa_performance-q2      = 68.
wa_performance-q3      = 69.
wa_performance-q4      = 70.

append wa_performance to it_performance.

wa_performance-company = 'Company C'.
wa_performance-q1      = 78.
wa_performance-q2      = 48.
wa_performance-q3      = 79.
wa_performance-q4      = 85.

append wa_performance to it_performance.

*appending values into the options internal table
wa_opttable-options = 'P3TYPE = 2D'. "TO'.
APPEND wa_opttable TO it_opttable.

wa_opttable-options = 'P3TYPE = LI'. "TO'.
APPEND wa_opttable TO it_opttable.

wa_opttable-options = 'P2TYPE = LN'. "VB'.
APPEND wa_opttable TO it_opttable.

wa_opttable-options = 'TISIZE = 1'. "1'.
APPEND wa_opttable TO it_opttable.

*calling the graph function module
CALL FUNCTION 'GRAPH_MATRIX_3D'
EXPORTING
col1      = 'Quarter 1'
col2      = 'Quarter 2'
col3      = 'Quarter 3'
col4      = 'Quarter 4'
dim1      = 'In Percentage%'
set_focus = 'X'
titl      = 'Company Performances'
TABLES
data      = it_performance
opts      = it_opttable
EXCEPTIONS
others    = 1.

Output is:

NOTE: here you have to assign the options according to the required type of graph:

wa_opttable-options = 'TISIZE = 1'. "1'.
APPEND wa_opttable TO it_opttable.

Many Thanks / Himanshu Gupta

Former Member · ‎05-27-2013

Hi Himanshu,

Thanks for the response. But here also you are entering the values of the X-axis like quarter1,quarter2 etc. I want those values from the internal table itself. Like my case is that I want material no. values from internal table in the X-axis and the no. of divisions will also be dynamic. Please help me.

Regards,

Sharbani