FoxPro/Visual FoxPro - Concatenar todos los registros de una tabla en una sola cadena

   
Vista:

Concatenar todos los registros de una tabla en una sola cadena

Publicado por leandro lean_sour@hotmail.com (2 intervenciones) el 28/03/2016 22:31:17
Hola compañeros, como les va? tengo una consulta.estoy terminando un sistema de fiscalizacion de aportes. quisiera mostrar en una sola linea de un report todos los registros de una tabla temporal (que estimo tendra entre 1 o 30 registros, no+). Lo que pense es definir una variable y que ella aloje a todos esos registros.
pero no he podido escribir el codigo correcto para poder, de todas las filas de una tabla, ir mostrando cuil x cuil
(son 11 caracteres + un espacio para separar). algun consejo? muchas gracias saludos!
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
Imágen de perfil de José Luis

Concatenar todos los registros de una tabla en una sola cadena

Publicado por José Luis (16 intervenciones) el 29/03/2016 01:36:54
Hola Leandro

Pensemos que la tabla que quieres concatenar sus registros tiene un solo campo y 30 registros, puedes proceder como sigue:

1
2
3
4
5
6
7
8
9
10
11
12
Close all
Use Tabla && Debes sustituir el nombre Tabla por el nombre de tu tabla
VarM = ""
Do While Not Eof()
   If Recno() = 1
      VarM = VarM  + Campo && Sustituye Campo por el nombre del campo de tu tabla
   Else
      VarM = " " + Campo && Sustituye Campo por el nombre del campo de tu tabla
   EndIf
   Skip
EndDo
@ 2,2 say VarM Font "Arial",12 Style "BT"

Espero que sea lo que buscas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Mauricio Antonio

Concatenar todos los registros de una tabla en una sola cadena

Publicado por Mauricio Antonio (1368 intervenciones) el 29/03/2016 01:50:59
1
2
3
4
5
6
7
Close all
Use Tabla && Debes sustituir el nombre Tabla por el nombre de tu tabla
VarM = ""
SCAN
......VarM = VarM + Campo + " " && Sustituye Campo por el nombre del campo de tu tabla
ENDSCAN
@ 2,2 say VarM Font "Arial",12 Style "BT"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de José Luis

Concatenar todos los registros de una tabla en una sola cadena

Publicado por José Luis (16 intervenciones) el 29/03/2016 01:59:11
Hola Leandro

Se me paso eliminar los espacio que tengas en los registros, con ese cambio procede como sigue:

1
2
3
4
5
6
7
8
Close all
Use Tabla && Debes sustituir el nombre Tabla por el nombre de tu tabla
VarM = ""
Do While Not Eof()
VarM = VarM + Alltrim(Campo)+" " && Sustituye Campo por el nombre del campo de tu tabla
Skip
EndDo
@ 2,2 say VarM Font "Arial",12 Style "BT"

Espero que sea lo que buscas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar