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

@@ -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
+      IF iptb30.status_t = "E" THEN
-      SELECT count(*) INTO encontrados
+         CALL fgl_winquestion(
-      FROM   iptb00002
+             "Aviso",
-      WHERE  cod_sec = iptb30.cod_sec AND status_t IS NULL
+             "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 
+         IF encontrados = 0 THEN
-         UPDATE iptb00030 SET status_t = "E",
+            UPDATE iptb00030 SET status_t = "E",
-                              us_mod      = SUSER_SNAME(), 
+                                 us_mod      = SUSER_SNAME(),
-                               fech_mod    = GETDATE() 
+                                  fech_mod    = GETDATE()
-                WHERE cod_sec   = iptb30.cod_sec
+                   WHERE cod_sec   = iptb30.cod_sec
 
-         
+            LET iptb30.status_t = "E"
-         LET numero_msg = 39
+            LET iptb30.us_mod = usuarios
-         CALL msg(numero_msg)
+            LET iptb30.fech_mod = CURRENT
-      ELSE   
+            DISPLAY BY NAME iptb30.*
-         LET numero_msg = 383 
+
-         CALL msg(numero_msg)
+            LET numero_msg = 39
-      END IF 
+            CALL msg(numero_msg)
+         ELSE
+            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"/>