Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,55 @@
+
+   DEFINE handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
+          r_filename STRING,              -- filename of Report Design Document including .4rp extension
+          r_output   STRING,             -- output format option
+          preview    INTEGER,
+          i int            
+MAIN
+CALL restreport()
+END MAIN
+
+FUNCTION testreport()
+
+CALL configureoutput("SVG") RETURNING handler
+START REPORT prueba TO XML HANDLER HANDLER
+
+FOR i = 1 TO 10
+OUTPUT TO REPORT prueba()
+END FOR
+
+END FUNCTION
+REPORT prueba()
+ FORMAT
+   ON EVERY ROW
+      PRINT "IMPRESION ", i 
+END REPORT
+
+FUNCTION configureOutput(tipo_file)
+    DEFINE tipo_file CHAR(3)
+    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_configureSVGPreview("PrintOnNamedPrinter")
+    CALL fgl_report_setSVGPrinterName("EPSON TM-T20II Receipt")
+    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()
+    DEFINE fename String
+    CALL ui.interface.frontcall("standard", "feinfo", ["fename"],[fename])
+    IF fename == "Genero Desktop Client" THEN
+        RETURN "SVG"
+    ELSE
+        RETURN "PDF"
+    END IF        
+END FUNCTION
+