{
--------------------------------------------------------------------------
 PROGRAMA          : INMNRP002
 OBJETIVO          : Menu de Continuacion de Reportes del Sistema 
                     de Inventario de Materia Prima.
 PROGRAMADOR       : Tadeo A. Ferreras F.
 FECHA REALIZACION : Octubre 02, 1995
--------------------------------------------------------------------------
}

FUNCTION inmnrp002() 
   CLEAR SCREEN 
   CALL opciones_inmnrp002()
   
END FUNCTION

FUNCTION opciones_inmnrp002()
   DEFINE opt CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5),
          formulario CHAR(70)

   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

   CALL pantalla()
   LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
    DISPLAY "Continuacion del Menu" AT 6,29

    DISPLAY "inmnrp002"                   AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY " 1-Valorizion Inventaio PEPS   inprrp034" AT 10,1
    DISPLAY " 2-Valorizion Inventaio UEPS   inprrp035" AT 11,1
    DISPLAY " 3-Etiquetas Para Inventario   inprrp036" AT 12,1
    DISPLAY " 4-Difer. Grupos Invent. A-B   inprrp037" AT 13,1
    DISPLAY " 5-Valorizacion Al Real        inprrp038" AT 14,1
    DISPLAY " 6-Confirmacion Conteo Fisico  inprrp039" AT 15,1
    DISPLAY " 7-Actualizacion Bces. UEPS    inprrp041" AT 16,1
    DISPLAY " 8-Dias Inv. Con Fecha LLegada inprrp042" AT 17,1
    DISPLAY " 9-Compras VAlorizadas Al Real inprrp044" AT 18,1
    DISPLAY " S-Retorna Menu Anterior"                 AT 20,1
    ATTRIBUTE (BOLD)

    LABEL vuelve:
     PROMPT "OPCION: " attribute(yellow) FOR OPT
      LET opt = UPSHIFT(opt)  clipped 

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

    CASE     
       WHEN OPT = "1"
          CALL  inprrp034()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "2"
          CALL  inprrp035()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "3"
          CALL  inprrp036()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "4"
          CALL  inprrp037()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "5"
          CALL  inprrp038()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "6"
          CALL  inprrp039()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "7"
          CALL  inprrp041()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "8"
          CALL  inprrp042()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "9"
          CALL  inprrp044()
          CLEAR SCREEN
          CALL  opciones_inmnrp002()
       WHEN OPT = "S" or OPT = "s"
           RETURN
       OTHERWISE
         CALL opciones_inmnrp002()       
    END CASE
END FUNCTION