pasar datos de columna a fila

[pakotel]

tengo un problema en una tabla tengo varios campos uno de ellos es el campo llamado maquina y tiene bvarios datos que se repiten y algunos no se repiten es decir mas o menos asi:

maquina
033
033
119
148
149
152

que funcion puedo ocupar para hacer un reporte pero que ese campo lo concentre en una fila de esta forma:

033,119,148,149,152

[Armando Picon]

Tienes que construirla... no he visto rutinas que hagan esto como parte del clipper ni de harbour ni de xharbour

Esto es más o menos la secuencia:

1) crea un array con valores unicos que vas leyendo
2) con los valores unicos del array puedes crear una base de datos temporal
3) ahora que ya tienes la base de datos temporal, reinicias la lectura y vas colocando en cada campo los valores originales... y listo

[wyerco]

Estimado pakotel

Puedes ocupar Print

Cargas los valores máquina a un arreglo y verifica que no se repitan, luego, suponiendo que el arreglo se llama maquina:

Code: Select all  Expand view  RUN

nInc:=1  //centimetros
nLargo:=Len(maquina)

PRINT oPrn
  PAGE
     for i=1 to nLargo
          oPrn:CmSay(nFila,nCol+nInc,maquina[i]) //nInc es el incremento
          nInc+=2  // calcula el tamaño del campo maquina
    next
  ENDPAGE
ENDPRINT


Nota : si son muchos valores de máquinas debes controlar el salto al final de la linia

Espero que te sirva

Saludos Waldemar