FoxPro/Visual FoxPro - boton no funciona con el primer registro

boton no funciona con el primer registro
Visto 0 veces
Suscribirse
Foto del perfil de Ives Andrey Rodríguez
Ives Andrey Rodríguez<[email protected]>
11:47 (hace 4 minutos)
a Comunidad de Visual Foxpro en Español
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

este es el codigo del boton procesar

select proveedor_tmp
go top
replace proveedor_tmp.control with 2
locate for proveedor_tmp.control = 2
REPLACE proveedor.control WITH proveedor_tmp.control for proveedor.id = proveedor_tmp.control

pero no funciona con el primer registro, con los demas registro si funciona codigo boton y les cambia el campo control a 2