Page 1 of 1
pasar datos de columna a fila
Posted: Fri Oct 10, 2008 3:21 pm
by 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
Posted: Thu Oct 23, 2008 5:42 pm
by 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
Posted: Fri Oct 31, 2008 2:25 pm
by 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