From c795294090b58ac82515e36c5ca3087db044bb6a Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Wed, 30 Sep 2026 10:48:03 -0400 Subject: [PATCH] Renombrar selectOutput() a selectOutputSimple() para evitar choque otrodir/selectoutput_simple.4gl definia FUNCTION selectOutput(), mismo nombre que otrodir/vesalidaimpresora.4gl (ya usado por Abel en noprcs006, ipprrp002, ipprrp003, ipprrp039, ipprrp044). Al mezclar ambos commits, cualquier programa que dependiera de FUNCIONESREPORT mas la libreria de Abel rompia por simbolo duplicado. Se renombra la funcion (y se actualizan sus 4 unicos llamados: ipprrp005, ipprrp009, ipprrp035, ipprrp036) sin tocar vesalidaimpresora.4gl, para no afectar los programas que Abel ya tiene funcionando con esa version. Recompilados y verificados los 4 programas tras el cambio. Co-Authored-By: Claude Sonnet 5 --- PROYECTO/ipdir/ipprrp005.4gl | 2 +- PROYECTO/ipdir/ipprrp009.4gl | 2 +- PROYECTO/ipdir/ipprrp035.4gl | 4 ++-- PROYECTO/ipdir/ipprrp036.4gl | 2 +- PROYECTO/otrodir/selectoutput_simple.4gl | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/PROYECTO/ipdir/ipprrp005.4gl b/PROYECTO/ipdir/ipprrp005.4gl index a7643d2..a218e37 100644 --- a/PROYECTO/ipdir/ipprrp005.4gl +++ b/PROYECTO/ipdir/ipprrp005.4gl @@ -157,7 +157,7 @@ END IF LET r_filename ='ipprrp005.4rp' LET preview = 1 - CALL selectOutput() RETURNING r_output + CALL selectOutputSimple() RETURNING r_output IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file CALL fgl_report_selectDevice(r_output) -- changing default diff --git a/PROYECTO/ipdir/ipprrp009.4gl b/PROYECTO/ipdir/ipprrp009.4gl index 81048c6..4b110d3 100644 --- a/PROYECTO/ipdir/ipprrp009.4gl +++ b/PROYECTO/ipdir/ipprrp009.4gl @@ -393,7 +393,7 @@ END IF IF grafico = "SI" THEN LET r_filename ='ipprrp009.4rp' LET preview = 1 - CALL selectOutput() RETURNING r_output + CALL selectOutputSimple() RETURNING r_output IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file CALL fgl_report_selectDevice(r_output) -- changing default diff --git a/PROYECTO/ipdir/ipprrp035.4gl b/PROYECTO/ipdir/ipprrp035.4gl index 260c1ae..d2a866b 100644 --- a/PROYECTO/ipdir/ipprrp035.4gl +++ b/PROYECTO/ipdir/ipprrp035.4gl @@ -2,7 +2,7 @@ =============================================================== PROGRAMA : IPPRRP035 OBJETIVO : COSTOS DE CALIDAD - DESARROLLADOR : Ing. Elvis García + DESARROLLADOR : Ing. Elvis Garc�a =============================================================== } @@ -177,7 +177,7 @@ FUNCTION ipprrp035() LET r_filename = "ipprrp035.4rp" IF fgl_report_loadCurrentSettings(r_filename) THEN LET preview=1 - CALL selectoutput() RETURNING r_output + CALL selectOutputSimple() RETURNING r_output CALL fgl_report_selectDevice(r_output) -- changing default CALL fgl_report_selectPreview(preview) -- changing default LET handler = fgl_report_commitCurrentSettings() -- commit changes diff --git a/PROYECTO/ipdir/ipprrp036.4gl b/PROYECTO/ipdir/ipprrp036.4gl index d782a7e..5c87aff 100644 --- a/PROYECTO/ipdir/ipprrp036.4gl +++ b/PROYECTO/ipdir/ipprrp036.4gl @@ -135,7 +135,7 @@ FUNCTION ipprrp036() LET r_filename = "ipprrp036.4rp" IF fgl_report_loadCurrentSettings(r_filename) THEN LET preview=1 - CALL selectoutput() RETURNING r_output + CALL selectOutputSimple() RETURNING r_output CALL fgl_report_selectDevice(r_output) -- changing default CALL fgl_report_selectPreview(preview) -- changing default LET handler = fgl_report_commitCurrentSettings() -- commit changes diff --git a/PROYECTO/otrodir/selectoutput_simple.4gl b/PROYECTO/otrodir/selectoutput_simple.4gl index 6af6e6e..994568e 100644 --- a/PROYECTO/otrodir/selectoutput_simple.4gl +++ b/PROYECTO/otrodir/selectoutput_simple.4gl @@ -1,4 +1,4 @@ -FUNCTION selectOutput() +FUNCTION selectOutputSimple() DEFINE r_output STRING, -- output format option r_action STRING, -- used to set preview option