MBS/PROYECTOS/irdir/irmnrp000.4gl

{
--------------------------------------------------------------------
 PROGRAMA          : IRMNRP000
 OBJETIVO          : Menu de Reportes del Sistema 
                     de Inventario de Repuesto.    
 PROGRAMADOR       : Juan Fco. Soto.   
 FECHA REALIZACION : Enero 29, 1993.  
--------------------------------------------------------------------
}
GLOBALS "irprgb000.4gl"

MAIN
   DEFER INTERRUPT
   SELECT * INTO p_companias.* FROM companias
   CALL pantalla()
   CALL opciones_irmnrp000()
END MAIN

FUNCTION opciones_irmnrp000()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

   CALL pantalla()
   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

    DISPLAY "             Reportes              " AT 6,22
    DISPLAY "irmnrp000"                        AT 4,3 ATTRIBUTE(blue)
    DISPLAY " 1-Catalogo de Repuestos       irprrp002" AT 10,1
    DISPLAY " 2-Movimientos de Repuestos    irprrp003" AT 11,1
    DISPLAY " 3-Tipos De Movimientos        irprrp004" AT 12,1
    DISPLAY " 4-Valorizacion Inventario     irprrp005" AT 13,1
    DISPLAY " 5-Existencia de Repuestos     irprrp006" AT 14,1
    DISPLAY " 6-Validacion Documentos       irprrp007" AT 15,1
    DISPLAY " 7-Consumo de Repuestos X Mq.  irprrp008" AT 16,1
    DISPLAY " 8-Operacion X Tipo Movimiento irprrp009" AT 17,1
    DISPLAY " 9-Precio Std-Ultima Comp.     irprrp011" AT 18,1
    DISPLAY "10-Conteo de Repuestos         irprrp012" AT 19,1
    DISPLAY "11-Validacion Maestra Maquina  irprrp013" AT 20,1
    DISPLAY "12-Validacion Maestra Motores  irprrp014" AT 21,1
    DISPLAY "13-Valid. Sub-Grupos           irprrp016" AT 22,1
    DISPLAY "14-Doctos. Eliminados      irprrp017" AT 9,42
    DISPLAY "15-Exist. Ant./Actual      irprrp018" AT 10,42
    DISPLAY "16-Panoramico Consumo      irprrp019" AT 11,42
    DISPLAY "17-Conteo Perpetuo         irprrp020" AT 12,42
    DISPLAY "18-Dif. inv. Perpetuo      irprrp021" AT 13,42
    DISPLAY "19-Repuestos S/Compra      irprrp010" AT 14,42
    DISPLAY "20-Documentos Modific      irprrp023" AT 15,42
    DISPLAY "21-Costos Estandares       irprrp039" AT 16,42
    DISPLAY "22-Hist. Precio Local      irprrp026" AT 17,42
    DISPLAY "23-Documentos X Sup.       irprrp027" AT 18,42
    DISPLAY "24-Repuestos En Cero       irprrp028" AT 19,42
    DISPLAY "25-Existencia Minima       irprrp029" AT 20,42
    DISPLAY "26-Consumo En X Dias       irprrp030" AT 21,42
    DISPLAY "27-Resumen Catalogo Repu.  irprrp031" AT 22,42
    DISPLAY "28- ... Mas Reportes ...   irmnrp001" AT 23,42
    DISPLAY " S-Retorna Menu Anterior " AT  23,1 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,"irmnrp000") RETURNING luz
         IF luz = "roja" THEN
            ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
            GOTO vuelve
         END IF
      END IF
  
    CASE     
       WHEN OPT = "1"
          CALL  irprrp002()
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "2"
          CALL  irprrp03()
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "3"
          CALL  irprrp04()
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "4"
          CALL  irprrp005()
         #RUN "irprrp005.sh"
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "5"
          CALL irprrp006()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "6"
          CALL irprrp007()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "7"
          CALL irprrp008()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "8"
          CALL irprrp009()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "9"
          CALL irprrp11()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "10"
          CALL irprrp012()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "11"
          CALL irprrp013()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "12"
          CALL irprrp14()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "13"
          CALL irprrp16()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "14"
          CALL irprrp17()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "15"
          CALL irprrp018()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "16"
          CALL irprrp019()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "17"
          CALL irprrp020()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "18"
          CALL irprrp021()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "19"
          CALL irprrp010()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "20"
          CALL irprrp023()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "21"
          CALL irprrp039()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "22"
          CALL irprrp026()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "23"
          CALL irprrp027()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "24"
          CALL irprrp028()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "25"
          CALL irprrp029()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "26"
          CALL irprrp030()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "27"
          CALL irprrp031()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "28"
          CALL irmnrp001()  
          CLEAR SCREEN
          CALL  opciones_irmnrp000()
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
          CALL opciones_irmnrp000()
    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 Repuestos    " 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