MBS/PROYECTO/gedir/gemnrp000.4gl

{
----------------------------------------------------------------
 PROGRAMA          : GEMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Informacion  
                     Gerencial.
 PROGRAMADOR       : Tadeo A. Ferreras
 FECHA REALIZACION : Junio 07, 1993.      
----------------------------------------------------------------
}

GLOBALS "geprgb000.4gl"

MAIN 
  DEFER INTERRUPT
  CALL opciones_gemnrp000()
END MAIN
FUNCTION opciones_gemnrp000()
    DEFINE luz CHAR(5)
       
    CALL opcion_pantalla()

   MENU "Reportes: " 
       COMMAND "1"
          CALL seg000(1,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp001() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "2"
          CALL seg000(2,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp002() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "3"
          CALL seg000(3,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp003() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "4"
          CALL seg000(4,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp004() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "5"
          CALL seg000(5,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp005() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "6"
          CALL seg000(6,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp006() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "7"
          CALL seg000(7,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp007() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "8"
          CALL seg000(8,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp008() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "9"
          CALL seg000(9,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp009() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "10"
          CALL seg000(10,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp010() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "11"
          CALL seg000(11,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp011() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "12"
          CALL seg000(12,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp012() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "13"
          CALL seg000(13,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp013() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "14"
          CALL seg000(14,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp014() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "15"
          CALL seg000(15,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp015() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "16"
          CALL seg000(16,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp016() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "20"
          CALL seg000(20,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp020() 
            CALL  opcion_pantalla()
          END IF
        COMMAND "21"
          CALL seg000(21,"gemnrp000") RETURNING luz
          IF luz = "azul" THEN
            CALL geprrp021() 
            CALL  opcion_pantalla()
          END IF

        COMMAND "Retornar"
                EXIT MENU
             END MENU
END FUNCTION

FUNCTION pantalla() 
    DEFINE fecha CHAR(10),
           hora char(5) 
    LET fecha = today USING "dd/mm/yyyy"  
    LET hora = time
    DISPLAY "R A Y . O . V A C  D O M I N I C A N A, S. A." AT 4,17
            ATTRIBUTE (REVERSE,BLUE)
    DISPLAY fecha AT 4,68 ATTRIBUTE (RED)
    DISPLAY "Sistema de Informacion Gerencial" AT 5,24 ATTRIBUTE(BLACK)
    DISPLAY hora AT 6,73 ATTRIBUTE(RED)

    CALL fgl_drawbox(5,79,3,1)
    CALL fgl_drawbox(1,79,22,1)
END FUNCTION  

FUNCTION opcion_pantalla()

    OPTIONS 
    PROMPT LINE 8, 
    MESSAGE LINE 24 
    CLEAR SCREEN 
    CALL pantalla()
    LET impresor = FGL_GETENV("IMP")


    DISPLAY "Reportes" AT 6,36 ATTRIBUTE(BLACK)
    DISPLAY "gemnrp000"                            AT 4,3 ATTRIBUTE(RED)
    DISPLAY " 1-Ventas Mayores/Tipo Pila geprrp001" AT 09,1
    DISPLAY " 2-Venta Mayor/Tipo Pila    geprrp002" AT 10,1
    DISPLAY " 3-Suplid. Compras Mayores  geprrp003" AT 11,1
    DISPLAY " 4-Suplidor Mayor Compra    geprrp004" AT 12,1
    DISPLAY " 5-Clientes Ventas Mayores  geprrp005" AT 13,1
    DISPLAY " 6-Cliente Con Mayor Venta  geprrp006" AT 14,1
    DISPLAY " 7-Compras Mayor X Cantidad geprrp007" AT 15,1
    DISPLAY " 8-Mat. Comprado Por Rango  geprrp008" AT 16,1
    DISPLAY " 9-Ventas Compar. Ano Ant.  geprrp009" AT 17,1
    DISPLAY "10-Ranking Ventas Por Cli.  geprrp010" AT 18,1
    DISPLAY "11-Ventas Comp. Minorisas   geprrp011" AT 19,1
    DISPLAY "12-Ranking Ventas/Vendedor  geprrp012" AT 20,1
    DISPLAY "13-Ranking Ventas/Producto  geprrp013" AT 09,40
    DISPLAY "14-Compras Comparativas     geprrp014" AT 10,40
    DISPLAY "15-Ranking Ventas/Vend. Ac. geprrp015" AT 11,40
    DISPLAY "16-Ranking Ventas/Prod. Ac. geprrp016" AT 12,40
    DISPLAY "20-Ranking Ventas/Prod. Ac. geprrp020" AT 13,40
    DISPLAY "21-Ranking Ventas/Prod. Ac. geprrp021" AT 13,40


    #DISPLAY "S- Retorna Menu Anterior         " AT 21,28  
               # ATTRIBUTE (BLACK)

END FUNCTION