$xTa->addTH("Telefono Principal");
$xTa->addTH("Apoderado");
$xTa->addTH("Es PEP");
$xTa->addTH("Lista Negra");
$xTa->addTH("Grado de Riesgo");
$xTa->addTH("Servicios");
$xTa->addTH("Monto Otorgado");
$xTa->addTH("Monto Actual");
$xTa->addTH("Perfil Transaccional");
$xTa->addTH("Numero Maximo de Operaciones");
$xTa->addTH("Monto Maximo de Operaciones");
$xTa->endRow();
$xT = new cFileImporter();
foreach ($rs as $rows) {
$xDSoc->setData($rows);
$codigo_de_socio = $xDSoc->codigo()->v();
$xSoc = new cSocio($codigo_de_socio);
$xSoc->init($rows);
$xSoc->getOEstats()->initDatosDeCredito();
$saldoCred = setNoMenorQueCero($xSoc->getCreditosComprometidos());
if ($saldoCred > 0) {
$xTa->initRow();
$xTa->addTD($xSoc->getSucursal());
$xTa->addTD(htmlentities($xSoc->getNombreCompleto()));
$xTa->addTD($xF->getFechaMX($xSoc->getFechaDeNacimiento()));
$xTa->addTD("MEXICANA");
$xTa->addTD($xSoc->getRFC());
$xOAE = $xSoc->getOActividadEconomica();
if ($xOAE == null) {
$xTa->addTD(" ");
$xTa->addTD(" ");
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n";
$messages .= "=======================================================================================\r\n";
if (MODULO_AML_ACTIVADO == true) {
$mql = new MQL();
//crear arbol de relaciones
$xUtils = new cPersonas_utils();
$xUtils->setCrearArbolRelaciones();
//Validar perfiles transaccionales
//Validar Documentos
//TODO: Agregar cierre de riesgos
//checar documentos de todos los socios
$OSoc = new cSocios_general();
$rs = $OSoc->query()->select()->exec();
foreach ($rs as $data) {
$OSoc->setData($data);
$xAml = new cAMLPersonas($OSoc->codigo()->v());
$xAml->init();
//$xAml->setForceAlerts();
$xAml->setVerificarDocumentosCompletos($fechaop);
$xAml->setVerificarDocumentosVencidos($fechaop);
$messages .= $xAml->getMessages(OUT_TXT);
/*$xAml = new cAML();
$xAml->setForceAlerts(true);
$xAml->sendAlerts(getUsuarioActual(), $PersonaDeDestino, $TipoDeAlerta);*/
//envio de informes
//TODO: Agregar envio de informes
//checar perfil transaccional mensual
}
//verificar operaciones de 6 meses excedidas de maximo permitido
$sql2 = "SELECT\n\t`operaciones_recibos`.`fecha_operacion` AS `fecha`,\n\t`operaciones_recibos`.`numero_socio` AS `persona`,\n\tCOUNT(`operaciones_recibos`.`idoperaciones_recibos`) AS `operaciones`,\n\tSUM(`operaciones_recibos`.`total_operacion`) AS `monto`\n\tFROM\n\t`operaciones_recibos` `operaciones_recibos`\n\tWHERE\n\t(`operaciones_recibos`.`fecha_operacion` = '{$fechaop}')\n\tGROUP BY\n\t`operaciones_recibos`.`numero_socio`";
$rs1 = $mql->getDataRecord($sql2);
function getSimilaresPorNombre($nombre = "", $apellido1 = "", $apellido2 = "", $soloBusqueda = false)
{
if ($nombre == "") {
$xSoc = $this->getOPersona();
// new cSocio($this->mClaveDePersona);
$nombre = $xSoc->getNombre();
$apellido1 = $xSoc->getApellidoPaterno();
$apellido2 = $xSoc->getApellidoMaterno();
}
$nombre = strtoupper($nombre);
$apellido1 = strtoupper($apellido1);
$PersonaDeOrigen = $this->getCodigoDePersona();
$xPO = $this->getOPersona();
$NombreDeOrigen = $xPO->getNombreCompleto();
$snom = substr($nombre, 0, 3);
$sapp1 = substr($apellido1, 0, 3);
$apellido2 = strtoupper($apellido2);
$sapp2 = substr($apellido2, 0, 3);
$sql = "SELECT * FROM socios_general WHERE (`socios_general`.`nombrecompleto` LIKE '%{$snom}%') ";
if ($apellido1 != "") {
$sql = " AND (`socios_general`.`apellidopaterno` LIKE '%{$sapp1}%') ";
}
if ($apellido2 != "") {
$sql .= " AND (`socios_general`.`apellidomaterno` LIKE '%{$sapp2}%') ";
}
$this->mMessages .= "WARN\tBuscando similitudes para {$nombre} {$apellido1} {$apellido2} \r\n";
$xPer = new cSocios_general();
$xMql = new MQL();
$data = $xMql->getDataRecord($sql);
foreach ($data as $rows) {
$xPer->setData($rows);
$PersonaCoincide = $xPer->codigo()->v();
$PersonaDeDestino = AML_OFICIAL_DE_CUMPLIMIENTO;
$TipoDeAlerta = 901002;
$minimo = 90;
$parecido = 0;
$mNombre = strtoupper($xPer->nombrecompleto()->v());
$mApp1 = strtoupper($xPer->apellidopaterno()->v());
$mApp2 = strtoupper($xPer->apellidomaterno()->v());
$divisor = 1;
$parecido_a2 = 0;
$parecido_a1 = 0;
similar_text($mNombre, $nombre, $parecido_n);
similar_text($mApp1, $apellido1, $parecido_a1);
if ($apellido1 != "") {
similar_text($mApp1, $apellido1, $parecido_a1);
$divisor = 2;
$minimo = 80;
}
if ($apellido2 != "") {
similar_text($mApp2, $apellido2, $parecido_a2);
$divisor = 3;
$minimo = 70;
}
$parecido = ($parecido_n + $parecido_a1 + $parecido_a2) / $divisor;
if ($parecido > 51) {
if ($parecido >= $minimo) {
$xAML = new cAML();
$xSocP = new cSocio($PersonaCoincide);
$xSocP->init();
$origenN = $xSocP->getNombreCompleto();
$mensaje = "{$NombreDeOrigen} .- Concidencia({$mNombre}|{$mApp1}|{$mApp2}) del {$parecido} con la persona {$origenN} ";
if ($xSocP->getEsPersonaSDN() == true) {
//aviso inminente
$xAML->setForceRegistroRiesgo();
$xAML->setForceAlerts();
$xAML->sendAlerts($PersonaDeOrigen, $PersonaDeDestino, 901002, $mensaje);
} elseif ($xSocP->getEsPersonaPoliticamenteExpuesta() == true) {
//enviar a oficial de cumplimiento
$xAML->setForceAlerts();
$xAML->sendAlerts($PersonaDeOrigen, $PersonaDeDestino, 901010, $mensaje);
//registro pep
} else {
//enviar a oficial de cumplimiento
$xAML->setForceAlerts();
$xAML->sendAlerts($PersonaDeOrigen, $PersonaDeDestino, 901010, $mensaje);
//registro pep
}
$this->mMessages .= $xSocP->getMessages();
$this->mMessages .= $xAML->getMessages();
} else {
$this->mMessages .= "WARN\tEl parecido con {$mNombre} {$mApp1} {$mApp2} es {$parecido} %\r\n";
}
}
}
}
function getImportarDesdeAsociada($tipo)
{
$result = true;
$svc = new MQLService("", "");
$cmd = $svc->getEncryptData($tipo);
$xTu = new cSystemUser(TASK_USR, false);
$xTu->init();
$ctx = $xTu->getCTX();
$data = $svc->getEncryptData($this->mCodigo);
$host = SVC_ASOCIADA_HOST;
switch ($tipo) {
case TPERSONAS_GENERALES:
$dpersona = $svc->getService($host . "svc/exportar.svc.php?ctx={$ctx}&data={$data}&cmd={$cmd}");
if (is_array($dpersona)) {
$xSoc = new cSocios_general($dpersona);
if (setNoMenorQueCero($xSoc->codigo()->v()) > 0) {
$xSoc->query()->insert()->save();
$result = true;
}
}
break;
case TPERSONAS_DIRECCIONES:
$ddomicilio = $svc->getService($host . "svc/exportar.svc.php?ctx={$ctx}&data={$data}&cmd={$cmd}");
if (is_array($ddomicilio)) {
$xDom = new cSocios_vivienda($ddomicilio);
if (setNoMenorQueCero($xDom->idsocios_vivienda()->v())) {
$xDom->query()->insert()->save();
$result = true;
}
}
break;
case TPERSONAS_ACTIVIDAD_ECONOMICA:
$dtrabajo = $svc->getService($host . "svc/exportar.svc.php?ctx={$ctx}&data={$data}&cmd={$cmd}");
if (is_array($dtrabajo)) {
$xTrab = new cSocios_aeconomica($dtrabajo);
if (setNoMenorQueCero($xTrab->idsocios_aeconomica()->v())) {
$xTrab->query()->insert()->save();
$result = true;
}
}
break;
case TCATALOGOS_EMPRESAS:
$dempresa = $svc->getService($host . "svc/exportar.svc.php?ctx={$ctx}&data={$data}&cmd={$cmd}");
if (is_array($dempresa)) {
$xEmp = new cSocios_aeconomica_dependencias($dempresa);
if (setNoMenorQueCero($xEmp->idsocios_aeconomica_dependencias()->v())) {
$xEmp->query()->insert()->save();
$result = true;
}
}
break;
}
return $result;
}
