function jsaGetNumeroDeCredito($idsocio)
{
$xSoc = new cSocio($idsocio);
$xSoc->init();
$solicitud = $xSoc->getIDNuevoDocto(iDE_CREDITO);
$tab = new TinyAjaxBehavior();
$tab->add(TabSetValue::getBehavior('iidsolicitud', $solicitud));
//tipo de credito y preferencia e pago
//Mayo/2014
$xEmp = new cEmpresas($xSoc->getClaveDeEmpresa());
$xEmp->init();
$tab->add(TabSetValue::getBehavior('idtipoconvenio', $xEmp->getProductoPref()));
$tab->add(TabSetValue::getBehavior('idperiocidadpagos', $xEmp->getPeriocidadPref()));
return $tab->getString();
}
function setClonar($saldo = false, $autorizado = false)
{
$saldo = $saldo == false ? $this->getSaldoActual() : $saldo;
$autorizado = $autorizado == false ? $this->getMontoAutorizado() : $autorizado;
//retorna numero de credito
$xS = new cSocio($this->getClaveDePersona());
$xS->init();
$nuevoID = $xS->getIDNuevoDocto(iDE_CREDITO);
$xCD = new cCreditos_solicitud();
$xCD->numero_solicitud($nuevoID);
$xCD->numero_socio($this->getClaveDePersona());
$xCD->causa_de_mora($this->mCausaDeMora);
$xCD->contrato_corriente_relacionado($this->mContratoCorriente);
$xCD->descripcion_aplicacion($this->mDescripcionDestino);
$xCD->destino_credito($this->mTipoDeDestino);
$xCD->dias_autorizados($this->mDiasAutorizados);
$xCD->docto_autorizacion("CLONADO DEL CREDITO " . $this->mNumeroCredito);
$xCD->eacp(EACP_CLAVE);
$xCD->estatus_actual($this->getEstadoActual());
//$xCD->estatus_de_negociacion()
$xCD->fecha_autorizacion($this->mFechaDeAutorizacion);
$xCD->fecha_castigo("2018-01-01");
$xCD->fecha_conciliada(fechasys());
$xCD->fecha_ministracion($this->mFechaMinistracion);
$xCD->fecha_mora($this->mFechaMora);
$xCD->fecha_revision(fechasys());
$xCD->fecha_solicitud($this->mFechaDeSolictud);
$xCD->fecha_ultimo_mvto($this->mFechaUltimoMvtoCapital);
$xCD->fecha_vencimiento($this->mFechaVencimiento);
$xCD->fecha_vencimiento_dinamico($this->mFechaVencimientoLegal);
$xCD->grupo_asociado($this->mGrupoAsociado);
$xCD->idusuario(getUsuarioActual());
$xCD->interes_diario($this->mInteresDiario);
$xCD->interes_moratorio_devengado($this->mInteresMoratorioDev);
$xCD->interes_moratorio_pagado($this->mInteresMoratorioPag);
$xCD->interes_normal_devengado($this->mInteresNormalDevengado);
$xCD->interes_normal_pagado($this->mInteresNormalPagado);
$xCD->monto_autorizado($autorizado);
$xCD->monto_parcialidad($this->mMontoFijoParcialidad);
$xCD->monto_solicitado($autorizado);
//igual que el autorizado
$xCD->numero_pagos($this->getPagosAutorizados());
$xCD->saldo_actual($saldo);
$xCD->saldo_conciliado($saldo);
$xCD->saldo_vencido(0);
$xCD->sdo_int_ant(0);
$xCD->sucursal(getSucursal());
$xCD->pagos_autorizados($this->getPagosAutorizados());
$xCD->periocidad_de_pago($this->getPeriocidadDePago());
$xCD->periodo_notificacion(0);
$xCD->periodo_solicitudes(EACP_PER_SOLICITUDES);
$xCD->plazo_en_dias($this->mDiasAutorizados);
$xCD->tipo_credito($this->mModalidadDeCredito);
$xCD->tipo_autorizacion($this->mTipoDeAutorizacion);
$xCD->tasa_ahorro($this->mTasaAhorro);
$xCD->tasa_interes($this->mTasaInteres);
$xCD->tasa_moratorio($this->mTasaMoratorio);
$xCD->tipo_convenio($this->mTipoDeConvenio);
$xCD->tipo_de_calculo_de_interes($this->mTipoDeCalculoDeInteres);
$xCD->tipo_de_pago($this->mTipoDePago);
$xCD->ultimo_periodo_afectado($this->mParcialidadActual);
$xCD->query()->insert()->save();
return $nuevoID;
}
$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);
$man2 = parametro("idsocio3", 0, MQL_INT);
$cuentaDeIntereses = parametro("idcuentainteres", DEFAULT_CUENTA_CORRIENTE, MQL_INT);
$fechaalta = $xF->getFechaISO($fechaalta);
$subpdto = parametro("idproductocaptacion");
$sucess = true;
//Iniciar socio
$xSoc = new cSocio($idsocio);
if ($xSoc->init() == true) {
$idcuenta = $xSoc->getIDNuevoDocto(iDE_CAPTACION, $subpdto);
if ($xSoc->existeCredito($idcuenta) == true or $xSoc->existeCuenta($idcuenta) == true) {
$idcuenta = $xSoc->getIDNuevoDocto(iDE_CAPTACION, $subpdto);
$msg .= "WARN\tNumero de Cuenta Cambiada {$idcuenta}\r\n";
}
//if( $xSoc->existeCuenta($idcuenta) )
$sqlPdto = "SELECT * FROM captacion_subproductos WHERE idcaptacion_subproductos={$subpdto}";
$dPdto = obten_filas($sqlPdto);
$tipocuenta = $dPdto["tipo_de_cuenta"];
$destino_de_intereses = $dPdto["destino_del_interes"];
//la cuenta debe de ser de intereses
$eCta = new cCuentaDeCaptacion($cuentaDeIntereses, $idsocio);
$eCta->init();
$eTS = $eCta->getTipoDeSubproducto();
if ($destino_de_intereses == CAPTACION_DESTINO_CTA_INTERES and $eTS != CAPTACION_PRODUCTO_INTERESES) {
$msg .= "ERROR\tLa Cuenta debe tener una CUENTA VALIDA PARA INTERESES, Si no Existe agrege una NUEVA y Asociela con esta Cuenta\r\n";
