FoxPro/Visual FoxPro - grid no refresca

 
Vista:
sin imagen de perfil

grid no refresca

Publicado por Ives (21 intervenciones) el 26/11/2022 14:12:51
este es el codigo del init del form
if !used ("poveedor_tmp")
SELECT proveedor
afields(estructura)
CREATE cursor proveedor_tmp from array estructura
else
SELECT poveedor_tmp
for re = 1 to reccount()
SELECT poveedor_tmp
go re
_id = poveedor_tmp.id
_nombre = poveedor_tmp.nombre
_dir = poveedor_tmp.direc
_cel = poveedor_tmp.celular
_em = poveedor_tmp.email
scan
update proveedor set nombre=_nombre, direc=_dir, celular=_cel, email = _em where control = 1 and id = _id
endscan
endfor
delete all
endif

SELECT proveedor_temp
APPEND FROM proveedor for despachado = 1
GO TOP
Thisform.Proveedores.RecordSource = "proveedor_temp"
Thisform.Proveedores.column1.ControlSource = "proveedor_temp.nombre"
Thisform.Proveedores.column2.ControlSource = "proveedor_temp.direntre"
Thisform.Proveedores.column3.ControlSource = "proveedor_temp.celular"
Thisform.Proveedores.column4.ControlSource = "proveedor_temp.email"
Thisform.Proveedores.refresh
thisform.Proveedores.setfocus()
thisform.refresh

boton procesar
If thisform.Proveedores.Column1.Check2.Value = 1
select proveedor_tmp
replace proveedor_tmp.control with 2
locate for proveedor_tmp.control = 2
REPLACE proveedor.control WITH proveedor_tmp.control for proveedor.id = proveedor_temp.idcliente IN proveedor
Thisform.Proveedores.refresh
thisform.Proveedores.setfocus()
thisform.refresh
endif

boton anular
If thisform.Proveedores.Column1.Check2.Value = 1
if !empty(proveedor_temp.obrechazo)
thisform.Preclientes.column1.Check2.valid
select proveedor_tmp
replace proveedor_tmp.control with 3
locate for proveedor_tmp.control = 3
REPLACE proveedor.control WITH proveedor_tmp.control for proveedor.id = proveedor_temp.idcliente IN proveedor
Thisform.Proveedores.refresh
thisform.Proveedores.setfocus()
thisform.refresh
endif
endif

el grid no se refresca a pesar de tener los comandos Thisform.Proveedores.refresh,
thisform.Proveedores.setfocus(), thisform.refresh en el init y los botones.
se debe cerrar la forma y volverla a abrir para que el grid se refresque
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