function __construct($credito, $fecha = false)
{
$xF = new cFecha();
$this->mClaveDeCredito = $credito;
$this->mFechaDeCorte = $fecha == false ? fechasys() : $fecha;
$xF->set($this->mFechaDeCorte);
$this->mFechaDeCorte = $xF->get();
$this->mMessages .= "WARN\t1FECHA_DE_REPORTE AS " . $this->mFechaDeCorte . " \r\n";
}
function b_week($ignium)
{
if (!$ignium) {
$mesa = date("m");
$annoa = date("Y");
//$fecha = date("Y-m-d", strtotime("$annoa-$mesa-01"));
} else {
$mesa = date("m", strtotime($ignium)) - 1;
$annoa = date("Y", strtotime($ignium));
if ($mesa < 1) {
$mesa = 12;
$annoa = $annoa - 1;
}
}
$xF = new cFecha(0, "{$annoa}-{$mesa}-01");
$fecha = $xF->get();
$dias_mes = $xF->getDiasDelMes();
$idm = $xF->mes();
$month = $xF->getMesNombre();
//Valores Iniciales
$tdweek = "";
$colorweek = "#FFDFC6";
$nsemana = 1;
$tcal = "";
for ($i = 1; $i <= $dias_mes; $i++) {
$nowdate = "{$annoa}-{$idm}-{$i}";
$nday = date("l", strtotime($nowdate));
if ($nday == "Monday") {
$dia = dia_semana($nowdate);
$cnowdate = fecha_corta($nowdate);
if ($tcal == "cal_2") {
$tcal = "cal_1";
$tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
} else {
$tcal = "cal_2";
$tdweek = $tdweek . "<td class='{$tcal}' onclick='show_week(\"{$nowdate}\")'>SEMANA: {$nsemana} <br /> {$cnowdate}</td>";
}
$nsemana++;
}
}
return "<hr />\n\t<center>\n\t<table class='calendar_week'\n\tcellpadding='2' cellspacing='2' border='2'>\n\t\t<tr>\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_back_down.png' onclick='back_week(\"{$nowdate}\");' /></td>\n\t\t\t{$tdweek}\n\t\t\t<td class='{$tcal}'><img src='../images/common/query_next_down.png' onclick='next_week(\"{$nowdate}\");' /></td>\n\t\t</tr>\n\t</table>\n\t</center>\n\t<hr />";
}
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $fechaop, 1, 12, "CIERRE_DE_COLOCACION_{$fechaop}", DEFAULT_CHEQUE, DEFAULT_TIPO_PAGO, DEFAULT_RECIBO_FISCAL, DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\t" . EACP_NAME . " \r\n";
$messages .= "=========================\t\t" . getSucursal() . " \r\n";
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\tINICIANDO EL CIERRE DE COLOCACION ====================\r\n";
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n";
//reconstruir db de pagos
$ql->setRawQuery("CALL `proc_historial_de_pagos` ");
$xCUtils = new cUtileriasParaCreditos();
$messages .= $xCUtils->setEstatusDeCreditos($idrecibo, $fechaop, false, true);
if (date("Y-m-t", strtotime($fechaop)) == date("Y-m-d", strtotime($fechaop))) {
$messages .= $xCUtils->setGenerarMvtoFinDeMes($xF->getDiaInicial(), $xF->getDiaFinal());
}
if (CREDITO_CIERRE_FORZAR_DEVENGADOS == true) {
$messages .= $xCUtils->setReestructurarSDPM_Planes(true, false, false, false, $xF->getDiaInicial(), false);
$messages .= $xCUtils->setReestructurarSDPM(true, false, false, false, false, $xF->getDiaInicial(), false);
$messages .= $xCUtils->setRegenerarInteresDevengado(false, $xF->get(), $xF->get());
}
$messages .= $xCUtils->setAcumularIntereses();
$xRec->setFinalizarRecibo(true);
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del colocacion");
}
if ($parser != false) {
header("Location: ./cierre_de_captacion.frm.php?s=true&k=" . $key . "&f={$fechaop}");
}
//}
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias del Mes==" . $xF->getDiasDelMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Corta==" . $xF->getFechaCorta() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Larga==" . $xF->getFechaLarga() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, En Fecha Mediana==" . $xF->getFechaMediana() . "</p>");
//$xHFrm->addHElem( );
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha Operativa Maxima==" . $xF->getFechaMaximaOperativa() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, El Mes Anterior==" . $xF->getFechaMesAnterior() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, dos meses atras==" . $xF->getFechaMesAnterior(false, 2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} - 30 Dias==" . $xF->setRestarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} + 30 Dias==" . $xF->setSumarDias(30) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} + 2 meses==" . $xF->setSumarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha} - 2 meses==" . $xF->setRestarMeses(2) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Nombre del Dia==" . $xF->getDayName() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dia Inicial del mes==" . $xF->getDiaInicial() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener Dia Habil==" . $xF->getDiaHabil() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Dias desde el 31Dic2013==" . $xF->setRestarFechas($xF->get(), "2013-12-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar Sabado(D6) para el dia de hoy==" . $xF->getDiaAbonoSemanal(6) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Buscar NOMBRE Sabado(D6) para el dia de hoy==" . $xF->getDayName($xF->getDiaAbonoSemanal(6)) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-02") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-11") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-18") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-20") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-24") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-29") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Fecha de Pago Decenal 1==" . $xF->getDiaAbonoDecenal(10, 20, 30, "2014-03-31") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener dias Loborales en el mes==" . $xF->getDiasHabilesEnRango("2014-03-31", "2014-03-01") . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Obtener entero del mes==" . $xF->getInt(fechasys()) . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, DIAS CORRIENTES DE MES" . $xF->getDiasCorrientesDeMes() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, sumar 7 dias time stamp 84600==" . $xF->getFechaByInt($xF->getInt(fechasys()) + (7 + 1) * 84600) . "</p>");
$xHFrm->addHElem("<p class='aviso'>" . $xF->getMessages(OUT_HTML) . "</p>");
//$xHFrm->addHTML("<p>Esto es un parrafo de prueba</p>");
/**
* Autoriza los creditos
* @param float $Monto
* @param integer $Pagos
* @param integer $Periocidad
* @param integer $TipoDeAutorizacion
* @param mixed $FechaDeAutorizacion
* @param string $DocumentoDeAutorizacion
* @param integer $FormaDePago
* @param mixed $FechaDeMinistracionPropuesta
* @param integer $NivelDeRiesgo
* @param integer $PlazoEnDias
* @param mixed $FechaDeVencimiento
* @param integer $EstatusImpuesto
* @param float $SaldoImpuesto
* @param float $InteresImpuesto
* @param mixed $FechaOperacionImpuesta
*/
function setAutorizado($Monto, $Pagos, $Periocidad, $TipoDeAutorizacion, $FechaDeAutorizacion, $DocumentoDeAutorizacion, $FormaDePago = false, $FechaDeMinistracionPropuesta = false, $NivelDeRiesgo = 2, $PlazoEnDias = false, $FechaDeVencimiento = false, $EstatusImpuesto = false, $SaldoImpuesto = 0, $InteresImpuesto = 0, $FechaOperacionImpuesta = false, $TasaDeInteres = false)
{
$this->init();
$xF = new cFecha(0);
$FechaDeMinistracionPropuesta = $FechaDeMinistracionPropuesta == false ? $xF->get() : $FechaDeMinistracionPropuesta;
switch ($Periocidad) {
case CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO:
$InteresImpuesto = $InteresImpuesto == 0 ? $this->mMontoSolicitado * $this->mTasaInteres / EACP_DIAS_INTERES : $InteresImpuesto;
$FormaDePago = CREDITO_TIPO_PAGO_UNICO;
$FechaDeVencimiento = $FechaDeVencimiento == false ? $this->mFechaVencimiento : $FechaDeVencimiento;
$PlazoEnDias = $PlazoEnDias == false ? $xF->setRestarFechas($FechaDeVencimiento, $FechaDeMinistracionPropuesta) : $PlazoEnDias;
break;
default:
$InteresImpuesto = $InteresImpuesto == 0 ? $this->mMontoSolicitado * $this->mTasaInteres / EACP_DIAS_INTERES : $InteresImpuesto;
$PlazoEnDias = $PlazoEnDias == false ? $Periocidad * $Pagos : $PlazoEnDias;
$FechaDeVencimiento = $FechaDeVencimiento == false ? $xF->setSumarDias($PlazoEnDias, $FechaDeMinistracionPropuesta) : $FechaDeVencimiento;
$FormaDePago = $FormaDePago == false ? CREDITO_TIPO_PAGO_PERIODICO : $FormaDePago;
break;
}
switch ($TipoDeAutorizacion) {
case CREDITO_TIPO_AUTORIZACION_AUTOMATICA:
break;
case CREDITO_TIPO_AUTORIZACION_RENOVACION:
break;
case CREDITO_TIPO_AUTORIZACION_NORMAL:
break;
}
$EstatusImpuesto = $EstatusImpuesto == false ? CREDITO_ESTADO_AUTORIZADO : $EstatusImpuesto;
//$FechaOperacionImpuesta = ($FechaOperacionImpuesta == false) ? fechasys();
//
$TasaDeInteres = $TasaDeInteres == false ? $this->mTasaInteres : $TasaDeInteres;
//
$arrUpdate = array("monto_autorizado" => $Monto, "pagos_autorizados" => $Pagos, "tipo_de_pago" => $FormaDePago, "periocidad_de_pago" => $Periocidad, "tipo_autorizacion" => $TipoDeAutorizacion, "fecha_autorizacion" => $FechaDeAutorizacion, "docto_autorizacion" => $DocumentoDeAutorizacion, "fecha_ministracion" => $FechaDeMinistracionPropuesta, "nivel_riesgo" => $NivelDeRiesgo, "estatus_actual" => $EstatusImpuesto, "saldo_actual" => $SaldoImpuesto, "interes_diario" => $InteresImpuesto, "fecha_ultimo_mvto" => $FechaOperacionImpuesta, "plazo_en_dias" => $PlazoEnDias, "dias_autorizados" => $PlazoEnDias, "fecha_vencimiento" => $FechaDeVencimiento, "tasa_interes" => $TasaDeInteres);
$this->setUpdate($arrUpdate);
}
/**
* Agrega una operacion a tesoreria
* @param integer $recibo Numero de recibo
*
*/
function addOperacion($recibo, $tipoDeExposicion, $MontoRecibido, $MontoOperacion = 0, $MontoCambio = 0, $banco = FALLBACK_CLAVE_DE_BANCO, $cheque = "", $CuentaBancaria = 0, $DocumentoDescontado = 0, $Observaciones = "", $fecha = false, $hora = false, $moneda = false, $monto_original = 0, $persona = false, $documento = false, $transaccion = SYS_NINGUNO)
{
$sucess = false;
$fecha = $fecha == false ? fechasys() : $fecha;
$arrQ = array("aumento" => 1, "disminucion" => -1, "ninguna" => 0);
$xF = new cFecha(0, $fecha);
$xT = new cTipos();
$fecha = $xF->get();
$hora = $hora == false ? date("H:i:s") : $hora;
$CodigoDeCaja = $this->getKey();
$cajero = $this->mCajero;
$banco = setNoMenorQueCero($banco) <= 0 ? FALLBACK_CLAVE_DE_BANCO : $banco;
$this->mMoneda = $this->mMoneda == "" ? AML_CLAVE_MONEDA_LOCAL : $this->mMoneda;
if ($moneda == false or $moneda == AML_CLAVE_MONEDA_LOCAL) {
$moneda = $this->mMoneda != AML_CLAVE_MONEDA_LOCAL ? $this->mMoneda : AML_CLAVE_MONEDA_LOCAL;
}
//$monto_original = setNoMenorQueCero($monto_original);
$monto_original = $monto_original == 0 ? $this->mMontoOrigen : $monto_original;
$xRec = new cReciboDeOperacion(false, false, $recibo);
$xRec->init();
$DRec = $xRec->getDatosInArray();
$persona = ($persona == false or $persona == "") ? DEFAULT_SOCIO : $persona;
$documento = $documento == false ? $xRec->getCodigoDeDocumento() : $documento;
$afectaCaja = $arrQ[$DRec["afectacion_en_flujo_efvo"]];
$MontoOperacion = $MontoOperacion == 0 ? $DRec["total_operacion"] : $MontoOperacion;
$MontoCambio = $MontoCambio == 0 ? $MontoRecibido - $MontoOperacion : $MontoCambio;
//Obtener Banco
$pais = EACP_CLAVE_DE_PAIS;
$eacp = EACP_CLAVE;
$sucursal = getSucursal();
if ($banco == FALLBACK_CLAVE_DE_BANCO and $CuentaBancaria > 0) {
$xCta = new cCuentaBancaria($CuentaBancaria);
$xCta->init();
$banco = $xCta->getClaveDeBanco();
$pais = $xCta->getPaisDeOrigen();
}
$xBanco = new cBancos_entidades();
$xBanco->setData($xBanco->query()->initByID($banco));
$pais = $xBanco->pais_de_origen()->v();
//Actualizar Moneda por pais
if ($banco != FALLBACK_CLAVE_DE_BANCO) {
$moneda2 = mifila("SELECT clave_de_moneda FROM `tesoreria_monedas` WHERE `pais_de_origen` ='{$pais}' LIMIT 0,1 ", "clave_de_moneda");
if ($moneda2 === 0) {
} else {
$moneda = $moneda2;
}
}
$xTes = new cTesoreria_cajas_movimientos();
$xTes->banco($banco);
$xTes->codigo_de_caja($CodigoDeCaja);
$xTes->cuenta_bancaria($CuentaBancaria);
$xTes->documento($documento);
$xTes->documento_descontado($DocumentoDescontado);
$xTes->eacp(EACP_CLAVE);
$xTes->fecha($fecha);
$xTes->hora($hora);
$xTes->idtesoreria_cajas_movimientos($xTes->query()->getLastID());
$xTes->idusuario($cajero);
$xTes->moneda_de_operacion($moneda);
if ($moneda != AML_CLAVE_MONEDA_LOCAL) {
}
//EVALUAR MONEDA
$xTes->monto_del_movimiento($MontoOperacion);
$xTes->monto_en_cambio($MontoCambio);
$xTes->monto_recibido($MontoRecibido);
$xTes->numero_de_cheque($cheque);
$xTes->observaciones($Observaciones);
$xTes->recibo($recibo);
$xTes->sucursal($sucursal);
$xTes->tipo_de_exposicion($tipoDeExposicion);
$xTes->tipo_de_movimiento($afectaCaja);
$xTes->unidades_de_moneda(setNoMenorQueCero($monto_original));
$xTes->persona($persona);
$sucess = $xT->getEvalNotNull(array($cajero, $CodigoDeCaja));
if ($sucess == true) {
$q = $xTes->query()->insert();
$id = $q->save();
$sucess = $id == false ? false : true;
if ($sucess == true) {
$this->mMessages .= "OK\tRegistro Agregado exitosamente, relacionado con el Recibo {$recibo}, Operacion {$id} ({$moneda}|{$monto_original}|{$cheque}|{$tipoDeExposicion}|{$transaccion})\r\n";
//Agregar recibo
$xRec->setDatosDePago($moneda, $monto_original, $cheque, $tipoDeExposicion, $transaccion);
$this->mMessages .= $xRec->getMessages(OUT_TXT);
} else {
if (MODO_DEBUG == true) {
$this->mMessages .= $q->getMessages(OUT_TXT);
}
}
} else {
$this->mMessages .= "ERROR\tSe produjo un error al Agregar la Operacion de Tesoreria({$cajero}, {$CodigoDeCaja})\r\n";
}
return $sucess;
}
function jsaVincularEmpresa($credito, $observaciones, $empresa)
{
$msg = "";
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->get();
// FechaISO($fecha);
$xCred->init();
$socio = $xCred->getClaveDePersona();
$xSoc = new cSocio($socio);
$xSoc->init();
$xCred->setCambioProducto(CREDITO_PRODUCTO_NOMINA);
$xCred->setResetPersonaAsociada($fecha, $observaciones, $empresa);
//Agregar operacion de desvinculacion
$xRe = new cReciboDeOperacion(RECIBOS_TIPO_ESTADISTICO, false, DEFAULT_RECIBO);
$xRe->init();
$xRe->setNuevoMvto($fecha, $xCred->getSaldoActual(), OPERACION_CLAVE_VINCULACION, $xCred->getPeriodoActual(), "", 1, false, $socio, $credito, $fecha);
$xRe->setFinalizarRecibo();
$msg .= $xSoc->getMessages(OUT_TXT);
$msg .= $xCred->getMessages(OUT_TXT);
$msg .= $xRe->getMessages(OUT_TXT);
$xF = new cFileLog();
$xF->setWrite($msg);
$xF->setClose();
return $xF->getLinkDownload("Descarga de Log");
}
//$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CUENTA_CORRIENTE, $fechaop, 1, 12, "CIERRE_DE_CAPTACION_{$fechaop}", "", TESORERIA_COBRO_NINGUNO, "", DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\t" . EACP_NAME . " \r\n";
$messages .= "=========================\t\t" . getSucursal() . " \r\n";
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\tINICIANDO EL CIERRE DE CAPTACION ====================\r\n";
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n";
$messages .= "=======================================================================================\r\n";
$xUCapt = new cUtileriasParaCaptacion();
$messages .= "=========================\t\tPurgando Dias Minimo de Inversion \t====================\r\n";
$messages .= $xUCapt->vencer_intereses_de_inversion($idrecibo, $fechaop);
$messages .= $xUCapt->inversiones_automaticas($idrecibo, $fechaop);
if ($xF->getDiaFinal() == $xF->get()) {
$messages .= $xUCapt->setGenerarInteresSobreSDPM($idrecibo, $fechaop);
if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
$messages .= $xUCapt->getGenerarBaseGravadaMensualIDE($fechaop);
$messages .= $xUCapt->setGenerarIDE_mensual($idrecibo, $fechaop);
}
}
$xRec->setFinalizarRecibo(true);
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del Captacion");
}
}
if ($parser == true) {
header("Location: ./cierre_de_seguimiento.frm.php?s=true&k=" . $key . "&f={$fechaop}");
function set_dia_abono_semanal($date, $dia_de_la_semana)
{
$xF = new cFecha(0, $date);
$xF->init();
$dia_de_fecha = $xF->get();
if ($dia_de_la_semana != date("N", $dia_de_fecha)) {
// obtener Diferencia
}
return $date;
}
/**
* Funcion que Guarda el Monto de la Parcialidad
* @param string $params Indica los parametros a cruzar
**/
function Common_1fff3ce8ffd3d2dfdee69fd04ba831ac($params)
{
$stdDiv = STD_LITERAL_DIVISOR;
$DPar = explode($stdDiv, $params, 2);
$mFecha = new cFecha();
//grupo
$xTip = new cTipos();
//
$credito = $xTip->cInt($DPar[0]);
//
$pagos = $xTip->cInt($DPar[1]);
$fecha_de_vencimiento = $xTip->cFecha($DPar[2]);
$dias_autorizados = 0;
$pagos_autorizados = 0;
$convenio = 0;
$saldo_actual = 0;
$parcialidad = 0;
$fecha_de_revision = $mFecha->get();
$grupo = 0;
$fecha_de_ministracion = 0;
$contrato_corriente = 0;
$sql = "UPDATE creditos_solicitud\n SET\n numero_pagos\t\t\t= {$pagos_autorizados},\n fecha_vencimiento\t\t= '{$fecha_de_vencimiento}',\n pagos_autorizados\t\t= {$pagos_autorizados},\n saldo_actual\t\t\t= {$saldo_actual},\n tipo_convenio\t\t\t= {$convenio},\n ultimo_periodo_afectado\t\t= {$parcialidad},\n grupo_asociado\t\t\t= {$grupo},\n fecha_ministracion\t\t= '{$fecha_de_ministracion}',\n contrato_corriente_relacionado={$contrato_corriente},\n monto_parcialidad={$parcialidad},\n fecha_revision='{$fecha_de_revision}',\n /* tipo_de_pago= ,\n tipo_de_calculo_de_interes=0,\n causa_de_mora=0 */\n WHERE\n numero_solicitud={$credito}\n";
}
function getOtrosParametros($tipo)
{
$ret = null;
$ql = new MQL();
$xF = new cFecha();
$fecha = $xF->get();
$tipo = strtoupper($tipo);
$persona = $this->mCodigo;
$sqlS = "SELECT *\tFROM socios_otros_parametros WHERE clave_de_persona = {$persona} AND clave_del_parametro='{$tipo}' AND fecha_de_expiracion >'{$fecha}' LIMIT 0,1";
$d = obten_filas($sqlS);
$xOD = new cSocios_otros_parametros();
//$xOD = new cSocios_otros_parametros();
if (isset($d[$xOD->idsocios_otros_parametros()->get()])) {
$xOD->setData($d);
$ret = $xOD->valor_del_parametro()->v(OUT_TXT);
}
return $ret;
}
$xIdNRec = $xNRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CREDITO, $diaSig, 1, 10, "MOVIMIENTOS_ESTADISTICOS_DEL_DIA", "NA", "ninguno", "NA", DEFAULT_GRUPO);
//actualiza la configuracion del sistema
$xCx = new cConfiguration();
$xUtil = new cUtileriasParaOperaciones();
$xCx->set("numero_de_recibo_por_defecto", $xIdNRec);
$messages .= date("Y-m-d") . "\tSe Agrego el Recibo {$xIdNRec} para ESTADISTICOS del proximo dia( {$diaSig} )\n";
//=================================
$messages .= $xUtil->setEliminarRecibosDuplicados();
$x20 = setFoliosAlMaximo();
$messages .= date("Y-m-d") . "\tSe llevaron Folios al Maximo, los recibos quedaron en " . $x20["recibos"] . " \n";
$messages .= date("Y-m-d") . "\tSe llevaron la Cuenta de Polizas Contables al Maximo \n";
setSociosAlMaximo();
clearCacheSessions();
$messages .= date("Y-m-d") . "\tSe limpio la Cache de sessiones\n";
$messages .= date("Y-m-d") . "\tSe llevaron los socios al Maximo \n";
if ($xF->getDiaFinal() == $xF->get()) {
$messages .= CongelarSaldos($idrecibo);
} else {
$messages .= date("Y-m-d") . "\tNO SE CONGELAN SALDOS, NO ES FIN DE MES\r\n";
}
/**
* Actualiza Recibos de Operaciones
**/
$sqlS = "UPDATE operaciones_recibos SET tipo_pago = \"ninguno\" WHERE tipo_pago = \"\" OR IsNULL(tipo_pago) ";
my_query($sqlS);
/**
* Actualiza los Periodos a Formatos Validos en el Caso que el sistema les haya asigando otro valor
*/
$sqlPeriodosCorrectos = "UPDATE operaciones_mvtos\r\n\t\t\t\t\t\t\t\tSET periodo_mensual = DATE_FORMAT(fecha_afectacion, '%c'),\r\n\t\t\t\t\t\t\t\tperiodo_anual = DATE_FORMAT(fecha_afectacion, '%Y'),\r\n\t\t\t\t\t\t\t\tperiodo_semanal = DATE_FORMAT(fecha_afectacion, '%w')\r\n\t\t\t\t\t\t\t\t";
$x1 = my_query($sqlPeriodosCorrectos);
$messages .= $x1[SYS_INFO];
function get($label = "", $Fecha = false, $indice = false)
{
$xTr = new cLang();
$label = $xTr->getT($label);
$maxSize = $this->mLabelSize == 0 ? HP_LABEL_SIZE : $this->mLabelSize;
if ($indice !== false) {
$this->mIndex = $indice;
}
if (strlen($label) < $maxSize) {
$rll = $maxSize - strlen(html_entity_decode($label));
}
$extraDate = "";
$label = $label == "" ? "" : "<label for='idfecha-" . $this->mIndex . "'>{$label}</label>";
$this->set($Fecha);
$xF = new cFecha($this->mIndex, $this->mFecha);
$events = $this->mEvents;
$xF->init(FECHA_FORMATO_MX);
$id = $this->mId == "" ? "idfecha-" . $this->mIndex . "" : $this->mId;
if ($this->mTipoFecha == FECHA_TIPO_NACIMIENTO) {
$anno = $xF->anno() - 18;
$xF->set("{$anno}-" . $xF->mes() . "-" . $xF->dia());
$this->set($xF->get());
$extraDate = ",selectYears: true ";
}
$txt = "<input type=\"text\" id=\"{$id}\" value=\"" . $xF->get() . "\" name=\"{$id}\" {$events}><script>\$(\"#{$id}\").pickadate({format: 'dd-mm-yyyy',formatSubmit:'yyyy-mm-dd', editable : true {$extraDate}});</script> ";
$initDiv = $this->mClassDiv == "" ? "" : "<div class=\"" . $this->mClassDiv . "\">";
$endDiv = $this->mClassDiv == "" ? "" : "</div>";
return $this->mSelects == false ? $initDiv . $label . $txt . $endDiv : $initDiv . $label . $xF->show(true, $this->mTipoFecha) . $endDiv;
}
$jxc->exportFunction('jsaGetIngresosMensualesPorDependencias', array('idDateValue'), "#tcalendar-task");
$jxc->exportFunction('jsaRespaldarDB', array('idDateValue'), "#avisos");
$jxc->exportFunction('jsaActualizarIdioma', array('idDateValue'), "#avisos");
//jsaRespaldarDB
$jxc->process();
$x = new jsBasicForm("", iDE_CREDITO, ".");
$xHP->init();
$xFRM = new cHForm("frmcalendartask");
$xUsr = new cSystemUser();
$alerts = "";
$xUsr->init();
if ($xUsr->getNivel() >= USUARIO_TIPO_CAJERO or OPERACION_LIBERAR_ACCIONES == true) {
//$xFRM->addToolbar($xBtn->getBasic("Ingresos del Dia", "jsGetChart()", "grafico", "idcharts", false) );
}
$xFRM->addToolbar($xBtn->getBasic("TR.Tareas", "jsGetInformes()", "tarea", "idtareas", false));
$xFRM->addToolbar("<input type=\"date\" id=\"idDateValue\" value=\"" . $xF->get(FECHA_FORMATO_MX) . "\" />");
if ($xUsr->getNivel() != USUARIO_TIPO_OFICIAL_AML) {
if ($xUsr->getNivel() >= USUARIO_TIPO_OFICIAL_CRED or MODO_DEBUG == true or OPERACION_LIBERAR_ACCIONES == true) {
$xFRM->addToolbar($xBtn->getBasic("TR.Letras Creditos Simples", "jsaGetLetrasAVencer()", "reporte", "idletrav", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Letras Pendientes", "jsaGetLetrasAVencerTodas()", "reporte", "idletrave", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Creditos Simples", "jsaGetCreditosSimplesMinistrados()", "lista", "idsimplev", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Creditos Por Autorizar", "jsaGetCreditosPorAutorizar()", "lista", "idcredaut", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Creditos Por Ministrar", "jsaGetCreditosPorMinistrar()", "lista", "idcrednpoaut", false));
$xFRM->OButton("TR.Recibos Emitidos", "jsaGetRecibosEmitidos()", $xBtn->ic()->REPORTE);
}
if ($xUsr->getNivel() >= USUARIO_TIPO_GERENTE or OPERACION_LIBERAR_ACCIONES == true) {
$xFRM->addToolbar($xBtn->getBasic("TR.Ingresos del Dia", "jsGetChart()", "grafico", "idcharts", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Ingresos del Mes", "jsGetIngresosMensuales()", "grafico", "idimes", false));
$xFRM->addToolbar($xBtn->getBasic("TR.Ingresos por Empresa", "jsGetIngresosMensualesEmpresas()", "grafico", "idimesemp", false));
}
} else {
