function initPorTabla($tabla)
 {
     $res = array();
     $xTa = new cSAFETabla($tabla);
     if ($xTa->obj() != null) {
         $this->mValorEtiqueta = $xTa->getCampoDescripcion();
         $this->mClavePrimaria = $xTa->getClaveUnica();
         $this->mTabla = $tabla;
         if ($this->mValorEtiqueta != "") {
             $res = $this->get($this->mClavePrimaria, $this->mValorEtiqueta, $this->mTabla);
         }
     }
     return $res;
 }
}
$_SESSION["current_file"] = addslashes($theFile);
//<=====	FIN_H
//=====================================================================================================
$xInit = new cHPage("", HP_SERVICE);
$txt = "";
$ql = new MQL();
$lis = new cSQLListas();
$xF = new cFecha();
$tabla = parametro("tabla", false, MQL_RAW);
$clave = parametro("id", false, MQL_RAW);
$rs = array();
//AND MODO_DEBUG == true
if ($tabla != false and $clave != false) {
    $xObj = new cSAFETabla($tabla);
    if ($xObj->obj() == null) {
        $rs["message"] = "ERROR\tAl eliminar el Registro con ID {$clave} en la Tabla {$tabla}\r\n";
        $rs["error"] = true;
    } else {
        $obj = $xObj->obj();
        $key = $obj->getKey();
        $obj = new cSocios_aeconomica();
        $obj->setData($obj->query()->initByID($clave));
        $data = base64_encode(json_encode($obj->query()->getCampos()));
        $ql->setRawQuery("DELETE FROM {$tabla} WHERE {$key}='{$clave}'");
        $rs["message"] = "OK\tSe elimina el Registro con ID {$clave} en la Tabla {$tabla}\r\n";
        if (MODO_DEBUG == true) {
            $rs["message"] .= $ql->getMessages();
        }
        $rs["error"] = false;
        //guardar error
$xTabla = new cAml_riesgo_perfiles();
$xFRM = new cHForm("frmaml_riesgo_perfiles");
$xFRM->addGuardar();
if ($action == SYS_NINGUNO) {
    if ($clave != null) {
        $xFRM->setAction("perfiles-de-riesgo.frm.php?id={$clave}&action=" . MQL_MOD);
        //asignar que es actualizar
        $xTabla->setData($xTabla->query()->initByID($clave));
        //cargar datos del registro
    }
} else {
    $ready = false;
    $xTabla->setData($_REQUEST);
    //cargar datos del request}
    $dd = new cSAFETabla($xTabla->objeto_de_origen()->v());
    $obj = $dd->obj();
    if ($obj != null) {
        $xTabla->campo_de_origen($obj->getKey());
    }
    if ($action == MQL_ADD) {
        $ready = $xTabla->query()->insert()->save();
        //insertar registro
    } else {
        $ready = $xTabla->query()->update()->save($clave);
        //actualizar BD
    }
    $clave = null;
    if ($ready != false) {
        $xFRM->addAvisoRegistroOK();
    }
    // else { $xFRM->addAvisoRegistroError();	}
	<?php 
    echo $xHP->setBodyEnd();
    echo $xHP->end();
} else {
    header('Content-Type: application/json');
    //json
    $msg = "";
    if ($comando == SYS_AUTOMATICO) {
        $xF = new cFecha();
        if ($tabla != "" and $filtro != "") {
            $rs = false;
            $vars = $_REQUEST;
            //var_dump($vars);
            //$DFiltro	= explode("=", $filtro);
            $xData = new cSAFETabla($tabla);
            $q = $xData->obj()->query();
            $datos = $q->getRow($filtro);
            $q->setData($datos);
            $campos = $q->getCampos();
            $actualizar = false;
            $sqlor = "SELECT * FROM {$tabla} WHERE {$filtro}";
            $filas = obten_filas($sqlor);
            $cadena = json_encode($filas);
            $xErr = new cCoreLog();
            $xErr->add("{$oficial} Editar {$tabla} como {$filtro}.\n ORIGINAL:\n {$cadena}");
            $xErr->guardar($xErr->OCat()->EDICION_RAW);
            foreach ($vars as $k => $v) {
                $campo = substr($k, 1);
                if (isset($campos[$campo])) {
                    if ($campos[$campo]["V"] == $v) {
                        $msg .= "OMITIR_ACTUALIZAR: {$campo}, ";