SoloCodigo

Programación General => Visual FoxPro => Mensaje iniciado por: mercy en Miércoles 30 de Abril de 2003, 16:58

Título: Re: texto vertical en reportes de visual foxpro
Publicado por: mercy en Miércoles 30 de Abril de 2003, 16:58
hola necesito diseñar un reporte en vfp 6.0 de talforma que me muestre los campos de una tabla x, pero de forma vertical. pero no lo he logrado. eso lo quiero hacer por que asi me han pedido el diseño.

Les agradeceré cualquier comentario.


Mercy
Título: Re: texto vertical en reportes de visual foxpro
Publicado por: Plinio en Miércoles 30 de Abril de 2003, 17:53
Con el reporte abierto ve a la opcion de  menú File (Archivo), selecciona Page setup( Configuracion de Página). Luego dale al botón Print Setup (configuracion de impresora). En la configuración de impresora en la opcion de Orientacion del papel sale por defecto "Portrait" selecciona "landscape".
Título: Re: texto vertical en reportes de visual foxpro
Publicado por: mercy en Jueves 1 de Mayo de 2003, 01:47
gracias de todas formas por la respuesta, pero lo anterior que me indicas lo unico que me hace es cambiarme la orientacion pero de la pagina.

y yo lo que quiero es cambiar la orientación a vertical, (asi como en word o excel), pero del contenido de algunos campos que se muestran en el reporte.


Gracias, te agradesco, y tambien agradeceré nuevos comentarios. osea que el texto quede mas omeno asi:

t
e
x
t
o


Mercy
Título: texto vertical en reportes de visual foxpro
Publicado por: Plinio en Jueves 8 de Mayo de 2003, 18:07
Ahora entendí tu duda. Sigue los siguientes pasos

Crea en un .prg (o como quieras hacerlo) la siguiente funcion: (vamos a llamarlo funciones.prg)

function varias_lineas
LPARAMETERS letrero_enviado
LOCAL letrero_devuelta
letrero_devuelta =""
FOR i = 1 TO LEN(letrero_enviado)
  letrero_devuelta = letrero_devuelta + SUBSTR(letrero_enviado,i,1)+CHR(13)
ENDFOR

RETURN letrero_devuelta
ENDFUNC

**Fin de la funcion

********
**Para ejecutarlo
SET PROCEDURE TO funciones.prg

letrero = "Hola Mundo" &&Pones lo que sea
letrero_resultado = varias_lineas(letrero)

****Ahora imprime "letrero_resultado" en tu reporte.


:good: