$primerNombre = $nombres[0];
$segundoNombre = isset($nombres[1]) ? $nombres[1] : "";
$tipoPersona = "0";
$fechaInscripcion = date("Y/m/d", strtotime($r["fechaalta"]));
$genero = $arrEquivGenero[$r["genero"]];
//datos del Domicilio
$DDom = $xSoc->getDatosDomicilio();
$calle = $xT->getCSV($DDom["calle"]);
$numero = $xT->getCSV($DDom["numero_exterior"]);
$colonia = $xT->getCSV($DDom["colonia"]);
$xCol = new cDomiciliosColonias();
$codCol = $xCol->getClavePorCodigoPostal($DDom["codigo_postal"]);
$xCol->set($codCol);
$xCol->init();
$DCol = $xCol->getDatosInArray();
$cp = $xT->cSerial(5, $DDom["codigo_postal"]);
$claveMun = $DCol["codigo_de_municipio"];
$claveEnt = $DCol["codigo_de_estado"];
$localidad = $DDom["localidad"];
$xLoc = new cDomicilioLocalidad("");
$claveLoc = $xLoc->setBuscar($localidad, $claveEnt, $claveMun);
$xLoc->set($claveLoc);
$DLoc = $xLoc->getDatosInArray();
$claveLocInegi = $DLoc["clave_de_localidad"];
$DAports = $xSoc->getDatosAportaciones();
$montoParteSoc = $xSoc->getAportacionesSociales();
$linea = "{$punto_de_acceso},{$socio},{$tipoDato},{$fechaNac},{$primerApellido},{$segundoApellido},{$primerNombre},{$segundoNombre},{$tipoPersona},{$fechaInscripcion}";
$linea .= ",{$genero},{$calle},{$numero},{$colonia},{$cp},{$claveLocInegi},{$montoParteSoc},\r\n";
echo $linea;
}
//echo getRawFooter();
/**
* Funcion que agrega una nueva Cuenta
* @param $origen Origen de la cuenta, lavado de dinero
* @param $subproducto Subproducto al que pertenece
* @param $socio
* @param $observaciones
* @param $credito
* @param $mancomunado1
* @param $mancomunado2
* @param $grupo
* @param $fecha_alta
* @param $tipo_de_cuenta
* @param $tipo_de_titulo
* @param $DiasInvertidos
* @param $tasa
* @param $CuentaDeIntereses
* @return unknown_type
*/
function setNuevaCuenta($origen, $subproducto, $socio, $observaciones = "", $credito = 1, $mancomunado1 = "", $mancomunado2 = "", $grupo = 99, $fecha_alta = false, $tipo_de_cuenta = 20, $tipo_de_titulo = 99, $DiasInvertidos = false, $tasa = false, $CuentaDeIntereses = false, $FechaVencimiento = false)
{
$xT = new cTipos(0);
if ($this->mNumeroCuenta == false) {
//Asigna una cuenta por estructura
$cuenta = $xT->cSerial(2, $subproducto) . $xT->cSerial(DIGITOS_DE_CLAVE_DE_SOCIO, $socio) . "01";
$sqlNCta = "SELECT COUNT(numero_cuenta) AS 'cuentas'\n\t\t\t\t\t\t\t\t\tFROM captacion_cuentas\n\t\t\t\t\t\t\t\t\tWHERE numero_socio={$socio}";
$datos = obten_filas($sqlNCta);
if (isset($datos["cuentas"]) or $datos["cuentas"] > 0) {
$cuenta = $xT->cSerial(2, $subproducto) . $xT->cSerial(DIGITOS_DE_CLAVE_DE_SOCIO, $socio) . ($datos["cuentas"] + 1);
$this->mMessages .= "WARN\tSe Presume al Numero de cuenta {$cuenta} por que el socio tiene " . $datos["cuentas"] . " cuentas\r\n";
}
$this->mNumeroCuenta = $cuenta;
unset($datos);
}
$idsolicitud = $credito;
$idgrupo = $grupo;
$observacion = $observaciones;
$xF = new cFecha();
if ($DiasInvertidos == false) {
$DiasInvertidos = $this->mDiasInvertidos;
}
$fechaalta = $fecha_alta == false ? $this->mFechaOperacion : $fecha_alta;
if ($tasa == false) {
$tasa = $this->mTasaInteres;
} else {
$this->mTasaInteres = $tasa;
}
if ($this->mSocioTitular != 0 and isset($this->mSocioTitular) and $this->mSocioTitular != false) {
$idsocio = $this->mSocioTitular;
} else {
if (isset($socio) && $socio != false) {
$idsocio = $socio;
$this->mSocioTitular = $socio;
}
}
if ($CuentaDeIntereses == false) {
$CuentaDeIntereses = CTA_GLOBAL_CORRIENTE;
}
$FechaVencimiento = $FechaVencimiento == false ? $xF->setSumarDias($DiasInvertidos, $fechaalta) : $FechaVencimiento;
$origencuenta = $origen;
$tipotitulo = $tipo_de_titulo;
$lacuenta = $this->mNumeroCuenta;
$sucursal = getSucursal();
$fechabaja = "2029-12-31";
$estatus = 10;
$man1 = $mancomunado1;
$man2 = $mancomunado2;
$subpdto = $subproducto;
$sqlPdto = "SELECT * FROM captacion_subproductos\tWHERE idcaptacion_subproductos={$subpdto}";
$dPdto = obten_filas($sqlPdto);
$tipocuenta = $dPdto["tipo_de_cuenta"];
$contrato = $dPdto["nombre_del_contrato"];
$iduser = $_SESSION["SN_b80bb7740288fda1f201890375a60c8f"];
$eacp = EACP_CLAVE;
//verifica si existe la Cuenta
$cuentas_existentes = $this->setContarCuenta();
//
if ($cuentas_existentes > 0) {
//sumar otro folio
$lacuenta++;
$this->mNumeroCuenta = $lacuenta;
$cuentas_existentes = $this->setContarCuenta();
if ($cuentas_existentes > 0) {
$lacuenta++;
$this->mNumeroCuenta = $lacuenta;
}
}
// Si es Inversion la Cuenta Estara Inactiva
if ($tipocuenta == 20) {
$estatus = 20;
}
$sqlNR = "INSERT INTO captacion_cuentas(\n\t\t\t\t\t\tnumero_cuenta, numero_socio, numero_grupo, numero_solicitud, tipo_cuenta,\n\t\t\t\t\t\tfecha_apertura, fecha_afectacion, fecha_baja, estatus_cuenta, saldo_cuenta,\n\t\t\t\t\t\teacp, idusuario, inversion_fecha_vcto, inversion_periodo, tasa_otorgada, dias_invertidos, observacion_cuenta, origen_cuenta,\n\t\t\t\t\t\ttipo_titulo, tipo_subproducto, nombre_mancomunado1, nombre_mancomunado2, minimo_mancomunantes, saldo_conciliado, fecha_conciliada,\n\t\t\t\t\t\tsucursal, ultimo_sdpm, oficial_de_captacion,\n\t\t\t\t\t\tcuenta_de_intereses)\n \t\t\t\t\tVALUES(\n\t\t\t\t\t\t{$lacuenta}, {$idsocio}, {$idgrupo}, {$idsolicitud}, {$tipocuenta},\n\t\t\t\t\t'{$fechaalta}', '{$fechaalta}', '{$fechabaja}', {$estatus}, 0,\n\t\t\t\t\t'{$eacp}', {$iduser},\n\t\t\t\t\t'{$FechaVencimiento}', 1, {$tasa}, {$DiasInvertidos}, '{$observacion}', {$origencuenta},\n\t\t\t\t\t{$tipotitulo}, {$subpdto}, '{$man1}', '{$man2}', 0, 0, '{$fechaalta}',\n\t\t\t\t\t'{$sucursal}', 0, {$iduser},\n\t\t\t\t\t{$CuentaDeIntereses})";
$r = my_query($sqlNR);
if ($r["stat"] == true) {
$this->mMessages .= "OK\tSe Agrego Existosamente la Cuenta {$lacuenta} del subproducto {$subpdto} \r\n";
$this->mSucess = true;
$this->mSocioTitular = $idsocio;
$this->mGrupoAsociado = $grupo;
$this->mCreditoAsoc = $idsolicitud;
$this->mNumeroCuenta = $lacuenta;
$this->mDiasInvertidos = $DiasInvertidos;
$this->mFechaVencimiento = $FechaVencimiento;
} else {
$this->mMessages .= "ERROR\tal Agregar la Cuenta {$lacuenta} del subproducto {$subpdto}\r\n";
if (MODO_DEBUG == true) {
$this->mMessages .= $r["info"];
}
$this->mSucess = false;
}
return $this->mNumeroCuenta;
}
$ODom = $xSoc->getODomicilio();
$OAEc = $xSoc->getOActividadEconomica();
$tp = $xSoc->getEsPersonaFisica() == true ? 1 : 2;
$nac = $xSoc->getPaisDeOrigen() == EACP_CLAVE_DE_PAIS ? 1 : 2;
$detalles = $xRisk->notas_de_checking()->v(OUT_TXT);
$razones = $xRisk->razones_de_reporte()->v(OUT_TXT);
$tipo_de_obj = $xRisk->tipo_de_documento()->v();
$tercero = $xRisk->tercero_relacionado()->v();
//obtiene las razones de cada operacion presente.
$recibo = $xRisk->documento_relacionado()->v();
$cont = array();
$linea = "";
$cont[1] = $xLayout->getClave();
$cont[2] = $FechaExtraccion;
$cont[3] = $operaciones == 0 ? 1 : $operaciones;
$cont[4] = "01" . $xT->cSerial(3, $supervisor);
//clave nacional de entidad supervisora 1002 = CNBV
$cont[5] = $casfin;
$cont[6] = $xLoc->DomicilioLocalidadClave();
// cambiar por la UIF
$cont[7] = $xLoc->DomicilioCodigoPostal();
// CP de la sucursal
$docto_relacionado = $OAEc == null ? $OAEc->getNumeroDeSeguridadSocial() : $xRisk->documento_relacionado()->v();
//($xRec->getCodigoDeDocumento() == DEFAULT_CREDITO) ? $xRec->getCodigoDeRecibo() : $xRec->getCodigoDeDocumento();
$fecha_de_op = $xF->getFechaByInt($xRisk->fecha_de_reporte()->v());
$instrumento = $xRisk->instrumento_financiero()->v();
$tipo_de_op = $xRisk->tipo_de_operacion()->v();
$total = $xRisk->monto_total_relacionado()->v();
$moneda = AML_CLAVE_MONEDA_LOCAL;
//TODO: Agregar soporte para captación y colocación
switch ($tipo_de_obj) {
$xFil = new cFileImporter();
$xFil->setCharDelimiter("|");
//var_dump($_FILES["f1"]);
if ($xFil->processFile($doc1) == true) {
$data = $xFil->getData();
$linea = 0;
foreach ($data as $valores => $cont) {
//
if ($linea == 0) {
} else {
//0clave_interna 1clave_de_actividad 2nombre_de_la_actividad
//3descripcion_detallada 4productos 5clasificacion 6clave_de_superior
//7nivel_de_riesgo 8califica_para_pep
$idactividad = $cont[0];
$nombre = $xT->setNoAcentos($cont[2]);
$claveuif = $xT->cSerial(7, $cont[1]);
$esPep = setNoMenorQueCero($cont[8]);
$riesgo = $xT->cInt($cont[7]);
$xAct = new cPersonas_actividad_economica_tipos();
//eliminar primero
$xAct->query()->setRawQuery("DELETE FROM personas_actividad_economica_tipos WHERE clave_interna={$idactividad}");
//asignar valores
$xAct->califica_para_pep($esPep);
$xAct->clasificacion("CLASE");
$xAct->clave_de_actividad($claveuif);
$xAct->clave_de_superior(0);
$xAct->clave_interna($idactividad);
$xAct->descripcion_detallada($nombre);
$xAct->nivel_de_riesgo($riesgo);
$xAct->nombre_de_la_actividad($nombre);
$xAct->productos("");
function getIDNuevoDocto($tipo_de_docto, $subtipo = false)
{
$socio = $this->mCodigo;
$id = false;
$xT = new cTipos();
$msg = "";
$proximoDocto = setNoMenorQueCero($this->getContarDoctos($tipo_de_docto)) + 1;
//$subtipo
$clave_socio = $xT->cSerial(DIGITOS_DE_CLAVE_DE_SOCIO, $socio);
$docto = $xT->cSerial(2, $proximoDocto);
//tipo-de-docto + socio + numero-de-credito
//200 + 990000 + 99 =20099000099
$id = str_replace("0", "", "{$tipo_de_docto}") . $clave_socio . $docto;
switch ($tipo_de_docto) {
case iDE_CREDITO:
break;
case iDE_CAPTACION:
break;
default:
break;
}
//verifica si existe el credito
if ($this->getContarDoctos(iDE_CREDITO, false, $id) > 0) {
$msg .= "{$socio}\t{$id}\\El CREDITO Existe\r\n";
$msg .= "{$socio}\t{$id}\\El DOCTO se cambia a " . ($id + 1) . "\r\n";
$id++;
//vuelve a verificar el credito
if ($this->getContarDoctos(iDE_CREDITO, false, $id) > 0) {
$msg .= "{$socio}\t{$id}\\El CREDITO Existe\r\n";
$msg .= "{$socio}\t{$id}\\El DOCTO se cambia a " . ($id + 1) . "\r\n";
$id++;
}
}
//verifica si existe en captacion
if ($this->getContarDoctos(iDE_CAPTACION, false, $id) > 0) {
$msg .= "{$socio}\t{$id}\\La CUENTA Existe\r\n";
$msg .= "{$socio}\t{$id}\\El DOCTO se cambia a " . ($id + 1) . "\r\n";
$id++;
//vuelve a verficar en captacion
if ($this->getContarDoctos(iDE_CAPTACION, false, $id) > 0) {
$msg .= "{$socio}\t{$id}\\La CUENTA Existe\r\n";
$msg .= "{$socio}\t{$id}\\El DOCTO se cambia a " . ($id + 1) . "\r\n";
$id++;
}
}
return $id;
}
function get()
{
$valor = $this->mValor;
$xT = new cTipos();
switch ($this->mTipo) {
case MQL_DATE:
$xF = new cFecha();
$valor = $xF->out($this->mFormato, $valor);
break;
case MQL_BOOL:
break;
case MQL_STRING:
//largo maximo
$valor = strtoupper(substr($valor, 0, $this->mLargo));
break;
case MQL_FLOAT:
if (setNoMenorQueCero($valor) > 0 or $this->mObligatorio == true) {
$serializar = strlen($this->mFormato);
$valor = strpos($this->mFormato, "#") === false ? $valor : $xT->cSerial($serializar, $valor);
} else {
$valor = "";
}
break;
case MQL_INT:
if (setNoMenorQueCero($valor) > 0 or $this->mObligatorio == true) {
$serializar = strlen($this->mFormato);
//setLog($this->mFormato . $serializar);
$valor = strpos($this->mFormato, "#") === false ? $valor : $xT->cSerial($serializar, $valor);
} else {
$valor = "";
}
break;
}
return $valor;
}