Puedo por medio De SQL

Hola, curioso nombre el tuyo!

Algo como esto puede ser de ayuda:

Select Anos

lcCampos = ""
lnContador = 0

Scan for pross = .T.
lnContador = lnContador + 1
lcCampos = lcCampos + Iif(lnContador = 1,"",", ") + Ltrim(Str(Ano))
EndScan

Select Factura, Fecha, Cliente, Total, (lcCampos) from Facturas

Saludos desde Venezuela.

"Progamador T-101" escribió en el mensaje
news:

Hola foro
Amigos tengo Un Problemita.. ser que se puede hacer...

Tengo Una Tablita Con 10 Registros Llamada Anos.dbf y un campos Ano N 4
pross L
Seria asi por ejemplo
Ano pross
1999 F
2000 T
2001 T
2002 T
2003 F
2004 T

Como hago apra que cuando yo traiga los campos de otra tala me adiciones

lo

anos marcados con .T. (Si Procesar)
Ejemplo
Select Facturas.factura,fecha,cliente,total, y ademas los campos de tabla
anos que esan en .T.

Ose que la estructura quedaria asi

Facturas,factura,fecha,cliente,total,2000,2001,2002,2004

Se puede digame que si...
gracias...







Astutos Como El Zorro Solo; Somos Pocos. No Dejemos Que El Zorro Muera.

.Net

Es Exelente Pero El Zorro Es El Zorro.

Hola Programador T-101 y Richard.

Como no puedo ver la pregunta original entonces respondo aquí.
Si se puede hacer la consulta que deseas por medio de un SELECT-SQL, a
continuación el ejemplo:


**** Creamos el cursos con los años que nos comentas
CREATE CURSOR cYears (nYear i, lProcess L)
INSERT INTO cYears(1999,.F.)
INSERT INTO cYears (2000,.T.)
INSERT INTO cYears(2001,.T.)
INSERT INTO cYears(2002,.T.)
INSERT INTO cYears(2003,.F.)
INSERT INTO cYears(2004,.T.)


*** Creamos un cursor con datos de prueba ****
*** Las fechas serán aleatorias iniciando desde {^1999/01/01}

CREATE CURSOR cFacturas (iid int, dDate d)
=RAND(-1)
FOR lnCounter=1 TO 5000
INSERT INTO cFacturas (dDate) ;
VALUES (lnCounter,DATE(1999,01,01)+INT((365*6)*RAND()+1))
ENDFOR

* Y por último, el query, todos los datos de las facturas
* Donde el año de la factura, sea igual a alguno de los años
* marcados para procesar

SELECT * FROM cFacturas ;
WHERE YEAR(dDate) IN (SELECT cYears.nyear ;
FROM cYears WHERE cYears.lprocess)

Quizás convenga revisar los indices para una mejor optimización RushMore,
revisa la ayuda de la función SYS(3054)...

Espero te sirva.

Hola, curioso nombre el tuyo!

Algo como esto puede ser de ayuda:

Select Anos

lcCampos = ""
lnContador = 0

Scan for pross = .T.
lnContador = lnContador + 1
lcCampos = lcCampos + Iif(lnContador = 1,"",", ") + Ltrim(Str(Ano))
EndScan

Select Factura, Fecha, Cliente, Total, (lcCampos) from Facturas

Saludos desde Venezuela.

"Progamador T-101" escribió en el mensaje
news:
Hola foro
Amigos tengo Un Problemita.. ser que se puede hacer...

Tengo Una Tablita Con 10 Registros Llamada Anos.dbf y un campos Ano N 4
pross L
Seria asi por ejemplo
Ano pross
1999 F
2000 T
2001 T
2002 T
2003 F
2004 T

Como hago apra que cuando yo traiga los campos de otra tala me adiciones

lo

anos marcados con .T. (Si Procesar)
Ejemplo
Select Facturas.factura,fecha,cliente,total, y ademas los campos de tabla
anos que esan en .T.

Ose que la estructura quedaria asi

Facturas,factura,fecha,cliente,total,2000,2001,2002,2004

Se puede digame que si...
gracias...

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
Acapulco, México
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa

Amigos muchas gracias la intencion es la que vale...
la verdad no era lo que necesitaba lo que quiero es crear una estructura
asi... Ejemplo

En una tabla tengo dos campos año, pross

Estrucutra
Año Pross
1999 .t. => se procesa
2000 .t. => se procesa
2001 .f. => NO se procesa
2002 .t. => se procesa
2003 .t. => se procesa
2004 .f. => No se procesa

Tabla2
Codigo Factura Total
000012 1170 12,400.00
000014 1171 18,400.00
000016 1172 25,500.00


Quiero crear una estructura HORIZONTAL
Quedaria asi..

Estrucutra En El Cursor Luego Del Selec
Codigo Factura Total 1999 2000 2002 2003
000012 1170 12,400.00 blaco blanco blanco blanco
000014 1171 18,400.00 blaco blanco blanco blanco
000016 1172 25,500.00 blaco blanco blanco blanco


Se pude por medio de un SQ LAmigos si me pueden ayudar...
Gracias

Progamador T-101

Ah, hombre, nada como un ejemplo de lo que quieres!

A ver así:

Select Anos

lcCampos = ""
lnContador = 0

Scan for pross = .T.
lnContador = lnContador + 1
lcCampos = lcCampos + Iif(lnContador = 1,"",", ") + "space(1) as " +
Ltrim(Str(Ano))
EndScan

Select Factura, Fecha, Cliente, Total, (lcCampos) from Facturas

Prueba y nos comentas.

Saludos.

"Progamador T-101" escribió en el mensaje
news:

Hola foro
Amigos tengo Un Problemita.. ser que se puede hacer...

Tengo Una Tablita Con 10 Registros Llamada Anos.dbf y un campos Ano N 4
pross L
Seria asi por ejemplo
Ano pross
1999 F
2000 T
2001 T
2002 T
2003 F
2004 T

Como hago apra que cuando yo traiga los campos de otra tala me adiciones

lo

anos marcados con .T. (Si Procesar)
Ejemplo
Select Facturas.factura,fecha,cliente,total, y ademas los campos de tabla
anos que esan en .T.

Ose que la estructura quedaria asi

Facturas,factura,fecha,cliente,total,2000,2001,2002,2004

Se puede digame que si...
gracias...







Astutos Como El Zorro Solo; Somos Pocos. No Dejemos Que El Zorro Muera.

.Net

Es Exelente Pero El Zorro Es El Zorro.

Hola Richard muchas gracasi.. por ayudarme..

Aun No Meda

MIra... Ya me esta Dando la cadana Correcta. Ahora el problema es que no me
crea los campos.. ahora esta creando un campo llamado Expre_1 llena con la
cadena De caracteres...

Ejemplo Del campo Expre_1
Expre_
-
0000000000.00 as 2001, 0000000000.00 as 2002, 0000000000.00 as 2003,
0000000000.00 as 2004


Que sera. No