MBS/PROYECTOS/indir/inmnrp000.4gl

{
--------------------------------------------------------------------------
 PROGRAMA          : INMNRP000
 OBJETIVO          : Menu de Reportes del Sistema 
                     de Inventario de Materia Prima.
 PROGRAMADOR       : Abner Montalvo Z.
 FECHA REALIZACION : Julio 27, 1992. 
 MODIFICADO POR    : Juan Fco. Soto, Buscar A1
 FECHA MODIFICACION: Octubre 22, 1992.
--------------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"

MAIN 
  DEFER INTERRUPT
  SELECT * INTO p_companias.* FROM companias
  CALL inmnrp000()
END MAIN 
FUNCTION inmnrp000() 
   CLEAR SCREEN 
   CALL opciones_inmnrp000()
END FUNCTION

FUNCTION opciones_inmnrp000()
   DEFINE opt CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

   CALL pantalla()
    LET formulario = "/users/rova/sysinfo/forms/indir/" CLIPPED
    DISPLAY "Reportes" AT 6,36
    DISPLAY "inmnrp000"                          AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1-Catalogo Bienes y Servicios inprrp001" AT 9,1  
    DISPLAY " 2-Catalogo de Materias Primas inprrp002" AT 10,1
    DISPLAY " 3-Movimiento de Almacen       inprrp003" AT 11,1
    DISPLAY " 4-Dias de Inventarios         inprrp004" AT 12,1
    DISPLAY " 5-Documentos                  inprrp005" AT 13,1
    DISPLAY " 6-Tipos De Movimientos        inprrp008" AT 14,1
    DISPLAY " 7-Exist. a Diferentes Fechas  inprrp009" AT 15,1
    DISPLAY " 8-Acumulado Por Movimientos   inprrp010" AT 16,1
    DISPLAY " 9-Operaciones X Movimientos   inprrp011" AT 17,1 
    DISPLAY "10-Ajuste Material             inprrp013" AT 18,1
    DISPLAY "11-Inv. Compar. Teorico-Fisico inprrp014" AT 19,1
    DISPLAY "12-Conteo Fisico Inv.Perpetuo  inprrp015" AT 20,1
    DISPLAY "13-Dif. Exist. Inv. Perpetuo  inprrp016"  AT  9,42
    DISPLAY "14-Materiales Categorizados   inprrp024"  AT 10,42
    DISPLAY "15-Documentos Eliminados      inprrp027"  AT 11,42
    DISPLAY "16-Existencias Con E/S        inprrp028"  AT 12,42
    DISPLAY "17-Documentos Modificados     inprrp031"  AT 13,42
    DISPLAY "18-Diferencia Costos Anuales  inprrp012"  AT 14,42
    DISPLAY "19-Maestra costos Estandards  inprrp032"  AT 15,42
    DISPLAY "20-Dias Invent. Categorizado  inprrp033"  AT 16,42
    DISPLAY "21-Entradas Al Diario         edprrp001"  AT 17,42
    DISPLAY " S-Retorna Menu Anterior"                 AT 23,28
    ATTRIBUTE (BOLD)

    LABEL vuelve:
     PROMPT "OPCION: " attribute(blue) 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,"inmnrp000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  inprrp001()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "2"
          CALL  inprrp002()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "3"
          CALL  inprrp003()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "4"
          CALL  inprrp004()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "5"
          CALL  inprrp005()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "6"
          CALL  inprrp008()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "7"
          CALL  inprrp009()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "8"
          CALL  inprrp010()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "9"
          CALL  inprrp011()
          CLEAR SCREEN
          CALL  opciones_inmnrp000()
       WHEN OPT = "10"
          CALL inprrp013()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "11"
          CALL inprrp014()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "12"
          CALL inprrp015()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "13"
          CALL inprrp016()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "14"
          CALL inprrp024()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "15"
          CALL inprrp027()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "16"
          CALL inprrp028()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "17"
          CALL inprrp31()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "18"
          CALL inprrp012()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "19"
          CALL inprrp032()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "20"
          CALL inprrp033()
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "21"
          RUN "fglrun %FGLPROG%\\edprrp001"
          CLEAR SCREEN
          CALL opciones_inmnrp000()
       WHEN OPT = "S" or OPT = "s"
           RETURN
       OTHERWISE
         CALL opciones_inmnrp000()       
    END CASE
END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(8),
          hora char(5) 
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
   LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
    DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
    DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
    DISPLAY "Sistema Inventario de Materia Prima" AT 5,22
    DISPLAY hora AT 6,73 ATTRIBUTE(blue)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
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    
            SLEEP 2
            RETURN
        END IF
END FUNCTION