diff --git a/PROYECTO/bin/ipprrp054.4rp b/PROYECTO/bin/ipprrp054.4rp
new file mode 100644
index 0000000..ef90162
--- /dev/null
+++ b/PROYECTO/bin/ipprrp054.4rp
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp054.4gl b/PROYECTO/ipdir/ipprrp054.4gl
index 815c8ce..c29bc7e 100644
--- a/PROYECTO/ipdir/ipprrp054.4gl
+++ b/PROYECTO/ipdir/ipprrp054.4gl
@@ -34,6 +34,7 @@ FUNCTION ipprrp054()
OPEN FORM ipfmrp054 FROM "ipfmrp054"
DISPLAY FORM ipfmrp054
+ CALL ui.Window.getCurrent().setText("Conduces con y sin Archivo")
INPUT BY NAME fecha1,fecha2
BEFORE INPUT
AFTER INPUT
@@ -50,27 +51,34 @@ FUNCTION ipprrp054()
LET r_filename = "ipprrp054.4rp"
- CALL seleccionarsalida() RETURNING r_output
- iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
-
-
- LET preview=1
- CALL fgl_report_selectDevice(r_output) -- changing default
- CALL fgl_report_selectPreview(preview) -- changing default
-
- LET handler = fgl_report_commitCurrentSettings() -- commit changes
- ELSE
- EXIT PROGRAM
- END IF
- START REPORT prt_co TO XML HANDLER HANDLER
- PREPARE comando FROM selec
- DECLARE busca CURSOR FOR comando
- OPEN busca USING fecha1,fecha2
+ PREPARE comando FROM selec
+ DECLARE busca CURSOR FOR comando
+ OPEN busca USING fecha1,fecha2
+ LET idx = 0
+
+ FOREACH busca INTO co.*
+ IF idx = 0 THEN
+ CALL selectOutputSimple() RETURNING r_output
+ IF fgl_report_loadCurrentSettings(r_filename) THEN
+ LET preview = 1
+ CALL fgl_report_selectDevice(r_output)
+ CALL fgl_report_selectPreview(preview)
+ LET handler = fgl_report_commitCurrentSettings()
+ ELSE
+ EXIT PROGRAM
+ END IF
+ START REPORT prt_co TO XML HANDLER HANDLER
+ LET idx = 1
+ END IF
+ OUTPUT TO REPORT prt_co(co.*)
+ END FOREACH
+
+ IF idx = 1 THEN
+ FINISH REPORT prt_co
+ ELSE
+ CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS", "INFO")
+ END IF
- FOREACH busca INTO co.*
- OUTPUT TO REPORT prt_co(co.*)
- END FOREACH
- FINISH REPORT prt_co
END INPUT
END FUNCTION
diff --git a/PROYECTO/ipdir/ipprrp054.4rp b/PROYECTO/ipdir/ipprrp054.4rp
new file mode 100644
index 0000000..ef90162
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp054.4rp
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 71bad44..0994025 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -796,9 +796,10 @@
-
+
+