FoxPro/Visual FoxPro - COMO CREAR UN INFORME SOLO DE TEXTO ...

 
Vista:

COMO CREAR UN INFORME SOLO DE TEXTO ...

Publicado por jM (503 intervenciones) el 05/03/2003 00:47:45
¿Como puedo crear un informe solo con el contenido de un archivo de texto?
¿Copiando el contenido del archivo y pegandolo en el informe?
Pues he intentado hacer un informe y en el detalle poner una etiqueta y pegarle el contenido del archivo de texto que previamente he copiado, pero no se pega. ¿Por que?
Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:COMO CREAR UN INFORME SOLO DE TEXTO ...

Publicado por Gus (5 intervenciones) el 06/03/2003 18:18:35
Si el texto es de mas de 254 caracteres no te va a dejar copiar, ya que ese es el tamaño que puede almacenar una variable caracter en Fox.
Lo que puedes hacer es copiar de línea en línea, o digitarlo por partes hasta completar el texto. Yo hice lo último, pero tengo el problema de que no se me imprime completo, ya que no alcanza en una hoja. Por lo que al imprimir no sale completo, yo quiero que me imprima en dos hojas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:COMO CREAR UN INFORME SOLO DE TEXTO ...

Publicado por wences (457 intervenciones) el 09/03/2003 12:51:28
Puedes intentar lo siguiente , crear un informe con un campo en el detalle que este vinculado a una campo memo dentro de una tabla ... de esta forma recogeria la informacion de ese campo , en las propiedades del campo (en el informe) marca ajustar al contenido del texto , para que se expanda todo lo que necesite ... podrias tambien controlar el numero de caracteres si crees que no te entra en una sola hoja y usar mas registros en la tabla guardando en cada uno un numero maximo de caracteres que dependeran del tipo de letra y tamaño de la fuente a usar ... con eso creo lo podias solucionar ..

algo asi

use novale
cnControladorArch = FOPEN("activas.txt")
* Busca hasta el final del archivo para determinar el número
* de bytes en el archivo.
nTamaño = FSEEK(cnControladorArch, 0, 2) && Lleva el puntero a EOF.
IF nTamaño <= 0
WAIT WINDOW "Este archivo está vacío." NOWAIT
ELSE
= FSEEK(cnControladorArch, 0, 0) && Mueve el puntero a BOF.
cCadena = FREAD(cnControladorArch, nTamaño)
? cCadena
ENDIF
= FCLOSE(cnControladorArch) && Cierra el archivo.
select novale
append blank
m.texto=cCadena
gather memvar memo
replace novale.codigo with "1"

Espero te sirva...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar