diff --git a/PROYECTO/codir/coprrp007.4gl b/PROYECTO/codir/coprrp007.4gl
index 7d8862b..22b356f 100644
--- a/PROYECTO/codir/coprrp007.4gl
+++ b/PROYECTO/codir/coprrp007.4gl
@@ -38,9 +38,11 @@ FUNCTION coprrp007()
         uso          VARCHAR(100),
         descrip_esp  VARCHAR(100),
         unidad_med   LIKE intb00001.unidad_med
-        
+
     END RECORD
 
+    DEFINE r_filename STRING
+
 #    WHENEVER ERROR CONTINUE
 
     OPTIONS
@@ -161,9 +163,14 @@ LET idx = 1
           RETURN
        END IF
      IF idx = 1 THEN
-     
-        CALL seleccionarsalida() RETURNING salida
-        CALL configureoutput(salida) 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"), "/coprrp007_organiza.xml"
+        LET handler = om.XmlWriter.createFileWriter(r_filename)
         START REPORT organiza TO XML HANDLER handler
 
      END IF
diff --git a/PROYECTO/codir/departamento.4gl b/PROYECTO/codir/departamento.4gl
index 0c3db1e..1d7f1f3 100644
--- a/PROYECTO/codir/departamento.4gl
+++ b/PROYECTO/codir/departamento.4gl
@@ -3,7 +3,10 @@ DEFINE pdepartamento ui.combobox,
         kdepartamento SMALLINT,kdescripcion CHAR(30) 
    
        LET  pdepartamento = ui.combobox.forname("formonly.departamento")
-       CALL pdepartamento.clear()                                         
+       IF pdepartamento IS NULL THEN
+          RETURN
+       END IF
+       CALL pdepartamento.clear()
        DECLARE pagar CURSOR FOR                                           
          SELECT departamento, nom_dpto FROM adtb00001                     
          WHERE status_t is null 
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 4f31eb1..c5b8e0c 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -196,6 +196,7 @@
         <File filePath="codir/cofmrp001.per"/>
         <File filePath="codir/cofmrp004.4fd"/>
         <File filePath="codir/cofmrp019.per"/>
+        <File filePath="codir/cofmrp007.4fd"/>
       </Library>
       <Application binaryName="coprmt001" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000017" label="coprmt001">
         <Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
@@ -248,6 +249,10 @@
         <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000040" label="Configuration"/>
         <File filePath="codir/coprrp019.4gl"/>
       </Application>
+      <Application binaryName="coprrp007" dependencies="-1026233879,-764824792,-700000015,-700000016,-1423229125,-801525068" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000041" label="coprrp007">
+        <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000042" label="Configuration"/>
+        <File filePath="codir/coprrp007.4gl"/>
+      </Application>
     </Group>
     <Group id="-1298100213" label="CONTABILIDAD GENERAL">
       <Application binaryName="cgprmt001" dependencies="2055924299,-1026233879" id="-1385997751" label="cgprmt001">