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