{
----------------------------------------------------------------
 PROGRAMA          : CGMNRP002
 OBJETIVO          : Menu de Reportes del Sistema de Cheques
 PROGRAMADOR       : Tadeo A. Ferreras F.
 FECHA REALIZACION : Marzo 25, 1993.      
----------------------------------------------------------------
}

GLOBALS "cgprgb000.4gl"

FUNCTION cgmnrp002()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
   DEFINE opc2 CHAR(1)
OPTIONS 
    PROMPT LINE 8, 
    MESSAGE LINE 24 
    CLEAR SCREEN 
    CALL pantalla()

    DISPLAY "cgmnrp002"                            AT 4,3 ATTRIBUTE(blue)
    DISPLAY "Reportes" AT 6,36
    DISPLAY "cgmnrp002"                            AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Relacion Cheques en Transito cgprrp017" AT 11,1 
    DISPLAY "2- Relacion Cheques Cancelados  cgprrp018" AT 12,1 
    DISPLAY "3- Relacion Cheques Nulos       cgprrp019" AT 13,1 
    DISPLAY "4- Relacion Cheques No Emitidos cgprrp020" AT 14,1
    DISPLAY "5- Validacion Cheques  Emitidos cgprrp023" AT 15,1
    DISPLAY "S- Retorna Menu Anterior         " AT 21,18  
                ATTRIBUTE (BOLD)
#   DISPLAY "11- Presupuestos             cgmnrp300" AT 10,42

    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,"cgmnrp002") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN opcion = "1"
            CALL  cgprrp017()
            CALL  cgmnrp002()
       WHEN opcion = "2"
            CALL  cgprrp018()
            CALL  cgmnrp002()
       WHEN opcion = "3"
            CALL  cgprrp019()
            CALL  cgmnrp002()
       WHEN opcion = "4"
            CALL  cgprrp020()
            CALL  cgmnrp002()
       WHEN opcion = "5"
            CALL  cgprrp023()
            CALL  cgmnrp002()
       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL cgmnrp002()
    END CASE

END FUNCTION

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