lsoto

2026-10-19 10:11:40 -04:00
parent e0722b2e2a
commit a67f97271a
79 changed files with 19279 additions and 0 deletions
@@ -0,0 +1,42 @@
+{
+    FUNCION      : msgmodal
+    OBJETIVO     : Mostrar un mensaje de msgtable en una ventana MODAL.
+                   Complementa a msg(), que lo despliega en la linea de ERROR.
+    DESARROLLADO : Equipo Tecnologia (Juan Soto)
+    FECHA        : 21 Septiembre 2026
+
+    CUANDO USAR CUAL
+    ----------------
+    msg(n)     -> Errores de VALIDACION durante la captura. El usuario esta
+                  parado en el campo, lee el aviso en la linea de ERROR,
+                  corrige y sigue. No interrumpe el flujo.
+
+    msgmodal(n)  -> Hechos que el usuario NO PUEDE pasar por alto, tipicamente
+                  cuando se ABORTO la transaccion y el documento NO se guardo.
+                  Si eso solo parpadeara en la linea de ERROR mientras la
+                  pantalla se limpia, el usuario se iria creyendo que guardo.
+
+    El texto vive en msgtable igual que el de msg(), de modo que se puede
+    corregir sin recompilar los programas.
+}
+
+FUNCTION msgmodal(numero_msg)
+    DEFINE
+        numero_msg SMALLINT,
+        descripcion CHAR(120)
+
+    LET descripcion = NULL
+
+    SELECT desc_msg
+        INTO descripcion
+        FROM msgtable
+        WHERE cod_msg = numero_msg
+
+    IF status = NOTFOUND OR descripcion IS NULL THEN
+        LET descripcion = "MENSAJE NO DEFINIDO EN MSGTABLE: ",
+            numero_msg USING "<<<<"
+    END IF
+
+    CALL fgl_winmessage("AVISO", descripcion CLIPPED, "stop")
+
+END FUNCTION