{
-------------------------------------------------------------------------------
 PROGRAMA          : COMNRP001
 OBJETIVO          : Menu de Reportes de Proyecciones.
 PROGRAMADOR       : Juan Fco. Soto.   
 FECHA REALIZACION : AGOSTO 1997    
 DIRECTOR PROYECTO : JOSE ALFREDO PAULINO
-------------------------------------------------------------------------------
}

GLOBALS "coprgb000.4gl"

FUNCTION comnrp001() 
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
OPTIONS
   PROMPT LINE 8
   CLEAR SCREEN 
   CALL pantalla()
   LET formulario = fgl_getenv("FORMS") CLIPPED,"/codir/"
    DISPLAY "Reportes de Proyecciones" AT 6,28
    DISPLAY "comnrp001"                          AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY " 1-Actualizacion Cantidades Llegadas    coprpc001" AT 10,1 
    DISPLAY " 2-Actualizacion Fechas Entregas        coprpc001" AT 11,1 
    DISPLAY " 3-Entregas parciales para Proyeccion   coprrp101" AT 12,1
    DISPLAY " 4-Fechas de Llegadas a Puerto          coprrp005" AT 13,1
    DISPLAY " 5-Movimientos intervienen en Proyecc.  coprrp102" AT 14,1 
    DISPLAY " 6-Proyecciones (Detalladas)            coprrp010" AT 15,1
  # DISPLAY " 8-Proyecciones (Resumen)               coprrp011" AT 17,1 
    DISPLAY " 7-Reorden Mensual Segun Proyecciones   coprrp027" AT 16,1
    DISPLAY " S- Retorna Menu Anterior"  AT 21,28  ATTRIBUTE(YELLOW)

 LABEL vuelve:
    PROMPT "OPCION: " attribute(yellow) FOR OPT
    LET OPT = upshift(OPT)

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

    CASE
       WHEN OPT =  "1"           
          CALL coprpc001()
          CLEAR SCREEN
          CALL comnrp001()
       WHEN OPT =  "2" 
           CALL mueve_fecha()
           CLEAR SCREEN
           CALL comnrp001()
       WHEN OPT =  "3" 
           RUN "/users/rova/sysinfo/forms/codir/coprrp101.sh"
           CLEAR SCREEN
           CALL comnrp001()
       WHEN OPT = "4"
           CALL coprrp005()
           CLEAR SCREEN
           CALL comnrp001()
       WHEN OPT = "5"
           RUN "/users/rova/sysinfo/forms/codir/coprrp102.sh"
           CLEAR SCREEN
           CALL comnrp001()
       WHEN OPT =  "6" 
           CALL coprrp010()
           CLEAR SCREEN
           CALL comnrp001()
       WHEN OPT =  "7" 
           CALL coprrp027()
           CLEAR SCREEN
           CALL comnrp001() 
       WHEN OPT = "S" or OPT = "s"
          CLEAR SCREEN
          RETURN
     OTHERWISE 
          CALL comnrp001()
     END CASE

END FUNCTION