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