function EliminarUsuario()
{
    global $vConex;
    $Alumno = $_POST['Usuario'];
    if (!empty($Alumno)) {
        $deleltransrespuesta_cab = "DELETE FROM eltransrespuesta_cab WHERE  Alumno='" . $Alumno . 'Alumno' . "' OR  Alumno='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($deleltransrespuesta_cab, $vConex);
        W('response alumnos> :' . $afectados . '<br/>');
        W(' Respuesta Alumno> :' . $deleltransrespuesta_cab . '<br/><br/>');
        $deleltransrespuesta = "DELETE FROM eltransrespuesta WHERE  Usuario='" . $Alumno . 'Alumno' . "' OR Usuario='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($deleltransrespuesta, $vConex);
        W('response alumnos> :' . $afectados . '<br/>');
        W('Actividades Alumnos> :' . $deleltransrespuesta . '<br/><br/>');
        $delevaluacionalumno = "DELETE FROM elevaluacionalumno WHERE  Alumno='" . $Alumno . 'Alumno' . "' OR  Alumno='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($delevaluacionalumno, $vConex);
        W('response alumnos> :' . $afectados . '<br/>');
        W('Evaluacion Alumno> :' . $delevaluacionalumno . '<br/><br/>');
        $delusuarios = "DELETE from usuarios WHERE Usuario='" . $Alumno . "'";
        $afectados = xSQL($delusuarios, $vConex);
        W('response usuarios> :' . $afectados . '<br/>');
        W('usuarios> :' . $delusuarios . '<br/><br/>');
        $delusuario_det = "DELETE from usuario_entidad WHERE Usuario='" . $Alumno . "'";
        $afectados = xSQL($delusuario_det, $vConex);
        W('response usuario_entidad> :' . $afectados . '<br/>');
        W('usuario_entidad> :' . $delusuario_det . '<br/><br/>');
        $delmatricula = "DELETE from matriculas WHERE Cliente='" . $Alumno . 'Alumno' . "' OR Cliente='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($delmatricula, $vConex);
        W('response matriculas> :' . $afectados . '<br/>');
        W('matriculas> :' . $delmatricula . '<br/><br/>');
        $delalmacen_entidad = "DELETE from almacen_entidad WHERE Entidad='" . $Alumno . 'Alumno' . "' OR Entidad='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($delalmacen_entidad, $vConex);
        W('response almacen_entidad> :' . $afectados . '<br/>');
        W('almacen_entidad> :' . $delalmacen_entidad . '<br/><br/>');
        $delalumnos = "DELETE from alumnos WHERE Usuario='" . $Alumno . 'Alumno' . "' OR Usuario='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($delalumnos, $vConex);
        W('response alumnos> :' . $afectados . '<br/>');
        W('alumnos> :' . $delalumnos . '<br/><br/>');
        $delprofesores = "DELETE from profesores WHERE Usuario='" . $Alumno . 'Alumno' . "' OR Usuario='" . $Alumno . 'Profesor' . "'";
        $afectados = xSQL($delprofesores, $vConex);
        W('response profesores> :' . $afectados . '<br/>');
        W('profesores> :' . $delprofesores . '<br/><br/>');
        $SqlAsis = " SELECT Codigo FROM asistencia WHERE Participante = '" . $Alumno . "' ";
        $Mx = fetchAll($SqlAsis, $vConex);
        foreach ($Mx as $Asis) {
            $Codigo = $Asis->Codigo;
            $Delete = "DELETE FROM interacciones WHERE Asistencia = " . $Codigo . " ";
            xSQL($Delete, $vConex);
            W(MsgE('interacciones: ' . $Delete) . '<br>');
        }
        $Delete = "DELETE FROM asistencia WHERE Participante = '" . $Alumno . "' ";
        xSQL($Delete, $vConex);
        W(MsgE('asistencia: ' . $Delete) . '<br>');
        $SqlAsis_2 = " SELECT Codigo FROM asistencia_alumno_control WHERE Profesor = '" . $Alumno . 'Profesor' . "' ";
        $Mx = fetchAll($SqlAsis_2, $vConex);
        foreach ($Mx as $Asis) {
            $Codigo = $Asis->Codigo;
            $Delete = "DELETE FROM asistencia_alumno WHERE Control = " . $Codigo . " ";
            xSQL($Delete, $vConex);
            W(MsgE('asistencia_alumno: ' . $Delete) . '<br>');
        }
        $Delete = "DELETE FROM asistencia_alumno_control WHERE Profesor = '" . $Alumno . 'Profesor' . "' ";
        xSQL($Delete, $vConex);
        W(MsgE('asistencia_alumno_control: ' . $Delete) . '<br>');
        $Delete = "DELETE FROM programapresentaciones WHERE Alumno = '" . $Alumno . 'Alumno' . "' ";
        xSQL($Delete, $vConex);
        W(MsgE('programapresentaciones: ' . $Delete) . '<br>');
        /** NOTIFICANDO A ECOMMERCE DE ELIMINACION DE UN USUARIO **/
        // fyupanquia 05:57 p.m. 20/01/2016
        // ALUMNO
        $email = $Alumno;
        $fields = array('action' => urlencode("delUsuario"), 'email' => urlencode($email));
        $fields_string = '';
        foreach ($fields as $key => $value) {
            $fields_string .= $key . '=' . $value . '&';
        }
        rtrim($fields_string, '&');
        $ch = curl_init();
        curl_setopt($ch, CURLOPT_URL, "https://owlecomerce.com/_vistas/Services/Usuarios.php");
        curl_setopt($ch, CURLOPT_POST, count($fields));
        curl_setopt($ch, CURLOPT_POSTFIELDS, $fields_string);
        $result = curl_exec($ch);
        curl_close($ch);
        /****/
        //aquiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
        $MSJ = " <DIV STYLE='WIDTH: 600PX; HEIGHT:50PX ; BACKGROUND-COLOR: GREEN; COLOR: WHITE; PADDING-TOP:20PX   '>  <CENTER><B>Se ha eliminado el usuario correctamente ...!!  </B> </CENTER></DIV>  ";
        W($MSJ);
        datosAlternos("Usuarios");
    } else {
        $MSJ = " <DIV  STYLE='WIDTH: 600PX; HEIGHT:50PX ; BACKGROUND-COLOR: RED; COLOR: WHITE; PADDING-TOP:20PX '> <CENTER><B>  No se ingreso ningun dato..!!! </B></CENTER></DIV>  ";
        W($MSJ);
        datosAlternos("Usuarios");
    }
}
             MenuPerfil("Listado");
         }
         if (get("metodo") == "menu_empresa_det") {
             p_gf("menu_empresa_det", $vConex, "");
             MenuPerfil("Detalle");
         }
         if (get("metodo") == "sys_base_datos") {
             p_gf("sys_base_datos", $vConex, "");
             BDatos("Lista");
         }
     }
 }
 if (get("transaccion") == "DELETE") {
     if (get("metodo") == "sys_tipo_input") {
         DReg("sys_tipo_input", "Codigo", "'" . get("codigo") . "'", $vConex);
         datosAlternos("CreacionTipoDato");
     }
     if (get("metodo") == "sys_tipo_ouput1") {
         DReg("sys_tipo_ouput", "Codigo", "'" . get("codigo") . "'", $vConex);
         TipoCampoHtml("Lista");
     }
     if (get("metodo") == "sysTabletDet") {
         EliminaCampo();
     }
     if (get("metodo") == "menu_empresa") {
         DReg("menu_empresa", 'Codigo', "'" . get("codigo") . "'", $vConex);
         MenuPerfil("Listado");
     }
     if (get("metodo") == "menu_empresa_det") {
         DReg("menu_empresa_det", 'Codigo', "'" . get("codigo") . "'", $vConex);
         MenuPerfil("Detalle");