diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 06259f9..9bf96a6 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -481,6 +481,7 @@
+
@@ -527,6 +528,10 @@
+
+
+
+
diff --git a/PROYECTO/nodir/noprmt024.4gl b/PROYECTO/nodir/noprmt024.4gl
index a707bec..992c6af 100644
--- a/PROYECTO/nodir/noprmt024.4gl
+++ b/PROYECTO/nodir/noprmt024.4gl
@@ -160,7 +160,18 @@ FUNCTION adpcad023()
LET numero_msg = 1
CALL msg(numero_msg)
- NEXT FIELD nom_puesto
+ CLEAR FORM
+ LET puesto.nom_puesto = NULL
+ LET puesto.otra_descripcion = NULL
+ LET puesto.funciones = NULL
+ LET puesto.funcion1 = NULL
+ LET puesto.nivel_sal = NULL
+ LET puesto.salario_min = NULL
+ LET puesto.salario_max = NULL
+ LET puesto.tipo_puesto = NULL
+ LET puesto.supervisor = NULL
+ LET puesto.cod_puesto_sirla = NULL
+ NEXT FIELD nom_puesto