Graficas con asistente de vfp

Hola :
Tengo un problema con msgraph, no se si me puedan colaborar.
ESTOY GENERANDO UNA GRAFICA DESPUES DE SELECCIONAR LOS DATOS EN UNA TABLA, A TRAVEZ DE LA LINEA do wzgraph with Tmp.dbf ó Do _gengraph With tmp.dbf (es un asistente para graficar)CUANDO EJECUTO EL PROGRAMA DESDE LA VENTANA DE COMANDOS DEL VFOX 5.O EJECUTA CORRECTAMENTE LLAMANDO EL ASISTENTE PARA GRAFICOS (WZGRAPH.APP) Y PIDIENDOME LOS DATOS NECESARIOS PARA COLOCAR MI GRAFICA EN UN CAMPO OLE COMO DESEO.
EL PROBLEMA QUE AL CORRER EL PROGRAMA DESDE EL EJECUTABLE ME SACA EL SIGUIENTE ERROR:
los asistentes de visual foxpro requieren la version estandar o profesional.
EFECTIVAMENTE TENGO INSTALADO EL VFOX 5.0 ESPAÑOL CON LOS RUNTIME DEL MSGRAPH VERSION PROFESIONAL
PARECE QUE LA APLICACIÓN WZGRAPH NO ES DISTRIBUIBLE O ALGO PARECIDO, COMO INSTALO LOS ASISTENTES, NO SE SI SEPAS DE ALGUIEN QUE ME PUEDA COLABORAR
Adjunto parte del codigo que uso.
GRACIAS POR tu COLABORACIÓN
Samir Humberto Solano
-------------------
SELECT tMP2
public m.grafica
m.grafica =""
WAIT CLEAR
** uso esta linea
DO wzgraph WITH TMP2
** o esta otra
do (_gengraph) with TMP2
select 7
m.grafica = alias()
if empty(m.grafica)
* REMOVE TABLE tmp2 DELETE
thisFORM.comcerrar.click
close databases all
do form GMDEXF
RETURN
ENDIF
USE ALLTRIM(M.GRAFICA)
thisform.txtfin.value = mfinca
thisform.txtfin1.value = mfinca1
thisform.txtfin2.value = mfinca2
thisform.txtflor.value = m.flor
thisform.txtenf.value = m.enfer
thisform.txtaño.value = m.año
thisform.oleGraph.controlsource = m.grafica+".olegraph"
thisform.comfin.visible = .F.
thisform.comfin1.visible = .F.
thisform.comfin2.visible = .F.
thisform.comflor.visible = .F.
thisform.comenf.visible = .F.
thisform.comaño.visible = .F.
thisform.txtFIN.visible = .T.
thisform.txtFIN1.visible = .T.
thisform.txtFIN2.visible = .T.
thisform.txtFLOR.visible = .T.
thisform.txtENF.visible = .T.
thisform.txtAÑO.visible = .T.
thisform.oleGraph.visible = .T.
thisform.cmdPrint.Enabled = .T.
thisform.cmdPrOCESS.Enabled = .F.
thisform.refresh

1 Respuesta

Respuesta
1
Prueba el Sig. Codigo
Crea un objecto ole msgraph en tu formulario de nombre Objeto
y pon el sig. codigo en el init de tu form
thisform.objeto.object.application.datasheet.rows("1").delete
thisform.objeto.object.application.datasheet.rows("2").delete
thisform.objeto.object.application.datasheet.rows("3").delete
Thisform.objeto.object.application.datasheet.rows("4").delete
Thisform.objeto.object.application.datasheet.rows("5").delete
THISFORM.objeto.object.application.datasheet.columns("2").delete
THISFORM.objeto.object.application.datasheet.columns("2").delete
THISFORM.objeto.object.application.datasheet.columns("3").delete
THISFORM.objeto.object.application.datasheet.columns("3").delete
THISFORM.objeto.object.application.datasheet.columns("4").delete
THISFORM.objeto.object.application.datasheet.columns("4").delete
THISFORM.objeto.object.application.datasheet.columns("5").delete
THISFORM.objeto.object.application.datasheet.columns("5").delete
thisform.objeto.object.application.plotby = 1
thisform.objeto.object.application.datasheet.range("00").value = "Cantidad"
thisform.objeto.object.application.chart.charttype = -4100
thisform.objeto.object.application.chart.Legend.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.Legend.Font.Size=9
thisform.objeto.object.application.chart.Legend.Font.FontStyle="Normal"
thisform.objeto.object.application.chart.Legend.Position=1
thisform.objeto.object.application.chart.Axes(1).TickLabels.AutoScaleFont = .f.
thisform.objeto.object.application.chart.Axes(1).TickLabels.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.Axes(1).TickLabels.Font.Size=9
thisform.objeto.object.application.chart.Axes(1).TickLabels.Font.FontStyle="Normal"
thisform.objeto.object.application.chart.Axes(2).TickLabels.AutoScaleFont = .f.
thisform.objeto.object.application.chart.Axes(2).TickLabels.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.Axes(2).TickLabels.Font.Size=8
thisform.objeto.object.application.chart.Axes(2).TickLabels.Font.FontStyle="Normal"
thisform.objeto.object.application.chart.Axes(3).TickLabels.AutoScaleFont = .f.
thisform.objeto.object.application.chart.Axes(3).TickLabels.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.Axes(3).TickLabels.Font.Size=8
thisform.objeto.object.application.chart.Axes(3).TickLabels.Font.FontStyle="Normal"
Continua --->
thisform.objeto.object.application.chart.HasDataTable = .t.
thisform.objeto.object.application.chart.DataTable.ShowLegendKey = .f.
thisform.objeto.object.application.chart.DataTable.AutoScaleFont = .f.
thisform.objeto.object.application.chart.DataTable.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.DataTable.Font.Size=8
thisform.objeto.object.application.chart.DataTable.Font.FontStyle="Normal"
thisform.objeto.object.application.datasheet.range("A0").value = "Titulo del Grafico"
thisform.objeto.object.application.chart.ApplyDataLabels(2,.F.)
thisform.objeto.object.application.chart.SeriesCollection(1).DataLabels.Font.Name="Times New Roman"
thisform.objeto.object.application.chart.SeriesCollection(1).DataLabels.AutoScaleFont = .f.
thisform.objeto.object.application.chart.SeriesCollection(1).DataLabels.Font.Size=8
thisform.objeto.object.application.chart.SeriesCollection(1).DataLabels.Font.FontStyle="Normal"
thisform.objeto.object.application.chart.ApplyDataLabels(1,.F.)
*****aca van los datos que vas a graficar **********
VOY="0"
VOY0="01"
NRO=0
SELE ACTIVIDADECONOMICA
do while !eof()
NRO=NRO+1
VOY=ALLT(STR(NRO))
VOY0="0"+ALLT(STR(NRO))
T="thisform.objeto.object.application.datasheet.range('"+voy0+"').value ="+"'"+allt(actividadeconomica.estado)+"'"
D="thisform.objeto.object.application.datasheet.range('A"+voy+"').value ="+allt(str(actividadeconomica.Cuantos))
&T
&D
SKIP
Enddo
if thisform.objeto.object.application.chart.hastitle = .f.
thisform.objeto.object.application.chart.hastitle = .t.
endif
thisform.objeto.object.application.chart.charttitle.text = allt(thisform.text1.value)
thisform.objeto.object.application.chart.ChartArea.Interior.ColorIndex = 0
THISFORM.REFRESH
thisform.objeto.VISIBLE=.T.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Error de Conectividad sql2000 server

Estimado amigo disculpa que te vuelva a molestar pero tengo este problema y espero que me ayudes. Sabes cuando intento grabar datos al servidor desde vfp me sale este mensajer: "ERROR DE CONECTIVIDAD: [MICROSOFT]...[SQL SERVER] Comilla no cerrada...
2 respuestas

Operación con decimales en caja de textos

Tengo 3 caja de texto, en dos de ellas van decimales y en la tercera la respuesta, hago la operación y el resultado no me da... Ej: Caja 1 : 42.1218 Caja 2 : 42.1630 El resultado si es una resta debería darme 0.0412 y no me da... ¿Cómo hago esta...
1 respuesta

Visual foxpro VS excel

Yo en visual foxpro tengo una tabla.dbf, y necesito ejecutar una plantilla de excel desde visual foxpro, que me cargue esta tabla. De antemano muchas gracias por su ayuda. Saludos Fernando londoño. Tecnólogo en sistematización de datos
1 respuesta

Mostrar un resultado en una capa

Resulta que necesito realizar una pagina que capture un numero en de un campo de texto y calcule su factorial... Hasta aqui muy bien. Lo que pasa es que este resultado debe salir en una capa que debera estar oculta hasta el momento que se presione el...
1 respuesta

¿Es verdad que un arcón congelador es más hermético que el congelador doméstico de casa?

Tengo unas preguntas y son las siguientes: 1. ¿Es verdad que un arcón congelador es más ermético que el congelador doméstico de casa? 2. ¿Por qué el congelador arranca más a menudo sin escarcha que con escarcha? ¿Qué diferencia hay? 3. ¿Por qué...
1 respuesta

Como copiar celdas especificas de un archivo a otro con macro

Tengo el siguiente problema tengo dos archivos uno con información y el otro vació lo que intento hacer es copiar de un archivo al otro pero mi complicación es que el encabezado o el orden varían el uno del otro pongo el siguiente ejemplo en el...
2 respuestas

Macro comparar valores columnas y copiar y pegar

Necesito realizar un macro que me compare dos columnas y si estas coinciden que me copie y pegue los valores relacionados en una a la otra, vale aclarar que las dos columnas se encuentran en hojas distintas, el proceso sería algo así: Tengo dos hojas...
1 respuesta

Forzar descargas de archivos con PHP

Pretendo forzar la descarga de archivos de extensión usual (doc, pdf, mp3...) de modo que no se abran desde el navegador del visitante con el programa asociado, sino que aparezca el típico cuadro con las opciones Abrir-Guardar-Cancelar. Sé que el...
1 respuesta

Word en un formulario web browser en vfp

Quiero abrí documentos word en un formulario en vfp he leído que puede hacerse con el web browser si alguien puede ayudarme le agradezco mucho...
1 respuesta

Borrar un Registro desde Vfp9 a MySql

Buenos dias aki molestando nuevamente con el siguiente problema al momento q deseo Borrar un registro o Campo selecciona desde una lista en un Grid, me sale este error: For The Right syntax to use near where Tip_Per.Gen_Tit=`09982422-02', Limit1' at...
1 respuesta