MBS/PROYECTO/ipdir/ipmnrp000.4gl

{
--------------------------------------------------------------------------
 PROGRAMA          : IPMNRP000
 OBJETIVO          : Menu de Reportes del Sistema 
                     de Productos.       
 PROGRAMADOR       : Juan Soto        
 FECHA REALIZACION : AGOSTO, 1997. 
 ASESOR            : JOSE ALFREDO PAULINO ALEJO 
--------------------------------------------------------------------------
}

GLOBALS "ipprgb000.4gl"
 DEFINE l INTEGER

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

FUNCTION ipmnrp000() 
   CLEAR SCREEN 
   CALL opciones_ipmnrp000()
END FUNCTION

FUNCTION opciones_ipmnrp000()
   DEFINE opt,oip CHAR(2)
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)

   OPTIONS
     PROMPT LINE 8,
     ERROR LINE 24

   CALL pantalla()
    DISPLAY "             Reportes              " AT 6,22
    DISPLAY "ipmnrp000"                          AT 4,3 ATTRIBUTE(BLUE)
    DISPLAY " 1-Catalogo Productos             ipprrp002" AT 10,1
    DISPLAY " 2-Movimientos de Almacen         ipprrp003" AT 11,1
    DISPLAY " 3-Operacion/Movimiento (Detalle) ipprrp004" AT 12,1
    DISPLAY " 4-Documentos                     ipprrp007" AT 13,1
    DISPLAY " 5-Tipos De Movimientos           ipprrp008" AT 14,1
    DISPLAY " 6-Existencia a Diferente Fechas  ipprrp009" AT 15,1
    DISPLAY " 7-Operacion/movimiento Al Std.   ipprrp010" AT 16,1
    DISPLAY " 8-Resumen Actividad de Mes       ipprrp011" AT 17,1
    DISPLAY " 9-Documentos Eliminados          ipprrp017" AT 18,1
    DISPLAY "10-Existencias Con E/S    ipprrp018" AT 10,45
    DISPLAY "11-Existencia ShowRoom    ipprrp016" AT 11,45
    DISPLAY "12-Maestra de Costos Std. ipprrp005" AT 12,45
    DISPLAY "13-Catalogo C/Precio      ipprrp006" AT 13,45
    DISPLAY "14-Entradas Costos        edprrp000" AT 14,45
    DISPLAY "15-Diferencias costos Anu ipprrp012" AT 15,45
    DISPLAY "16-Existencia Productos   ipprrp019" AT 16,45
    DISPLAY "17-Costo de Ventas        ipprrp410" AT 17,45
    DISPLAY "18-Dias Inventarios       ipprrp013" AT 18,45
    DISPLAY "S- Retorna Menu Anterior"           AT 23,25
    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,"ipmnrp000") RETURNING luz
           IF luz = "roja" THEN
              ERROR "NO TIENE PERMISO PARA UTILIZAR OPCION"
              GOTO vuelve
           END IF
       END IF

    CASE     
       WHEN OPT = "1"
          CALL  ipprrp002()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "2"
          CALL  ipprrp03()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "3"
          CALL  ipprrp004()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "4"
          CALL  ipprrp007()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "5"
          CALL  ipprrp008()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "6"
         CALL  ipprrp09()
         CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "7"
          CALL  ipprrp010()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "8"
          CALL  ipprrp011()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "9"
          CALL  ipprrp017()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "10"
          CALL  ipprrp018()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "11"
          CALL  ipprrp016()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "12"
          CALL  ipprrp005()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "13"
          CALL  ipprrp006()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "14"
          RUN "fglrun %FGLPROG%\\edprrp000"
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "15"
          CALL ipprrp012()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "16"
          CALL ipprrp019()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
       WHEN OPT = "17"
          RUN "fglrun %FGLPROG%\\ipprrp410"
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
      WHEN OPT = "18"
          CALL ipprrp013()
          CLEAR SCREEN
          CALL  opciones_ipmnrp000()
      
       WHEN OPT = "S" or OPT = "s"
          RETURN
       OTHERWISE
         CALL opciones_ipmnrp000()       
    END CASE
END FUNCTION

FUNCTION pantalla() 
   DEFINE fecha CHAR(8),
          hora char(5) 
   LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
   LET fecha = today USING "dd/mm/yy"  
   LET hora = time
    DISPLAY p_companias.nombre CLIPPED AT 4,l ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha AT 4,70 ATTRIBUTE (BLUE)
    DISPLAY "Sistema Inventario de Productos" AT 5,24
    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)
            LET bandera = 1    
            SLEEP 2
            RETURN
        END IF
END FUNCTION