Entrar
¿Nuevo usuario? Inscribirme
guvoaII · GUVOA Visual Object Español
  • Sólo miembros
  • Publicar
  • Base de datos
  • Labs de Grupos (Beta)
? ¿Ya estás suscrito? Entra a Yahoo!

Consejos

¿Sabías que...?
Podés cambiar el orden de los mensajes. Simplemente hacé clic en el enlace de columna fecha. Tus preferencias se guardarán, por lo tanto no necesitarás hacerlo otra vez cuando vuelvas a entrar.

Mensajes

   Mensajes Ayuda
Mensaje nº
Buscar:
Avanzado
Mensajes 2596 - 2625 de 2836   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Mensajes: Mostrar resúmenes de los mensajes   (Agrupar por tema) Clasificar por fecha v  
#2625 De: Jose Cordero <jconradomx@...>
Fecha: Lun, 8 de Sep, 2008 11:35 pm
Asunto: Re: CONTROL FOCUS CHANGE 		jconradomx
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Jorge A.

Lo que se me ocurre es que tus controles los pongas a ReadOnly y listo
no te cambia la apariencia.

Ejemplo:

METHOD ReadOnlyData() CLASS WinPanel
   LOCAL i, nLen AS DWORD

    // Poner todos los campos (SLE)"m" como [Solo Lectura]
    FOR i:= 1 TO ALen( aControls )
       *AEval(aControls,{ |oC| oC:disable()} )
       IF Left( aControls[i]:Name, 1 ) = "M"
          *? aControls[i]:Name
          *WAIT
          aControls[i]:ReadOnly := TRUE
          *aControls [i]:Disable()
          // Desactivamos CODIGO
         * AEval(aControls,{ |oC| oC:ReadOnly()
         *aControls [1]:ReadOnly := FALSE
         *aControls [1]:SetFocus()
       END IF
   NEXT i

   *SELF:oDCCODIGO:ReadOnly := TRUE
   // Cambiar la propiedad ValueChanged a  "FALSE"
   *AEval(aControls, { |x| x:__Update(), x:ValueChanged := FALSE } )
    RETURN NIL




----- Mensaje original ----
De: Jorge Accinelli <jorgeaccinelli@...>
Para: guvoaII@...
Enviado: lunes, 8 de septiembre, 2008 13:08:36
Asunto: Re: [guvoaII] CONTROL FOCUS CHANGE

Gustavo
 
 He probado sin resultado la clase
 A ver si hice bien
     Tome la clase y donde dice Mycontrol puse MyCheckBox
                          y donde dice Control puse CheckBox
     En  el editor de la ventana ( Una Dialog ) hice heredar
     los objetos CheckBox de MyCheckBox
     y luego usar MyEnable y MyDisable ; pero tienen
     el mismo comportamiento que los metodos usuales
     Enable Disable
 
Se me escapa algo ?
    
Saludos
Jorge      
    
 
 
 
----- Original Message -----
From: Gustavo B
Sent: Monday, September 08, 2008 5:21 PM
Subject: Re: [guvoaII] CONTROL FOCUS CHANGE

Lo que necesitas es un metodo de desabilitar los controles pero sin cambiarle la apariencia. Proba con esta clase:
 
CLASS MyControl INHERIT Control

METHOD AddStyle( nStyle ) CLASS MyControl
        RETURN SetWindowLong( SELF:Handle( ), ;
                              GWL_STYLE, ;
                              _Or( LONG( SELF:WindowStyles ), ;
                                   LONG( nStyle ) ) ) > 0

METHOD MyDisable() CLASS MyControl
        RETURN SELF:AddStyle( WS_DISABLED )

METHOD MyEnable() CLASS MyControl
        RETURN SELF:RemoveStyle( WS_DISABLED )

METHOD RemoveStyle( nStyle ) CLASS MyControl
        IF !SELF:HasStyle( nStyle )
                RETURN TRUE
        ENDIF

        RETURN SetWindowLong( SELF:Handle( ), ;
                              GWL_STYLE, ;
                              LONG( _XOr( LONG( SELF:WindowStyles ), ;
                                          LONG( nStyle ) ) ) ) > 0

ACCESS WindowStyles CLASS MyControl
        RETURN GetWindowLong( SELF:Handle( ), GWL_STYLE )

METHOD HasStyle( nStyle ) CLASS MyControl
        RETURN _And( LONG( SELF:WindowStyles ), LONG( nStyle ) ) > 0

 
Lo unico que tenes que hacer es heredar tus controles de esta clase en el editor de ventana. Luego para desabilitar/ habilitar haces:
 
oControl:MyDisable( )
...
oControl:MyEnable( )
 
Inclusive, modificando un poco la clase, podrias cambiarle el color, font, etc a tu gusto.
 
GB
 
 


El 8 de septiembre de 2008 10:24, jorgeeugenio2002 <jorgeaccinelli@ dextrasistemas. com.ar> escribió:


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



No virus found in this incoming message.
Checked by AVG - http://www.avg. com
Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 08/09/2008 7:01

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/

Responder | Reenviar | Mensajes en este tema (17)
#2624 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Lun, 8 de Sep, 2008 6:08 pm
Asunto: Re: CONTROL FOCUS CHANGE 		jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gustavo
 
 He probado sin resultado la clase
 A ver si hice bien
     Tome la clase y donde dice Mycontrol puse MyCheckBox
                          y donde dice Control puse CheckBox
     En  el editor de la ventana ( Una Dialog ) hice heredar
     los objetos CheckBox de MyCheckBox
     y luego usar MyEnable y MyDisable ; pero tienen
     el mismo comportamiento que los metodos usuales
     Enable Disable
 
Se me escapa algo ?
    
Saludos
Jorge      
    
 
 
 
----- Original Message -----
From: Gustavo B
Sent: Monday, September 08, 2008 5:21 PM
Subject: Re: [guvoaII] CONTROL FOCUS CHANGE

Lo que necesitas es un metodo de desabilitar los controles pero sin cambiarle la apariencia. Proba con esta clase:
 
CLASS MyControl INHERIT Control

METHOD AddStyle( nStyle ) CLASS MyControl
        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              _Or( LONG( SELF:WindowStyles ), ;
                                   LONG( nStyle ) ) ) > 0

METHOD MyDisable() CLASS MyControl
        RETURN SELF:AddStyle( WS_DISABLED )

METHOD MyEnable() CLASS MyControl
        RETURN SELF:RemoveStyle( WS_DISABLED )

METHOD RemoveStyle( nStyle ) CLASS MyControl
        IF !SELF:HasStyle( nStyle )
                RETURN TRUE
        ENDIF

        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              LONG( _XOr( LONG( SELF:WindowStyles ), ;
                                          LONG( nStyle ) ) ) ) > 0

ACCESS WindowStyles CLASS MyControl
        RETURN GetWindowLong( SELF:Handle(), GWL_STYLE )

METHOD HasStyle( nStyle ) CLASS MyControl
        RETURN _And( LONG( SELF:WindowStyles ), LONG( nStyle ) ) > 0

 
Lo unico que tenes que hacer es heredar tus controles de esta clase en el editor de ventana. Luego para desabilitar/habilitar haces:
 
oControl:MyDisable()
...
oControl:MyEnable()
 
Inclusive, modificando un poco la clase, podrias cambiarle el color, font, etc a tu gusto.
 
GB
 
 


El 8 de septiembre de 2008 10:24, jorgeeugenio2002 <jorgeaccinelli@dextrasistemas.com.ar> escribió:


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 08/09/2008 7:01

Responder | Reenviar | Mensajes en este tema (17)
#2623 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Lun, 8 de Sep, 2008 1:23 pm
Asunto: Re: CONTROL FOCUS CHANGE 		jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gracias a los dos
Con esto tengo para entrenerme
 
Saludos
Jorge
----- Original Message -----
From: Gustavo B
Sent: Monday, September 08, 2008 5:21 PM
Subject: Re: [guvoaII] CONTROL FOCUS CHANGE

Lo que necesitas es un metodo de desabilitar los controles pero sin cambiarle la apariencia. Proba con esta clase:
 
CLASS MyControl INHERIT Control

METHOD AddStyle( nStyle ) CLASS MyControl
        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              _Or( LONG( SELF:WindowStyles ), ;
                                   LONG( nStyle ) ) ) > 0

METHOD MyDisable() CLASS MyControl
        RETURN SELF:AddStyle( WS_DISABLED )

METHOD MyEnable() CLASS MyControl
        RETURN SELF:RemoveStyle( WS_DISABLED )

METHOD RemoveStyle( nStyle ) CLASS MyControl
        IF !SELF:HasStyle( nStyle )
                RETURN TRUE
        ENDIF

        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              LONG( _XOr( LONG( SELF:WindowStyles ), ;
                                          LONG( nStyle ) ) ) ) > 0

ACCESS WindowStyles CLASS MyControl
        RETURN GetWindowLong( SELF:Handle(), GWL_STYLE )

METHOD HasStyle( nStyle ) CLASS MyControl
        RETURN _And( LONG( SELF:WindowStyles ), LONG( nStyle ) ) > 0

 
Lo unico que tenes que hacer es heredar tus controles de esta clase en el editor de ventana. Luego para desabilitar/habilitar haces:
 
oControl:MyDisable()
...
oControl:MyEnable()
 
Inclusive, modificando un poco la clase, podrias cambiarle el color, font, etc a tu gusto.
 
GB
 
 


El 8 de septiembre de 2008 10:24, jorgeeugenio2002 <jorgeaccinelli@dextrasistemas.com.ar> escribió:


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 08/09/2008 7:01

Responder | Reenviar | Mensajes en este tema (17)
#2622 De: Jose Cordero <jconradomx@...>
Fecha: Lun, 8 de Sep, 2008 4:27 pm
Asunto: Re: Alguien sabe como puedo manejar graficas? 		jconradomx
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gerardo y Gustavo:

Gracias por la informaición!

Encontré, esto haber que les parece:

http://www.cavo.com/support/tutorials/Vo20/brow20/FILT00.html

y
http://www.cavo.com/support/tutorials/Vo20/tab20/p2tab.html

Saludos



----- Mensaje original ----
De: Gustavo B <gb.guvoa@...>
Para: guvoaII@...
Enviado: lunes, 8 de septiembre, 2008 10:14:07
Asunto: Re: [guvoaII] Alguien sabe como puedo manejar graficas?

La libreria Graph4Vo es muy buena, te permite insertar un objeto tipo grafico en cualquier ventana, pero no es free.
Si queres alguna solucion totalmente free vas a tener que hacerlo a mano, usando las clases de VO que heredan de la clase DrawObject. O bien buscar algun ocx gratuito y probar si funciona en VO.
Yo tengo algo hecho usando las clases de VO pero para la version 1.0, si necesitas algo avisa y vemos si se puede adaptar.
 
GB

El 8 de septiembre de 2008 0:46, Jose Cordero <jconradomx@yahoo. com.mx> escribió:


Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias

____________ _________ _________ _________ _________ __
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo. yahoo.com. mx/



__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/

Responder | Reenviar | Mensajes en este tema (12)
#2621 De: "Gustavo B" <gb.guvoa@...>
Fecha: Lun, 8 de Sep, 2008 3:21 pm
Asunto: Re: CONTROL FOCUS CHANGE 		Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Lo que necesitas es un metodo de desabilitar los controles pero sin cambiarle la apariencia. Proba con esta clase:
 
CLASS MyControl INHERIT Control

METHOD AddStyle( nStyle ) CLASS MyControl
        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              _Or( LONG( SELF:WindowStyles ), ;
                                   LONG( nStyle ) ) ) > 0

METHOD MyDisable() CLASS MyControl
        RETURN SELF:AddStyle( WS_DISABLED )

METHOD MyEnable() CLASS MyControl
        RETURN SELF:RemoveStyle( WS_DISABLED )

METHOD RemoveStyle( nStyle ) CLASS MyControl
        IF !SELF:HasStyle( nStyle )
                RETURN TRUE
        ENDIF

        RETURN SetWindowLong( SELF:Handle(), ;
                              GWL_STYLE, ;
                              LONG( _XOr( LONG( SELF:WindowStyles ), ;
                                          LONG( nStyle ) ) ) ) > 0

ACCESS WindowStyles CLASS MyControl
        RETURN GetWindowLong( SELF:Handle(), GWL_STYLE )

METHOD HasStyle( nStyle ) CLASS MyControl
        RETURN _And( LONG( SELF:WindowStyles ), LONG( nStyle ) ) > 0

 
Lo unico que tenes que hacer es heredar tus controles de esta clase en el editor de ventana. Luego para desabilitar/habilitar haces:
 
oControl:MyDisable()
...
oControl:MyEnable()
 
Inclusive, modificando un poco la clase, podrias cambiarle el color, font, etc a tu gusto.
 
GB
 
 


El 8 de septiembre de 2008 10:24, jorgeeugenio2002 <jorgeaccinelli@...> escribió:


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



Responder | Reenviar | Mensajes en este tema (17)
#2620 De: "Gustavo B" <gb.guvoa@...>
Fecha: Lun, 8 de Sep, 2008 3:14 pm
Asunto: Re: Alguien sabe como puedo manejar graficas? 		Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
La libreria Graph4Vo es muy buena, te permite insertar un objeto tipo grafico en cualquier ventana, pero no es free.
Si queres alguna solucion totalmente free vas a tener que hacerlo a mano, usando las clases de VO que heredan de la clase DrawObject. O bien buscar algun ocx gratuito y probar si funciona en VO.
Yo tengo algo hecho usando las clases de VO pero para la version 1.0, si necesitas algo avisa y vemos si se puede adaptar.
 
GB

El 8 de septiembre de 2008 0:46, Jose Cordero <jconradomx@...> escribió:


Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/



Responder | Reenviar | Mensajes en este tema (12)
#2619 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 8 de Sep, 2008 2:53 pm
Asunto: RE: CONTROL FOCUS CHANGE 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Este método ButtonClick() se usa de la misma forma que el EditFocusChange()

 

METHOD ButtonClick(oControlEvent) CLASS Control_Productos

                LOCAL oControl AS Control

                oControl := IIf(oControlEvent == NULL_OBJECT, NULL_OBJECT, oControlEvent:Control)

                SUPER:ButtonClick(oControlEvent)

                //Put your changes here

 

IF oControl:NameSym = #CB_Control

   IF lSenal

                IF SELF:oDCCB_Control:Checked

                               SELF:oDCCB_Control:Checked := FALSE

                ENDIF

   ENDIF

ENDIF

 

RETURN

 

Si no anda así hay que hacerlo con control de estructura.

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Jorge Accinelli
Enviado el: Lunes, 08 de Septiembre de 2008 06:32 a.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] CONTROL FOCUS CHANGE

 

Eso pense , pero como puedo prevenir

la modificacion ? Deberia restaurarles

el valor anterior ?

 

 

Todo esto es porque quiero hacer algo

muy corriente

Tengo un bbrowse  y conforme se mueve

voy mostrando todos los datos de cada registro

en controles desplegados a la derecha del bbrowse

 

Pero me gustaria que fueran bien legibles

y no editables. Recien cuando el usuario presione editar  hacerlos editables

 

Gracias

Jorge

 

 

 

 

 

 

 

----- Original Message -----

Sent: Monday, September 08, 2008 3:51 PM

Subject: RE: [guvoaII] CONTROL FOCUS CHANGE

 

Los checkbox deberías manejarlos desde el ButtonClick()

Gerardo J. Biagiotti

Analista de Sistemas

De: guvoaII@... [mailto:guvoaII@...] En nombre de jorgeeugenio2002
Enviado el: Lunes, 08 de Septiembre de 2008 10:25 a.m.
Para: guvoaII@...
Asunto: [guvoaII] CONTROL FOCUS CHANGE


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 08/09/2008 7:01



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (17)
#2618 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Lun, 8 de Sep, 2008 9:32 am
Asunto: Re: CONTROL FOCUS CHANGE 		jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Eso pense , pero como puedo prevenir
la modificacion ? Deberia restaurarles
el valor anterior ?
 
 
Todo esto es porque quiero hacer algo
muy corriente
Tengo un bbrowse  y conforme se mueve
voy mostrando todos los datos de cada registro
en controles desplegados a la derecha del bbrowse
 
Pero me gustaria que fueran bien legibles
y no editables. Recien cuando el usuario presione editar  hacerlos editables
 
Gracias
Jorge
 
 
 
 
 
 
 
----- Original Message -----
Sent: Monday, September 08, 2008 3:51 PM
Subject: RE: [guvoaII] CONTROL FOCUS CHANGE

Los checkbox deberías manejarlos desde el ButtonClick()

Gerardo J. Biagiotti

Analista de Sistemas

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de jorgeeugenio2002
Enviado el: Lunes, 08 de Septiembre de 2008 10:25 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: [guvoaII] CONTROL FOCUS CHANGE


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.19/1659 - Release Date: 08/09/2008 7:01

Responder | Reenviar | Mensajes en este tema (17)
#2617 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 8 de Sep, 2008 2:26 pm
Asunto: RE: Alguien sabe como puedo manejar graficas? 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Se puede hacer a través de la API de Windows, pero yo no lo he hecho.

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Jose Cordero
Enviado el: Lunes, 08 de Septiembre de 2008 11:21 a.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] Alguien sabe como puedo manejar graficas?

 

Gracias Gerardo por responder, pero me surge otra duda
Sabes si puedo incorporar un gráfico ya sea Circular o Barras a una DataWindows?

 

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@...>
Para: guvoaII@...
Enviado: lunes, 8 de septiembre, 2008 7:18:16
Asunto: RE: [guvoaII] Alguien sabe como puedo manejar graficas?

Report Pro te permite hacer gráficos.

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

 

De: guvoaII@gruposyahoo .com.ar [mailto:guvoaII@ gruposyahoo. com.ar] En nombre de Jose Cordero
Enviado el: Lunes, 08 de Septiembre de 2008 12:46 a.m.
Para: guvoaII@gruposyahoo .com.ar
Asunto: [guvoaII] Alguien sabe como puedo manejar graficas?

 

 

Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias


____________ _________ _________ _________ _________ __
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo. yahoo.com. mx/



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com


__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (12)
#2616 De: Jose Cordero <jconradomx@...>
Fecha: Lun, 8 de Sep, 2008 2:20 pm
Asunto: Re: Alguien sabe como puedo manejar graficas? 		jconradomx
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Gracias Gerardo por responder, pero me surge otra duda
Sabes si puedo incorporar un gráfico ya sea Circular o Barras a una DataWindows?

----- Mensaje original ----
De: Gerardo J. Biagiotti <gjbiagiotti@...>
Para: guvoaII@...
Enviado: lunes, 8 de septiembre, 2008 7:18:16
Asunto: RE: [guvoaII] Alguien sabe como puedo manejar graficas?

Report Pro te permite hacer gráficos.

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

 

De: guvoaII@gruposyahoo .com.ar [mailto:guvoaII@ gruposyahoo. com.ar] En nombre de Jose Cordero
Enviado el: Lunes, 08 de Septiembre de 2008 12:46 a.m.
Para: guvoaII@gruposyahoo .com.ar
Asunto: [guvoaII] Alguien sabe como puedo manejar graficas?

 

 

Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias


____________ _________ _________ _________ _________ __
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo. yahoo.com. mx/



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset. com

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/

Responder | Reenviar | Mensajes en este tema (12)
#2615 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 8 de Sep, 2008 1:51 pm
Asunto: RE: CONTROL FOCUS CHANGE 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Los checkbox deberías manejarlos desde el ButtonClick()

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de jorgeeugenio2002
Enviado el: Lunes, 08 de Septiembre de 2008 10:25 a.m.
Para: guvoaII@...
Asunto: [guvoaII] CONTROL FOCUS CHANGE

 


Saludos al grupo

Mediante el metodo controlFocus change inhabilito
al usuario a editar unos controles hasta que sea
el momento apropiado

No uso disable porque no queda el texto
legible , simplemente retornado S_FALSE
rechazo cuando quieren tomar el foco de estos
controles

Funciona Bien, con SLE y Combo pero
con los CheckBox , si bien el metodo los detecta,
permite marcar desmarcar

Alguien sabe como podria salvar este inonveniente ?

Gracias
Jorge Accinelli



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3426 (20080908) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (17)
#2614 De: "jorgeeugenio2002" <jorgeaccinelli@...>
Fecha: Lun, 8 de Sep, 2008 1:24 pm
Asunto: CONTROL FOCUS CHANGE 		jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
  
Saludos al grupo

  Mediante el metodo controlFocus change inhabilito
  al usuario a editar unos controles hasta que sea
  el momento apropiado

  No uso disable porque no queda el texto
  legible , simplemente retornado S_FALSE
  rechazo cuando quieren tomar el foco de estos
  controles

  Funciona Bien, con SLE y Combo pero
  con los CheckBox , si bien el metodo los detecta,
  permite marcar desmarcar

  Alguien sabe como podria salvar este inonveniente ?

  Gracias
  Jorge Accinelli

Responder | Reenviar | Mensajes en este tema (17)
#2613 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Lun, 8 de Sep, 2008 12:18 pm
Asunto: RE: Alguien sabe como puedo manejar graficas? 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Report Pro te permite hacer gráficos.

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Jose Cordero
Enviado el: Lunes, 08 de Septiembre de 2008 12:46 a.m.
Para: guvoaII@...
Asunto: [guvoaII] Alguien sabe como puedo manejar graficas?

 

 

Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias


__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3423 (20080906) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (12)
#2612 De: Jose Cordero <jconradomx@...>
Fecha: Lun, 8 de Sep, 2008 3:46 am
Asunto: Alguien sabe como puedo manejar graficas? 		jconradomx
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Alguien sabe si en VO puedo hacer graficas de Barras o Circulares, Lineales, etc.,

Se que hay una libreria en VO que se llama Graph4VO pero no se si la version es free, adema´s alguien la ha utilizado?

Desde ya gracias

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/

Responder | Reenviar | Mensajes en este tema (12)
#2611 De: "Jorge Accinelli" <jorgeaccinelli@...>
Fecha: Dom, 7 de Sep, 2008 5:22 pm
Asunto: Re: FireBird 		jorgeeugenio...
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Yo no le utilizado, pero
los comentarios sienpre
han sido buenos
 
Saludos
Jorge Accinelli
----- Original Message -----
Sent: Friday, September 05, 2008 6:50 PM
Subject: [guvoaII] FireBird

Hola a todos!
 
Alguien ha utilizado el motor de bases de datos Firebird? Algún comentario?
 
--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@piazzasistemas.com.ar
Matrícula Nº 801 CPCIBA Ley 13016


No virus found in this incoming message.
Checked by AVG - http://www.avg.com
Version: 8.0.169 / Virus Database: 270.6.17/1657 - Release Date: 06/09/2008 20:07

Responder | Reenviar | Mensajes en este tema (2)
#2610 De: "Piazza Sistemas" <soporte@...>
Fecha: Vie, 5 de Sep, 2008 4:50 pm
Asunto: FireBird 		psi_sistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Hola a todos!
 
Alguien ha utilizado el motor de bases de datos Firebird? Algún comentario?
 
--------------------------------------------------------------
Fernando Piazza
Coronel Suárez
República Argentina
e-mail: soporte@...
Matrícula Nº 801 CPCIBA Ley 13016

Responder | Reenviar | Mensajes en este tema (2)
#2609 De: "Claudio Torrillo" <clipsupp@...>
Fecha: Jue, 4 de Sep, 2008 1:52 am
Asunto: RE: editfocuschange 		clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Quitale el RETURN FALSE

 

Claudio

De: guvoaII@... [mailto:guvoaII@...] En nombre de Adesistemas
Enviado el: Miércoles, 03 de Septiembre de 2008 02:45 p.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] editfocuschange

 

Claudio:

 

De hacer pruebas me quedo la logica dada vuelta.

 

Este es el ejempo real.

 

 IF oControl:NameSym == #mNumero .AND. !lGotFocus   // .AND. SELF:mNumero=0

 

   SELF:oVentas:SetOrder(3)

 

      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))

 

     oTextBox := TextBox{SELF , "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )

 

         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()

 

        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE

 

        ENDI

 

      ENDI

 

 

 

    SELF:oVentas:SetOrder(1)
    ENDI

 

 

Ya prove de todo, lo que necesito es que si quiero seguir por  ( oTextBox:Show() == BOXREPLYYES )  osea por el else necesito que me haga el foco en  SELF:oDCmTasa:SetFocus() sin que me siga tirando el cartel de aviso del textbox de que el comprobante ya existe..

 

Prove sacandole el self pero sigue haciendo lo mismo.

 

 

Muchas gracias.

 

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

----- Original Message -----

Sent: Wednesday, September 03, 2008 1:45 PM

Subject: RE: [guvoaII] editfocuschange

 

A ver..

Creo que es un problema de lógica negativa.

Si respondo YES…. Se queda donde está. Pero RETURN (FALSE) hace que el evento de cambio de foco se detenga, o sea se mantenga el foco en el control de donde viene.

       IF ( oTextBox:Show() <> BOXREPLYYES )

        >>  SELF:oDCmComp:SetFocus()

        ELSE

        >> SELF:oDCmTasa:SetFocus()
         RETURN FALSE

        ENDI

      ENDI

Dos cosas, sacar el RETURN ( FALSE ) y cambiar la pregunta o cambiar las acciones.

Claudio Torrillo

www.xcsa.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Adesistemas
Enviado el: Miércoles, 03 de Septiembre de 2008 08:15 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] editfocuschange

Colegas:

Este control lo tengo realizado en el editfocuschange.

Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.

Espero que me entienda la pregunta (muchas gracias)

    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox


 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here

 IF oControl:NameSym == #mNumero .AND. !lGotFocus  

   SELF:oVentas:SetOrder(3)

      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))

     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )

         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()

        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE

        ENDI

      ENDI

Muchas gracias

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas



__________ Información de NOD32, revisión 3410 (20080903) __________

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


Responder | Reenviar | Mensajes en este tema (7)
#2608 De: "Adesistemas" <adesistemas@...>
Fecha: Mié, 3 de Sep, 2008 5:45 pm
Asunto: Re: editfocuschange 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Claudio:
 
De hacer pruebas me quedo la logica dada vuelta.
 
Este es el ejempo real.
 
 IF oControl:NameSym == #mNumero .AND. !lGotFocus   // .AND. SELF:mNumero=0
 
   SELF:oVentas:SetOrder(3)
 
      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))
 
     oTextBox := TextBox{SELF , "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )
 
         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()
 
        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE
 
        ENDI
 
      ENDI
 
 
 
    SELF:oVentas:SetOrder(1)
    ENDI
 
 
Ya prove de todo, lo que necesito es que si quiero seguir por  ( oTextBox:Show() == BOXREPLYYES )  osea por el else necesito que me haga el foco en  SELF:oDCmTasa:SetFocus() sin que me siga tirando el cartel de aviso del textbox de que el comprobante ya existe..
 
Prove sacandole el self pero sigue haciendo lo mismo.
 
 
Muchas gracias.
 
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
----- Original Message -----
Sent: Wednesday, September 03, 2008 1:45 PM
Subject: RE: [guvoaII] editfocuschange

A ver..

Creo que es un problema de lógica negativa.

Si respondo YES…. Se queda donde está. Pero RETURN (FALSE) hace que el evento de cambio de foco se detenga, o sea se mantenga el foco en el control de donde viene.

       IF ( oTextBox:Show() <> BOXREPLYYES )

        >>  SELF:oDCmComp:SetFocus()

        ELSE

        >> SELF:oDCmTasa:SetFocus()
         RETURN FALSE

        ENDI

      ENDI

Dos cosas, sacar el RETURN ( FALSE ) y cambiar la pregunta o cambiar las acciones.

Claudio Torrillo

www.xcsa.com.ar

De: guvoaII@gruposyahoo.com.ar [mailto:guvoaII@gruposyahoo.com.ar] En nombre de Adesistemas
Enviado el: Miércoles, 03 de Septiembre de 2008 08:15 a.m.
Para: guvoaII@gruposyahoo.com.ar
Asunto: Re: [guvoaII] editfocuschange

Colegas:

Este control lo tengo realizado en el editfocuschange.

Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.

Espero que me entienda la pregunta (muchas gracias)

    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox


 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here

 IF oControl:NameSym == #mNumero .AND. !lGotFocus  

   SELF:oVentas:SetOrder(3)

      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))

     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )

         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()

        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE

        ENDI

      ENDI

Muchas gracias

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas



__________ Información de NOD32, revisión 3410 (20080903) __________

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

Responder | Reenviar | Mensajes en este tema (7)
#2607 De: "Claudio Torrillo" <clipsupp@...>
Fecha: Mié, 3 de Sep, 2008 4:45 pm
Asunto: RE: editfocuschange 		clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

A ver..

 

Creo que es un problema de lógica negativa.

Si respondo YES…. Se queda donde está. Pero RETURN (FALSE) hace que el evento de cambio de foco se detenga, o sea se mantenga el foco en el control de donde viene.

 

       IF ( oTextBox:Show() <> BOXREPLYYES )

        >>  SELF:oDCmComp:SetFocus()

        ELSE

        >> SELF:oDCmTasa:SetFocus()
         RETURN FALSE

        ENDI

      ENDI

 

Dos cosas, sacar el RETURN ( FALSE ) y cambiar la pregunta o cambiar las acciones.

 

Claudio Torrillo

www.xcsa.com.ar

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Adesistemas
Enviado el: Miércoles, 03 de Septiembre de 2008 08:15 a.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] editfocuschange

 

Colegas:

 

Este control lo tengo realizado en el editfocuschange.

Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.

Espero que me entienda la pregunta (muchas gracias)

 

 

    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox


 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here

 

 IF oControl:NameSym == #mNumero .AND. !lGotFocus  

 

   SELF:oVentas:SetOrder(3)

 

      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))

 

     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )

 

         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()

 

        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE

 

        ENDI

 

      ENDI

 

Muchas gracias

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

 


Responder | Reenviar | Mensajes en este tema (7)
#2606 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mié, 3 de Sep, 2008 2:49 pm
Asunto: RE: editfocuschange 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Sacale el SELF

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Pablo J. Pereyra
Enviado el: Miércoles, 03 de Septiembre de 2008 11:30 a.m.
Para: guvoaII@...
Asunto: Re: [guvoaII] editfocuschange

 

Sergio,

 

Que complicado que sos para redactar !!!

Sinceramente lei 3 veces lo que pusiste y no entiendo tu problema, no pones ni a que clase corresponde el codigo y no se a que control te referis.

 

Porque no explicas bien que queres hacer... y ahi vemos ?

(Ej: quiero poner un boton, o un SLE y que cuando presione.... bla bla bla)

 

 

Saludos Cordiales,
Pablo J. Pereyra
pjpereyra@...

----- Original Message -----

From: Adesistemas

Sent: Wednesday, September 03, 2008 8:15 AM

Subject: Re: [guvoaII] editfocuschange

 

Colegas:

 

Este control lo tengo realizado en el editfocuschange.

Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.

Espero que me entienda la pregunta (muchas gracias)

 

 

    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox


 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here

 

 IF oControl:NameSym == #mNumero .AND. !lGotFocus  

 

   SELF:oVentas:SetOrder(3)

 

      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))

 

     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )

 

         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()

 

        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE

 

        ENDI

 

      ENDI

 

Muchas gracias

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

 



__________ Información de NOD32, revisión 3409 (20080902) __________

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



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3405 (20080901) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3405 (20080901) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (7)
#2605 De: "Pablo J. Pereyra" <pjpereyra@...>
Fecha: Mié, 3 de Sep, 2008 2:29 pm
Asunto: Re: editfocuschange 		pjpereyra
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Sergio,
 
Que complicado que sos para redactar !!!
Sinceramente lei 3 veces lo que pusiste y no entiendo tu problema, no pones ni a que clase corresponde el codigo y no se a que control te referis.
 
Porque no explicas bien que queres hacer... y ahi vemos ?
(Ej: quiero poner un boton, o un SLE y que cuando presione.... bla bla bla)
 
 
Saludos Cordiales,
Pablo J. Pereyra
pjpereyra@...
----- Original Message -----
Sent: Wednesday, September 03, 2008 8:15 AM
Subject: Re: [guvoaII] editfocuschange

Colegas:
 
Este control lo tengo realizado en el editfocuschange.
Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.
Espero que me entienda la pregunta (muchas gracias)
 
 
    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox

 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here
 
 IF oControl:NameSym == #mNumero .AND. !lGotFocus  
 
   SELF:oVentas:SetOrder(3)
 
      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))
 
     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )
 
         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()
 
        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE
 
        ENDI
 
      ENDI
 
Muchas gracias
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 



__________ Información de NOD32, revisión 3409 (20080902) __________

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

Responder | Reenviar | Mensajes en este tema (7)
#2604 De: "Adesistemas" <adesistemas@...>
Fecha: Mié, 3 de Sep, 2008 11:15 am
Asunto: Re: editfocuschange 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
Este control lo tengo realizado en el editfocuschange.
Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.
Espero que me entienda la pregunta (muchas gracias)
 
 
    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox

 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here
 
 IF oControl:NameSym == #mNumero .AND. !lGotFocus  
 
   SELF:oVentas:SetOrder(3)
 
      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))
 
     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )
 
         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()
 
        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE
 
        ENDI
 
      ENDI
 
Muchas gracias
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 

Responder | Reenviar | Mensajes en este tema (7)
#2603 De: "Adesistemas" <adesistemas@...>
Fecha: Mar, 2 de Sep, 2008 6:48 pm
Asunto: Re: filtro en combo box 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
Muy claras sus respuestas, muchas gracias, me funciono correctamente.
 
Muchas gracias.
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 

Responder | Reenviar | Mensajes en este tema (6)
#2602 De: "Gustavo B" <gb.guvoa@...>
Fecha: Mar, 2 de Sep, 2008 2:07 pm
Asunto: Re: filtro en combo box 		Gustavo_S_B
Sin conexión Sin conexión
Enviar correo Enviar correo
 
El metodo FillUsing tambien acepta un array como parametro, entonces:
 
local aCuentas as array
 
aCuentas := {}
 
oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
 
 
do while ! oPlancue:Eof
    If oPlancue:Tipo == "M"
        aadd(aCuentas,{oPlancue:Desc, oPlancue:Cuenta } )
    Endif
 
    oPlancue:Skip()
Enddo
 
oDCmCuenta:FillUsing(aCuentas)
 

GB
 
2008/9/1, Adesistemas <adesistemas@...>:

Colegas:
 
En esta combo box realizada manualmente en el postinit
como puedo hacer un filtro, si es que se puede.
 
    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)
Yo necesito hacer el filtro por el campo TIPO que puede ser M o T , normalmente utilizo el orderscope para hacer filtros de las bases, pero en este caso no se como hacerlo dentro de la combo box
 
Muchas gracias.
 
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 



Responder | Reenviar | Mensajes en este tema (6)
#2601 De: "Adesistemas" <adesistemas@...>
Fecha: Mar, 2 de Sep, 2008 11:27 am
Asunto: editfocuschange 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
Este control lo tengo realizado en el editfocuschange.
Cuando ingreso el numero de comprobante mNumero controlo si existe en la base. Si existe me larga el cartel correspondiente,  si pongo que no  funciona correctamente, si pongo que si la ingreso igual no puedo cortar el proceso de control me sigue diciendo que esta cargada y no me hace el setfocus al siguiente campo mTasa. Que me esta faltado para que no me controle si digo que la paso igualmente.
Espero que me entienda la pregunta (muchas gracias)
 
 
    LOCAL oControl AS Control
 LOCAL lGotFocus AS LOGIC
 LOCAL oTextbox AS textbox
 
 oControl := IIf(oEditFocusChangeEvent == NULL_OBJECT, NULL_OBJECT, oEditFocusChangeEvent:Control)
 lGotFocus := IIf(oEditFocusChangeEvent == NULL_OBJECT, FALSE, oEditFocusChangeEvent:GotFocus)
 SUPER:EditFocusChange(oEditFocusChangeEvent)
 //Put your changes here
 
 IF oControl:NameSym == #mNumero .AND. !lGotFocus  
 
   SELF:oVentas:SetOrder(3)
 
      IF oVentas:Seek(Str(mClie,11)+mComp+mLetras+Str(mpunto,8)+Str(mNumero,15))
 
     oTextBox := TextBox{ SELF, "Comprobante Cargado",;
  "Cuidado, Carga igualmente el Comprobante " }
     oTextBox:Type := BUTTONYESNO + BOXICONQUESTIONMARK
 
       IF ( oTextBox:Show() <> BOXREPLYYES )
 
         SELF:oDCmPUNTO:Value := 0
         SELF:oDCmNUMERO:Value := 0
         SELF:oDCmComp:SetFocus()
 
        ELSE

         SELF:oDCmTasa:SetFocus()
         RETURN FALSE
 
        ENDI
 
      ENDI
 
Muchas gracias
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 

Responder | Reenviar | Mensajes en este tema (7)
#2600 De: "Claudio Torrillo" <clipsupp@...>
Fecha: Mar, 2 de Sep, 2008 1:30 am
Asunto: RE: filtro en combo box 		clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Grrrr!!! odio los correctores ortográficos que no saben VO ;)

Donde dice Observer debe decir … DBserver.

 

De paso el ejemplo:

 

    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}

>>oPlancue:OrderScope(….)

    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)

 

Claudio.

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Claudio Torrillo
Enviado el: Lunes, 01 de Septiembre de 2008 10:16 p.m.
Para: guvoaII@...
Asunto: RE: [guvoaII] filtro en combo box

 

Sencillo:

 

Igual que como lo haces en todos lados, con ORDERSCOPE.

Pero OJO, la combo es un control estático, o sea, FillUsing es exactamente eso Rellena Usando … o sea que al hacer FillUsing no conectas la combo con un Observer, sino que por el contrario se copia el valor de cada campo en un array interno.

O sea, si el filtro cambia, pues debes correr el FillUsing nuevamente.

 

Claudio Torrillo

www.xcsa.com.ar  

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Adesistemas
Enviado el: Lunes, 01 de Septiembre de 2008 05:26 p.m.
Para: guvoaII@...
Asunto: [guvoaII] filtro en combo box

 

Colegas:

 

En esta combo box realizada manualmente en el postinit

como puedo hacer un filtro, si es que se puede.

 

    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)

Yo necesito hacer el filtro por el campo TIPO que puede ser M o T , normalmente utilizo el orderscope para hacer filtros de las bases, pero en este caso no se como hacerlo dentro de la combo box

 

Muchas gracias.

 

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

 

 


Responder | Reenviar | Mensajes en este tema (6)
#2599 De: "Claudio Torrillo" <clipsupp@...>
Fecha: Mar, 2 de Sep, 2008 1:16 am
Asunto: RE: filtro en combo box 		clipsupp
Sin conexión Sin conexión
Enviar correo Enviar correo
 

Sencillo:

 

Igual que como lo haces en todos lados, con ORDERSCOPE.

Pero OJO, la combo es un control estático, o sea, FillUsing es exactamente eso Rellena Usando … o sea que al hacer FillUsing no conectas la combo con un Observer, sino que por el contrario se copia el valor de cada campo en un array interno.

O sea, si el filtro cambia, pues debes correr el FillUsing nuevamente.

 

Claudio Torrillo

www.xcsa.com.ar  

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Adesistemas
Enviado el: Lunes, 01 de Septiembre de 2008 05:26 p.m.
Para: guvoaII@...
Asunto: [guvoaII] filtro en combo box

 

Colegas:

 

En esta combo box realizada manualmente en el postinit

como puedo hacer un filtro, si es que se puede.

 

    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)

Yo necesito hacer el filtro por el campo TIPO que puede ser M o T , normalmente utilizo el orderscope para hacer filtros de las bases, pero en este caso no se como hacerlo dentro de la combo box

 

Muchas gracias.

 

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

 


Responder | Reenviar | Mensajes en este tema (6)
#2598 De: "Gerardo J. Biagiotti" <gjbiagiotti@...>
Fecha: Mar, 2 de Sep, 2008 12:57 am
Asunto: RE: filtro en combo box 		gjbiagiotti
Sin conexión Sin conexión
Enviar correo Enviar correo
 

WHILE SELF: oPlancue:!EOF

IF …..

  FillUsing

ENDIF

OPlancue:Skip()

ENDDO

 

 

Gerardo J. Biagiotti

Analista de Sistemas

 

Mail

gjbiagiotti@...

gjbiagiotti@...

gjbiagiotti@...

 

Messenger

gerardo_biagiotti@...

 

Logo SPI 3

 

«La mediocridad o grandeza de un país reside en nosotros, sus ciudadanos.»

P Antes de imprimir este e-mail piense si realmente es necesario hacerlo, el medio ambiente se lo agradecerá.

____________________________________________________________________________________

 

De: guvoaII@... [mailto:guvoaII@...] En nombre de Adesistemas
Enviado el: Lunes, 01 de Septiembre de 2008 05:26 p.m.
Para: guvoaII@...
Asunto: [guvoaII] filtro en combo box

 

Colegas:

 

En esta combo box realizada manualmente en el postinit

como puedo hacer un filtro, si es que se puede.

 

    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)

Yo necesito hacer el filtro por el campo TIPO que puede ser M o T , normalmente utilizo el orderscope para hacer filtros de las bases, pero en este caso no se como hacerlo dentro de la combo box

 

Muchas gracias.

 

 

 

Luengo Sergio
General Pico
La Pampa
Analista de Sistemas

 



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3405 (20080901) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



__________ Information from ESET NOD32 Antivirus, version of virus signature database 3405 (20080901) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

Responder | Reenviar | Mensajes en este tema (6)
#2597 De: "Adesistemas" <adesistemas@...>
Fecha: Lun, 1 de Sep, 2008 8:26 pm
Asunto: filtro en combo box 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
En esta combo box realizada manualmente en el postinit
como puedo hacer un filtro, si es que se puede.
 
    oPlancue := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)
Yo necesito hacer el filtro por el campo TIPO que puede ser M o T , normalmente utilizo el orderscope para hacer filtros de las bases, pero en este caso no se como hacerlo dentro de la combo box
 
Muchas gracias.
 
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 

Responder | Reenviar | Mensajes en este tema (6)
#2596 De: "Adesistemas" <adesistemas@...>
Fecha: Vie, 22 de Ago, 2008 5:38 pm
Asunto: Re: Re: combo box con otro path 		adessistemas
Sin conexión Sin conexión
Enviar correo Enviar correo
 
Colegas:
 
Me funciono de 10.
 
Muchas gracias.
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
----- Original Message -----
Sent: Friday, August 22, 2008 9:57 AM
Subject: Re: [guvoaII] Re: combo box con otro path

Estimado Sergio: El codigo que queres que se ejecute al instanciarse una ventana NO van en el Metodo Init, SI van en el metodo PostInit, por eso se te borrar al cambiar algo.

Resumiendo
Probate esto y vas a ver que funciona correctamente:
a) Create una DW nueva de prueba
b) Agregas el ComboBox a la DataWindow, despues vas al metodo PostInit (si no lo tenes creado desde la ventana de propiedades de la DW podes crearlo), ahi agregas el codigo que estas usando que es correcto:

olServer := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)
olServer:Close()

Llamala desde algun lado y vas a ver que funciona correctamente con un codigo mucho mas sencillo.

La discucion del error que tenes al crear un control sin usar el editar podemos iniciarla, pero me parece que es algo demasiado complejo y no tiene sentido cuando te acostumbres a usar el PostIni, practicamente no es necesario (Pensa que en una aplicacion de mas de 1.000 DW, no lo usamos nunca, si a veces es necesario con las DW dentro de otras DW pero quiza es un capitulo mas adelantado).

Tene en cuenta que tambien existe el PreInit() que se ejecuta (como lo dice su nombre) antes del Init, en pocas palabras este es el orden de estos tres metodos de una DW
1) PreInit(oWindow,iCtlID,oServer,uExtra) -> Podes escribir lo que queres, no se borrara nada
2) Init(oWindow,iCtlID,oServer,uExtra) -> Este metodo lo genera el diseñador de la DW, por lo tanto lo que escribas lo perdes al cambiar algo de la DW (Ojo si borras el diseñador de la dw del repositorio, nunca mas se cambiara, pero es muy peligroso...)
3) PostInit(oWindow,iCtlID,oServer,uExtra) -> Podes escribir lo que queres, no se borrara nada
    Este ultimo es el que habitualmente usamos para cargar los Combos, listbox, abrir las tablas, etc. todas las operaciones necesarias antes de que la ventana se muestre (se ejecuta antes del Show)

Saludos y Suerte


Adesistemas escribió:

Lo de poner el path en el init esta perfecto Yo toco el init y le pongo oPlancue con el path correspondiente, eso funciona perfectamente, el problema es cuando yo modifico algo de la ventana se me borra y lo tengo que volver a escribir, por eso estoy intentando generar la comobobox en forma manual, es decir (que no se si son asi los pasos)
genero la combobox en la ventana le asigno un metodo y en el metodo genero la combobox manualmente.
 
 
De acuerdo a lo que me enviaron hice lo siguente
Cree la combobox en la ventana mCuenta y le asigne un metodo cuentascontables
 
el metodo
METHOD CuentasContables CLASS MovimientosVentas
 

    LOCA olServer AS OBJE
 

    olServer := Plancue{cPathE +NTrim(gCEmpSeleccionada)+ "\PLANCUE.DBF",TRUE}
    oDCmCuenta:FillUsing(oPlancue,#DESC,#CUENTA)
    olServer:Close()
    // esto lo podrias evitar esta de mas, pero tampoco jode -->.
    oDCmCuenta:HyperLabel := HyperLabel{#mCuenta,NULL_STRING,NULL_STRING,NULL_STRING}
 
y me da un error cuando llamo al metodos en el init de la ventana
 
oDCmCuenta:FillUsing(SELF:CuentasContables( ))    // aca
Que estoy haciendo mal.
 
Muchas gracias.
 
 
Luengo Sergio
General Pico
La Pampa
Analista de Sistemas
 



--

Responder | Reenviar | Mensajes en este tema (14)
Mensajes 2596 - 2625 de 2836   Más reciente  |  < Más reciente  |  Más antiguo >  |  Más antiguo
Mensaje nº
Buscar:
Avanzado
XML ¿Qué es esto?
Copyright © 2009 Yahoo! de Argentina S.R.L. Todos los derechos reservados.
Política de privacidad - Condiciones del Servicio - Reglas de la comunidad de Yahoo! - Ayuda