function setActualizarRiesgoPorNucleo()
{
//si todos son riesgo
$xLi = new cSQLListas();
$xQL = new MQL();
$sql = $xLi->getListadoDePersonasExpuestas($this->mClaveDePersona);
$rs = $xQL->getDataRecord($sql);
$xCat = new cPersonasCatalogoOtrosDatos();
foreach ($rs as $rows) {
$idpersona = $rows["numero_socio"];
$afinidad = $rows["grado_de_afinidad"];
$consanguinidad = $rows["grado_de_consanguinidad"];
$vinculoeconom = $rows["tiene_vinculo_patrimonial"];
//agregar
$tipoaml = $consanguinidad > 0 ? $xCat->AML_PEP_CONSANGUINIDAD : "";
$tipoaml = ($afinidad > 0 and $tipoaml == "") ? $xCat->AML_PEP_AFINIDAD : $tipoaml;
$tipoaml = ($vinculoeconom > 0 and $tipoaml == "") ? $xCat->AML_PEP_VINCULO_ECONOM : $tipoaml;
if ($tipoaml != "") {
$xRel = new cSocio($idpersona);
if ($xRel->init() == true) {
$xRel->addOtrosParametros($tipoaml, "1");
$this->mMessages .= $xRel->getMessages();
}
}
}
}
if ($origen_relacion == iDE_SOCIO) {
if ($personarelacionado > 0) {
$xPer = new cSocio($personarelacionado);
if ($xPer->init() == true) {
$addRel = $xPer->addRelacion($persona, $idtipoderelacion, $idtipodeparentesco, $dependiente, $idobservaciones);
}
$msg .= $xPer->getMessages();
} else {
$msg .= "ERROR\tError al agregar a la Relacion, no existe relacionado \r\n";
}
}
}
$xCat = new cPersonasCatalogoOtrosDatos();
//AGREGAR PEP
if ($espep == true and setNoMenorQueCero($persona) > 0) {
$xSoc->addOtrosParametros($xCat->AML_PEP_PRINCIPAL, "1");
}
if ($esextranjero == true and setNoMenorQueCero($persona) > 0) {
$xSoc->addOtrosParametros($xCat->PERSONAS_ES_EXTRANJERO, "1");
}
//agregar Relacion
if (MODO_DEBUG == true) {
$msg .= $xSoc->getMessages();
}
} else {
$xFRM->addCerrar();
}
$xFRM->addAviso($msg);
$xFRM->addJQDates("");
echo $xFRM->get();
//--------------------------------- ACTUALIZA EL ULTIMO SOCIO EN LA CAJA LOCAL