{
-----------------------------------------------------------------------
 PROGRAMA          : VEMNCS100
 OBJETIVO          : Menu de Consultas de Ventas del Sistema de Ventas
 PROGRAMADOR       : Lic. Abner Montalvo Zapata 
 FECHA REALIZACION : Febrero 3, 1993.      
-----------------------------------------------------------------------
}

GLOBALS "veprgb000.4gl"

FUNCTION vemncs100()
OPTIONS 
    PROMPT LINE 8, 
    HELP FILE "vepray000.exe",
    HELP KEY CONTROL-W,
    MESSAGE LINE 24 
    CLEAR SCREEN 
    CALL pantalla()

    DISPLAY "Consultas de Ventas" AT 6,30 
    DISPLAY "vemncs100"                            AT 4,3 ATTRIBUTE(blue)
    DISPLAY "1- Por Tipo de Venta               veprcs101" AT 10,6
    DISPLAY "2- Por Vendedor y Tipo de Venta    veprcs102" AT 11,6
    DISPLAY "3- Por Tipo de Venta y Zona        veprcs103" AT 12,6
    DISPLAY "S- Retorna Menu Anterior                    " AT 15,6  
                ATTRIBUTE (BOLD)

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

    CASE     
       WHEN opcion = "1"
            CALL veprcs101() 
            CALL vemncs100()
       WHEN opcion = "2"
            CALL veprcs102() 
            CALL vemncs100()
       WHEN opcion = "3"
            CALL veprcs103() 
            CALL vemncs100()
       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL vemncs100()
    END CASE

END FUNCTION