MBS/PROYECTO/vedir/vemnrp000.4gl

{
----------------------------------------------------------------
 PROGRAMA          : VEMNRP000
 OBJETIVO          : Menu de Reportes del Sistema de Ventas
 PROGRAMADOR       : Ing. Juan Soto
 FECHA REALIZACION : Enero 07, 1993.      
----------------------------------------------------------------
}

GLOBALS "veprgb000.4gl"
MAIN
 DEFER INTERRUPT
 SELECT * INTO p_companias.* FROM companias
 CALL vemnrp000()
END MAIN
FUNCTION vemnrp000()
   DEFINE p_user CHAR(9)
   DEFINE luz CHAR(5)
OPTIONS 
    PROMPT LINE 8, 
    HELP FILE "vepray000.exe",
    HELP KEY CONTROL-W,
    MESSAGE LINE 24 
    CLEAR SCREEN 
    CALL pantalla()

    DISPLAY "           Reportes                 " AT 6,24
    DISPLAY "vemnrp000"                            AT 4,3 ATTRIBUTE(blue)
#    DISPLAY " 1- Ventas x Mes y Ano         veprrp008" AT 9,2
    DISPLAY " 2- Control Vta.Mensual        veprrp009" AT 9,2  
    DISPLAY " 3- Clientes X Vendedor        veprrp011" AT 10,2  
 #   DISPLAY " 4- Analisis De Beneficios     veprrp016" AT 12,2 
    DISPLAY " 5- Control Entrega de Factura veprrp021" AT 11,2 
    DISPLAY " 6- Relacion Ventas al Contado veprrp023" AT 12,2 
    DISPLAY " 7- Ventas Brutas y Reales     veprrp015" AT 13,2 
    DISPLAY " 8- Precio Real/Precio Factura veprrp032" AT 14,2 
    DISPLAY " 9- Analisis Beneficios/Prod.  veprrp116" AT 17,2 
    DISPLAY "10- Analisis De Beneficios STD veprrp216" AT 18,2 
    DISPLAY "11-Ventas vs Presupuesto       veprrp040" AT 19,2
    DISPLAY "12-Analisis Beneficio/Vend     veprrp316" AT 20,2
    DISPLAY "13-Validacion de Facturas    veprrp001" AT  9,43
    DISPLAY "14-Reporte P/Entrada Ventas  veprrp004" AT 10,43
    DISPLAY "15-Catalogo de Clientes      veprrp044" AT 11,43
    DISPLAY "16-Reporte P/Entrada Devol.  veprrp045" AT 12,43
    DISPLAY "17-Resumen Ventas a Credito  veprrp416" AT 13,43
    DISPLAY "18-Resumen Ventas al Contado veprrp417" AT 14,43
    DISPLAY "19-Resumen CR LOCALES USD$   veprrp418" AT 15,43
    DISPLAY "20-Resumen CONTADO  USD$     veprrp419" AT 16,43
    DISPLAY "21-Conduces Facturados       veprrp046" AT 17,43
    DISPLAY "22-Ventas Calendarizadas     veprrp047" AT 18,43


    DISPLAY " S- Retorna Menu Anterior " AT 22,27  
                ATTRIBUTE (BOLD)

    CALL ayuda() 
    LET opcion = NULL 
    LABEL vuelve:
    PROMPT " OPCION: " FOR opcion HELP 2 
    LET opcion = UPSHIFT(opcion) clipped 

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

    CASE     
       WHEN opcion = "1"
 #           CALL  veprrp008()
            CALL  vemnrp000()
       WHEN opcion = "2"
            CALL  veprrp009()
            CALL  vemnrp000()
       WHEN opcion = "3"
            CALL  veprrp011()
            CALL  vemnrp000()
       WHEN opcion = "4"
            CALL  veprrp016()
            CALL  vemnrp000()
       WHEN opcion = "5"
            CALL  veprrp021()
            CALL  vemnrp000()
       WHEN opcion = "6"
            CALL  veprrp023()
            CALL  vemnrp000()
       WHEN opcion = "7"
            CALL  veprrp015()
            CALL  vemnrp000()
       WHEN opcion = "8"
            CALL  veprrp032()
            CALL  vemnrp000()
       WHEN opcion = "9"
            CALL  veprrp116()
            CALL  vemnrp000()
       WHEN opcion = "10"
            CALL  veprrp216()
            CALL  vemnrp000()
       WHEN opcion = "11"
            CALL  veprrp040()
            CALL  vemnrp000()
       WHEN opcion = "12"
            CALL  veprrp316()
            CALL  vemnrp000()
       WHEN opcion = "13"
            CALL  veprrp001()
            CALL  vemnrp000()
       WHEN opcion = "14"
            CALL  veprrp004()
            CALL  vemnrp000()
       WHEN opcion = "15"
            CALL  veprrp044()
            CALL  vemnrp000()
       WHEN opcion = "16"
            CALL  veprrp045()
            CALL  vemnrp000()
       WHEN opcion = "17"
            RUN "fglrun %FGLPROG%\\veprrp416"
            CALL  vemnrp000()
       WHEN opcion = "18"
            RUN "fglrun %FGLPROG%\\veprrp417"
            CALL  vemnrp000()
       WHEN opcion = "19"
            RUN "fglrun %FGLPROG%\\veprrp418"
            CALL  vemnrp000()
       WHEN opcion = "20"
            RUN "fglrun %FGLPROG%\\veprrp419"
            CALL  vemnrp000()
       WHEN opcion = "21"
            RUN "fglrun %FGLPROG%\\veprrp046"
            CALL  vemnrp000()
       WHEN opcion = "22"
            RUN "fglrun %FGLPROG%\\veprrp047"
            CALL  vemnrp000()


       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL vemnrp000()
    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 de Ventas" AT 5,31
    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    
            LET status = 0
            SLEEP 2
            RETURN
        END IF
   RETURN
END FUNCTION

FUNCTION meses()

LET mes1[1] = "Enero"
LET mes1[2] = "Febrero"
LET mes1[3] = "Marzo"
LET mes1[4] = "Abril"
LET mes1[5] = "Mayo"
LET mes1[6] = "Junio"
LET mes1[7] = "Julio"
LET mes1[8] = "Agosto"
LET mes1[9] = "Septiembre"
LET mes1[10] = "Octubre"
LET mes1[11] = "Noviembre"
LET mes1[12] = "Diciembre"
END FUNCTION
FUNCTION ayuda()
 #MESSAGE "AQUI VA LA AYUDA"
END FUNCTION