JSOTO Alta y compilacion G6 de programas CG, Cheques, Activos, Tesoreria, Repuestos e Informatica

Merge de main (ipprrp013/014/046/053) con conflictos resueltos:
- mbsERP.4pw: ipprrp014 conserva ambos 4rp y su 4fd.
- bin/ipprrp014.4rp: columnas MARGEN/CLASIF. + titulo IPPRRP014.

Programas agregados a mbsERP.4pw (53 compilan y enlazan con fgl602):
- CONTABILIDAD GENERAL, ACTIVOS FIJOS, REPUESTOS; grupos nuevos TESORERIA,
  CHEQUES e INFORMATICA (segprmt001 = seguridad2.0/segprmt0001.4gl).
- irdir copiado de 3.20 PROYECTOS/irdir a PROYECTO/irdir; helpers de
  PROYECTOS/otrodir en FUNCIONES_IR (departamento -> irdepartamento.4gl).
- Fuentes mas nuevos de 3.20: edprrp118, edprrp080, acprrp010, cgprmt022.
- FUNCIONES: GeneraEntradaDiario.4gl a la version 3.20 + costoLiquidacion.4gl.
- Ajustes G6: existe duplicado en irprgb000, fakeData de 22 campos y
  answer2 en irprmt036/020 (ApiMaintainC), selectOutputSimple en irprcs008,
  schemas de forms a smarmotech, referencia declarada en cgprmt005.
- cgprmt005 sigue sin enlazar: requiere funciones de EXTERIOR.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>

PROYECTO/otrodir/msgModal.4gl

@@ -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