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>
This commit is contained in:
Abel López
2026-09-01 16:48:46 -04:00
co-authored by Claude Sonnet 5
parent 26961ddd81
commit f216a7acfa
3 changed files with 20 additions and 5 deletions
+11 -4
View File
@@ -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