Error con Seek() o Locate
Publicado por Julio (3 intervenciones) el 15/12/2023 03:49:21
Saludos amigos todos. Uso VFP9 y esta fraccion de codigo lo tengo en el evento click de un command
pero, me salta un error (TXTCOD es un miembro desconocido), siendo que en este fragmento de codigo no hago referencia a TXTCOD, el cual esta en el form donde hago la captura de los codigos de articulos los cuales paso al cursor crscomprastemp .
lcActualiza = MESSAGEBOX("¿Actualizar tabla artículos?" ,4+32+0,"ACTUALIZAR")
IF lcActualiza = 6
SELECT crscomprastemp
GO TOP
DO WHILE !EOF()
lcCod = crscomprastemp.codigo
lncantidad = crscomprastemp.cantidad
SELECT articulos
SET ORDER TO CODIGO
SEEK(crscomprastemp.codigo)
* LOCATE FOR articulos.codigo = lcCod
replace articulos.cantidad WITH articulos.cantidad + lnCantidad
SELECT crscomprastemp
SKIP +1
ENDDO
ENDIF
El deprador posiciona el error en la linea sel Seek() o LOCATE segun use uno u otro. Que estare haciendo mal?
pero, me salta un error (TXTCOD es un miembro desconocido), siendo que en este fragmento de codigo no hago referencia a TXTCOD, el cual esta en el form donde hago la captura de los codigos de articulos los cuales paso al cursor crscomprastemp .
lcActualiza = MESSAGEBOX("¿Actualizar tabla artículos?" ,4+32+0,"ACTUALIZAR")
IF lcActualiza = 6
SELECT crscomprastemp
GO TOP
DO WHILE !EOF()
lcCod = crscomprastemp.codigo
lncantidad = crscomprastemp.cantidad
SELECT articulos
SET ORDER TO CODIGO
SEEK(crscomprastemp.codigo)
* LOCATE FOR articulos.codigo = lcCod
replace articulos.cantidad WITH articulos.cantidad + lnCantidad
SELECT crscomprastemp
SKIP +1
ENDDO
ENDIF
El deprador posiciona el error en la linea sel Seek() o LOCATE segun use uno u otro. Que estare haciendo mal?
Valora esta pregunta


0