From 3284ae0de90eec31b5c86b49829a8e7d83ec2f0d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Abel=20L=C3=B3pez?= Date: Mon, 31 Aug 2026 16:42:59 -0400 Subject: [PATCH] Agregar coprrp019 (Validacion Ordenes) al proyecto - Registrar coprrp019 en mbsERP.4pw - Agregar CONNECT TO/ARG_VAL faltante en MAIN (el programa hacia consultas SQL sin haberse conectado nunca a la base de datos) - Sustituir seleccionarsalida()/configureoutput() (no definidas, API fgl_report_* no disponible) por om.XmlWriter.createFileWriter() hacia FGLSPOOL - Corregir typo "database marmotech" -> "database smarmotech" en cofmrp019.per Co-Authored-By: Claude Sonnet 5 --- PROYECTO/codir/cofmrp019.per | 2 +- PROYECTO/codir/coprrp019.4gl | 19 ++++++++++++++++--- PROYECTO/mbsERP.4pw | 5 +++++ 3 files changed, 22 insertions(+), 4 deletions(-) diff --git a/PROYECTO/codir/cofmrp019.per b/PROYECTO/codir/cofmrp019.per index cb66365..e7154e2 100644 --- a/PROYECTO/codir/cofmrp019.per +++ b/PROYECTO/codir/cofmrp019.per @@ -1,4 +1,4 @@ -database marmotech +database smarmotech screen size 24 by 80 { Fecha [f1 ] diff --git a/PROYECTO/codir/coprrp019.4gl b/PROYECTO/codir/coprrp019.4gl index bbd4fe8..ea2f301 100644 --- a/PROYECTO/codir/coprrp019.4gl +++ b/PROYECTO/codir/coprrp019.4gl @@ -10,12 +10,20 @@ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO GLOBALS "coprgb000.4gl" MAIN DEFER INTERRUPT + CALL ARG_VAL(1) RETURNING usuarios + CALL ARG_VAL(2) RETURNING clave + CALL ARG_VAL(3) RETURNING impresor + + CONNECT TO "smarmotech" USER usuarios USING clave + SELECT a.* INTO p_companias.* FROM companias a + CALL coprrp019() END MAIN FUNCTION coprrp019() DEFINE select_fech,select_movi,select_ent CHAR(1000) + DEFINE r_filename STRING DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT DEFINE esta,encontre,salir2,salir1,salir CHAR(1) DEFINE recibida,pendiente DECIMAL(12,2) @@ -97,9 +105,14 @@ FUNCTION coprrp019() DECLARE ent_curs SCROLL CURSOR FOR busca_entrega OPEN ent_curs - CALL seleccionarsalida() RETURNING r_output - CALL configureoutput(r_output) 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"), "/coprrp019_documento.xml" + LET handler = om.XmlWriter.createFileWriter(r_filename) + START REPORT documento TO XML HANDLER handler DISPLAY " " AT 19,14 diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index cea8144..bf6b5d6 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -195,6 +195,7 @@ + @@ -243,6 +244,10 @@ + + + +