cpprrp002 (Saldos por Antiguedad): exportacion a PDF/Excel/pantalla
- Vuelve a configureOutput() (modo compatibilidad de GRE, como en 3.20) en lugar del XML crudo en FGLSPOOL, que no era ni PDF ni Excel. - El formato se elige en la ventana comun seleccionarsalida() (EXCEL / PDF / SCREEN); se quita del formulario cpfmrp002 el grupo 'Opciones Salidas', al que no se llegaba con Enter. La opcion MATRICIAL deja de ofrecerse. - RIGHT MARGIN 145: la linea llega a la columna 143 y con el ancho por defecto (132) la columna Total salia cortada. Verificado contra la BD .250 (grupo 25, corte 20/10/2026): PDF de 12 paginas con totales completos. Excel generado en prueba local; falta confirmarlo en el GDC. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
co-authored by
Claude Opus 5.5
parent
4e3993daf8
commit
3bb4b58216
@@ -11,7 +11,6 @@ GLOBALS "cpprgb000.4gl"
|
||||
DEFINE fecha_corte DATE
|
||||
DEFINE cod_sp1 SMALLINT
|
||||
DEFINE idx_1, idx_2 SMALLINT
|
||||
DEFINE p_reportfile STRING
|
||||
DEFINE doccli9 RECORD
|
||||
cod_sp SMALLINT,
|
||||
cod_sp_sec SMALLINT,
|
||||
@@ -62,7 +61,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
|
||||
CALL msgrp000(tipo_papel)
|
||||
|
||||
|
||||
INPUT BY NAME fecha_corte,cod_sp1,r_output
|
||||
INPUT BY NAME fecha_corte,cod_sp1
|
||||
|
||||
BEFORE FIELD fecha_corte
|
||||
LET fecha_corte = today
|
||||
@@ -88,6 +87,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
|
||||
LET int_flag = false
|
||||
RETURN
|
||||
END IF
|
||||
CALL seleccionarsalida() RETURNING r_output
|
||||
# Busca valor de las facturas cuyas fechas de vencimiento son menores
|
||||
# a la fecha de corte
|
||||
|
||||
@@ -125,11 +125,7 @@ DEFINE valor1,valor2,valor3 DECIMAL(12,2)
|
||||
|
||||
START REPORT reporte31 TO archivo
|
||||
ELSE
|
||||
-- La API de configuracion de reportes (fgl_report_*) no esta
|
||||
-- disponible en este FGL; se escribe el XML directo a un archivo
|
||||
-- en FGLSPOOL en lugar de la vista previa/exportacion nativa.
|
||||
LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp002_saldos.xml"
|
||||
LET handler = om.XmlWriter.createFileWriter(p_reportfile)
|
||||
CALL configureoutput(r_output) RETURNING handler
|
||||
START REPORT reporte31 TO XML HANDLER handler
|
||||
END IF
|
||||
END IF
|
||||
@@ -191,6 +187,7 @@ END FUNCTION
|
||||
DEFINE dias INTEGER
|
||||
|
||||
OUTPUT
|
||||
RIGHT MARGIN 145
|
||||
TOP MARGIN 0
|
||||
LEFT MARGIN 0
|
||||
BOTTOM MARGIN 2
|
||||
|
||||
Reference in New Issue
Block a user