FoxPro/Visual FoxPro - No aparecen los registros en cuadricula

   
Vista:

No aparecen los registros en cuadricula

Publicado por DanielVFP (12 intervenciones) el 24/12/2010 00:19:25
No aparecen los registros en cuadricula

Hola a todos.
Tengo una cuadricula en un contenedor y no me aparecen los registros
creo haber hecho todo lo posible pero no lo logro.-
Si pongo un browse antes de hacer visible el contenedor, la selección
funciona perfectamente.-

RecordSource = encontrados
RecordSourceType = Alias

DO CASE
CASE auxiliar.clavebus = 0
= MESSAGEBOX(" No a ingresado datos",16," Atención")
CASE auxiliar.clavebus = 1
SELECT("vencimientos")
SEEK ThisForm.contBuscar.txtCodigo.Value
IF FOUND()
ThisForm.contBuscar.Visible = .F.
ThisForm.ContBotones.Enabled = .T.
SELECT("auxiliar")
REPLACE auxiliar.gorecno WITH vencimientos.codigo
fpv = ThisForm.contCampos.txtVence.Value - DATE()
ThisForm.ContCampos.LbAyuda3.Caption = "Faltan:" + ALLTRIM(STR(fpv)) + " Dias."
ELSE
= MESSAGEBOX(" No existe",16," Atención")
SEEK auxiliar.gorecno
ENDIF
CASE auxiliar.clavebus = 2
mNombre = ALLTRIM(UPPER(ThisForm.contBuscar.TxtProducto.Value))
SELECT * FROM vencimientos WHERE UPPER(vencimientos.producto) like "%"+mNombre+"%";
INTO TABLE C:\VFPProyecto\GComercial\DATOS\encontrados.DBF
COUNT TO _cantidad
GO TOP
IF _cantidad > 0
BROWSE
ThisForm.contBuscar.Visible = .F.
ThisForm.contBrowse.Visible = .T.
ThisForm.contBrowse.SetFocus
ELSE
= MESSAGEBOX(" No existe",16," Atención")
ENDIF
CASE auxiliar.clavebus = 3
SELECT * FROM vencimientos WHERE;
vencimientos.vence => ThisForm.contBuscar.txtFechaUno.Value .AND.;
vencimientos.vence <= ThisForm.contBuscar.txtFechados.Value;
INTO TABLE C:\VFPProyecto\GComercial\DATOS\encontrados.DBF
COUNT TO _cantidad
GO TOP
IF _cantidad > 0
ThisForm.contBuscar.Visible = .F.
ThisForm.contBrowse.Visible = .T.
ELSE
= MESSAGEBOX(" No existe",16," Atención")
ENDIF
CASE auxiliar.clavebus = 4
mNombre = ALLTRIM(UPPER(ThisForm.contBuscar.TxtProducto.Value))
SELECT * FROM vencimientos WHERE UPPER(vencimientos.producto);
like "%"+mNombre+"%" .AND.;
vencimientos.vence => ThisForm.contBuscar.txtFechaUno.Value .AND.;
vencimientos.vence <= ThisForm.contBuscar.txtFechados.Value;
INTO TABLE C:\VFPProyecto\GComercial\DATOS\encontrados.DBF
COUNT TO _cantidad
GO TOP
IF _cantidad > 0
ThisForm.contBuscar.Visible = .F.
ThisForm.contBrowse.Visible = .T.
ELSE
= MESSAGEBOX(" No existe",16," Atención")
ENDIF
ThisForm.contBrowse.Visible = .T.
ENDCASE
ThisForm.Refresh

Desde ya muchas gracias por la ayuda.-

Saludos.
Daniel
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

RE:No aparecen los registros en cuadricula

Publicado por DanielVFP (37 intervenciones) el 25/12/2010 15:21:10
Hola a todos.
Bueno en parte encontré la solución y era poner después de
SELECT * FROM vencimientos...........................
ThisForm.contBrowse.gridBrowse.RecordSource = "encontrados"
y además cambiar esta línea de código COUNT TO _cantidad GO TOP
x esta STORE _TALLY to _cantidad de esta manera me evito mover 2 veces
el cursor x toda la consulta.-
Ahora el problema radica en que me muestra perfectamente la consulta en la
cuadricula pero la desconfigura, quiero decir x ej. que la tabla original cuenta
con 4 campos y configuro la cuad. para que me muestre solo 3 pero no lo hace,
muestra los 4.-

Si alguien alguna vez le a pasado algo parecido y tiene la solución, agradecería
me la hagan saber ya que no puedo seguir adelante con mi proyecto.-

Saludos y un fuerte abrazo.
Daniel
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