¿ Cómo hacer que se vea el Browse ?

427 views
Skip to first unread message

arti...@gmail.com

unread,
Dec 17, 2012, 7:20:38 AM12/17/12
to publice...@googlegroups.com
Hola amigos, tengo una pequeña utilidad que he diseñado y que lo que hace es que nos pide una carpeta con 
unas bases de datos con datos de contabilidad y nos pide luego una carpeta de destino, y la utilidad se encarga
de replicar las estructuras de las bases de datos en la carpeta de destino y traspasa la información desde
las bases de datos de origen a las bases de datos en la carpeta de destino, como comprobación he añadido
el código para preguntar si se quiere consultar el resultado del traspaso para cada base de datos y si se responde
afirmativamente, muestro el resultado en un 'browse' y es aquí donde me encuentro el problema, la ventana de la 
utilidad se muestra como formulario de nivel superior, fuera del screen de VFP y cuando hago un _screen.visible=.F.
se muestra la aplicación, pero el browse no se ve, se queda dentro del screen de VFP, ¿ Como puedo hacer que
al hacer el Browse se vea independientemente de que el _screen.visible sea OFF ?, ¿ Cómo puedo mostrar un browse
fuera del _screen de VFP ?

FidelJ

unread,
Dec 17, 2012, 8:26:42 AM12/17/12
to publice...@googlegroups.com
En lugar del Browse, crea un formulario ShowWindow=1 con un control grid, tal vez con DeskTop=.t. (si el form principal es pequeño o no es pantalla completa), WindowType=1

Algo más o menos así:
Si el cursor o tabla se llama "cCursor"
SELECT cCursor
nfields=AFIELDS(gastruc)
GO TOP
with thisform.grid1
             .ColumnCount=nFields
             .RecordSource='cCursor'

FOR i=1 TO ALEN(gastruc,1)
.Columns[i].Header1.Caption=PROPER(gastruc[i,1])
.Columns[i].Readonly=.t.
NEXT

ENDWITH

Jose Antonio Blasco

unread,
Dec 17, 2012, 9:46:34 AM12/17/12
to Comunidad de Visual Foxpro en Español
Prueba a añadir en la instrucción del BROWSE el parámetro "IN (Thisform.name)".

Espero que te funcione.

Un saludo.


--
 
 



--
Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno”
- Anónimo

Reply all
Reply to author
Forward
0 new messages