{
----------------------------------------------------------------
 PROGRAMA          : CCMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Cuentas por Cobrar 
 PROGRAMADOR       : Lic. Abner Montalvo Zapata 
 FECHA REALIZACION : Marzo 25, 1993.      
----------------------------------------------------------------
}

GLOBALS "ccprgb000.4gl"

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

    DISPLAY "Reportes" AT 6,36
    DISPLAY "ccmnrp000"                            AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1-Clientes sin Ventas          ccprrp001" AT  9,1
    DISPLAY " 2-Saldos por Antiguedad        ccprrp003" AT 10,1
    DISPLAY " 3-Documentos                   ccprrp005" AT 11,1
    DISPLAY " 4-Mayor Auxiliar               ccprrp006" AT 12,1
    DISPLAY " 5-Registro de Ventas (ITBIS)   ccprrp007" AT 13,1
    DISPLAY " 6-Analisis Saldos Pendientes   ccprrp009" AT 14,1
    DISPLAY " 7-Estado de Cuentas            ccprrp014" AT 15,1
    DISPLAY " 8-Partida Pend. cobro/Vend     ccprrp016" AT 16,1

    DISPLAY " 9-Estado Ctas. Pend. Cobro ccprrp018"   AT 9,43
    DISPLAY "10-Documentos Por Vendedor  ccprrp034"   AT 10,43
    DISPLAY "11-Comisiones               ccprrp043"   AT 11,43
    DISPLAY "12-Balances de Avances Pend ccprrp025"   AT 12,43
    DISPLAY "13-Reportes de Ventas       ccmnrp001"   AT 13,43
    DISPLAY "14-Analisis Saldo Por Vend. ccprrp027"   AT 14,43
    #DISPLAY "15-Resumen Comisiones       ccprrp044"   AT 11,43
    DISPLAY "S- Retorna Menu Anterior         " AT 19,31 
                ATTRIBUTE (BOLD)

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

    CASE     
       WHEN opcion = "1"
            CALL ccprrp001()
            CALL ccmnrp000()
       WHEN opcion = "2"
            CALL ccprrp003()   
            CALL  ccmnrp000()
       WHEN opcion = "3"
            CALL ccprrp005()   
            CALL  ccmnrp000()
       WHEN opcion = "4"
            CALL ccprrp006()   
            CALL  ccmnrp000()
       WHEN opcion = "5"
            CALL  ccprrp007()
            CALL  ccmnrp000()
       WHEN opcion = "6"
            CALL  ccprrp009()
            CALL  ccmnrp000()
       WHEN opcion = "7"
            CALL  ccprrp014()
            CALL  ccmnrp000()
       WHEN opcion = "8"
            CALL  ccprrp016()
            CALL  ccmnrp000()
       WHEN opcion = "9"
            CALL  ccprrp018()
            CALL  ccmnrp000() 
       WHEN opcion = "10" 
            CALL  ccprrp034()
            CALL  ccmnrp000()
       WHEN opcion = "11" 
            RUN "fglrun %FGLPROG%\\ccprrp043"
            CALL  ccmnrp000()
       WHEN opcion = "12" 
            CALL  ccprrp025()
            CALL  ccmnrp000()
       WHEN opcion = "13" 
            CALL  ccmnrp001()
            CALL  ccmnrp000()
       WHEN opcion = "14" 
            CALL  ccprrp027()
            CALL  ccmnrp000()
       WHEN opcion = "15" 
            RUN"fglrun %FGLPROG%\\ccprrp044"
            CALL  ccmnrp000()
       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL ccmnrp000()
    END CASE

END FUNCTION