Hola,
Yo utilizo una rutina y me salen perfectamente que llama a la función GRAPH_MATRIX_3D.
Mira a ver si te vale...
FORM graficos USING ot.
DATA: BEGIN OF dattab OCCURS 5,
txt(20) TYPE c,
col1(15) TYPE p,
col2(15) TYPE p,
col3(15) TYPE p,
col4(15) TYPE p,
END OF dattab.
DATA: BEGIN OF opttab OCCURS 5,
c(20),
END OF opttab.
DATA: proyecto(15).
DATA: busg_stat, mtyp, aktion, modzl, modsp, modwert(3) TYPE p.
CLEAR: dattab, proyecto.
REFRESH: dattab.
* rutinas estándard para función gráfica
*** Datentabelle füllen ***
LOOP AT itab2 WHERE cod_planif_ot = ot.
CONCATENATE 'Capítulo' itab2-cod_capitulo_ot INTO dattab-txt SEPARATED BY space.
dattab-col1 = itab2-pedido.
dattab-col2 = itab2-produccion.
dattab-col3 = itab2-coste.
dattab-col4 = itab2-beneficio.
APPEND dattab. CLEAR dattab.
ENDLOOP.
*** Optionentabelle füllen ***
opttab = 'FIFRST = PU'.
APPEND opttab. "// Grafik-Typ
opttab = 'P3TYPE = TO'.
APPEND opttab. "// Objektart
opttab = 'P3CTYP = RO'.
APPEND opttab. "// Farben der Objekte
opttab = 'TISIZE = 2'.
APPEND opttab. "// Haupttitelgröße tamańo títulos
opttab = 'CLBACK = X'.
APPEND opttab. "// Background Color Color fondo
*------------------*
* Dialogschleife *
*------------------*
busg_stat = space.
CONCATENATE 'Proyecto' itab2-txt_planif_ot INTO proyecto SEPARATED BY space.
CALL FUNCTION 'GRAPH_MATRIX_3D'
EXPORTING
stat = busg_stat
dim1 = 'Obra'
dim2 = 'Capítulos'
col1 = 'Pedido'
col2 = 'Produccion'
col3 = 'Coste'
col4 = 'Beneficio'
titl = proyecto
valt = 'Euros'
winpos = '5'
winszx = '65'
winszy = '80'
inform = '6'
IMPORTING
m_typ = mtyp
b_typ = aktion
mod_row = modzl
mod_col = modsp
mod_val = modwert
TABLES
data = dattab
opts = opttab.
ENDFORM. " GRAFICOS
__________________
Saludos
Jaime
|