Cambiar etiquetas en los graficos
Publicado por Pablo (26 intervenciones) el 11/12/2007 18:08:17
Hola a todos
Estoy utilizando msgraph para realizar algunos graficos, pero necesito cambiarle en el eje x los datos que salen; me aparecen R1, R2.. y asi sucesivamente, lo que deseo es que aparezcan segun mi ejemplo Lunes, Martes, miercoles...
Este es el codigo que utilizo:
CREATE CURSOR crsDatos (dia c(10), canti1 n(3), canti2 n(3))
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Lunes", 50, 25)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Martes", 25, 15)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Miercoles", 10, 105)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Jueves", 30, 55)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Viernes", 60, 36)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Sabado", 50, 25)
thisform.gRAFICO.ChartType= 3 && VtChChartType2dLine
thisform.gRAFICO.columnCount=2
thisform.gRAFICO.rowCount=6
f=1
SCAN
thisform.gRAFICO.obJECT.Column=1
thisform.gRAFICO.obJECT.Row=f
thisform.gRAFICO.obJECT.Data=crsDatos.canti1
thisform.gRAFICO.obJECT.Column=2
thisform.gRAFICO.obJECT.Row=f
thisform.gRAFICO.obJECT.Data=crsDatos.canti2
f=f+1
ENDSCAN
Estoy a la espera de sus comentarios
Saludos
Pablo
Estoy utilizando msgraph para realizar algunos graficos, pero necesito cambiarle en el eje x los datos que salen; me aparecen R1, R2.. y asi sucesivamente, lo que deseo es que aparezcan segun mi ejemplo Lunes, Martes, miercoles...
Este es el codigo que utilizo:
CREATE CURSOR crsDatos (dia c(10), canti1 n(3), canti2 n(3))
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Lunes", 50, 25)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Martes", 25, 15)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Miercoles", 10, 105)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Jueves", 30, 55)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Viernes", 60, 36)
INSERT INTO crsDatos (dia, canti1, canti2) VALUES ("Sabado", 50, 25)
thisform.gRAFICO.ChartType= 3 && VtChChartType2dLine
thisform.gRAFICO.columnCount=2
thisform.gRAFICO.rowCount=6
f=1
SCAN
thisform.gRAFICO.obJECT.Column=1
thisform.gRAFICO.obJECT.Row=f
thisform.gRAFICO.obJECT.Data=crsDatos.canti1
thisform.gRAFICO.obJECT.Column=2
thisform.gRAFICO.obJECT.Row=f
thisform.gRAFICO.obJECT.Data=crsDatos.canti2
f=f+1
ENDSCAN
Estoy a la espera de sus comentarios
Saludos
Pablo
Valora esta pregunta


0