FoxPro/Visual FoxPro - remplaza datos de campo

TENGO UNA TABLA DE DATOS QUE CONTIENE 1730 REGISTROS... CON UN CAMPO LLAMADO determ y todos sus registros inician por 127... este es un ejemplo.

127.DDR.01.01.02
127.DDR.21.02.03
127.DDR.41.04.04
127.DDR.30.08.05

Lo que deseo es cambiarlos todos y que inicien por 139 ASI

139.DDR.01.01.02
139.DDR.21.02.03
139.DDR.41.04.04
139.DDR.30.08.05

ya probe con lo siguiente haciendo un pequeño prg... que diga asi...
local cl
cl=""
use determinantes
go top
do while !eof()
cl=Substr(Alltr(determ),5,11) &se Posesiona en 5 y extrae 11
replace determ with '139.'+cl
skip
Enddo

o como debo hacerle....???

Personalmente prefiero las instrucciones SQL son mas veloces en y el usarlas mas significa que podras migrar tus aplicaciones a otros motores de bases de datos, sin mucho problema.

SQL seria asi

Update tabla set determ = "139" + RTRIM(right(determ,LEN(determ)-3))

De la forma tradicional

local cadena
cadena = ""
Select tabla1
for a = 1 to reccount() && me gusta mas el for
go a
cadena = "139" + RTRIM(right(tabla.determ,LEN(tabla.determ)-3))
replace tabla.determ with cadena
Endfor

esta esta muchos mas larga pero ambas funcionan bien, te recomiendo que uses mas las intrucciones sql, yo tengo tablas con 300 mil registros y actualiza en menos de 1 segundo.

Por eso me gusta Foxpro.

local cl
cl=""
CONST="139." <<=== agregado
use determinantes
go top
do while !eof()
cl=Substr(Alltr(determ),5,11) &se Posesiona en 5 y extrae 11
REPLACE DETERM WITH const+cl <<= OJO
skip
Enddo


PRUEBA ASI

Suerte

Tendrías que poner 12 en lugar de 11, porque substr() comienza a contar desde el caracter nro. 5.

De todas formas sin hacer un programa podrías ejecutar lo siguiente:

USE DETERMINANTES
REPLACE ALL DETERMIN WITH "139." + SubStr( DETERMIN, 5 )

Si no indicas la cantidad (3er parámetro) en el substr, extrae todos los caracteres hasta el final de la cadena.

Saludos