diff --git a/PROYECTO/lqdir/lqprrp009.4gl b/PROYECTO/lqdir/lqprrp009.4gl
index e627d00..4a36c4a 100644
--- a/PROYECTO/lqdir/lqprrp009.4gl
+++ b/PROYECTO/lqdir/lqprrp009.4gl
@@ -14,6 +14,7 @@ GLOBALS
"lqprgb000.4gl"
###### Variables para busqueda de rango de fecha
DEFINE elije,imp,afecta CHAR(1)
+DEFINE hay_filas SMALLINT
DEFINE m_mes,mes SMALLINT
DEFINE chequea_ent,p_ano CHAR(4)
DEFINE detalla CHAR(30)
@@ -144,16 +145,7 @@ CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
LET r_filename = 'lqprrp009.4rp'
LET preview = 1
- IF fgl_report_loadCurrentSettings(r_filename) THEN
-
- CALL seleccionarsalida() RETURNING r_output -- load the .4rp file
- CALL fgl_report_selectDevice(r_output) -- changing default
- CALL fgl_report_selectPreview(preview) -- changing default
- LET handler = fgl_report_commitCurrentSettings() -- commit changes
- END IF
-
- IF HANDLER IS NOT NULL THEN
- START REPORT liquida7 TO XML HANDLER HANDLER
+ LET hay_filas = FALSE
@@ -180,6 +172,19 @@ CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
d.status_t is null ORDER BY c.num_oc,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
FOREACH busca INTO busca_datos.*
+ IF NOT hay_filas THEN
+ IF fgl_report_loadCurrentSettings(r_filename) THEN
+ CALL seleccionarsalida() RETURNING r_output
+ CALL fgl_report_selectDevice(r_output)
+ CALL fgl_report_selectPreview(preview)
+ LET handler = fgl_report_commitCurrentSettings()
+ END IF
+ IF handler IS NULL THEN
+ EXIT FOREACH
+ END IF
+ START REPORT liquida7 TO XML HANDLER HANDLER
+ LET hay_filas = TRUE
+ END IF
LET orden = busca_datos.num_oc USING "<<<<<<"
IF elije != "L" THEN
{# Busca el monto pagado al colector
@@ -240,9 +245,11 @@ CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
OUTPUT TO REPORT liquida7(busca_datos.*)
END FOREACH
+ IF hay_filas THEN
FINISH REPORT liquida7
-
- END IF
+ ELSE
+ CALL fgl_winmessage("INFO","NO EXISTEN REGISTROS PARA ESTOS PARAMETROS","INFO")
+ END IF
#IF imp = "S" THEN
# RUN imprime
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 5b82402..ff33f6c 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -686,10 +686,16 @@
+
+
+
+
+
+
@@ -718,6 +724,12 @@
+
+
+
+
+
+