{
    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