From 3df53ba483bfa34d6aeb0adcb073acfc458c1b8a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Fri, 28 Aug 2026 16:48:04 -0400 Subject: [PATCH] Agregar coprrp004 (Cronologico de Ordenes) al proyecto - Registrar coprrp004 (usando cofmrp004.4fd, el .per carece del campo estado) en mbsERP.4pw - Sustituir seleccionarsalida()/configureoutput() (no definidas en este programa, misma API fgl_report_* no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL Co-Authored-By: Claude Sonnet 5 --- PROYECTO/codir/coprrp004.4gl | 13 ++++++++++--- PROYECTO/mbsERP.4pw | 7 ++++++- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/PROYECTO/codir/coprrp004.4gl b/PROYECTO/codir/coprrp004.4gl index eeda8bf..f90f373 100644 --- a/PROYECTO/codir/coprrp004.4gl +++ b/PROYECTO/codir/coprrp004.4gl @@ -35,6 +35,8 @@ FUNCTION coprrp004() monto DECIMAL(12,2) END RECORD + DEFINE r_filename STRING + #WHENEVER ERROR CONTINUE OPTIONS @@ -115,9 +117,14 @@ END IF # doce,normal,archivo,copia - 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"), "/coprrp004_cronologico.xml" + LET handler = om.XmlWriter.createFileWriter(r_filename) + START REPORT cronologico TO XML HANDLER handler diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 28e03de..079fa41 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -195,6 +195,7 @@ + @@ -233,11 +234,15 @@ - + + + + +