diff --git a/PROYECTO/cpdir/cpprrp011.4gl b/PROYECTO/cpdir/cpprrp011.4gl index 2022a95..e946956 100644 --- a/PROYECTO/cpdir/cpprrp011.4gl +++ b/PROYECTO/cpdir/cpprrp011.4gl @@ -18,7 +18,6 @@ GLOBALS decide CHAR(1), entrada CHAR(14), detalle1 CHAR(30) - DEFINE p_reportfile STRING DEFINE p_ref_chk CHAR(50) DEFINE prt_mvto11 RECORD @@ -123,11 +122,8 @@ display "DIAG DESPUES DE INPUT: [",entrada CLIPPED,"]" RETURN END IF - -- 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 SVG. - LET p_reportfile = FGL_GETENV("FGLSPOOL"), "/cpprrp011_cuentasft.xml" - LET handler = om.XmlWriter.createFileWriter(p_reportfile) + CALL seleccionarsalida() RETURNING r_output + CALL configureoutput(r_output) RETURNING handler START REPORT cuenta_ft TO XML HANDLER handler DECLARE movto CURSOR FOR @@ -214,7 +210,8 @@ display "DIAG DESPUES DE INPUT: [",entrada CLIPPED,"]" negrillas_off CHAR(6), hora CHAR(5) - OUTPUT + OUTPUT + RIGHT MARGIN 142 PAGE LENGTH 150 #ORDER BY x.cod_sp_sec,x.factura,x.cuenta_no,x.id