lsoto prueba de programas

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)
@@ -81,6 +82,7 @@ END MAIN
      
    OPEN FORM lqfmrp009 FROM "lqfmrp009"
    DISPLAY FORM lqfmrp009
+CALL ui.Window.getCurrent().setText("Liquidacion Repuestos")
    DISPLAY "lqprrp009" AT 4,3 
    DISPLAY "Liquidacion Partes y Repuestos" AT 6,24 
 
@@ -101,7 +103,7 @@ END MAIN
        CALL msg(numero_msg)
        NEXT FIELD m_mes
     END IF
-    SELECT Convert(varchar(10),a.fecha_inicio,103),Convert(varchar(10),a.fecha_corte,103) INTO fecha_inicial,fecha_final
+    SELECT a.fecha_inicio,a.fecha_corte INTO fecha_inicial,fecha_final
     FROM prdtable a WHERE a.mes = m_mes and a.ano = p_ano
     
     DISPLAY BY NAME fecha_inicial,fecha_final ATTRIBUTE(BOLD)
@@ -143,16 +145,7 @@ END MAIN
           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
 
 
 
@@ -179,6 +172,19 @@ END MAIN
        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
@@ -239,9 +245,11 @@ END MAIN
      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
@@ -730,7 +738,7 @@ FUNCTION entrada0271()
             LET entra1 = entra
 
   BEFORE FIELD fecha1
-           SELECT MAX (Convert(varchar(10),(a.fecha),103)) INTO p_fecha FROM cgtb00004 a
+           SELECT Convert(varchar(10),MAX(a.fecha),103) INTO p_fecha FROM cgtb00004 a
            WHERE a.ref[1,5] = entra1 AND a.status_t IS NULL
            LET fecha1 = p_fecha + 1