FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para CA-Clipper pasar datos de columna a fila
Posts: 7
Joined: Mon Jul 09, 2007 01:50 PM
pasar datos de columna a fila
Posted: Fri Oct 10, 2008 03:21 PM

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

Posts: 446
Joined: Mon Dec 26, 2005 09:11 PM
pasar datos de columna a fila
Posted: Thu Oct 23, 2008 05:42 PM

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

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
Posts: 58
Joined: Thu Aug 14, 2008 09:35 PM
pasar datos de columna a fila
Posted: Fri Oct 31, 2008 02:25 PM
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:
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
¡ Dios es nuestra fortaleza !

Continue the discussion