|
Solo para dar una opcion mas, la de Jaime esta muy buena tambien!!
for i := 1 to fcount()
@ 11, 11 SAY FIELDNAME( i ) + ":" + fieldput( i, upper( fieldget(i) )
next
Bueno aca tendrias que controlar que la variable sea de Caracteres, pero bueno eso ya lo tenes que ver vos!
Porque si llegas a colocar otro tipo, no funcionaria ni el SAY
for i := 1 to fcount()
if valtype( xCampo := fieldget( i ) ) == "C" @ 11, 11 SAY FIELDNAME( i ) + ":" + fieldput( i, upper( xCampo )
endif
next
Bueno espero te ayude
Inf. Eduardo Rizzolo
MP 0023 CPCIM Ley 3752.
-------Mensaje original-------
Fecha: Wednesday, May 14, 2003 3:12:31 AM
Asunto: Re: [CA-Clipper] Como paso a mayuscula
Daniel,
No he compilado ni se si esto está perfecto, pero tal vez por ese camino te pueda ayudar a reducir código...
aFields := Dbf->( dbStruct() )
FOR nI := 1 TO ( Dbf->( fCount() ) )
@ 11, 11 SAY aHeaders[ nI ] + aFields[ nI, DBS_NAME ]
xCampo := aFields[ nI, DBS_NAME ]
REPLACE aFields[ nI, DBS_NAME ] WITH upper( xCampo )
NEXT
Saludos!
----- Original Message -----
Sent: Wednesday, May 14, 2003 6:31 AM
Subject: [CA-Clipper] Como paso a mayuscula
Hola grupo, como estas
Mi pregunta es la siguiente:
Para pasar un array a mayuscula se usa el upper() yse asigna a otra, pero para pasar un campo de un dbf, como se hace
lo que yo hice fue lo siguiente
carge el campo
@11,11 say 'Nombre: ' + articulo (articulo es un campo del DBF) luego pase es campo a una variable
art = articulo
luego reemplaze el campo articulo con
replace articulo wiht upper(art)
@11,11 say 'Nombre: ' + articulo (articulo es un campo del DBF)
art = articulo
replace articulo wiht upper(art)
hay alguna otra forma de hacerlo, por que lo tuve que hacer con cada campo de la base, y esto me acarre mucha cantidad de codigo innecesario
si llega a haber una funcion avisen
desde ya muchas gracias
Daniel Grene
------------------------------
DesarrolloClipper:
Desarrollo de Software en CA-Clipper
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloClipper@...
Suscribirse........: DesarrolloClipper-Subscribe@...
Desuscribirse......: DesarrolloClipper-Unsubscribe@...
Administrador......: DesarrolloClipper-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloClipper
------------------------------
http://www.navegana.com/dinero/chanzes.html
Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.
------------------------------
DesarrolloClipper:
Desarrollo de Software en CA-Clipper
------------------------------
Direcciones de la lista:
Publicar un mensaje: DesarrolloClipper@...
Suscribirse........: DesarrolloClipper-Subscribe@...
Desuscribirse......: DesarrolloClipper-Unsubscribe@...
Administrador......: DesarrolloClipper-Owner@...
Página de la lista.: http://www.gruposyahoo.com.ar/group/DesarrolloClipper
------------------------------
http://www.navegana.com/dinero/chanzes.html
Tu uso de Yahoo! Grupos está sujeto a las Condiciones del servicio de Yahoo!.
| 
IncrediMail - El E-mail ha evolucionado finalmente - Haga clic aquí
Sin conexión 
Enviar correo