diff --git a/PROYECTO/bin/ipprrp009.4rp b/PROYECTO/bin/ipprrp009.4rp
new file mode 100644
index 0000000..7afa7af
--- /dev/null
+++ b/PROYECTO/bin/ipprrp009.4rp
@@ -0,0 +1,107 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp009.4gl b/PROYECTO/ipdir/ipprrp009.4gl
index ae80cb3..81048c6 100644
--- a/PROYECTO/ipdir/ipprrp009.4gl
+++ b/PROYECTO/ipdir/ipprrp009.4gl
@@ -414,9 +414,8 @@ END IF
START REPORT existencia TO archivo
- END IF
+ END IF
- DISPLAY select_act
PREPARE busca_act FROM select_act
DECLARE busca_balan_act CURSOR FOR busca_act
OPEN busca_balan_act #USING datos_cons.fech_in,datos_cons.fech_fi,datos_cons.fech_fi,ano_ant,
@@ -769,7 +768,6 @@ REPORT existencia_grafica(x)
LET descripcion = x.descrip_esp CLIPPED
# IF x.total_c <> 0 THEN
- DISPLAY "imprime"
LET tt = tt + 1
LET producto = x.cod_n USING "&&&&","-",x.cod_grupo USING "&&&&","-",
x.cod_tipo USING "&&&&","-",x.cod_sec USING "&&&&&&"
diff --git a/PROYECTO/ipdir/ipprrp009.4rp b/PROYECTO/ipdir/ipprrp009.4rp
new file mode 100644
index 0000000..7afa7af
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp009.4rp
@@ -0,0 +1,107 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 16d9a37..1bbb371 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -723,9 +723,10 @@
-
+
+