From 3923c9dc01a39a94be59e9797ffcbbf8b48ca3e7 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Tue, 29 Sep 2026 12:22:37 -0400 Subject: [PATCH] Corregir ipprrp005 (Maestra Costo Standard): dependencias, logo y titulo MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - Registrar ipfmrp005.4fd en el proyecto (form not found al abrir). - Agregar dependencias faltantes FUNCIONESREPORT (msgrp000) para el papel/preview del reporte. - selectOutput() no estaba definida en ningun modulo enlazable sin conflicto: la version de otrodir/vesalidaimpresora.4gl tiene una firma distinta (devuelve 3 valores) y la de otrodir/msgrp000.4gl choca con indir/defecto.4gl al traer ambas. Se extrajo a un archivo propio (otrodir/selectoutput_simple.4gl) la version de un solo valor de retorno que ya coincidia con lo que espera este programa, reutilizando el formulario "Configuration" ya existente. - ipprrp005.4rp: la ruta del logo era absoluta a la maquina de produccion (E:\MARMOTECHC\IMAGENES\logo.png), no existia aqui - cambiada a ruta relativa (logo.png, ya esta en PROYECTO/bin). - Se agrego titulo a la ventana (usaba el generico "screen"). Verificado con producto 29-668-1403-6952, año 2026: Material 3,512.42, Labor 0.00, Gasto 0.00, Costo STD 3,512.42 - reporte bien formateado (usa el .4rp original del programa, no uno reescrito). Cierre limpio. Co-Authored-By: Claude Sonnet 5 --- PROYECTO/bin/ipprrp005.4rp | 70 ++++++++++++++++++++++++ PROYECTO/ipdir/ipprrp005.4gl | 1 + PROYECTO/ipdir/ipprrp005.4rp | 2 +- PROYECTO/mbsERP.4pw | 8 ++- PROYECTO/otrodir/selectoutput_simple.4gl | 33 +++++++++++ 5 files changed, 111 insertions(+), 3 deletions(-) create mode 100644 PROYECTO/bin/ipprrp005.4rp create mode 100644 PROYECTO/otrodir/selectoutput_simple.4gl diff --git a/PROYECTO/bin/ipprrp005.4rp b/PROYECTO/bin/ipprrp005.4rp new file mode 100644 index 0000000..e0fb79f --- /dev/null +++ b/PROYECTO/bin/ipprrp005.4rp @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/PROYECTO/ipdir/ipprrp005.4gl b/PROYECTO/ipdir/ipprrp005.4gl index a143334..a7643d2 100644 --- a/PROYECTO/ipdir/ipprrp005.4gl +++ b/PROYECTO/ipdir/ipprrp005.4gl @@ -53,6 +53,7 @@ FUNCTION ipprrp005() OPEN FORM ipfmrp005 FROM "ipfmrp005" DISPLAY FORM ipfmrp005 + CALL ui.Window.getCurrent().setText("MAESTRA COSTO STANDARD") #CALL pantalla() DISPLAY "ipprrp005" AT 4,3 DISPLAY "Maestra Costos Std." AT 6,31 diff --git a/PROYECTO/ipdir/ipprrp005.4rp b/PROYECTO/ipdir/ipprrp005.4rp index 8c5b408..e0fb79f 100644 --- a/PROYECTO/ipdir/ipprrp005.4rp +++ b/PROYECTO/ipdir/ipprrp005.4rp @@ -18,7 +18,7 @@ - + diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index c536b30..16d9a37 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -142,6 +142,7 @@ + @@ -301,6 +302,7 @@ + @@ -711,13 +713,15 @@ - + + - + + diff --git a/PROYECTO/otrodir/selectoutput_simple.4gl b/PROYECTO/otrodir/selectoutput_simple.4gl new file mode 100644 index 0000000..6af6e6e --- /dev/null +++ b/PROYECTO/otrodir/selectoutput_simple.4gl @@ -0,0 +1,33 @@ +FUNCTION selectOutput() + DEFINE + r_output STRING, -- output format option + r_action STRING, -- used to set preview option + r_filename STRING, -- filename of Report Design document (the .4rp filename) + preview INTEGER -- preview option TRUE/FALSE, to display report in Report Viewer + + -- display form allowing user to select the .4rp filename and output options + + OPTIONS INPUT WRAP + OPEN WINDOW f_configuration WITH FORM "Configuration" + LET INT_FLAG=FALSE + LET preview = FALSE + INPUT BY NAME r_output + ON ACTION CANCEL + EXIT PROGRAM + ON ACTION CLOSE + EXIT PROGRAM + END INPUT + CLOSE WINDOW f_configuration + CALL ui.interface.refresh() + + -- set preview variable to match output option r_action + IF r_action IS NOT NULL THEN + IF r_action == "preview" THEN + LET preview = TRUE + END IF + END IF + + --return output option variable to be used to configure the report engine + RETURN r_output + + END FUNCTION