modificaciones facturacion electronica

PROYECTO/vedir/veprrp044.4gl

@@ -78,14 +78,21 @@ FUNCTION veprrp044()
 
 # Busca las ventas reales del ano actual hasta el mes indicado anteriormente 
 
+# Columnas explicitas: la tabla real vetb00004 tiene columnas extra al final (id_crm)
+# que no estan en el .sch; con a.* la direccion caia en id_crm y salia vacia.
+# LEFT JOIN para que salgan tambien los clientes sin registro en vetb00005.
+    LET selec_v =
+       "SELECT a.tipo_cliente,a.sec_cliente,a.nombre,a.cod_zona,a.cod_provincia,",
+       "a.telefono,a.fax,a.telex,a.patente,a.limite_credito,a.zona_postal,a.num_rnc,",
+       "a.nombre_patente,a.status_t,a.us_crea,a.fech_crea,a.us_mod,a.fech_mod,",
+       "a.puesto_laboral,a.telefono_casa,a.tipo_negocio,a.cond_pago,a.id_ciudad,a.url,",
+       "b.calle FROM vetb00004 a LEFT OUTER JOIN vetb00005 b ",
+       "ON a.tipo_cliente=b.tipo_cliente AND a.sec_cliente=b.sec_cliente ",
+       "WHERE a.status_t IS NULL AND ", criterio CLIPPED
     IF ordenado != "A" THEN
-       LET selec_v =
-       "SELECT a.*,b.calle FROM vetb00004 a,vetb00005 b WHERE a.tipo_cliente=b.tipo_cliente and a.sec_cliente=b.sec_cliente and a.status_t IS NULL AND ",
-       criterio CLIPPED," ORDER BY a.tipo_cliente"
+       LET selec_v = selec_v CLIPPED," ORDER BY a.tipo_cliente"
     ELSE
-       LET selec_v =
-       "SELECT a.*,b.calle FROM vetb00004 a,vetb00005 b WHERE a.tipo_cliente=b.tipo_cliente and a.sec_cliente=b.sec_cliente and a.status_t IS NULL AND ",
-       criterio CLIPPED," ORDER BY a.tipo_cliente,a.nombre"
+       LET selec_v = selec_v CLIPPED," ORDER BY a.tipo_cliente,a.nombre"
     END IF
 
    DISPLAY "                                                     " AT 19,14
@@ -104,8 +111,7 @@ FUNCTION veprrp044()
 
          CALL fgl_report_selectDevice(r_output)                          -- changing default
          CALL fgl_report_selectPreview(preview)                          -- changing default
-       
-         
+    CALL fgl_report_configurexlsxdevice(null,null,null,false,false,null,1)
          
          LET handler = fgl_report_commitCurrentSettings()    -- commit changes
    END IF
@@ -117,7 +123,6 @@ FUNCTION veprrp044()
             AT 19,14 ATTRIBUTE (REVERSE) 
 
     FOREACH movi_vr INTO p_vetb04.*,direccion1
-DISPLAY direccion1
          IF int_flag THEN
             LET numero_msg = 2
             CALL msg(numero_msg)