diff --git a/PROYECTO/ipdir/ipprmt014.4gl b/PROYECTO/ipdir/ipprmt014.4gl
index aa3d532..a48be82 100644
--- a/PROYECTO/ipdir/ipprmt014.4gl
+++ b/PROYECTO/ipdir/ipprmt014.4gl
@@ -76,7 +76,8 @@ FUNCTION ippcad012()
 END FUNCTION 
 
 FUNCTION ippcmf012() 
-    DEFINE encontrados INTEGER 
+    DEFINE encontrados INTEGER
+    DEFINE respuestaAviso STRING
 ## Aqui se prepara para la captura del criterio de seleccion
 #WHENEVER ERROR CONTINUE
     CONSTRUCT BY NAME criterio  ON iptb00030.*
@@ -173,24 +174,39 @@ FUNCTION ippcmf012()
 END INPUT
     COMMAND KEY ("L") "eLiminar"
 
-      LET encontrados = 0
-      SELECT count(*) INTO encontrados
-      FROM   iptb00002
-      WHERE  cod_sec = iptb30.cod_sec AND status_t IS NULL
+      IF iptb30.status_t = "E" THEN
+         CALL fgl_winquestion(
+             "Aviso",
+             "Este registro ya fue eliminado anteriormente.",
+             "OK",
+             "OK",
+             "INFORMATION",
+             0)
+             RETURNING respuestaAviso
+      ELSE
+         LET encontrados = 0
+         SELECT count(*) INTO encontrados
+         FROM   iptb00002
+         WHERE  cod_sec = iptb30.cod_sec AND status_t IS NULL
 
-      IF encontrados = 0 THEN 
-         UPDATE iptb00030 SET status_t = "E",
-                              us_mod      = SUSER_SNAME(), 
-                               fech_mod    = GETDATE() 
-                WHERE cod_sec   = iptb30.cod_sec
+         IF encontrados = 0 THEN
+            UPDATE iptb00030 SET status_t = "E",
+                                 us_mod      = SUSER_SNAME(),
+                                  fech_mod    = GETDATE()
+                   WHERE cod_sec   = iptb30.cod_sec
 
-         
-         LET numero_msg = 39
-         CALL msg(numero_msg)
-      ELSE   
-         LET numero_msg = 383 
-         CALL msg(numero_msg)
-      END IF 
+            LET iptb30.status_t = "E"
+            LET iptb30.us_mod = usuarios
+            LET iptb30.fech_mod = CURRENT
+            DISPLAY BY NAME iptb30.*
+
+            LET numero_msg = 39
+            CALL msg(numero_msg)
+         ELSE
+            LET numero_msg = 383
+            CALL msg(numero_msg)
+         END IF
+      END IF
 
     COMMAND "Retornar" 
             "Retorna al menu anterior" 
diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw
index 1bf94a0..052441b 100644
--- a/PROYECTO/mbsERP.4pw
+++ b/PROYECTO/mbsERP.4pw
@@ -512,6 +512,7 @@
         <File filePath="ipdir/ipfmmt019.4fd"/>
         <File filePath="ipdir/ipfmmt012.per"/>
         <File filePath="ipdir/ipfmmt010.per"/>
+        <File filePath="ipdir/ipfmmt014.per"/>
       </Library>
       <Library binaryName="FUNCIONES_IP" dependencies="-1026233879" id="1763548104" label="FUNCIONES_IP">
         <File filePath="ipdir/ipprgb000.4gl"/>