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:
co-authored by
Claude Sonnet 5
parent
26961ddd81
commit
f216a7acfa
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user