[GUFA] Ms chart 8.0 eureka!

Tue, 07 Nov 2006 08:14:07 -0800

Title: Ms chart 8.0
querido pablo!
no te olvides que yo ( no tengo empacho en decirlo) utilizo el metodo munuce, por que es el unico que me sale 'por la razon o la fuerza' creo que es un lema interesante, por mas que rece en el escudo de cierto pais que me resulta moralmente insoportable.
 
quiero agradecerte en publico, tanto a vos como al OZ, por las ayudas que me prestaron para encontrar el 'solution path' para este problema, que dado mis escasos conocimientos se me planteo.
 
he descubierto luego de 30 anios en este curro, que muchas veces las soluciones de compromiso, resultan viables cuando no se tiene la ortodoxia necesaria.
 
abresos,
m.

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de PabloC
Enviado el: Martes, 07 de Noviembre de 2006 07:34 a.m.
Para: GUFA List Member
Asunto: [GUFA] Ms chart 8.0 eureka!

Marito
Tu metodo debe funcionar, pero te juro que el ejemplo que te pase tambien, y te deja ver e imprimir el grafico en 8 diferentes tipos, decime si lo pudiste ejecutar

Saludos
PabloC
----- Original Message -----
Sent: Monday, November 06, 2006 11:44 PM
Subject: [GUFA] Ms chart 8.0 eureka!

encontre la solucion munuce para el pinche problema del ms chart 8.0!, la cual comparto con la barra para lo que hubiera menester....
(puede tratarse del viejo truco de 'la arania sin patas no escucha...') pero
aqui va:
1. hay que armar un cursor con los datos que necesitas mostrar.
2. hay que armar una variable de memoria con los datos como si fueran un archivo txt (con tabs y salto de lineas)
3. hay que armar un cursor con un solo campo de formato general
4. hay que generarle un registro, incrustandole la clase ms chart 8.0 y en el campo grabarle la variable armada en el punto 2
5. hay que crear una clase heredada del oleboundcontrol.
6. en el gotfocus escribir el siguiente codigo:
 
 
If fn_PedidosDeEsteArticulo(This.articuloid,This.clienteid) && Aqui se arma la consulta que me dara el resultado.
 Select GraficarEsto && Este es el cursor que tiene el campo general
 Go Top
 With This
  .ControlSource = "GraficarEsto.Grafico"
  .AutoSize = .T.
  .Stretch= 2
  .Visible=.T.
  .Refresh
 Endwith
Endif
el resto de los parametros que me paso pablito son bellecimientos que deberian ir (me parece) al generar la variable de 2., pero no tengo la menor idea de como se pasan.
en cuanto a la clase, esta menos documentada que las instrucciones de como usar la piedra de rosetta.
 
en internet, solo encontre explicaciones modelo 'dr. picafleses' con mas vueltas que resultados.
espero que esto sirva para el resto de la banda.
no es un grafico de lujo, peeeero... anda.
me imagino que debe haber una serie de constantes, que las buscare en el momento del 'pechoching' para agregarle a la variable de 2., para que el grafiquito se tire pedos de colores....
 
abreso,
m.
(viejaaa! destapa un champan...)

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de PabloC
Enviado el: Lunes, 06 de Noviembre de 2006 10:39 a.m.
Para: GUFA List Member
Asunto: [GUFA] Ms chart 8.0

No tengo la mas remota idea
En mi ejemplo le paso
 

With .oleGrafico

    .ControlSource = "cGraph.gGraph"

    .ChartType = 70

    .HasTitle = .T.

    .ChartTitle.Text = "Titulo del Grafico"

    .ChartTitle.Font.Name = "Tahoma"

    .ChartTitle.Font.Size = 12

    .ChartTitle.Font.Bold = .T.

    With .Object

        .rotation = 105

        .perspective = 10

        .elevation = 20

    EndWith

    .HasLegend = .T.

    .Legend.Font.Size = 10

    .Legend.AutoScaleFont = .T.

    .Legend.Position = 1 &&Abajo

    .ApplyDataLabels()

    .SeriesCollection(1).DataLabels.AutoScaleFont = .T.

    .SeriesCollection(1).DataLabels.Font.Size = 10

    .refresh

EndWith


Saludos
PabloC
----- Original Message -----
Sent: Monday, November 06, 2006 1:29 PM
Subject: [GUFA] Ms chart 8.0

hola pablito!
probe con el valor del ejemplo que me pasaste, ahora no da error pero no muestra el grafico. pregunta: cuales son los parametros minimos que hay que pasarle al oleboundcontrol para poder visualizarlo?
gracias,
m.

De: [email protected] [mailto:[EMAIL PROTECTED] En nombre de PabloC
Enviado el: Lunes, 06 de Noviembre de 2006 07:02 a.m.
Para: GUFA List Member
Asunto: [GUFA] Ms chart 8.0

Hola Marito
Me alegro por el aporte
El problema que tenes es que el tipo de grafico que queres "graficar", en tu caso ChartType=51 , no es valido para los datos que tenes.
NO se porque pero a mi me pasaba, probaste con cualquier otro tipo??

Saludos
PabloC
----- Original Message -----
Sent: Monday, November 06, 2006 1:44 AM
Subject: [GUFA] Ms chart 8.0



From TheCount's Desk
_____________________

Hoola zorros!
Gracias al aporte de Pablito Canonico y a codigo que chorre de la web, puede hacer mi grafiquito!

Si abro el cursorcito de marras, me muestra el grafico…… 'hasta aqui voy bien' (decia Olmedo, mientras caia por el cuarto piso)…

Cuando quiero mostrarlo en un form…

If fn_PedidosDeEsteArticulo(This.articuloid,This.clienteid)
        Select GraficarEsto
        With This.oleboundcontrol1
                .ControlSource='GraficarEsto.Grafico'
                .ChartType=51
                .Height=This.Height-20
                .Width = This.Width-20
                .Left=0
                .Top=0
                .Visible=.T.
                .Refresh
        Endwith
Endif

Me da el error chartype property is not found
Que estoy haciendo mal?

Desde ya gracias!
Abreso,
M.
Nota: Los acentos han sido removidos intencionalmente, para que este mensaje pueda ser leido por todos los programas de correo.



__________ Información de NOD32, revisión 1.1854 (20061106) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com


__________ Información de NOD32, revisión 1.1856 (20061106) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Responder a