lsoto prueba de programas

PROYECTO/ccdir/CCPRRP053.4gl

@@ -99,7 +99,8 @@ FUNCTION VariacionPrecios()
                 LET estados.cond_pago = ''
                 LET estados.estilo = 0
                 
-                DELETE FROM tmpcxccompara
+            # tmpcxccompara no existe en el .250 y nadie la lee (el reporte sale de memoria)
+#               DELETE FROM tmpcxccompara
                 
              FOREACH variaciones INTO balancesCE.*
                             
@@ -176,8 +177,8 @@ FUNCTION VariacionPrecios()
                       
                     END IF 
 
-                    INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2)
-                    VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente,  balancesCE.valor,balancesCE.valor2)
+#                   INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2)
+#                   VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente,  balancesCE.valor,balancesCE.valor2)
                     
                     OUTPUT TO REPORT balancesCE_prod_rpt(balancesCE.*, datos.fecha_final,estados.*)
                 END IF 

PROYECTO/ccdir/ccprmt010.4gl

@@ -386,7 +386,8 @@ FUNCTION imprime_req(xnumreq)
                   c.id_kit,x3.observacion,d.celular1,d.contacto
   ORDER BY  b.num_req,  c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
   
-  LET r_output="SVG"
+  # antes fijo SVG (en web no se ve): se deja elegir PDF/Excel/pantalla
+  CALL seleccionarSalida() RETURNING r_output
   LET r_filename = "ccprmt010.4rp"
   LET preview = 1
 

PROYECTO/ccdir/ccprrp027.4gl

@@ -64,7 +64,8 @@ FUNCTION ccprrp027()
 
     LET tipo_papel = 1
     CALL msgrp000(tipo_papel)
-  DELETE FROM tmpccprrp027
+# tmpccprrp027 ya no se usa (el INSERT esta comentado) y no existe en el .250
+#  DELETE FROM tmpccprrp027
   
   LET pflag = "N"
  # LET tiposaldo='TODOS'

PROYECTO/ccdir/ccprrp034.4gl

@@ -180,7 +180,8 @@ OPEN c_vende USING fecha_inicial,fecha_final
    FINISH REPORT reporte34
    LET puede = NULL
 
-       DISPLAY BY NAME valor_total
+#      el formulario ccfmrp034 no tiene campo valor_total (error -1102); el total sale en el reporte
+#      DISPLAY BY NAME valor_total
        {
        LET opt = fgl_winquestion("Atencion","Desea Imprimir Reporte?",
                              "yes","yes|no","question",0)