jsotoandClaude Opus 5.5
d8764b3bda
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>
43 lines
1.4 KiB
Plaintext
43 lines
1.4 KiB
Plaintext
{
|
|
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
|