diff --git a/PROYECTO/bin/ipprrp002.4rp b/PROYECTO/bin/ipprrp002.4rp
new file mode 100644
index 0000000..8bc0baa
--- /dev/null
+++ b/PROYECTO/bin/ipprrp002.4rp
@@ -0,0 +1,130 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp002_1.4rp b/PROYECTO/bin/ipprrp002_1.4rp
new file mode 100644
index 0000000..4d4c867
--- /dev/null
+++ b/PROYECTO/bin/ipprrp002_1.4rp
@@ -0,0 +1,105 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp002_2.4rp b/PROYECTO/bin/ipprrp002_2.4rp
new file mode 100644
index 0000000..ca3a65c
--- /dev/null
+++ b/PROYECTO/bin/ipprrp002_2.4rp
@@ -0,0 +1,111 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/bin/ipprrp052.4rp b/PROYECTO/bin/ipprrp052.4rp
new file mode 100644
index 0000000..b2c761c
--- /dev/null
+++ b/PROYECTO/bin/ipprrp052.4rp
@@ -0,0 +1,114 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp002.4gl b/PROYECTO/ipdir/ipprrp002.4gl
index a8682e6..7fa9946 100644
--- a/PROYECTO/ipdir/ipprrp002.4gl
+++ b/PROYECTO/ipdir/ipprrp002.4gl
@@ -12,7 +12,8 @@ GLOBALS "ipprgb000.4gl"
DEFINE tipo_info VARCHAR(30),
formato VARCHAR(3),
- cuenta,cod_lista SMALLINT,
+ cuenta INTEGER,
+ cod_lista SMALLINT,
selec_cta STRING
MAIN
DEFER INTERRUPT
@@ -54,28 +55,27 @@ FUNCTION ipprrp002()
DISPLAY "ipprrp002" AT 4,3
DISPLAY "Catalogo Productos " AT 6,33
+ WHILE TRUE
+ LET progreso = 0
+ DISPLAY progreso TO progreso
INPUT BY NAME decide,tipo_info,formato,cod_lista
-
+
AFTER INPUT
IF int_flag THEN
- LET numero_msg = 2
- CALL msg(numero_msg)
LET int_flag = FALSE
- RETURN
+ EXIT WHILE
END IF
-
-
+
+
END INPUT
LET nombre_ant = "E"
CONSTRUCT criterio ON a.cod_cia,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
FROM cod_cia,cod_n,cod_grupo,cod_tipo,cod_sec
IF int_flag THEN
- LET numero_msg = 2
- CALL msg(numero_msg)
LET int_flag = FALSE
- RETURN
+ EXIT WHILE
END IF
IF decide = "A" THEN
@@ -119,10 +119,8 @@ ELSE
END IF
IF int_flag THEN
- LET numero_msg = 2
- CALL msg(numero_msg)
LET int_flag = FALSE
- RETURN
+ EXIT WHILE
END IF
@@ -145,7 +143,7 @@ END IF
EXIT PROGRAM
END IF
- #LET handler= fgl_report_createProcessLevelDataFile("datos.xml")
+ #LET handler= fgl_report_createProcessLevelDataFile("datos.xml")
--run the report
IF handler IS NOT NULL THEN -- report engine was configured ok
@@ -197,8 +195,8 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
ELSE
FINISH REPORT catalogo
END IF
-END IF
-
+END IF
+ END WHILE
END FUNCTION
REPORT catalogo(x)
diff --git a/PROYECTO/ipdir/ipprrp002.4rp b/PROYECTO/ipdir/ipprrp002.4rp
new file mode 100644
index 0000000..8bc0baa
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp002.4rp
@@ -0,0 +1,130 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp002_1.4rp b/PROYECTO/ipdir/ipprrp002_1.4rp
new file mode 100644
index 0000000..4d4c867
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp002_1.4rp
@@ -0,0 +1,105 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp002_2.4rp b/PROYECTO/ipdir/ipprrp002_2.4rp
new file mode 100644
index 0000000..ca3a65c
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp002_2.4rp
@@ -0,0 +1,111 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/ipdir/ipprrp052.4rp b/PROYECTO/ipdir/ipprrp052.4rp
new file mode 100644
index 0000000..b2c761c
--- /dev/null
+++ b/PROYECTO/ipdir/ipprrp052.4rp
@@ -0,0 +1,114 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 441f65f..06451de 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -640,14 +640,17 @@
+
+
+