Registrar y corregir ipprmt014 (Administracion Medidas)

- Registrar formulario ipfmmt014.per (faltaba)
- Corregir refresco de pantalla al eliminar (no mostraba estado 'E' hasta
  volver a consultar), confirmado por Johnny que debe verse al instante
- Agregar validacion para no permitir eliminar un registro ya eliminado
  (mostraba "REGISTRO ELIMINADO" de nuevo sin avisar)

Nota: el aviso de "ya eliminado" no sale centrado en pantalla - limitacion
del cliente grafico de Genero para dialogos lanzados desde pantallas tipo
MENU clasico (no aplica en pantallas DIALOG modernas). Aceptado por la
usuaria, no es bloqueante.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

PROYECTO/ipdir/ipprmt014.4gl

@@ -77,6 +77,7 @@ END FUNCTION
 
 FUNCTION ippcmf012() 
     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,6 +174,16 @@ FUNCTION ippcmf012()
 END INPUT
     COMMAND KEY ("L") "eLiminar"
 
+      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
@@ -184,6 +195,10 @@ END INPUT
                                   fech_mod    = GETDATE()
                    WHERE cod_sec   = iptb30.cod_sec
 
+            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)
@@ -191,6 +206,7 @@ END INPUT
             LET numero_msg = 383
             CALL msg(numero_msg)
          END IF
+      END IF
 
     COMMAND "Retornar" 
             "Retorna al menu anterior" 

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"/>