Contenedores en un Form

[Carlos Hidalgo]

Buenas a Todos

Quiesiera que me ayudaran con este problemita.

En mi form1 tengo varios contenedores (ocultos)

En esta pantalla adjunta aparece un contenedor al fondo, que es donde ingreso las Compras de articulos. y otro al frente (mas pequeño) donde ingreso articulo nuevos..

El problemita es que cuando deseo agregar un nuevo articulo Presiono F4 en el textbox del contendor de fondo pero me sigue apareciendo el "0" del textbox al momento de que aparece el contenedor que esta en frente..  (es el "0" que aparece encima de donde dice "Marca".

no se si me explique jejeje

desde el textbox lo hago visible asi

evento Keypress

IF nkeycode=TECLA_F4 &&F4 UN NUEVO ARTICULO

WITH THISForm.ARticulo 

.nombre.SETFOCUS

.VISIBLE=.T.

.ENABLED=.T.

.HEIGHT=336

.LEFT=131

.TOP=192

.WIDTH=612

.cuadro1.WIDTH=.WIDTH-3

ENDWITH

ENDIF

Saludos

[Carlos Hidalgo]

por si no se ve la imagen

[Carlos Alfaro]

Saludos estimado colega:

 

Eso es porque el foco sigue en ese textbox.

 

Debes poner el SetFocus despues de la propiedad Visible, son los siguientes:

                        .VISIBLE=.T.

                        .nombre.SETFOCUS

 

Espero estar en lo correcto.

 

Bendiciones.

 

 

Carlos Alfaro

[Carlos Hidalgo]

Ya probe en varios ordenes pero no.
    WITH THISForm.ARticulo
        .VISIBLE=.T.
        .ENABLED=.T.
        .refresh
        .nombre.SETFOCUS

[Mauricio Gonzalez]

cambia esto: IF nkeycode=TECLA_F4 &&F4 UN NUEVO ARTICULO, por

IF nkeycode=F4 &&F4 UN NUEVO ARTICULO
 a menos que hayas definido tecla_f4  de otra manera

[Carlos Hidalgo]

Gracias..
Tengo un archivo donde defino la tecla con este nombre

[Víctor Hugo Espínola Domínguez]

Prueba esto:

IF nkeycode=TECLA_F4 &&F4 UN NUEVO ARTICULO

KEYBOARD '{TAB}'
 WITH THISForm.ARticulo
           ......
           ......

Saludos,

Víctor.

Lambaré - Paraguay.

[Fidel Charny]

Prueba de esta forma:

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode=-3 &&F4 UN NUEVO ARTICULO    
    WITH THISForm.articulo

        .VISIBLE=.T.
        .ENABLED=.T.
        .HEIGHT=336
        .LEFT=131
        .TOP=this.Parent.Parent.Top + 30
        .WIDTH=612
        *.cuadro1.WIDTH=.WIDTH-3
        .nombre.SETFOCUS
        .zorder(0)
    ENDWITH
    NODEFAULT
ENDIF

Lo de -3 es irrelevante. Vale como lo tienes.

[Saúl Piña]

Yo también tuve un tiempo el mismo problema, entonces mejor decidí por usar form, ya sea de Fom a form clase.vcx o Form a form modal (con unos cuantos LPARAMETERS)  y adios a la estetica y objetos de container.


adjunto imagenes de ejemplo.

[Carlos Hidalgo]

Gracias por las sugerencias

con el enfoque no tengo problema.. se posiciona en Nombre de articulo como lo quiero..

el problema es que queda dibujado el textbox sobre el contenedor que esta en frente.

[Carlos Hidalgo]

Bueno... :)  :) 

Ya lo solucione :) .)

si a alguien le ha pasado y le sirve aqui va

inserte un Timer en el contenedor de Articulos.

Propiedades 

Enabled=.f.

Interval=1

y en el evento interval

THIS.Parent.BackStyle= 1

THIS.Enabled= .F.

y desde donde llamo al contenedor. 

IF nkeycode=TECLA_F4 &&F4 UN NUEVO ARTICULO

WITH THISForm.ARticulo 

.VISIBLE=.T.

.ENABLED=.T.

.nombre.SETFOCUS

.HEIGHT=336

.LEFT=131

.WIDTH=612

.top=192

.cuadro1.WIDTH=.WIDTH-3

ENDWITH

THISFORM.ARTICULO.TImer.Enabled= .T.

ENDIF

Saludos

aun se aceptan sugerencias y comentarios

[Antonio Meza]

Que bueno que lo resolviste, pero definitivamente no es lo correcto, hacer mantenimiento a ese formulario se volverá un pesadilla pasado el tiempo, algo como le esta pasando a Pancho que compro un sistema X.

Como te comento Saul tener en un formulario a parte es sencillo sin usar formSet y no se porque se les complica tanto usarlos, incluso le puedes dar el mismo diseño que tienes en el contenedor.

saludos

Antonio Meza

[Carlos Hidalgo]

Gracias Antonio.

Tienes razon... pero vere que quede documentado.... :) mientras encuentro una mejor solucion... 

Con el uso de forms tienes razon pero me interesa aprender a usar todo lo de Fox.. y los contenedores ya me gustaron....

Esta aplicacion que estoy desarrollando solo tiene un formset con 3 formularios... todo las demas ventanas son contendores del Form1.. El form2 es mi mensaje personalizado y el form3 es una grid para busquedas..

Saludos

[Luiz Alexandre Ruiz]

Para solucionar sem usar o Timer, utilize o ON KEY LABEL F4.

Exemplo
Form1.Init
ON KEY LABEL F4 MudaContainer()


Em um PRG

FUNCTION MudaContainer

LOCAL loForm as Form
IF TYPE("Application.ActiveForm") = "O"

loForm = Application.ActiveForm
loForm.Articulo.Nombre.SetFocus()

ENDIF

ENDFUNC

Aqui está bem pequeno o código, mas você pode acrescentar se o Form é o correto, se o foco está no TextBox desejado e outras coisas mais.

[Carlos Hidalgo]

Gracias Luis.

Pero mi problema no es con el enfoque... 

El problema es con el textbox que queda dibujado en el container.. (error grafico)

Saludos