function setCorregirDomicilios($correcion = false)
{
//obtener codigo postal
$msg = "";
//verificar si existe persona
$ql = new MQL();
$rs = $ql->getDataRecord("SELECT * FROM `socios_vivienda`");
$xViv = new cSocios_vivienda();
$xT = new cTipos();
$xT->setForceMayus();
$xT->setToUTF8();
$xT->setForceClean();
foreach ($rs as $rows) {
$xViv->setData($rows);
//codigo_postal
$codigo_postal = $xViv->codigo_postal()->v();
$id = $xViv->idsocios_vivienda()->v();
$xCol = new cDomiciliosColonias();
$idunico = $xCol->getClavePorCodigoPostal($codigo_postal);
//corregir codigo postal
//optener CP por sucursal
if ($idunico <= 0) {
//asignar codigo postal
//iniciar por sucursal
$xSuc = new cSucursal($xViv->sucursal()->v());
if ($xSuc->init() == true) {
$codigo_postal = $xSuc->getCodigoPostal();
$idunico = $xCol->getClavePorCodigoPostal($codigo_postal);
$xViv->codigo_postal($codigo_postal);
}
}
//verificar principal
if (trim($xViv->principal()->v()) == "") {
$xViv->principal(TIPO_DOMICILIO_PRINCIPAL);
}
//corregir pais
if (trim($xViv->nombre_de_pais()->v()) == "") {
$xViv->nombre_de_pais(strtoupper(EACP_DOMICILIO_PAIS));
} else {
$xViv->nombre_de_pais(strtoupper($xViv->nombre_de_pais()->v()));
}
if ($idunico > 0) {
//cargar colonia
$estado = $xViv->estado()->v();
//if($xViv->clave_de_pais()->v() != $xCol->get)
if ($estado != $xCol->getNombreEstado()) {
//$msg .= "ERROR\tEl Estado " . $xViv->estado()->v() . " es diferente a " . $xT->cChar( $xCol->getNombreEstado()) . "\r\n";
//$estado = $xT->cChar( $xCol->getNombreEstado());
}
if ($correcion == true) {
//$msg .= "OK\tCorrecion autorizada\r\n";
$xViv->estado($xT->cChar($xCol->getNombreEstado()));
$xViv->municipio($xT->cChar($xCol->getNombreMunicipio()));
$xViv->localidad($xT->cChar($xCol->getNombreLocalidad()));
$xViv->clave_de_localidad($xCol->getClaveDeLocalidad());
if (PERSONAS_PERMITIR_EXTRANJEROS == false) {
$xViv->clave_de_pais(EACP_CLAVE_DE_PAIS);
}
$qup = $xViv->query()->update();
$rx = $qup->save($id);
if ($rx == true) {
$msg .= "OK\tVivienda con CP {$codigo_postal} e ID {$id} actualizado a la Colonia {$idunico}\r\n";
} else {
$msg .= "ERROR\tAl actualizar la Vivienda con CP {$codigo_postal} e ID {$id} . Colonia {$idunico}\r\n";
}
if (MODO_DEBUG == true) {
$msg .= $qup->getMessages();
}
}
} else {
$msg .= "WARN\tCodigo omitido por ser {$codigo_postal}\r\n";
}
}
return $msg;
}
