Agregar coprrp007 (Cronologico de Requisiciones) al proyecto

- Registrar coprrp007 en mbsERP.4pw, usando cofmrp007.4fd (el .per
  no define el combo de departamento que requiere busca_departamento())
- Enlazar la libreria FUNCIONES_IN (ya contiene departamento.4gl) en
  vez de duplicar el archivo, evitando conflicto de salida .42m
- Agregar guarda NULL en departamento.4gl: ui.combobox.forname()
  puede no encontrar el combo durante el CONSTRUCT y causaba
  "Null pointer exception" al llamar .clear()
- Sustituir seleccionarsalida()/configureoutput() (no definidas,
  API fgl_report_* no disponible) por om.XmlWriter.createFileWriter()
  hacia FGLSPOOL

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

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
+        -- La API de configuracion de reportes (fgl_report_*) no esta
-        CALL configureoutput(salida) RETURNING HANDLER    
+        -- 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

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 

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">