DesarrolloClipper : Mensaje: 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 )

Saludos!

Jaime Irurzun.
www.irusoft.com

----- Original Message -----

From: dag_ferro

To: DesarrolloClipper@...

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!.

Desplegar mensajes

Autor

Ordenar por fecha

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 :=...

Jaime Irurzun
jaimeirurzun@...

14 de May, 2003
6:14 am

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(...

Eduardo Rizzolo
fullpaint

14 de May, 2003
11:51 am

Hola Gente!!! Soy Gabriel de Quilmes, Bs. As., el motivo por el que escribe este mensaje es para preguntarles si saben de donde puedo bajar algun manual...

Gabriel Yost
gabrielyost

14 de May, 2003
1:58 pm

Vos estas especificando que ingresa una factura, ahora bien, mi pregunta es por alta o modificacion?? si es por alta tendria que ser asi: while .t. dbappend() ...

(no author)
(no email address)

14 de May, 2003
2:12 pm

Consejos

¿Sabías que...?

Mensajes