diff --git a/PROYECTO/otrodir/msgrp000.4gl b/PROYECTO/otrodir/msgrp000.4gl index fcacf98..60da6aa 100644 --- a/PROYECTO/otrodir/msgrp000.4gl +++ b/PROYECTO/otrodir/msgrp000.4gl @@ -1,3 +1,4 @@ +IMPORT FGL greruntime -- fgl_report_* (Genero Report Writer) para configureOutput() { Esta funcion se utiliza para desplegar mensajes de los reportes de los sistemas de Ray-O-Vac Dominicana. @@ -274,10 +275,19 @@ END FUNCTION FUNCTION configureOutput(tipo_file) DEFINE tipo_file CHAR(3) - -- La API fgl_report_* (Report Writer 2.0) no esta disponible en este - -- FGL 6.00.01. Esta salida (XML/XLS/PDF por handler) no esta soportada - -- en este entorno; usar r_output = 'MA' (impresion clasica) en su lugar. - RETURN NULL + IF NOT fgl_report_loadCurrentSettings(NULL) THEN + RETURN NULL + END IF + # CALL fgl_report_selectLogicalPageMapping("multipage") + # CALL fgl_report_configureMultipageOutput(2, 4, TRUE) + CALL fgl_report_setPageMargins("0.5cm","0.5cm","0.5cm","0.5cm") + --CALL fgl_report_selectDevice("XLS") + # CALL fgl_report_selectDevice(getPreviewDevice()) + # CALL fgl_report_configureCompatibilityOutput(1,'Franklin Gothic Heavy',false,'existencia',NULL,NULL) + CALL fgl_report_selectDevice(tipo_file) + CALL fgl_report_configurexlsxdevice(null,null,null,false,false,null,1) + CALL fgl_report_selectPreview(TRUE) + RETURN fgl_report_commitCurrentSettings() END FUNCTION FUNCTION getPreviewDevice()