diff --git a/PROYECTO/bin/ipprrp013.4rp b/PROYECTO/bin/ipprrp013.4rp
new file mode 100644
index 0000000..3784afc
--- /dev/null
+++ b/PROYECTO/bin/ipprrp013.4rp
@@ -0,0 +1,83 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp013.4gl b/PROYECTO/ipdir/ipprrp013.4gl
index f193a07..9bc72e3 100644
--- a/PROYECTO/ipdir/ipprrp013.4gl
+++ b/PROYECTO/ipdir/ipprrp013.4gl
@@ -629,7 +629,7 @@ REPORT estadistica(x,dias2,c_dias)
FORMAT
FIRST PAGE HEADER
LET hora = time
- LET fecha = today
+ LET fecha = today
LET total_registros = 0
LET tcantidad = 0
LET fecha_v = NULL
@@ -653,14 +653,14 @@ REPORT estadistica(x,dias2,c_dias)
# BUSCA ULTIMA FECHA DE COMPRA Y VENTA DEL PRODUCTO
LET fecha_v = NULL
- SELECT convert(char(10),MAX(a.fecha_factura),103) INTO fecha_v
+ SELECT MAX(a.fecha_factura) INTO fecha_v
FROM vetb00003 d,vetb00002 a
WHERE d.factura = a.factura AND
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
d.cod_tipo = x.cod_tipo AND d.cod_sec = x.cod_sec AND
a.status_t is NULL
LET fecha_oc = NULL
- SELECT ISNULL(convert(char(10),MAX(a.fech_oc),103)," ") INTO fecha_oc
+ SELECT MAX(a.fech_oc) INTO fecha_oc
FROM cotb00015 d,cotb00014 a
WHERE d.num_oc = a.num_oc AND
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
diff --git a/PROYECTO/ipdir/ipprrp013.4rp b/PROYECTO/ipdir/ipprrp013.4rp
index cf4e3e4..3784afc 100644
--- a/PROYECTO/ipdir/ipprrp013.4rp
+++ b/PROYECTO/ipdir/ipprrp013.4rp
@@ -1,5 +1,5 @@
-
+
@@ -8,22 +8,26 @@
+
-
-
+
+
-
+
+
-
-
+
+
+
+
@@ -43,35 +47,33 @@
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+