function jsaSetDomicilioMismo($socio, $HDomicilio)
{
    $HDomicilio = strtoupper($HDomicilio);
    if ($HDomicilio == "MISMO") {
        $xSoc = new cSocio($socio);
        $xSoc->init();
        $DDom = $xSoc->getDatosDomicilio(99);
        $domicilio = $xSoc->getDomicilio();
        $cDom = new cSocios_aeconomica();
        $cDom->setData($DDom);
        $telefono = $cDom->telefono_ae()->v();
        $estado = $cDom->estado_ae()->v();
        $municipio = $cDom->municipio_ae()->v();
        $localidad = $cDom->localidad_ae()->v();
        $tab = new TinyAjaxBehavior();
        $tab->add(TabSetValue::getBehavior('idtelefono', $telefono));
        $tab->add(TabSetValue::getBehavior('identidadfederativa', $estado));
        $tab->add(TabSetValue::getBehavior('idmunicipio', $municipio));
        $tab->add(TabSetValue::getBehavior('idlocalidad', $localidad));
        $tab->add(TabSetValue::getBehavior('iddomiciliodeactividad', $domicilio));
        return $tab->getString();
    }
}
 function setGenerarPerfilesPorActividadEconomica()
 {
     $xQL = new MQL();
     $rs = $xQL->getDataRecord("SELECT `socios_aeconomica`.* FROM `socios_aeconomica` `socios_aeconomica`");
     $xAct = new cSocios_aeconomica();
     $msg = "";
     foreach ($rs as $rows) {
         $xAct->setData($rows);
         $xAml = new cAMLPersonas($xAct->socio_aeconomica()->v());
         $xAml->addTransaccionalidadPorEmpresa($xAct->dependencia_ae()->v(), $xAct->monto_percibido_ae()->v(), $xAct->fecha_alta()->v());
         $msg .= $xAml->getMessages();
     }
     return $msg;
 }
    case TPERSONAS_DIRECCIONES:
        $xDom = new cSocios_vivienda();
        $D = obten_filas("SELECT * FROM socios_vivienda WHERE socio_numero = {$data} ORDER BY fecha_alta DESC LIMIT 0,1");
        $xDom->setData($D);
        //setLog("SELECT * FROM socios_vivienda WHERE socio_numero = $data ORDER BY fecha_alta DESC LIMIT 0,1");
        //$value = mb_check_encoding($value, 'UTF-8') ? $value : utf8_encode($value);
        //$comment = iconv('UTF-8', 'UTF-8//IGNORE', $comment);
        //SELECT column1, CONVERT(column2 USING utf8)
        $query = $xDom->query();
        $query->setToUTF8();
        //setLog(json_encode($query->getCampos()) );
        $cnt = $svc->getEncryptData(json_encode($query->getCampos()));
        break;
    case TPERSONAS_ACTIVIDAD_ECONOMICA:
        $xTrab = new cSocios_aeconomica();
        $D = obten_filas("SELECT * FROM `socios_aeconomica` WHERE\t(`socios_aeconomica`.`socio_aeconomica` = {$data} ) ORDER BY `socios_aeconomica`.`fecha_alta` DESC\tLIMIT 0,1");
        $xTrab->setData($D);
        $query = $xTrab->query();
        $query->setToUTF8();
        $cnt = $svc->getEncryptData(json_encode($query->getCampos()));
        break;
    case TCATALOGOS_EMPRESAS:
        $xEmp = new cSocios_aeconomica_dependencias();
        $D = obten_filas("SELECT * FROM `socios_aeconomica_dependencias` WHERE (`socios_aeconomica_dependencias`.`clave_de_persona` ={$data}) LIMIT 0,1");
        $xEmp->setData($D);
        $query = $xEmp->query();
        $query->setToUTF8();
        $cnt = $svc->getEncryptData(json_encode($query->getCampos()));
        break;
}
echo $cnt;
$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
        $xLog = new cCoreLog();
        $xLog->add($rs["message"] . " {$data}", $xLog->COMMON);
        $xLog->guardar($xLog->OCat()->ELIMINAR_RAW);
        //agregar memo
    }
}
header('Content-type: application/json');
 function setCorregirActividadEconomica($correcion = false)
 {
     //obtener codigo postal
     $msg = "";
     //verificar si existe persona
     $ql = new MQL();
     $rs = $ql->getDataRecord("SELECT * FROM  `socios_aeconomica` ");
     $xAct = new cSocios_aeconomica();
     //$xT				= new cTipos();
     //$xT->setForceMayus();
     //$xT->setToUTF8();
     //$xT->setForceClean();
     foreach ($rs as $rows) {
         $xAct->setData($rows);
         $persona = $xAct->socio_aeconomica()->v();
         $id = $xAct->idsocios_aeconomica()->v();
         $cp = $xAct->ae_codigo_postal()->v();
         $iddom = $xAct->domicilio_vinculado()->v();
         //===========
         //==
         $xPerAe = new cPersonaActividadEconomica($persona);
         $xPerAe->setID($id);
         $xPerAe->init();
         if ($xPerAe->isInit() == true) {
             if ($xPerAe->setUpdatePorEmpresa(true) == false) {
                 $xPerAe->setUpdatePorDomicilio();
             }
             $msg .= $xPerAe->getMessages();
         } else {
             $msg .= "ERROR\tAl procesar el Domicilio\r\n";
         }
         //verificar si tiene codigo postal
     }
     $rs = $ql->getDataRecord("SELECT * FROM  `socios_aeconomica` WHERE `domicilio_vinculado` <= 1 OR `ae_codigo_postal` <= 1 ");
     $xAct = new cSocios_aeconomica();
     foreach ($rs as $rows) {
         $xAct->setData($rows);
         $persona = $xAct->socio_aeconomica()->v();
         $id = $xAct->idsocios_aeconomica()->v();
         $cp = $xAct->ae_codigo_postal()->v();
         $iddom = $xAct->domicilio_vinculado()->v();
         $idsuc = $xAct->sucursal()->v();
         $xSuc = new cSucursal($idsuc);
         if ($xSuc->init() == true) {
             $xAct->ae_codigo_postal($xSuc->getCodigoPostal());
             $xAct->ae_clave_de_localidad($xSuc->getClaveDeLocalidad());
         }
         $success = $xAct->query()->update()->save($id);
         if ($success != false) {
             $xPerAe = new cPersonaActividadEconomica($persona);
             $xPerAe->setID($id);
             $xPerAe->init();
             if ($xPerAe->isInit() == true) {
                 if ($xPerAe->setUpdatePorEmpresa(true) == false) {
                     $xPerAe->setUpdatePorDomicilio();
                 }
                 $msg .= $xPerAe->getMessages();
             } else {
                 $msg .= "ERROR\tAl procesar el Domicilio con ID {$id} 2\r\n";
             }
         } else {
             $msg .= "ERROR\tAl procesar al actualizar {$id}\r\n";
         }
     }
     return $msg;
 }