pasar datos de columna a fila

[pakotel]

tengo un problema en una tabla tengo _ 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

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