Mostrar el valor de cada barra de un gráfico
Publicado por Jorge (4 intervenciones) el 13/04/2010 19:45:20
Utilizo un control OleBoundControl para mostrar un gráfico de barras, con el cual efectivamente muestro el gráfico, pero cuál será la sentencia para que aparezca el número correspondiente de cada barra, en el tope de cada una. El código que utilizo es el siguiente:
CREATE CURSOR Datos(gen1 G)
cGData = "" + CHR(9) + "Nº Pedidos Totales Mes" + CHR(9) + "Nº Pedidos Atendidos Mes" + CHR(13) + ;
"" + CHR(9) + ALLTRIM(STR(TempTotalPedidos.Total)) + CHR(9) + ALLTRIM(STR(TempCumplido.Total))
APPEND BLANK
APPEND GENERAL gen1 CLASS "msgraph.chart" DATA m.cGData
WITH Thisform.olbGrafico1
.ControlSource = "Gen1"
.HasLegend = .F. && Con esta propiedad se muestra u oculta la leyenda
&&.autoformat(-4102, 7) && Con esta sentencia se muestran los gráficos de pastel
&&.autoformat(-4099,1) && Con esta sentencia se muestran los gráficos de Barras Horizontales
.autoformat(-4100,1) && Con esta sentencia se muestran los gráficos de Barras Verticales
ENDWITH
CREATE CURSOR Datos(gen1 G)
cGData = "" + CHR(9) + "Nº Pedidos Totales Mes" + CHR(9) + "Nº Pedidos Atendidos Mes" + CHR(13) + ;
"" + CHR(9) + ALLTRIM(STR(TempTotalPedidos.Total)) + CHR(9) + ALLTRIM(STR(TempCumplido.Total))
APPEND BLANK
APPEND GENERAL gen1 CLASS "msgraph.chart" DATA m.cGData
WITH Thisform.olbGrafico1
.ControlSource = "Gen1"
.HasLegend = .F. && Con esta propiedad se muestra u oculta la leyenda
&&.autoformat(-4102, 7) && Con esta sentencia se muestran los gráficos de pastel
&&.autoformat(-4099,1) && Con esta sentencia se muestran los gráficos de Barras Horizontales
.autoformat(-4100,1) && Con esta sentencia se muestran los gráficos de Barras Verticales
ENDWITH
Valora esta pregunta
0