function jsaGetLetras($idcredito)
{
$idcred = setNoMenorQueCero($idcredito);
$xF = new cFecha();
if ($idcred > DEFAULT_CREDITO) {
$xCred = new cCredito($idcred);
$xCred->init();
if ($xCred->getEsAfectable() == false or $xCred->getSaldoActual() <= 0) {
if (MODO_CORRECION == true) {
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
} else {
return $xCred->getMessages();
}
} else {
if ($xCred->getPeriocidadDePago() == CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
//
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
} else {
$plan = $xCred->getNumeroDePlanDePagos();
if ($plan != false) {
$xPlan = new cPlanDePagos($plan);
$xPlan->init();
$parcs = $xPlan->getParcsPendientes();
//$txt = "";
$arrD = array();
foreach ($parcs as $p) {
//setLog( $p[SYS_NUMERO]. " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " ". getFMoney($p[SYS_TOTAL]));
if (setNoMenorQueCero($p[SYS_TOTAL]) > 0) {
$arrD[$p[SYS_NUMERO]] = $p[SYS_NUMERO] . " " . $xF->getFechaDDMM($p[SYS_FECHA]) . " " . getFMoney($p[SYS_TOTAL]);
}
}
$xSel = new cHSelect();
$xSel->addOptions($arrD);
$xSel->setEnclose(false);
return $xSel->get("idparcialidad", "TR.Numero de Parcialidad", $xCred->getPeriodoActual() + 1);
} else {
if (MODO_CORRECION == true) {
$xTxt = new cHText();
$xTxt->setDivClass("");
return $xTxt->getNumero("idparcialidad", $xCred->getPeriodoActual() + 1, "TR.Numero de Parcialidad");
}
}
}
}
}
}
function jsaSetPagarCredito($credito, $fecha, $observaciones)
{
$msg = "";
$xLng = new cLang();
$xCred = new cCredito($credito);
$xCred->init();
$xdat = new cFecha(0);
$fecha = $xdat->getFechaISO($fecha);
//$xCred->setResetPersonaAsociada($fecha, $observaciones);
//return $xLng->get(MSG_READY_SAVE);
$xCred->setAbonoCapital($xCred->getSaldoActual(), $xCred->getPeriodoActual(), DEFAULT_CHEQUE, TESORERIA_COBRO_NINGUNO, DEFAULT_RECIBO_FISCAL, $observaciones, DEFAULT_GRUPO, $fecha);
return $xCred->getMessages(OUT_HTML);
}
$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
$UltimaLetraPagada = $xCR->getMonto($xCred->getPeriodoActual());
//obtener datos de la letra
$DPlanDePagos = $xCred->getDatosDelPlanDePagos();
$NumeroDePlan = $xCred->getNumeroDePlanDePagos();
$FechaDePrimerIncumplimiento = "";
if ($SaldoActual <= 0) {
if ($xF->getInt($xCred->getFechaUltimoDePago()) >= $xF->getInt($xCred->getFechaDeMinistracion())) {
$FechaCierreCuenta = $xCR->getDate($xCred->getFechaDeMinistracion());
$FechaAperturaCuenta = $xCR->getDate($xF->setRestarDias(3, $xCred->getFechaDeMinistracion()));
$FechaUltimoPago = $xCR->getDate($xF->setRestarDias(2, $xCred->getFechaDeMinistracion()));
//setLog("3....$FechaUltimoPago");
} else {
$FechaCierreCuenta = $xCR->getDate($xCred->getFechaUltimoDePago());
}
//$FechaUltimaCompra = $xCR->getDate($xCred->getFechaDeMinistracion() );
//$FechaAperturaCuenta = $xCR->getDate($xCred->getFechaDeMinistracion() );
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");
}
$nuevo_saldo = $xCred->getSaldoActual() - $baseM120;
$nuevo_saldo = $nuevo_saldo < 0 ? 0 : $nuevo_saldo;
$arrUCredito["saldo_actual"] = $nuevo_saldo;
}
if (setNoMenorQueCero($baseM120) <= 0) {
$actualizar_parcialidad = false;
}
//Saldo ints devengados aldo_actual=(saldo_actual - ($baseM120)),
//monto_parcialidad $arrUCredito["saldo_actual"]
if ($xCred->getPagosAutorizados() <= $nueva_parcialidad) {
if ($nuevo_saldo > TOLERANCIA_SALDOS) {
$msg .= "WARN\tLa parcialidad no se Actualiza, el saldo queda a {$nuevo_saldo} de la Parcialidad {$nueva_parcialidad}\r\n";
$actualizar_parcialidad = false;
}
}
if ($nueva_parcialidad < $xCred->getPeriodoActual()) {
$msg .= "WARN\tLa Parcialidad {$nueva_parcialidad} no se mueve por ser menor al actual " . $xCred->getSaldoActual() . "\r\n";
$actualizar_parcialidad = false;
}
if ($actualizar_parcialidad == true) {
$arrUCredito["ultimo_periodo_afectado"] = $nueva_parcialidad;
}
$arrUCredito["interes_normal_pagado"] = $xCred->getInteresNormalPagado() + $baseM140;
$arrUCredito["interes_moratorio_pagado"] = $xCred->getInteresMoratorioPagado() + $baseM141;
$xCred->setUpdate($arrUCredito);
//---------------------------- Agrega Movimientos extras ---------------------------------
if ($interesanticipado != 0) {
$tds .= "<tr>\n <th></th>\n <td>Compensacion Intereses Cobrado por Ant</td>\n <td class='mny'>" . getFMoney($interesanticipado) . "</td>\n </tr>";
$SQL_ICA = "UPDATE operaciones_mvtos SET estatus_mvto=60, docto_neutralizador={$recibo_pago} WHERE tipo_operacion=351 AND socio_afectado={$socio} AND estatus_mvto=30";
my_query($SQL_ICA);
//setPolizaProforma($recibo_pago, 352, $interesanticipado, $socio, $solicitud, TM_CARGO);
