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