Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS

PROYECTO/codir/cofmrp019.per

@@ -1,4 +1,4 @@
-database marmotech   
+database smarmotech
 screen size 24 by 80
 {
          Fecha     [f1         ]

PROYECTO/codir/coprrp019.4gl

@@ -10,12 +10,20 @@ DIRECTOR PROYECTO    :  JOSE ALFREDO PAULINO ALEJO
 GLOBALS "coprgb000.4gl"
 MAIN
  DEFER INTERRUPT
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ CALL ARG_VAL(3) RETURNING impresor
+
+ CONNECT TO "smarmotech" USER usuarios USING clave
+ SELECT a.* INTO p_companias.* FROM companias a
+
  CALL coprrp019()
 END MAIN
 
 FUNCTION coprrp019()
 
     DEFINE select_fech,select_movi,select_ent CHAR(1000)
+    DEFINE r_filename STRING
     DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
     DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
     DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,8 +105,13 @@ FUNCTION coprrp019()
    DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
    OPEN ent_curs 
 
-   CALL seleccionarsalida() RETURNING r_output
-   CALL configureoutput(r_output) RETURNING HANDLER
+   -- La API de configuracion de reportes (fgl_report_*) no esta
+   -- disponible en este FGL; seleccionarsalida()/configureoutput()
+   -- tampoco estan definidas en este programa. Se escribe el XML
+   -- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
+   -- .4rp con vista previa.
+   LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp019_documento.xml"
+   LET handler = om.XmlWriter.createFileWriter(r_filename)
 
    START REPORT documento TO XML HANDLER handler
 

PROYECTO/mbsERP.4pw

@@ -195,6 +195,7 @@
         <File filePath="codir/cofmwd016.per"/>
         <File filePath="codir/cofmrp001.per"/>
         <File filePath="codir/cofmrp004.4fd"/>
+        <File filePath="codir/cofmrp019.per"/>
       </Library>
       <Application binaryName="coprmt001" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000017" label="coprmt001">
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
@@ -243,6 +244,10 @@
         <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000038" label="Configuration"/>
         <File filePath="codir/coprrp004.4gl"/>
       </Application>
+      <Application binaryName="coprrp019" dependencies="-1026233879,-764824792,-700000015,-700000016,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000039" label="coprrp019">
+        <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000040" label="Configuration"/>
+        <File filePath="codir/coprrp019.4gl"/>
+      </Application>
     </Group>
     <Group id="-1298100213" label="CONTABILIDAD GENERAL">
       <Application binaryName="cgprmt001" dependencies="2055924299,-1026233879" id="-1385997751" label="cgprmt001">