pasar datos de columna a fila

pasar datos de columna a fila

Postby pakotel » Fri Oct 10, 2008 3: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
pakotel
 
Posts: 7
Joined: Mon Jul 09, 2007 1:50 pm

Postby Armando Picon » Thu Oct 23, 2008 5: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
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru

Postby wyerco » Fri Oct 31, 2008 2: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:
Code: Select all  Expand view
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 !
User avatar
wyerco
 
Posts: 58
Joined: Thu Aug 14, 2008 9:35 pm
Location: Santiago - Chile


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 3 guests