function jsaGetCuotasDeDefuncion($socio)
{
$cuota_pagada = 0;
$fecha_a_tolerar = restardias(fechasys(), DIAS_A_ROTAR_FONDO_DE_DEFUNCION);
$cuota_a_pagar = 100;
$sql = "SELECT SUM(afectacion_real) AS 'monto',\n\t\t\tMAX(fecha_operacion) AS 'fecha_pago'\n\t\t\tFROM operaciones_mvtos\n\t\t\tWHERE tipo_operacion=902\n\t\t\tAND socio_afectado={$socio}\n\t\t\tAND fecha_operacion>='{$fecha_a_tolerar}'\n\t\t";
$cuota_pagada = mifila($sql, "monto");
if ($cuota_pagada < 0) {
$cuota_pagada = 0;
}
$cuota_a_pagar = $cuota_a_pagar - $cuota_pagada;
//TODO: Terminar
$tab = new TinyAjaxBehavior();
$tab->add(TabSetvalue::getBehavior('idmonto', $cuota_a_pagar));
return $tab->getString();
}
//=====================================================================================================
$xHP = new cHPage();
$xQL = new MQL();
$xLi = new cSQLListas();
ini_set("max_execution_time", 300);
$xHP->init();
?>
<form name="frmdelrecibos" action="frmeliminarrecibos.php" method="post">
<?php
$FiltroByUser = "******";
$dias_max_recibos = DIAS_PARA_EDITAR_RECIBOS;
if (MODO_DEBUG == true) {
$FiltroByUser = "";
$dias_max_recibos = 1;
}
$FechaInicial = restardias(fechasys(), $dias_max_recibos);
$sql = "\n\tSELECT\n\t`operaciones_recibos`.`idoperaciones_recibos`,\n\tCONCAT( `operaciones_recibos`.`idoperaciones_recibos`, '-', \n\tgetFechaMX(`operaciones_recibos`.`fecha_operacion`),\t'-',\n\t`socios_general`.`codigo`, '-',\n\t`socios_general`.`nombrecompleto`, ' ',\n\t`socios_general`.`apellidopaterno`, ' ',\n\t`socios_general`.`apellidomaterno`, '-Monto: ',\n\t`operaciones_recibos`.`total_operacion`) AS 'concepto'\n\tFROM\n\t`socios_general` `socios_general` \n\t\tINNER JOIN `operaciones_recibos` `operaciones_recibos` \n\t\tON `socios_general`.`codigo` = `operaciones_recibos`.`numero_socio`\n\tWHERE\n\t\tfecha_operacion>='{$FechaInicial}' {$FiltroByUser} \n\tORDER BY\n\t\t`operaciones_recibos`.`idoperaciones_recibos`,\n\t\t`operaciones_recibos`.`fecha_operacion`,\n\t\t`socios_general`.`nombrecompleto` ";
?>
<fieldset>
<legend>Editar / Consultar / Eliminar :: Recibo por Numero</legend>
<table >
<tr>
<td>Numero de Recibo a Modificar</td>
<td><?php
$cFJ = new cSelect("idrecibo", "id-recibo", $sql);
$cFJ->setEsSql();
$cFJ->show(false);
?>
</td>
</tr>
<tr>
/**
* Fondo de Defuncion pagado
*/
function getFondoDeDefuncion()
{
$fecha = fechasys();
$maximo_de_antiguedad = restardias($fecha, DIAS_A_ROTAR_FONDO_DE_DEFUNCION);
$sql = "SELECT\n\t\t\t\t\t`operaciones_mvtos`.`socio_afectado`,\n\t\t\t\t\t`operaciones_mvtos`.`tipo_operacion`,\n\t\t\t\t\tMAX(`operaciones_mvtos`.`fecha_afectacion`) AS `fecha_de_pago`,\n\t\t\t\t\tSUM(`operaciones_mvtos`.`afectacion_real`) AS `monto_pagado`\n\t\t\t\tFROM\n\t\t\t\t\t`operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\tWHERE\n\t\t\t\t\t(`operaciones_mvtos`.`socio_afectado` = " . $this->mCodigo . ")\n\t\t\t\t\tAND\n\t\t\t\t\t(`operaciones_mvtos`.`tipo_operacion` =902)\n\t\t\t\tGROUP BY `operaciones_mvtos`.`socio_afectado` ";
$Datos = obten_filas($sql);
$fecha = $Datos["fecha_de_pago"];
$monto = setNoMenorQueCero($Datos["monto_pagado"]);
$this->mMessages .= "El Socio ha Pagado por Defuncion {$monto}, el Ultimo pago fue {$fecha} \r\n";
if ($monto != 0) {
//Validar la Rotación
if (strtotime($fecha) < strtotime($maximo_de_antiguedad)) {
$this->mMessages .= "El Fondo ha Expirado, el pago fue {$fecha}, Maximo de Antiguedad en {$maximo_de_antiguedad} \r\n";
$monto = 0;
}
}
return $monto;
}
function CompararPlanesDePago()
{
$msg = "============================ COMPARANDO PLANES DE PAGO SISBANCS\r\n";
//Efectua una Comparacion con los Datos del Plan de Pagos
$sqlSC = "SELECT\n\t\t\t\t\t\t\t\t`creditos_solicitud`.*,\n\t\t\t\t\t\t\t\t`sisbancs_suma_amorizaciones`.*\n\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t`creditos_solicitud` `creditos_solicitud`\n\t\t\t\t\t\t\t\t\tINNER JOIN `sisbancs_suma_amorizaciones` `sisbancs_suma_amorizaciones`\n\t\t\t\t\t\t\t\t\tON `creditos_solicitud`.`numero_solicitud` =\n\t\t\t\t\t\t\t\t\t`sisbancs_suma_amorizaciones`.`credito`\n\t\t\t\t\t\t\t/* WHERE\n\t\t\t\t\t\t\t\t (`creditos_solicitud`.`saldo_actual` >" . TOLERANCIA_SALDOS . ") */ ";
$rs = mysql_query($sqlSC, cnnGeneral());
$contar = 0;
$NetoDisminuir = 0;
$NetoCap = 0;
$NetoLetra = 0;
//Eliminar Letras cuyo capital es Cero o menor a cero
$sql = " DELETE FROM sisbancs_amortizaciones WHERE saldo_vigente < 0.99 ";
$tx = my_query($sql);
$msg .= "ELIMINANDO LETRAS CUYO CAPITAL ES MENOR A CERO (" . $tx["info"] . ")\r\n";
while ($rw = mysql_fetch_array($rs)) {
$credito = $rw["numero_solicitud"];
$socio = $rw["numero_socio"];
$saldoActual = $rw["saldo_actual"];
$saldoSISBANCS = $rw["capital_vigente"];
$LimitLetras = $rw["pagos_autorizados"];
$diferencia = $saldoActual - $saldoSISBANCS;
$PeriocidadDePago = $rw["periocidad_de_pago"];
//Datos del PLAN DE PAGOS
$letraInicial = $rw["letra_inicial"];
$letraFinal = $rw["letra_final"];
$AEliminar = $diferencia;
$NetoCap += $saldoActual;
$NetoLetra += $rw["capital_vigente"];
$NetoDisminuir += $diferencia;
//TODO: Verificar la Validez de la Condicion
if ($diferencia < TOLERANCIA_SALDOS * -1) {
$msg .= "{$contar}\t{$credito}\tOBJETIVO\tLa Diferencia({$diferencia}) no es tolerable \r\n";
$AEliminar = $diferencia * -1;
//
for ($i = $letraInicial; $i <= $letraFinal; $i++) {
$sqLetra = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`sisbancs_amortizaciones`.*\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`sisbancs_amortizaciones` `sisbancs_amortizaciones`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`credito` ={$credito}) AND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`parcialidad` ={$i})";
$DLetra = obten_filas($sqLetra);
$LMonto = $DLetra["saldo_vigente"];
$PercTrunk = 0;
//Si eliminar es Mayor a la Letra, y la Letra es Mayor a 0.99
if ($AEliminar >= $LMonto and $LMonto > TOLERANCIA_SALDOS and $AEliminar > 0) {
//Eliminar la Letra
$sqlDL = "DELETE FROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`sisbancs_amortizaciones`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`credito` ={$credito}) AND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`parcialidad` ={$i}) ";
$x = my_query($sqlDL);
$msg .= "{$contar}\t{$credito}\tELIMINAR\tLetra {$i} (Disminuir {$AEliminar} / Letra {$LMonto})\r\n";
$AEliminar -= $LMonto;
//Si a eliminar es Menor a la Letra, y la Letra es mayor a 0.99
} elseif ($AEliminar < $LMonto and $LMonto > TOLERANCIA_SALDOS and $AEliminar > 0) {
//$LMonto = $LMonto - $AEliminar;
$PercTrunk = $AEliminar / $LMonto;
$sqlUL = "UPDATE sisbancs_amortizaciones\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tSET saldo_vigente=saldo_vigente - (saldo_vigente * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_vencido=saldo_vencido - (saldo_vencido * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tinteres_vigente=interes_vigente - (interes_vigente * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tinteres_vencido=interes_vencido - (interes_vencido * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_interes_vencido=saldo_interes_vencido - (saldo_interes_vencido * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tinteres_moratorio=interes_moratorio - (interes_moratorio * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tiva_interes_normal=iva_interes_normal - (iva_interes_normal * {$PercTrunk}),\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tiva_interes_moratorio=iva_interes_moratorio - (iva_interes_moratorio * {$PercTrunk})\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tcredito={$credito} AND parcialidad={$i} ";
$x = my_query($sqlUL);
//(" . $x["info"] . ")
$msg .= "{$contar}\t{$credito}\tACTUALIZAR\tLetra {$i} con el Factor {$PercTrunk} ( LETRA:{$LMonto} / ELIMINAR:{$AEliminar})\r\n";
//$msg .= $x["info"];
$AEliminar = 0;
}
if ($AEliminar < TOLERANCIA_SALDOS) {
$AEliminar = 0;
}
}
} elseif ($diferencia > TOLERANCIA_SALDOS) {
$sqLetra = "SELECT\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`sisbancs_amortizaciones`.*\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tFROM\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t`sisbancs_amortizaciones` `sisbancs_amortizaciones`\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tWHERE\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`credito` = {$credito})\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tAND\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t(`sisbancs_amortizaciones`.`parcialidad` = {$letraInicial})";
$DLetra = obten_filas($sqLetra);
$fechaIn = restardias($DLetra["fecha_de_vencimiento"], $PeriocidadDePago);
$nuevaLetra = $letraInicial - 1;
$msg .= "{$contar}\t{$credito}\tAGREGAR\tEl Plan de Pagos es menor al saldo del Credito, se agrega la letra {$nuevaLetra} por {$diferencia} \r\n";
$sqlIS = "INSERT INTO sisbancs_amortizaciones(socio, credito, parcialidad, fecha_de_vencimiento,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\tsaldo_vigente, saldo_vencido, interes_vigente, interes_vencido, saldo_interes_vencido, interes_moratorio,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\testatus, iva_interes_normal, iva_interes_moratorio)\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\tVALUES ({$socio}, {$credito}, {$nuevaLetra}, '{$fechaIn}',\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t{$diferencia}, 0, 0, 0, 0, 0,\n\t\t\t\t\t\t\t\t\t\t\t\t\t\t1, 0, 0)";
$x = my_query($sqlIS);
//$msg .= $x["info"];
}
$contar++;
}
$msg .= "\t\t=============\tCAPITAL SAFE\t{$NetoCap}\r\n";
$msg .= "\t\t=============\tCAPITAL SISBANCS\t{$NetoLetra}\r\n";
$msg .= "\t\t=============\tDIFERENCIA NETA\t{$NetoDisminuir}\r\n";
$msg .= "\tFIN\t=================================================================\r\n";
return $msg;
}
function get_monto_planeacion_credito($idsocio)
{
//Cuantos dias se le espera a una socia.- para eliminar un credito 30 DIAS
$dias_espera = DIAS_ESPERA_CREDITO;
$antiguedad_planeacion = restardias(fechasys(), $dias_espera);
$elcred = 0;
$sql = "SELECT grupo_solidario FROM socios_general WHERE codigo={$idsocio}";
$gpoasoc = mifila($sql, "grupo_solidario");
$sqls = "SELECT SUM(afectacion_real) AS 'total' FROM operaciones_mvtos\r\n\t\t\t\t\tWHERE grupo_asociado={$gpoasoc} AND tipo_operacion=112\r\n\t\t\t\t\tAND estatus_mvto=40 AND\r\n\t\t\t\t\tfecha_afectacion >'{$antiguedad_planeacion}'\r\n\t\t\t\t\tGROUP BY grupo_asociado ";
if ($gpoasoc != 99) {
$elcred = mifila($sqls, "total");
}
return $elcred;
}
function gposolcred($strGreen)
{
//Cuantos dias se le espera a una socia.- para eliminar un credito 30 DIAS
$dias_espera = 30;
$antiguedad_planeacion = restardias(date("Y-m-d"), $dias_espera);
$elcred = 0;
$SQL = "SELECT grupo_solidario FROM socios_general WHERE codigo={$strGreen}";
$gpoasoc = mydat($SQL, "grupo_solidario");
$sqls = "SELECT SUM(afectacion_real) AS 'total' FROM operaciones_mvtos WHERE grupo_asociado={$gpoasoc} \r\n\t\t\t\t\t\t\t\tAND tipo_operacion=112 AND estatus_mvto=40 \r\n\t\t\t\t\t\t\t\tAND fecha_afectacion > '{$antiguedad_planeacion}'";
if ($gpoasoc != DEFAULT_GRUPO) {
$elcred = mydat($sqls, "total");
}
return $elcred;
}
if ($periocidad != CREDITO_TIPO_PERIOCIDAD_FINAL_DE_PLAZO) {
$monto_parcialidad = $monto_solicitado / $numeropagos + $interes_diario * $periocidad;
}
//-- socio
$xSoc = new cSocio($socio);
$xSoc->init();
//----- * Reestructura la Fecha de Vcto y los dias Autorizados * ------
$dsoc = $xSoc->getDatosInArray();
$grupo_asociado = $dsoc["grupo_solidario"];
// ------------------ Distinguir si es Grupal, si lo es asociar la ultima planeacion al credito
if ($xConv->getEsProductoDeGrupos() == true) {
/**
* Neutraliza el Recibo de Planeacion por socio
* Neutraliza las Operaciones de Planeacion por Grupo
*/
$fecha_esperar_hasta = restardias($fecha_solicitud, DIAS_ESPERA_CREDITO);
$sqlURec = "UPDATE operaciones_recibos set docto_afectado={$solicitud}\n\t\t\t\t\t\t\t\t\t\tWHERE numero_socio={$socio} AND tipo_docto=14\n\t\t\t\t\t\t\t\t\t\tAND fecha_operacion>='{$fecha_esperar_hasta}' ";
$sqlUMvto = "UPDATE operaciones_mvtos set docto_afectado={$solicitud} WHERE grupo_asociado={$grupo_asociado}\n\t\t\t\t\t\t\t\t\t\tAND tipo_operacion=112 AND fecha_operacion>='{$fecha_esperar_hasta}'";
my_query($sqlURec);
my_query($sqlUMvto);
}
$oficial_de_credito = $iduser;
$oficial_de_seguimiento = $iduser;
if (USE_OFICIAL_BY_PRODUCTO == true) {
$oficial_de_credito = $dconv["oficial_seguimiento"];
$oficial_de_seguimiento = $dconv["oficial_seguimiento"];
}
//----------------------------------------------------------------------
/* @param string $Observaciones
* @param integer $OficialDeCredito
* @param mixed $FechaDeSolicitud
