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