{
----------------------------------------------------------------
 PROGRAMA          : VEMNMT200
 OBJETIVO          : Menu de Mantenimiento de Vendedores 
 PROGRAMADOR       : Lic. Abner Montalvo Z. 
 FECHA REALIZACION : Diciembre 2, 1992. 
----------------------------------------------------------------
}

GLOBALS "veprgb000.4gl"

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

    DISPLAY "     Mantenimiento de Vendedores    " AT 6,22
    DISPLAY "vemnmt200"                            AT 4,3 ATTRIBUTE(YELLOW)
    DISPLAY "1- Comisiones por Vendedor     veprmt201" AT 10,6
#   DISPLAY "2- Vendedor-Zona-Provincia     veprmt202" AT 11,6 
    DISPLAY "S- Retorna Menu Anterior                " AT 12,6  
                ATTRIBUTE (BOLD)

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

    CASE     
       WHEN opcion = "1"
            CALL  veprmt201()
            CALL  vemnmt200()
#      WHEN opcion = "2"
#           CALL  veprmt202()
#           CALL  vemnmt200()
       WHEN opcion = "S" or opcion = "s" 
            RETURN
       OTHERWISE 
            CALL vemnmt200()
    END CASE

END FUNCTION