FoxPro/Visual FoxPro - GRID

   
Vista:

GRID

Publicado por CARLOS (32 intervenciones) el 21/04/2010 13:45:58
Hola necesito ayuda por favor, estoy desarrollando una aplicación en Visual Foxpro 6.0, tengo un Form en el cual tengo dos cajas de texto un boton de comando y un Grid.-
Este Grid tiene los Headers ya con el título que quiero que aparezca.-

Yo desde el boton de comando luego de evaluar atraves de una consulta SQL las dos cajas de texto que tienen Fecha Desde y Fecha Hasta (esta consulta la incluyo e un cursor), a este grid le asigno la propiedad Recordsourcetype a 1 y a la popiedad Rousource "(nombre del cursor)"

Todo funciona perfecto pero para una sola consulta porque cuando sin salir del formulario intento hacer una nueva consulta, me cambia el tamaño de las columas del Grid y ademas pone en los Headers el nombre de los campos de la tabla cursor creadas por la SQL.-

¿Qué estoy haciendo mal?

Espero puedan ayudarme

Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Javier

RE:GRID

Publicado por Javier (22 intervenciones) el 21/04/2010 17:40:52
Hola: Al hacer la segunda consulta el grid "pierde" la configuración, por lo que creo la solución sería "configurar" headers , anchos, etc. por código., es decir en el momento que le asignas "..a propiedad Recordsourcetype a 1..."

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:GRID

Publicado por ALBERTO (399 intervenciones) el 22/04/2010 06:58:20
USA ESTAS LINEAS EN EL BOTON DONDE GENERAS EL NUEVO CURSOR

SELECT fecha ,comprobante, cliente ,subtotal , vendedor FROM DATOS ORDER BY fecha INTO CURSOR DATOS

sum(subtotal) to f1
descu=f1 *(thisform.text6.value/100)
thisform.text4.value=f1
thisform.text7.value=f1 - descu
comi=thisform.text7.value *(thisform.text3.value/100)
thisform.text5.value=comi

go top
WITH thisform.grid1 /// ACA GENERAS EL NUEVO CURSOR
.RecordSource = "datos"

.Column4.inputmask = '$999,999,999.99'
.Column4.format = 'RZ'
.Column5.inputmask = '$999,999,999.99'
.Column5.format = 'RZ'

* .column1.ControlSource = "productos.nro_parte"
* .column2.ControlSource = "productos.nom_produc"
* .column3.ControlSource = "productos.codigo"
* .column4.ControlSource = "productos.precio1"
* .column5.ControlSource = "productos.stock"
*
.column1.Width = 80 // ANCHO DELA COLUMNA
.column2.Width = 220
.column3.Width = 180
.column4.Width = 80
.column5.Width = 80



ENDWITH
THISFORM.GRID1.RECORDSOURCE="DATOS"
THISFORM.GRID1.REfresh


THISFORM.GRID1.READONLY=.F.

SALUDOS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:GRID

Publicado por Juanma Cruz (508 intervenciones) el 23/04/2010 12:25:19
Al realizar la consulta, internamente el archivo se cierra y vuelve a abrir, por eso el GRID se... 'desconfigura', por así decirlo.

Justo antes de realizar la consulta, pon la propiedad

Thisform.BindControls= .f.

Haz la consulta, y al terminar vuelve a dejar:

Thisform.BindControls= .t.

y un refresh.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar