{
-------------------------------------------------------------------
 PROGRAMA          : CGMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Contabilidad
 PROGRAMADOR       : Ing. Betania Guerrero Perez
 FECHA REALIZACION : Octubre 05, 1993  
-------------------------------------------------------------------
}

GLOBALS "cgprgb000.4gl"
DEFINE opc2 CHAR(1)
MAIN
DEFER INTERRUPT
CALL cgmnrp000()
END MAIN

FUNCTION cgmnrp000()

   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
OPTIONS 
    PROMPT LINE 8, 
    HELP FILE "cgpray000.exe",
    HELP KEY CONTROL-W,
    MESSAGE LINE 24 
    CLEAR SCREEN 
    CALL pantalla()

    DISPLAY "                                " AT 6,20
    DISPLAY " Reportes" AT 6,35
    DISPLAY "cgmnrp000"                           AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1- Catalogo de Cuentas      cgprrp001" AT 10,1
    DISPLAY " 2- Transacciones            cgprrp003" AT 11,1
    DISPLAY " 3- Mayor General Detallado  cgprrp004" AT 12,1
    DISPLAY " 4- Diario General           cgprrp005" AT 13,1
    DISPLAY " 5- Entradas de Diario       cgmnrp001" AT 14,1
    DISPLAY " 6- Mayor General Analitico  cgprrp008" AT 15,1
    DISPLAY " 7- Anal. de Gastos X Dpto.  cgprrp009" AT 16,1
    DISPLAY " 8- Chequeo Cuadre Transac.  cgprrp024" AT 17,1
    DISPLAY " 9- Mayor Detallado Por Ref. cgprrp014" AT 10,42
    DISPLAY "10- Mayor General            cgprrp015" AT 11,42
    DISPLAY "11- Entradas Registradas     cgprrp022" AT 12,42
    DISPLAY "12- Presupuesto Comparat.    cgprrp031" AT 13,42
    DISPLAY "13- Catalogo Estado A        cgprrp012" AT 14,42
    DISPLAY "14- Catalogo Estado M        cgprrp013" AT 15,42
    DISPLAY "S- Retorna Menu Anterior         " AT 23,18  
                ATTRIBUTE (BOLD)

    LET opcion = NULL 
    LABEL vuelve:
    PROMPT " OPCION: " FOR opcion HELP 2 
    LET opcion = upshift(opcion)

       IF opcion != "S" THEN
           SELECT unique @usuario INTO p_user FROM seg0001
           WHERE @usuario = user
           CALL seg000(p_user,opcion,"cgmnrp000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN opcion = "1"
            CALL  cgprrp001()
            CALL  cgmnrp000()
       WHEN opcion = "2"
            CALL  cgprrp003()
            CALL  cgmnrp000()
       WHEN opcion = "3"
            CALL  cgprrp004()
            CALL  cgmnrp000()
       WHEN opcion = "4"
            CALL  cgprrp005()
            CALL  cgmnrp000()
       WHEN opcion = "5"
            RUN "fglrun %FGLPROG%\\cgmnrp001"
            CALL  cgmnrp000()
       WHEN opcion = "6"
            CALL  cgprrp008()
            CALL  cgmnrp000()
       WHEN opcion = "7"
            CALL  cgprrp009()
            CALL  cgmnrp000()
       WHEN opcion = "8"
            CALL  cgprrp024()
            CALL  cgmnrp000()
       WHEN opcion = "9"
            CALL  cgprrp014()
            CALL  cgmnrp000()
       WHEN opcion = "10"
            CALL  cgprrp015()
            CALL  cgmnrp000()
       WHEN opcion = "11"
            CALL  cgprrp022()
            CALL  cgmnrp000()
       WHEN opcion = "12"
            CALL cgprrp031()
            CALL  cgmnrp000()
       WHEN opcion = "13"
            CALL cgprrp012()
            CALL  cgmnrp000()
       WHEN opcion = "14"
            CALL cgprrp013()
            CALL  cgmnrp000()
       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL cgmnrp000()
    END CASE

END FUNCTION

# Desplega pantalla con logo de la compania
FUNCTION pantalla() 
    DEFINE fecha CHAR(8),
           hora char(5) ,
           l SMALLINT
    SELECT * INTO p_compania.*
    FROM companias
    
    LET l = (80 - LENGTH(p_compania.nombre CLIPPED))/2
    LET fecha = today USING "dd/mm/yy"  
    LET hora = time
    DISPLAY p_compania.nombre CLIPPED  AT 4,l
            ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema de Contabilidad General" AT 5,24
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
    #CALL fgl_drawbox(1,79,22,1)
END FUNCTION
# Funcion que chequea los errores 
FUNCTION integridad()
         IF sqlca.sqlcode <  0 THEN
            LET numero_msg = sqlca.sqlcode
            CALL msg(numero_msg)
            DISPLAY numero_msg AT 23,70
            LET bandera = 1    
            LET status = 0
            SLEEP 2
            RETURN
        END IF
   RETURN
END FUNCTION