/**
* Funcion que obtiene el Nombre del socio
*
* @param integer $params
* @return string
*/
function Common_695bad33e1f2af343f99c6a4ceb9d045($params)
{
$nombre = MSG_NO_PARAM_VALID;
$xT = new cTipos();
$socio = $xT->cInt($params);
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == true) {
$xSoc->init();
$nombre = $xSoc->getNombreCompleto(OUT_TXT);
}
return $nombre;
}
function jsaPrevalidarCredito($socio, $solicitud, $numpagos, $periocidad, $convenio, $contrato, $fechaMin, $fechaVenc, $monto)
{
$clave = md5($socio . $solicitud . ROTTER_KEY . date("Ymd"));
$out = false;
$msg = "";
$ctrl = "";
$xHO = new cHObject();
$xBtn = new cHButton();
$arrDatos = array("numero_de_solicitud" => $solicitud, "periocidad_de_pago" => $periocidad, "tipo_de_producto" => $convenio, "numero_de_pagos" => $numpagos, "contrato_corriente_relacionado" => $contrato, "fecha_de_ministracion" => $fechaMin, "fecha_de_vencimiento" => $fechaVenc);
if ($socio == DEFAULT_SOCIO or $socio == 0) {
$msg .= "ERROR\t{$socio}\tClave de Persona no Valido\r\n";
$out = false;
} else {
if ($solicitud == DEFAULT_CREDITO or $solicitud == 0) {
$msg .= "ERROR\t{$socio}\t{$solicitud}\tNumero de Credito no Valido\r\n";
$out = false;
} else {
//Valorar Numero de Creditos por Socio
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == false) {
$msg .= "ERROR\t{$socio}\tEl Socio No Existe\r\n";
$out = false;
} else {
$xSoc->init();
$out = $xSoc->setPrevalidarCredito($arrDatos);
$msg .= $xSoc->getMessages();
}
}
}
if ($out == true) {
$msg .= "OK\tEL CREDITO HA SIDO VALIDADO POR EL SISTEMA - CUMPLE LOS REQUISITOS\r\n";
$ctrl .= $xBtn->getBasic("TR.guardar credito", "jsFormularioValidado('{$clave}')", "guardar", "idvalidarok");
$ctrl .= $xBtn->getBasic("TR.validar nuevamente", "jsPrevalidarCredito()", "checar", "idnuevavalidacion");
} else {
//$ctrl = "<input type=\"button\" name=\"cmdSubmit\" onclick=\"jsPrevalidarCredito();\" value=\"VALIDAR CREDITO NUEVAMENTE\" />";
$ctrl .= $xBtn->getBasic("TR.validar nuevamente", "jsPrevalidarCredito()", "checar", "idnuevavalidacion");
}
$msg = $xHO->Out($msg, OUT_HTML);
$svalidate = "{$msg} {$ctrl}";
return $svalidate;
}
/**
* Valida la Cuenta de Captacion
* @param boolean $ForzarCorreccion
*/
function setValidar($ForzarCorreccion = false)
{
$arrUp = array();
$DC = $this->getDatosInArray();
$socio = $this->mSocioTitular;
$cuenta = $this->mNumeroCuenta;
$grupo = $this->mGrupoAsociado;
$sucursal = $DC["sucursal"];
$user = $DC["idusuario"];
$oficial = $DC["oficial_de_captacion"];
$credito = $DC["numero_solicitud"];
$FApertura = $DC["fecha_apertura"];
$FAfecta = $DC["fecha_afectacion"];
//Fecha Valida
$FechaValida = true;
$msg = "VALIDAR CUENTA {$cuenta}\r\n";
//Datos propios de la Inversion
$FVencInv = $DC["inversion_fecha_vcto"];
$DiasInv = $DC["dias_invertidos"];
$TCuenta = $DC["tipo_cuenta"];
//Cuenta de Intereses
$CtaInts = $DC["cuenta_de_intereses"];
//Datos producto
$xDT = new cInformacionProductoCaptacion($TCuenta);
$DT = $xDT->init();
//validar socios
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == false) {
$msg .= "CRITICO\tSOCIO\tEl Socio {$socio} no EXISTE \r\n";
if ($ForzarCorreccion == true) {
$xSoc->add("SOCIO_CUENTA_{$cuenta}");
$msg .= "NUEVO\tSOCIO\tAgregado el Socio {$socio}\r\n";
}
}
//validar grupo
if ($grupo == false or $grupo == 0) {
$arrUp["numero_grupo"] = DEFAULT_GRUPO;
$msg .= "ERROR\tGRUPO\tEl Grupo {$grupo} No es Valido, se actualiza al default \r\n";
} else {
//Controlar Grupo
$xGrp = new cGrupo($grupo);
if ($xGrp->existe($grupo) == false) {
$msg .= "CRITICO\tGRUPO\tEl Grupo {$grupo} no EXISTE \r\n";
if ($ForzarCorreccion == true) {
$xGrp->add("GRUPO_CUENTA_{$cuenta}", "", false, false, 10, 1, $grupo, $sucursal);
$msg .= "NUEVO\tGRUPO\tSe Agrego el Grupo {$grupo} \r\n";
}
}
}
//Restaurar Credito
if ($credito != DEFAULT_CREDITO) {
$arrUp["numero_solicitud"] = DEFAULT_CREDITO;
}
//
//Controlar Usuario
$xUsr = new cSystemUser($user);
if ($xUsr->existe($user) == false) {
$msg .= "CRITICO\tUSUARIO\tEl Usuario {$user} no EXISTE \r\n";
if ($ForzarCorreccion == true) {
$xUsr->add("usr{$user}", "", 2, "USR_CTA_{$cuenta}", "", "", "", false, "baja", "", $sucursal, $user);
$msg .= "NUEVO\tUSUARIO\tSe Agrego el Usuario {$user} \r\n";
}
}
//Controlar Oficial de Captacion
if ($xUsr->existe($oficial) == false) {
$msg .= "ERROR\tOFICIAL\tEl Oficial de Captacion {$oficial} no EXISTE \r\n";
if ($ForzarCorreccion == true) {
$xUsr->add("usr{$oficial}", "", 2, "OFICIAL_CTA_{$cuenta}", "", "", "", false, "baja", "", $sucursal, $oficial);
$msg .= "NUEVO\tOFICIAL\tSe Agrego el OFICIAL {$oficial} \r\n";
}
}
if ($FApertura == '0000-00-00') {
$msg .= "WARN\tLa fecha de Apertura {$FApertura} es INVALIDA\r\n";
$arrUp["fecha_apertura"] = fechasys();
$FechaValida = false;
}
if ($FAfecta == '0000-00-00') {
$msg .= "WARN\tLa fecha de Afectacion {$FAfecta} es INVALIDA\r\n";
$arrUp["fecha_afectacion"] = fechasys();
$FechaValida = false;
}
//Validar las fechas
if ($FechaValida == true) {
if (strtotime($FApertura) > strtotime($FAfecta)) {
$msg .= "WARN\tLa fecha de Apertura {$FApertura} es mayor a la de operaciones {$FAfecta}\r\n";
$arrUp["fecha_apertura"] = $FAfecta;
}
}
//Validar las funciones del Subproducto
if ($ForzarCorreccion == true) {
//Guardar Cambios
$this->setUpdate($arrUp);
return $msg;
}
}
function setReportarUsuario($usuarioreportado, $motivo, $mensaje, $documento = false, $fecha = false, $persona = false, $tipo_de_documento = iDE_RECIBO)
{
$msg = "";
$xF = new cFecha(0, $fecha);
$documento = setNoMenorQueCero($documento);
$persona = setNoMenorQueCero($persona);
$usuarioreportado = setNoMenorQueCero($usuarioreportado);
$cDUsr1 = new cVistaUsuarios();
$cDUsr1->setData($cDUsr1->query()->initByID($usuarioreportado));
$PersonaDeDestino = $cDUsr1->codigo_de_persona()->v();
$tipo_de_docto = setNoMenorQueCero($tipo_de_documento);
if ($documento > DEFAULT_CREDITO) {
//$tipo_de_docto = iDE_CREDITO;
} else {
if ($persona > DEFAULT_SOCIO) {
$documento = $persona;
$tipo_de_docto = iDE_SOCIO;
}
}
//verificar si existe la persona
$xSoc = new cSocio($PersonaDeDestino);
if ($xSoc->existe($PersonaDeDestino) == false) {
$msg .= "ERROR\tLa persona {$PersonaDeDestino} NO EXISTE, no hay datos para reportar\r\n";
} else {
$this->setForceAlerts();
$res = $this->sendAlerts($PersonaDeDestino, AML_OFICIAL_DE_CUMPLIMIENTO, $motivo, $mensaje, $documento, $fecha, false, 0, $tipo_de_docto, $persona);
$msg .= $res == false ? "ERROR\tError al agregar el registro\r\n" : "OK\tRegistro correcto\r\n";
}
$this->mMessages .= $msg;
return $msg;
}
while (!feof($gestor)) {
$bufer = fgets($gestor, 4096);
//$bufer = stream_get_line($gestor, "\r\n");
if (!isset($bufer)) {
$msg .= "{$iReg}\tLa Linea({$iReg}) no se leyo({$bufer})\r\n";
} else {
//layout : socio , nombre, monto, cuenta
$datos = explode(",", trim($bufer), 4);
$socio = $cT->cInt($datos[0]);
$nombre = isset($datos[1]) ? $cT->cChar(trim($datos[1])) : "";
$monto = isset($datos[2]) ? $datos[2] : 0;
$cuenta = isset($datos[3]) ? $datos[3] : 0;
if ($socio != 0 and $socio != 0) {
//
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == false) {
//
$msg .= "{$iReg}\tERROR\t{$socio}\tEl Socio NO EXISTE\r\n";
$txt .= "{$socio},{$nombre},{$monto},{$cuenta},NO_EXISTE\r\n";
} else {
$xSoc->init();
$D = $xSoc->getDatosInArray();
$estatus = $cT->cInt($D["estatusactual"]);
//
switch ($estatus) {
case 99:
$msg .= "{$iReg}\tWARNING\t{$socio}\tEl Socio puede tener PROBLEMAS al migrar, su estatus es {$estatus}\r\n";
break;
case 50:
$msg .= "{$iReg}\tERROR\t{$socio}\tEl Socio TIENE PROBLEMAS al migrar, su estatus es {$estatus}\r\n";
$txt .= "{$socio},{$nombre},{$monto},{$cuenta},{$estatus}\r\n";
$saldoCW = $cT->cFloat(trim($datos[2]), 2);
$socioCW = $cT->cInt(trim($DCuenta[5]), true);
//$msg .= "COMPACW\tSaldo $saldoCW SOCIO $socioCW\r\n";
$aCompacW[$socioCW] += $saldoCW;
$aCompacWC[$socioCW] .= "{$cuenta}\t{$saldoCW}\t";
}
$iReg++;
}
}
fclose($gestor);
foreach ($aCompacW as $key => $value) {
$socio = $cT->cInt($key, true);
$sdoCW = $cT->cFloat($value);
//Filtrar por sucursal
$xSoc = new cSocio($socio);
if ($xSoc->existe($socio) == true) {
switch ($TipoDeImportacion) {
case "credito":
//1-3-01-02-03-0037002
$saldo = isset($aCreditos[$socio]) ? $aCreditos[$socio] : 0;
if ($cT->getEvalNumeroSimilar($saldo, $sdoCW) == true) {
$diferencia = $saldo - $sdoCW;
$msg .= "{$socio}\tSUCESS\t{$saldo}\t{$sdoCW}\t{$diferencia}\tSaldo Correcto, SIMILAR/IGUAL\r\n";
} else {
$diferencia = $saldo - $sdoCW;
$msg .= "{$socio}\tERROR\t{$saldo}\t{$sdoCW}\t{$diferencia}\tSaldo Incorrecto\r\n";
$msgD .= "{$socio}\t{$saldo}\t{$sdoCW}\t{$diferencia}\t" . $aCompacWC[$socio] . "\r\n";
}
break;
case "ahorro":
$saldo = isset($aCaptacion[$socio]) ? $aCaptacion[$socio] : 0;
$codigo_postal = parametro("idcodigopostal");
$referencia = parametro("idreferencia");
$numero_interior = parametro("idnumero");
$curp = parametro("curp");
$observaciones = parametro("observaciones");
$consanguinidad = parametro("consan");
$depende = parametro("depende");
$ocupacion = parametro("ocupacion");
$rfc = "";
$grupo_solidario = DEFAULT_GRUPO;
$genero = DEFAULT_GENERO;
$tipo_persona = TIPO_JURIDICO_FISICA;
$numero_de_socio = $numero_de_socio == DEFAULT_SOCIO ? false : $numero_de_socio;
$xRel = new cSocio($numero_de_socio);
//$email = $xRel->getCorreoElectronico();
if ($xRel->existe() != true) {
$xRel->add($nombres, $apellido_paterno, $apellido_materno, $rfc, $curp, getCajaLocal(), $fecha_de_nacimiento, "", TIPO_INGRESO_RELACION, DEFAULT_ESTADO_CIVIL, $genero, DEFAULT_EMPRESA, DEFAULT_REGIMEN_CONYUGAL, $tipo_persona, $grupo_solidario, $observaciones, DEFAULT_TIPO_IDENTIFICACION, "", false, false, $telefono_movil, "", 0);
if (trim($calle) != "") {
$xRel->addVivienda($calle, $numero, $codigo_postal, "", $referencia, $telefono_fijo, $telefono_movil, TIPO_DOMICILIO_PRINCIPAL, TIPO_VIVIENDA_PROPIA, TIPO_DOMICILIO_PARTICULAR, DEFAULT_TIEMPO, $colonia, "calle");
}
if (trim($ocupacion) != "") {
$xRel->addActividadEconomica("", 0, $ocupacion, DEFAULT_TIEMPO, DEFAULT_EMPRESA);
}
$xRel->init();
$numero_de_socio = $xRel->getCodigo();
}
$xSoc = new cSocio($idsocio);
$xSoc->addRelacion($numero_de_socio, $tipo_de_relacion, $consanguinidad, $depende, $observaciones, $monto_relacionado, $porcentaje_relacionado);
//echo $xRel->getMessages("txt");
//echo $xSoc->getMessages("txt");
header("location:referencias.directas.frm.php?msg=OK&socio=" . $idsocio);
$localidad = $DLocal["nombre_de_la_localidad"];
}
$xSoc->addVivienda($calle, $numero, $cp, "", $referencia, "0", "0", SYS_UNO, FALLBACK_PERSONAS_REGIMEN_VIV, FALLBACK_PERSONAS_TIPO_VIV, DEFAULT_TIEMPO, $colonia, "calle", "", $idlocal, $idpais, $pais, $estado, $municipio, $localidad);
//Actualizar pais
}
$msg .= $xSoc->getMessages(OUT_TXT);
break;
case "ALT":
/*
1597|1190|"aka"|"OCTOBER HOLDING COMPANY"|-0-
1661|1229|"aka"|"PESMAR S.A."|-0-
6857|4607|"aka"|"CARDENAS GUILLEN, Oscar"|-0-
*/
//$someword = strtolower(preg_replace("/[^a-z]+/i", "-", $theword));
$xSoc = new cSocio($id);
if ($xSoc->existe($id) == true) {
$xFil->setDataRow($cont);
$eq = array("AKA" => 511, "FKA" => 512);
$xRel = new cSocios_relaciones();
//$xRel->apellido_materno()
$idrelacion = $xFil->getEntero(2);
$tipo = trim($xFil->cleanString($xFil->getV(3, "NULL")));
$nombres = $xFil->cleanString($xFil->getV(4, "NULL"));
$nombre = "";
$apellido1 = "";
$apellido2 = "";
if (strpos($nombres, ",") !== false) {
//es nombre de persona
$ds = explode(",", $nombres, 2);
$nombre = trim($ds[1]);
if (strpos($ds[0], " ") !== false) {
$sucess = true;
}
}
if ($importar == false) {
if ($xSoc->existe($persona) == false) {
//$sucess = false;
//$msg .= "ERROR\tLa persona $persona NO EXISTE\r\n";
if (PERSONAS_COMPARTIR_CON_ASOCIADA == true) {
//Intentar cargar desde servidor externo
$cargar = $xSoc->getImportarDesdeAsociada(TPERSONAS_GENERALES);
if ($cargar == true) {
$xSoc->getImportarDesdeAsociada(TPERSONAS_DIRECCIONES);
$xSoc->getImportarDesdeAsociada(TPERSONAS_ACTIVIDAD_ECONOMICA);
}
$xSoc = new cSocio($persona);
if ($xSoc->existe($persona) == false) {
$sucess = false;
$msg .= "ERROR\tLa persona {$persona} NO EXISTE en ASOCIADA\r\n";
} else {
$sucess = true;
$msg .= "OK\tLa persona {$persona} ha sido importada\r\n";
}
}
if ($sucess == false) {
}
}
}
//Agregar
if ($xSoc->existe($persona) == false) {
//Dar de Alta
$persona = setNoMenorQueCero($persona) > 0 ? $persona : false;
function init()
{
$sql = "SELECT * FROM general_sucursales\tWHERE\t(`general_sucursales`.`codigo_sucursal` =\"" . $this->mClave . "\") ";
$D = obten_filas($sql);
$this->mInitPersona = false;
if (isset($D["titular_de_cobranza"])) {
$this->mTitularCobranza = $D["titular_de_cobranza"];
$this->mTitularContable = $D["titular_de_contabilidad"];
$this->mGerente = $D["gerente_sucursal"];
$this->mHorarioDeCierre = $D["hora_de_fin_de_operaciones"];
$this->mCajaLocalRes = $D["caja_local_residente"];
$this->mMunicipio = $D["municipio"];
$this->mEstado = $D["estado"];
$this->mCodigoPostal = $D["codigo_postal"];
$this->mClaveDePersona = $D["clave_de_persona"];
$this->mNombreLocalidad = $D["localidad"];
$this->mClaveNumerica = $D["clave_numerica"];
$this->mDatosInArray = $D;
//$xL = new cLocal($this->mClave);
//$this->mMessages .= "ERROR\tLa Persona " . $this->mClaveDePersona . " de Sucursal No existe\r\n";
$this->mDomicilioCorto = EACP_DOMICILIO_CORTO;
$localidad = defined("EACP_LOCALIDAD") ? EACP_LOCALIDAD : "NO_DEFINIDO";
$this->mMunicipio = trim($this->mMunicipio) == "" ? EACP_MUNICIPIO : $this->mMunicipio;
$this->mEstado = trim($this->mEstado) == "" ? EACP_ESTADO : $this->mEstado;
$this->mCodigoPostal = (int) $this->mCodigoPostal == 0 ? EACP_CODIGO_POSTAL : $this->mCodigoPostal;
$this->mNombreLocalidad = trim($this->mNombreLocalidad) == "" ? $localidad : $this->mNombreLocalidad;
$this->mClaveDeMunicipio = EACP_CLAVE_DE_MUNICIPIO;
$this->mClaveDeEstado = EACP_CLAVE_NUM_ENTIDADFED;
$this->mClaveDeEstadoABC = EACP_CLAVE_DE_ENTIDADFED;
$this->mClaveDeEstadoSIC = EACP_CLAVE_DE_ENTIDAD_SIC;
$this->mClaveLocalidad = EACP_CLAVE_DE_LOCALIDAD;
$this->mCalle = EACP_DOMICILIO_CALLE;
$this->mNumeroExt = EACP_DOMICILIO_NUM_EXT;
$this->mNumeroInt = EACP_DOMICILIO_NUM_INT;
$this->mColonia = EACP_COLONIA;
if (setNoMenorQueCero($this->mClaveDePersona) > 0 and $this->mClaveDePersona != DEFAULT_SOCIO) {
$xSoc = new cSocio($this->mClaveDePersona);
if ($xSoc->existe($this->mClaveDePersona) == true) {
if ($xSoc->init() == true) {
//verificar si existe domicilio
$xViv = new cPersonasVivienda($this->mClaveDePersona);
$xDB = new cSAFETabla(TPERSONAS_DIRECCIONES);
$sql = $xDB->getQueryInicial() . " WHERE socio_numero=" . $this->mClaveDePersona . " ORDER BY principal DESC, fecha_alta DESC LIMIT 0,1";
$DCOL = obten_filas($sql);
$this->mTelefono = $xSoc->getTelefonoPrincipal();
if (isset($DCOL["idsocios_vivienda"])) {
$xViv->init(false, $DCOL);
$this->mMunicipio = $xViv->getMunicipio();
$this->mEstado = $xViv->getEstado(OUT_TXT);
$this->mCodigoPostal = $xViv->getCodigoPostal();
$this->mClaveDeEstado = $xViv->getClaveDeEstado();
$this->mDomicilioCorto = $xViv->getCalleConNumero();
$this->mNombreLocalidad = $xViv->getCiudad();
$this->mClaveLocalidad = $xViv->getClaveDeLocalidad();
$this->mInitPersona = true;
$this->mClaveDeMunicipio = $xViv->getClaveDeMunicipio();
$this->mClaveDeEstado = $xViv->getClaveDeEstado();
$this->mClaveDeEstadoABC = $xViv->getClaveDeEstadoABC();
$this->mClaveDeEstadoSIC = $xViv->getClaveDeEstadoEnSIC();
$this->mCalle = $xViv->getCalle();
$this->mNumeroExt = $xViv->getNumeroExterior();
$this->mNumeroInt = $xViv->getNumeroInterior();
$this->mColonia = $xViv->getColonia();
} else {
$this->mMessages .= "ERROR\tLa Persona " . $this->mClaveDePersona . " de Sucursal, no tiene Domicilio\r\n";
}
} else {
$this->mMessages .= "ERROR\tLa Persona " . $this->mClaveDePersona . " de Sucursal NO EXISTE\r\n";
$this->mInitPersona = false;
}
}
}
$this->mInit = true;
}
return $this->mInit;
}
//$xSp->addEvent("onchange", "getNewCuenta");
//$xSp->addEvent("onblur", "jsaGetValidacion()");
$xFRM->addHElem($xSp->get(true));
$xFRM->addHElem($xSel->getListaDeOrigenDeCaptacion()->get(true));
$xFRM->addHElem($xSel->getListaDeTituloDeCaptacion()->get(true));
$xFRM->addObservaciones();
$xFRM->addHElem("<h3>" . $xFRM->l()->getT("TR.Otros") . "</h3><div id='idotrosdatos'></div>");
$xFRM->addGrupoBasico("", DEFAULT_GRUPO);
//$xFRM->addCuentaCaptacionInteres();
$xFRM->addHElem("<h3>" . $xFRM->l()->getT("TR.Mancomunados") . "</h3>");
$xFRM->addPersonaBasico("2");
$xFRM->addPersonaBasico("3");
$xFRM->addSubmit();
} else {
$xS = new cSocio($idsocio);
$idsocio = $xS->existe() == false ? false : $idsocio;
if ($idsocio == DEFAULT_SOCIO) {
$msg .= "ERROR\tPersona {$idsocio} OR cuenta {$idcuenta} INVALIDA\r\n";
} else {
$idsolicitud = DEFAULT_CREDITO;
$idgrupo = parametro("idgrupo", DEFAULT_GRUPO, MQL_INT);
$observacion = parametro("idobservaciones");
$origencuenta = parametro("idorigencaptacion", DEFAULT_CAPTACION_ORIGEN, MQL_INT);
$tipotitulo = parametro("idtitulocaptacion");
$dias = parametro("iddias", 0, MQL_INT);
$tasa = 0;
$sucursal = getSucursal();
$fechabaja = "2029-12-31";
$fechaalta = parametro("idfecha", fechasys());
$estatus = 10;
$man1 = parametro("idsocio2", 0, MQL_INT);
$cls = '';
$observaciones = "";
$cadena = explode(",", trim($bufer), 8);
//Depurar
$socio = $xT->cInt($cadena[0]);
$credito = $xT->cInt($cadena[1]);
$letra = $xT->cInt($cadena[2]);
$capital = round($xT->cFloat($cadena[3]), 2);
$interes = round($xT->cFloat($cadena[4]), 2);
$iva = round($xT->cFloat($cadena[5]), 2);
$ahorro = round($xT->cFloat($cadena[6]), 2);
$observaciones = $xT->cChar($cadena[7]);
$total = $capital + $ahorro + $interes + $iva;
if (isset($socio) and isset($credito) and !empty($socio) and !empty($credito)) {
$DSoc = new cSocio($socio);
$SocioExiste = $DSoc->existe($socio);
$CreditoExiste = $DSoc->existeCredito($credito);
if ($SocioExiste == true and $CreditoExiste == true) {
$DSoc->init();
$nombre = $DSoc->getNombreCompleto();
$nombre = substr($nombre, 0, 25);
//Verificar el Saldo del Credito
$CCred = new cCredito($credito, $socio);
//echo "$credito ---- $socio<br>";
$CCred->init();
$DCred = $CCred->getDatosDeCredito();
$saldo = $DCred["saldo_actual"];
if (!isset($saldo) or $saldo == 0) {
//$socio = "";
if ($saldo != 0 && $capital != 0) {
$msg .= "{$iReg}\t{$socio}\t{$credito}\tDIF1\tEL Saldo({$saldo}) es menor al abono({$capital}), difiere por " . getFMoney($saldo - $capital) . " \r\n ";
$xFRM->addFootElement("<input type='hidden' name='personarelacionada' id='personarelacionada' value='' />");
$xFRM->addFootElement("<input type='hidden' id='idcolonia' name='idcolonia' value='' />");
if ($action == SYS_DOS) {
$xSuc = new cSucursal(getSucursal());
$xSuc->init();
$cajalocal = $xSuc->getCajaLocalResidente();
$xCL = new cCajaLocal($cajalocal);
$xCL->init();
$numeropropio = parametro("personarelacionada", DEFAULT_SOCIO);
$avalado = parametro("avalado", 0, MQL_FLOAT);
$depende = parametro("dependiente", false, MQL_BOOL);
$tiporelacion = parametro("idtipoderelacion", DEFAULT_TIPO_RELACION);
$tipoparentesco = parametro("idtipodeparentesco", DEFAULT_TIPO_CONSANGUINIDAD);
$observaciones = parametro("idobservaciones");
$xSoc = new cSocio($numeropropio);
if ($xSoc->existe($numeropropio) == true and $numeropropio != DEFAULT_SOCIO) {
$msg .= "WARN\tSE ENCONTRARON COINCIDENCIAS CON EL MISMO CODIGO, POR LO QUE SE CARGA LA CLAVE DE PERSONA\r\n";
//$persona = $xCL->getUltimoSocioRegistrado(true);
//$xSoc->set($persona);
} else {
$nombre = parametro("nombre");
$materno = parametro("materno");
$paterno = parametro("paterno");
$curp = parametro("curp");
$rfc = parametro("rfc", DEFAULT_PERSONAS_RFC_GENERICO);
$fnacimiento = parametro("idfecha-0", false);
$fnacimiento = $fnacimiento == false ? fechasys() : $xF->getFechaISO($fnacimiento);
$lnacimiento = $xLoc->DomicilioEstadoClaveABC();
$tingreso = TIPO_INGRESO_RELACION;
$ecivil = DEFAULT_ESTADO_CIVIL;
$genero = DEFAULT_GENERO;
