//$txt = $xHTxt->getDeMoneda("id", "Moneda de Prueba", 100);
$miFecha = parametro("fecha", fechasys());
$xF = new cFecha(0, $miFecha);
//$xHFrm->addHElem( $txt );
$xHFrm->addHElem($xF->show(true));
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se semana==" . $xF->getFechaDeInicioDeSemana() . "</p>");
$xHFrm->addHElem("<p class='aviso'>La {$miFecha}, Inicio se nombre semana==" . $xF->getDayName($xF->getFechaDeInicioDeSemana()) . "</p>");
$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>");
//Pagos fijos
$TipoDeContrato = strtoupper($xCred->getOProductoDeCredito()->getTipoDeContratoCR());
// isset($DTConv["SIC_TIPO_DE_CONTRATO"]) ? $DTConv["SIC_TIPO_DE_CONTRATO"] : "DESCONOCIDO";
$ClaveUnidadMonetaria = "MX";
$ValorActivoValuacion = 0;
$NumeroDePagos = $xCred->getPagosAutorizados();
$FrecuenciaDePagos = $xCR->getEPeriocidad($xCred->getPeriocidadDePago());
$MontoPagar = $xCR->getMonto($xCred->getSaldoActual($FechaFinal));
//Acabar, valor de la letra actual o saldo?
$FechaAperturaCuenta = $xCR->getDate($xCred->getFechaDeMinistracion());
$FechaUltimoPago = $xCR->getDate($xCred->getFechaUltimoDePago());
//setLog("1....$FechaUltimoPago");
if ($xF->getInt($xCred->getFechaUltimoDePago()) >= $xF->getInt($xCred->getFechaDeMinistracion())) {
//$FechaUltimoPago = $FechaAperturaCuenta;
$xF100 = new cFecha();
$FechaAperturaCuenta = $xCR->getDate($xF100->setRestarDias(2, $xCred->getFechaDeMinistracion()));
$FechaUltimoPago = $xCR->getDate($xF100->setRestarDias(1, $xCred->getFechaDeMinistracion()));
//setLog("2....$FechaUltimoPago");
}
$FechaUltimaCompra = $xCR->getDate($xCred->getFechaDeMinistracion());
$FechaCierreCuenta = "";
$FechaCorte = $FechaExtraccion;
$Garantia = "";
//TODO: Acabar garantia
$CreditoMaximo = $xCR->getMonto($xSoc->getCreditoMaximo());
$SaldoActual = $xCR->getMonto($xCred->getSaldoActual($FechaFinal));
$LimiteCredito = $xCR->getMonto($xSoc->getCreditoMaximo());
$SaldoVencido = 0;
$NumeroPagosVencidos = 0;
//Modificado en el plan de pagos
//obtener la letra pendiente
function check5Cierres($fecha_final, $alCerrar = false)
{
$xF = new cFecha();
$fecha_inicio_sistema = FECHA_INICIO_OPERACIONES_SISTEMA;
$dias_a_revisar = REVISAR_DIAS_DE_CIERRE;
$fecha_inicial = $xF->setRestarDias($dias_a_revisar, $fecha_final);
$res = array();
$ok = false;
$xSuc = new cSucursal();
for ($i = 0; $i <= $dias_a_revisar; $i++) {
$fecha = $xF->setSumarDias($i, $fecha_inicial);
if ($xF->getInt($fecha_inicio_sistema) >= $xF->getInt($fecha)) {
$this->mMessages .= "WARN\tFecha {$fecha} OMITIDO por ser menor al inicio de operaciones\r\n";
$res[$fecha] = true;
$ok = true;
} elseif ($xF->getInt($fecha) == $xF->getInt(fechasys())) {
$this->mMessages .= "WARN\tFecha {$fecha} OMITIDO por ser Fecha Actual\r\n";
$res[$fecha] = true;
$ok = true;
if ($alCerrar == true) {
if ((int) date("H") < (int) $xSuc->getHorarioDeCierre()) {
//considerar si es dia festivo
$this->mMessages .= "ERROR\tNO ES EL HORARIO MINIMO DE CIERRE PARA LA FECHA {$fecha} SON LAS " . date("H") . " HRS. DE " . $xSuc->getHorarioDeCierre() . ", MINIMO DE CIERRE\r";
$res[$fecha] = false;
$ok = false;
}
}
} else {
//$this->mMessages .= "WARN\tFecha $fecha OMITIDO por ser menor al inicio de operaciones\r\n";
if ($this->checkCierre($fecha) == false) {
$res[$fecha] = false;
$ok = false;
$this->mMessages .= "ERROR\tFecha {$fecha} No existe en el sistema\r\n";
if ($xF->getInt($fecha) == $xF->getInt($fecha_final)) {
$this->mMessages .= "ERROR\tPROCESAR LA FECHA {$fecha_final}|{$fecha} LAS FECHAS SON LAS MISMAS A " . fechasys() . "\r\n";
$res[$fecha] = true;
$ok = true;
}
} else {
$res[$fecha] = true;
$ok = true;
$this->mMessages .= "OK\tFecha {$fecha} existente\r\n";
}
}
$xCaja = new cCaja();
if ($alCerrar == true) {
if ($xCaja->getCajasAbiertas($fecha) > 0) {
$ok = false;
$res[$fecha] = false;
$this->mMessages .= "OK\tFecha {$fecha} tiene cortes pendientes\r\n";
}
}
}
unset($res[fechasys()]);
foreach ($res as $dateme => $rs) {
if ($dateme != SYS_ESTADO) {
if ($rs == false) {
$this->mMessages .= "ERROR\tFecha {$dateme} tiene cortes pendientes.-2\r\n";
$ok = false;
}
}
}
if (MODO_DEBUG == true) {
setLog($this->mMessages);
}
$res[SYS_ESTADO] = $ok;
return $res;
}
function setActualizarPlaneacion($fecha, $persona, $credito)
{
/**
* Neutraliza el Recibo de Planeacion por socio
* Neutraliza las Operaciones de Planeacion por Grupo
*/
$xF = new cFecha();
$fecha_esperar_hasta = $xF->setRestarDias(DIAS_ESPERA_CREDITO, $fecha);
$grupo = $this->getCodigo();
$sqlURec = "UPDATE operaciones_recibos set docto_afectado={$credito} WHERE numero_socio={$persona} AND tipo_docto=14\t\tAND fecha_operacion>='{$fecha_esperar_hasta}' ";
$sqlUMvto = "UPDATE operaciones_mvtos set docto_afectado={$credito} WHERE grupo_asociado={$grupo} AND tipo_operacion=112 AND fecha_operacion>='{$fecha_esperar_hasta}'";
my_query($sqlURec);
my_query($sqlUMvto);
}
function setCancelarLlamadasAnteriores($fecha = false)
{
if ($fecha == false) {
$fecha = fechasys();
}
$xFecha = new cFecha(0, $fecha);
$fecha = $xFecha->setRestarDias(DIAS_DE_INTERVALO_POR_LLAMADAS, $fecha);
//cancelar llamadas Anteriores
$sqlCA = "UPDATE seguimiento_llamadas\n\t \t\t\t\tSET estatus_llamada='cancelado'\n\t \t\t\t\tWHERE\n\t\t\t\t\t\t\t(estatus_llamada='pendiente')\n\t\t\t\t\t\t\tAND (fecha_llamada < '{$fecha}') ";
my_query($sqlCA);
}
