Progress - Eliminar Comillas en Salida de Reporte

   
Vista:

Eliminar Comillas en Salida de Reporte

Publicado por Elite237 (4 intervenciones) el 05/03/2009 17:12:10
Hola buen dia, estoy desarrollando en PROGRESS, y tengo un detalle al mandar a llamar un reporte.
Lo que necesito es lo siguiente: Al momento de mandar a llamar no quiero que me muestre las comillas " " ya que estas se muestran al principio y al final. No quiero que se muestren ya que afectarian al reporte en si, ya que tengo unas opciones en donde se describirian las pulgadas de un monitor. Entonces al momento de llamarlo, va a saltar esa linea y no se mostrará. Espero haberme dado a entender y me puedan apoyar. Un ejemplo que como lo tengo es:

"C 110102000020001800000 RODRIGUEZ DIAZ ENRIQUETA 110102000020000000000 A 0 2 0 20090305 11 1 0 0 0 "

Esto es la pantalla de salida..No quiero que se muestren esas comillas

Gracias.Saludos

Aqui dejo el codigo que estoy implementando:
DEFINE VARIABLE linea AS CHARACTER FORMAT "X(75)".
DEFINE VARIABLE campo AS CHARACTER format "X(25)".
DEFINE VARIABLE espacio AS CHARACTER FORMAT "X" INITIAL " ".
DEFINE VARIABLE cero AS CHARACTER FORMAT "X" INITIAL "0".
DEFINE VARIABLE sucursal AS CHARACTER INITIAL "CD DEL CARMEN".

OUTPUT TO "C:Cat-Camsa.txt".

ASSIGN linea = "F " + " " + "110400000000000000000 ".


FOR EACH Natura WHERE Natura.cve_empresa = 1 WITH STREAM-IO:

FOR EACH Cuentas_1 WHERE Cuentas_1.cve_empresa = Natura.cve_empresA
AND Cuentas_1.c = Natura.c:

IF Cuentas_1.sc = 0 THEN DO:

/* Forma cuenta de mayor */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

DISPLAY linea.

/* Forma la cuenta de la sucursal */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

ASSIGN linea = linea + sucursal + FILL(espacio, 50 - LENGTH(sucursal)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".
ASSIGN linea = linea + "A" + " " + "0" + " ".

ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

DISPLAY linea.

END.
ELSE DO:
ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

IF Cuentas_1.sssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.ssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.sc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
FILL(cero, 5) + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

DISPLAY linea.

END.

END.

END.

OUTPUT CLOSE.
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:Eliminar Comillas en Salida de Reporte

Publicado por Javier (5 intervenciones) el 05/03/2009 18:57:54
mira te dejo un ejemplo de como yo mando mis archivos de salida sin comillas.

DEFINE VARIABLE linea AS CHARACTER FORMAT "X(75)".
DEF STREAM s-salida.
DEF VAR sarchivo AS CHAR.
sArchivo = 'C:Cat-Camsa.txt'.
OUTPUT STREAM s-salida TO VALUE(sArchivo) APPEND.
ASSIGN linea = "F " + " " + "110400000000000000000 ".
PUT STREAM s-salida linea FORMAT "X(10)" SKIP.
OUTPUT STREAM s-salida CLOSE.

Saludos !!!.
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:Eliminar Comillas en Salida de Reporte

Publicado por Elite237 (4 intervenciones) el 05/03/2009 19:37:25
Gracias por tu pronta respuesta. Nose si checaste el codigo que deje, yo intento con el STREAM-IO, solo que de las 5 columnas que debe mostrar por decir asi, solo muestra 3.
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:Eliminar Comillas en Salida de Reporte

Publicado por Elite237 (4 intervenciones) el 05/03/2009 20:01:00
Hola de nuevo, Javier intente con el metodo que me sigeriste, solo que hace lo mismo, me muestra solo 3 columnas de 7. Nose si algo estare omitiendo.

Asi deje mi codigo, despues de implemenar tu sugerencia:

DEFINE VARIABLE linea AS CHARACTER FORMAT "X(75)".
DEFINE VARIABLE campo AS CHARACTER format "X(25)".
DEFINE VARIABLE espacio AS CHARACTER FORMAT "X" INITIAL " ".
DEFINE VARIABLE cero AS CHARACTER FORMAT "X" INITIAL "0".
DEFINE VARIABLE sucursal AS CHARACTER INITIAL "CD DEL CARMEN".
DEFINE STREAM s-salida.
DEFINE VARIABLE archivo AS CHAR.

archivo = "C:Cat-Camsa.txt".
OUTPUT STREAM s-salida TO VALUE(archivo)APPEND.

ASSIGN linea = "F " + " " + "110400000000000000000".
PUT STREAM s-salida linea FORMAT "x(10)" SKIP.
DISPLAY linea.

FOR EACH Natura WHERE Natura.cve_empresa = 1 WITH STREAM-IO:

FOR EACH Cuentas_1 WHERE Cuentas_1.cve_empresa = Natura.cve_empresA
AND Cuentas_1.c = Natura.c WITH STREAM-IO:

IF Cuentas_1.sc = 0 THEN DO:

/* Forma cuenta de mayor */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + "" .

DISPLAY linea.

/* Forma la cuenta de la sucursal */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

ASSIGN linea = linea + sucursal + FILL(espacio, 50 - LENGTH(sucursal)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".
/*
IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
*/
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

DISPLAY linea.

END.
ELSE DO:
ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

IF Cuentas_1.sssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.ssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.sc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
FILL(cero, 5) + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

DISPLAY linea.

END.

END.

END.

OUTPUT STREAM s-salida CLOSE.
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:Eliminar Comillas en Salida de Reporte

Publicado por Javier (5 intervenciones) el 06/03/2009 22:07:38
Tienes razon lo que pasa es que ahora tienes que sustituir todos tus DISPLAY por PUT STREAM s-salida linea FORMAT "x(75)" SKIP;

si te das cuenta en tu programa solo lo pusiste en el primer display y lo dejaste igual en los demas.

te modifique el programa como yo creo que tiene que ir.

DEFINE VARIABLE linea AS CHARACTER FORMAT "X(75)".
DEFINE VARIABLE campo AS CHARACTER format "X(25)".
DEFINE VARIABLE espacio AS CHARACTER FORMAT "X" INITIAL " ".
DEFINE VARIABLE cero AS CHARACTER FORMAT "X" INITIAL "0".
DEFINE VARIABLE sucursal AS CHARACTER INITIAL "CD DEL CARMEN".
DEFINE STREAM s-salida.
DEFINE VARIABLE archivo AS CHAR.

archivo = "C:Cat-Camsa.txt".
OUTPUT STREAM s-salida TO VALUE(archivo)APPEND.

ASSIGN linea = "F " + " " + "110400000000000000000".
PUT STREAM s-salida linea FORMAT "x(75)" SKIP.
/*DISPLAY linea. */

FOR EACH Natura WHERE Natura.cve_empresa = 1 WITH STREAM-IO:

FOR EACH Cuentas_1 WHERE Cuentas_1.cve_empresa = Natura.cve_empresA AND Cuentas_1.c = Natura.c WITH STREAM-IO:

IF Cuentas_1.sc = 0 THEN DO:

/* Forma cuenta de mayor */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + "" .
PUT STREAM s-salida linea FORMAT "x(75)" SKIP.
/*DISPLAY linea. */

/* Forma la cuenta de la sucursal */

ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

ASSIGN linea = linea + sucursal + FILL(espacio, 50 - LENGTH(sucursal)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + FILL(cero, 17) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".
/*
IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
*/
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

PUT STREAM s-salida linea FORMAT "x(75)" SKIP.
/*DISPLAY linea. */

END.
ELSE DO:
ASSIGN linea = "C " + " " +
STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
STRING(Cuentas_1.sssc, "99999") + FILL(espacio, 9) + " ".

IF LENGTH(Cuentas_1.descrip) > 50 THEN
linea = linea + SUBSTRING(Cuentas_1.descrip, 1, 50) + " ".
ELSE
linea = linea + Cuentas_1.descrip + FILL(espacio, 50 - LENGTH(Cuentas_1.descrip)) + " ".

ASSIGN linea = linea + FILL(espacio, 50) + " ".

IF Cuentas_1.sssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + STRING(Cuentas_1.ssc, "99999") +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.ssc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
STRING(Cuentas_1.sc, "99999") + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
IF Cuentas_1.sc > 0 THEN
ASSIGN linea = linea + STRING(Cuentas_1.c, "9999") + STRING(Cuentas_1.cve_zona, "99") +
FILL(cero, 5) + FILL(cero, 5) +
FILL(cero, 5) + FILL(espacio, 9) + " ".
ELSE
ASSIGN linea = linea + FILL(cero, 21) + FILL(espacio, 9) + " ".
/*
ASSIGN linea = linea + STRING(Natura.natura, "9") + " " + "0" + " ".
*/
ASSIGN linea = linea + "A" + " " + "0" + " ".

IF Cuentas_1.sc = 0 THEN
ASSIGN linea = linea + "1" + " " + "0" + " ".
ELSE
ASSIGN linea = linea + "2" + " " + "0" + " ".

ASSIGN linea = linea + STRING(YEAR(TODAY), "9999") + STRING(MONTH(TODAY), "99") + STRING(DAY(TODAY), "99") + " ".

ASSIGN linea = linea + "11" + " " + " 1" + " " + " 0" + " " + "0" + " " + " 0" + " ".

PUT STREAM s-salida linea FORMAT "x(75)" SKIP.
/*DISPLAY linea. */

END.

END.

END.

OUTPUT STREAM s-salida CLOSE.

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