Ver Mensaje Individual
  #3  
Viejo 13/01/11, 08:39:55
assai assai is offline
Junior Member
 
Fecha de Ingreso: sep 2007
Localización: Madrid
Mensajes: 14
Wink



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
Responder Con Cita