$idsocio = $dcuentas["numero_socio"];
$docto = $dcuentas["numero_cuenta"];
$dias = $dcuentas["dias_invertidos"];
$tasa = $dcuentas["tasa_otorgada"];
$capital = $dcuentas["saldo_cuenta"];
// + $ide);(
$vencimiento = sumardias($dcuentas["inversion_fecha_vcto"], $dias);
$interes = $capital * $dias * $tasa / EACP_DIAS_INTERES;
$xSoc = new cSocio($idsocio);
$xSoc->init();
$DSoc = $xSoc->getDatosInArray();
$domicilio_del_socio = $xSoc->getDomicilio();
$nombre_del_socio = $xSoc->getNombreCompleto();
$numero_de_socio = $idsocio;
$tasa = getFMoney($tasa * 100);
$isr = getISRByInversion($capital, $dias);
$aliquidar = $capital + $interes - $isr;
$nombre = $nombre_del_socio;
echo "\n\t<p class='bigtitle'>CONSTANCIA PROVISIONAL DE DEPOSITO A PLAZO</p>\n\t<hr />";
// obtiene datos del socio
$direccion = $domicilio_del_socio;
$rfc = $DSoc["rfc"];
$curp = $DSoc["curp"];
//
echo $xSoc->getFicha();
echo $xInv->getFicha(true);
?>
<hr />
<?php
echo "\n<table width='75%'>\n <tr>\n <td width='15%'> </td>\n <td width='15%'> </td>\n\n <th>Fecha de Apertura:</th>\n <td>{$dcuentas['5']}</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Fecha de Vencimiento:</th>\n <td>{$vencimiento}</td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <td></td>\n <td></td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Dias Invertidos:</th>\n <td class='mny'>{$dcuentas['15']}</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Tasa Otorgada</th>\n <td class='mny'>{$tasa} %</td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <td></td>\n <td></td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Capital Invertido:</th>\n <td class='mny'>" . getFMoney($capital) . "</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Interes Generado:</th>\n <th class='mny'>" . getFMoney($interes) . "</th>\n <td>{$dmvto['0']}</td>\n </tr>\n<!--ISR -->\n <tr>\n <td> </td>\n <td> </td>\n\n <th>ISR a Retener:</th>\n <th class='mny'>(" . getFMoney($isr) . ")</th>\n <td></td>\n </tr>\n<!-- IDE -->\n<!-- <tr>\n <td> </td>\n <td> </td>\n\n <th>IDE Retenido:</th>\n <th class='mny'>(" . getFMoney($ide) . ")</th>\n <td></td>\n </tr> -->\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>A Liquidar</th>\n <td class='mny'>" . getFMoney($aliquidar) . "</td>\n <td> </td>\n </tr>\n <tr>\n \t<td />\n \t<td />\n \t<th colspan='3'>" . convertirletras($aliquidar) . "</th>\n </tr>\n</table>\n<hr /><table border='0' width='100%'>\n\t<tr>\n\t<td><center>Firma de CONFORMIDAD</td>\n\t<td><center>GENERO LA REINVERSION</center></td>\n\t</tr>\n\t<tr>\n\t<td><br /><br ><br /></td>\n\t</tr>\n\t<tr>\n\t<td><center>{$nombre}\n\t</td>\n\t\t<td><center>{$oficial}</center></td>\n\t</tr>\n\t</table>\n\t<p class='legal'>Comprobante Provisional de Reinversion, solo para fines Informativos,\n\tya que la informacion contenida en esta cedula es de caracter\n\tprovisional y suceptible a que el Aceptante modifique los montos y/o plazos durante el lapso del Dia Laboral.</p>\n\t<p class='legal'>El Impuesto a Depositos en Efectivo Cobrado en esta transaccion es de " . getFMoney($ide) . " </p>\n";
echo getRawFooter();
$dmvto = obten_filas($sql_d_mvto);
$dInv = obten_filas($sql_d_inv);
$dIDE = obten_filas($sql_d_ide);
//
$iSocio = new cFicha(iDE_SOCIO, $idsocio);
$iSocio->setTableWidth();
$iSocio->show();
echo "<hr />";
$cInv = new cFicha(iDE_CINVERSION, $docto);
$cInv->setTableWidth();
$cInv->show();
?>
<hr />
<?php
$tasa = getFMoney($dcuentas["tasa_otorgada"] * 100);
$interes = getFMoney($dmvto["afectacion_real"]);
//$capital = getFMoney($dInv["afectacion_real"]);
$capital = getFMoney($dcuentas["saldo_cuenta"]);
$dias = $dcuentas["dias_invertidos"];
$isr = getISRByInversion($dcuentas["saldo_cuenta"], $dias);
$isr = round($isr, 2);
$ide = $dIDE["afectacion_real"];
//$ide = 0;
$aliquidar = $dInv["afectacion_real"] + $dmvto["afectacion_real"] - ($isr + $ide);
$vencimiento = $dcuentas["inversion_fecha_vcto"];
echo "\n<table width='75%'>\n <tr>\n <td width='15%'> </td>\n <td width='15%'> </td>\n\n <th>Fecha de Apertura:</th>\n <td>{$dcuentas['5']}</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Fecha de Vencimiento:</th>\n <td>{$vencimiento}</td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <td></td>\n <td></td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Dias Invertidos:</th>\n <td class='mny'>{$dias}</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Tasa Otorgada</th>\n <td class='mny'>{$tasa} %</td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <td></td>\n <td></td>\n <td> </td>\n\n </tr>\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Capital Invertido:</th>\n <td class='mny'>{$capital}</td>\n <td> </td>\n\n </tr>\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>Interes Generado:</th>\n <th class='mny'>{$interes}</th>\n <td></td>\n </tr>\n<!-- ISR -->\n <tr>\n <td> </td>\n <td> </td>\n\n <th>ISR a Retener:</th>\n <th class='mny'>(" . getFMoney($isr) . ")</th>\n <td></td>\n </tr>\n\n<!-- IDE -->\n<!-- <tr>\n <td> </td>\n <td> </td>\n\n <th>IDE Retenido:</th>\n <th class='mny'>(" . getFMoney($ide) . ")</th>\n <td></td>\n </tr> -->\n\n\n <tr>\n <td> </td>\n <td> </td>\n\n <th>A Liquidar</th>\n <td class='mny'>" . getFMoney($aliquidar) . "</td>\n <td> </td>\n </tr>\n <tr>\n \t<td />\n \t<td />\n \t<th colspan='3'>" . convertirletras($aliquidar) . "</th>\n </tr>\n</table>\n<p class='legal'>El Impuesto a Depositos en Efectivo Cobrado en esta transaccion es de " . getFMoney($ide) . " </p>\n<hr />\n<table border='0' width='100%'>\n\t<tr>\n\t<td><center>Firma de CONFORMIDAD</td>\n\t<td><center>GENERO LA REINVERSION</center></td>\n\t</tr>\n\t<tr>\n\t<td><br /><br ><br /></td>\n\t</tr>\n\t<tr>\n\t<td><center>{$nombre}\n\t</td>\n\t\t<td><center>{$oficial}</center></td>\n\t</tr>\n</table>\n";
echo getRawFooter();
?>
</body>
</html>
function vencer_intereses_de_inversion($recibo = false, $fecha = false)
{
//DATE_ADD(CURDATE(), INTERVAL 1 DAY)
//Vencer los Intereses de las Inversiones de Ma�ana
$fecha_programada = sumardias($fecha, 1);
$sucursal = getSucursal();
$msg = "================= VENCIMIENTO_DE_INTERESES_SOBRE_INVERSION DEL DIA {$fecha_programada} =========\r\n";
$SQL500 = "SELECT\n\t\t\t\t\t `operaciones_mvtos`.*\n\t\t\t\t\tFROM\n\t\t\t\t\t `operaciones_mvtos` `operaciones_mvtos`\n\t\t\t\t\tWHERE\n\t\t\t\t\t (`operaciones_mvtos`.`fecha_afectacion` = '{$fecha_programada}')\n\t\t\t\t\t AND\n\t\t\t\t\t (`operaciones_mvtos`.`tipo_operacion` = 500)\n\t\t\t\t\t AND\n\t\t\t\t\t (`operaciones_mvtos`.`sucursal`='{$sucursal}')";
$rs = mysql_query($SQL500, cnnGeneral());
if (!$rs) {
$msg .= "LA CONSULTA NO SE EJECUTO (CODE: " . mysql_errno() . ")";
}
while ($rw = mysql_fetch_array($rs)) {
$iddocto = $rw["docto_afectado"];
$idsocio = $rw["socio_afectado"];
$interes = $rw["afectacion_real"];
//Informacion de la Cuenta
$xCta = new cCuentaInversionPlazoFijo($iddocto, $idsocio);
$xCta->init();
$infoCapt = $xCta->getDatosInArray();
$saldo = $infoCapt["saldo_cuenta"];
$periodo = $infoCapt["inversion_periodo"];
$dias = $infoCapt["dias_invertidos"];
$destinoInteres = $infoCapt["destino_del_interes"];
$cuenta_de_int = $infoCapt["cuenta_de_intereses"];
$isr_a_retener = 0;
//CUENTA_INTERESES
//Suma el Interes mas el Capital
switch ($destinoInteres) {
case "":
$montofinal = $saldo;
$xIC = cCuentaALaVista($idsocio, $cuenta_de_int);
$xIC->init();
$xIC->setDeposito($interes, "NA", "ninguno", "NA", "DEPOSITO_AUTOMATICO_INVERSION_CTA_{$iddocto}", 99, $fecha, $recibo);
setPolizaProforma($recibo, 222, $interes, $idsocio, $cuenta_de_int, TM_ABONO);
$msg .= $xIC->getMessages();
break;
default:
$montofinal = $saldo + $interes;
//Agregar el Movimiento, 222 == depositos de Interes
setNuevoMvto($idsocio, $iddocto, $recibo, $fecha_programada, $interes, 222, $periodo, "DEPOSITO_AUTOMATICO");
$msg .= date("H:i:s") . "\t{$idsocio}\t{$iddocto}\tAgregando el INTERES POR DEPOSITAR por {$interes}\r\n";
setPolizaProforma($recibo, 222, $interes, $idsocio, $iddocto, TM_ABONO);
break;
}
setPolizaProforma($recibo, 500, $interes, $idsocio, $iddocto, TM_CARGO);
/**
* Generar el ISR por Inversiones
*/
$isr_a_retener = getISRByInversion($saldo, $dias);
//
if ($isr_a_retener > 0) {
setNuevoMvto($idsocio, $iddocto, $recibo, $fecha_programada, $isr_a_retener, 234, $periodo, "ISR_AUTOMATICO", -1);
$msg .= date("H:i:s") . "\t{$idsocio}\t{$iddocto}\tAgregando el ISR por RETENER por {$isr_a_retener}\r\n";
//Agregar la Prepoliza
setPolizaProforma($recibo, 222, $isr_a_retener, $idsocio, $iddocto, TM_CARGO);
setPolizaProforma($recibo, 234, $isr_a_retener, $idsocio, $iddocto, TM_ABONO);
//Disminuir el ISR del Monto a Pagar
$montofinal -= $isr_a_retener;
}
//Actualizar la Cuenta de Captacion
$sqlUCta = "UPDATE captacion_cuentas\n\t SET\n\t fecha_afectacion='{$fecha_programada}',\n\t saldo_cuenta={$montofinal}\n\t WHERE numero_cuenta={$iddocto}\n\t AND\n\t numero_socio={$idsocio}";
$x = my_query($sqlUCta);
if ($x["stat"] == false) {
$msg .= $x[SYS_MSG] . "\r\n";
} else {
$msg .= date("H:i:s") . "\t{$idsocio}\t{$iddocto}\tActualizando la Cuenta a Saldo {$montofinal} y Fecha Afectacion {$fecha_programada} \r\n";
}
}
//fin de busqueda
$SQL_U_500 = "UPDATE operaciones_mvtos SET\n\t\t\t estatus_mvto=30,\n\t\t\t docto_neutralizador = {$recibo}\n\t\t\t WHERE\n\t\t\t (`operaciones_mvtos`.`fecha_afectacion` = '{$fecha_programada}')\n\t\t\t AND\n\t\t\t (`operaciones_mvtos`.`tipo_operacion` = 500)\n\t\t\t AND\n\t\t\t (`operaciones_mvtos`.`sucursal`='{$sucursal}')";
$x = my_query($SQL_U_500);
if ($x["stat"] == false) {
$msg .= $x[SYS_MSG] . "\r\n";
} else {
$msg .= date("H:i:s") . "\t\t\tActualizando el INTERES POR DEPOSITAR a 'PAGADO' (" . $x["info"] . ")\r\n";
}
return $msg;
}
