Usuario NetworkUser en Windev

 gsUsuario is string
gbAcceso is boolean = False
gsTipo is string
gsArea is string
gsNombre is string
gsClave is string
gnNivel is int


gsIdDB_Alumno is string
gsIdDB_Area is string



//(gsUsuario,gsArea,gsTipo, gbAcceso) = Open(WIN_Acceso)
//INFO(gsUsuario,gsArea,gsTipo)
bValida is boolean
gsUsuario = NetworkUser()
//gsUsuario = "FVALENCIA"
HReadSeekFirst(DB_Alumno,Clave,gsUsuario,hGeneric)
IF HFound(DB_Alumno) = False THEN
    Error("Alumno  no encontrado")
    bValida  = False
    gbAcceso = False
    gsTipo   = ""
    gsArea   = ""
ELSE
    gnNivel            = DB_Alumno.Nivel
    gsTipo             = DB_Alumno.IdTipo
    gsNombre         = DB_Alumno.Nombre
    gsIdDB_Alumno     = DB_Alumno.IdDB_Alumno
    HReadSeekFirst(DB_Area,IdDB_Area,DB_Alumno.IdDB_Area)
    IF HFound(DB_Area) =True THEN
        gsArea         = DB_Area.Nombre
        gsIdDB_Area = DB_Area.IdDB_Area
    END
    bValida  = True
    gbAcceso = True
    
END


WIN_Menu.SBC_Usuario = "Usuario: " + gsUsuario
WIN_Menu.SBC_Nombre  = "Nombre: " + gsNombre
//WIN_MENU.SBC_Area    = "Área: "    + gsArea
/////////////////////////////////////////////////

IF gbAcceso = False THEN
    EndProgram()
    
END


//OPT_Sistemas..Visible = False

IF gnNivel = 0 THEN
    OPT_Sistemas..Visible = False
//    MENUFILE_Catalogos..Visible = False    
//    MENUFILE_Calendario.OPT_NuevaObligacion..Visible = False
//    MENUFILE_Utilerías..Visible = False
//ELSE
//    MENUFILE_Catalogos..Visible = True
END