Concatenar
Hola,
Tengo el siguiente código, lo que necesito realizar es unir varios campos para formar un solo dato y actualizar el campo locali con dicha información:
&&Selecciono los campos deseados y los introduzco en un cursor
SELECT distri,sector,manzana,lote,segre FROM bienes INTO CURSOR mio && los campos son numericos
&& Recorro todo el cursor
SELECT mio
FOR m.nContador = 1 TO RECCOUNT("mio")
WAIT windows "Ejecutando" nowait
m.nRegistro = RECNO("mio")
GO m.nRegistro IN mio
&& Concateno los campos
localizacion = Val(ALLTRIM(STR(mio.distri))+ ALLTRIM(STR(mio.sector))+ ALLTRIM(STR(mio.manzana))+ ALLTRIM(STR(mio.lote))+ ALLTRIM(STR(mio.segre)))
&& Actualizo los campos
UPDATE bienes set locali = localizacion WHERE RECNO("mio") == m.nRegistro
WAIT windows "finalizado" nowait
SKIP IN mio
NEXT
Pero esto no funciona, ya que repite la misma información en el campo locali, lo curioso es que es la información del ultimo registro del cursor.
¿Qué estoy haciendo mal?
Ok
Tengo el siguiente código, lo que necesito realizar es unir varios campos para formar un solo dato y actualizar el campo locali con dicha información:
&&Selecciono los campos deseados y los introduzco en un cursor
SELECT distri,sector,manzana,lote,segre FROM bienes INTO CURSOR mio && los campos son numericos
&& Recorro todo el cursor
SELECT mio
FOR m.nContador = 1 TO RECCOUNT("mio")
WAIT windows "Ejecutando" nowait
m.nRegistro = RECNO("mio")
GO m.nRegistro IN mio
&& Concateno los campos
localizacion = Val(ALLTRIM(STR(mio.distri))+ ALLTRIM(STR(mio.sector))+ ALLTRIM(STR(mio.manzana))+ ALLTRIM(STR(mio.lote))+ ALLTRIM(STR(mio.segre)))
&& Actualizo los campos
UPDATE bienes set locali = localizacion WHERE RECNO("mio") == m.nRegistro
WAIT windows "finalizado" nowait
SKIP IN mio
NEXT
Pero esto no funciona, ya que repite la misma información en el campo locali, lo curioso es que es la información del ultimo registro del cursor.
¿Qué estoy haciendo mal?
Ok
1 Respuesta
Respuesta de falvarez
1