function jsaGetDatosCuenta($cuenta, $socio)
{
$xCta = new cCuentaInversionPlazoFijo($cuenta, $socio);
$xCta->init();
$DC = $xCta->getDatosInArray();
$MaxRet = $xCta->getMaximoRetirable();
$sdo = $DC["saldo_cuenta"];
$tab = new TinyAjaxBehavior();
$tab->add(TabSetValue::getBehavior("idMaxRet", $MaxRet));
$tab->add(TabSetValue::getBehavior("idSaldoAnterior", $sdo));
//$tab -> add(TabSetValue::getBehavior("idmonto", $sdo ));
//$tab -> add(TabSetValue::getBehavior("imsg", $xCta->getMessages("txt") ));
return $tab->getString();
}
if ($idsocio != 1) {
$nombre = $nombre_del_socio;
} else {
$nombre = mifila($sqlrec, "cadena_distributiva");
}
$direccion = $domicilio_del_socio;
$rfc = $DSoc["rfc"];
$curp = $DSoc["curp"];
// obtiene datos del documento que ayudaran al detalle en contabilidad
$observaciones = mifila($sqlrec, "observacion_recibo");
//
$sql_d_mvto = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=500 ";
$sql_d_inv = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE recibo_afectado={$idrecibo}\n\t\t\t\t\t\tAND tipo_operacion=223 ";
$sql_d_ide = "SELECT * FROM operaciones_mvtos\n\t\t\t\t\t\tWHERE\n\t\t\t\t\t\tfecha_operacion = '{$fechaRecibo}'\n\t\t\t\t\t\tAND docto_afectado = {$docto}\n\t\t\t\t\t\tAND tipo_operacion=235 ";
$xInv = new cCuentaInversionPlazoFijo($docto, $idsocio);
$dcuentas = $xInv->getDatosInArray();
$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);
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;
}
$reciboFisc = isset($_POST["recibofiscal"]) ? $_POST["recibofiscal"] : "NA";
$tipo_de_pago = isset($_POST["ctipo_pago"]) ? $_POST["ctipo_pago"] : "ninguno";
//( isset($_POST[""]) ) ? $_POST[""] : 0;
$invertido = $acciones * COSTE_POR_ACCION;
$dias = 180;
$tasa = 0.08;
$tasa2 = 0.09;
$msg = "";
if ($acciones > 0 and $socio != false and $cuenta != 0) {
$cSoc = new cSocio($socio);
$cSoc->init();
$xC = new cCuentaInversionPlazoFijo($cuenta, $socio, $dias, $tasa);
$xC->init();
//Si la cuenta no tiene 365 dias la cuenta esta bloqueada para operaciones
$FVcto = $xC->getFechaDeVencimiento();
$D = $xC->getDatosInArray();
$mPeriodo = $xC->getNumeroDePeriodo();
$ide = $xC->getMontoIDE($fecha_actual, $invertido);
$RDeposito = $xC->setDeposito($invertido, $cheque, $tipo_de_pago, $reciboFisc, $observaciones);
$xC->init();
$saldo = $xC->getNuevoSaldo();
//si el IDE es mayor a cero
if ($ide > 0) {
$ide_observacion = "Retencion Generada por un Deposito de {$invertido}, Recibo {$RDeposito}, saldo de {$saldo}";
//Si el Saldo de la Cuenta es Mayor al IDE
if ($saldo > $ide) {
$ReciboIDE = $xC->setRetenerIDE($fecha_actual, false, $ide, $ide_observacion);
} else {
//Si no el IDE es igual al Saldo
$ide = $saldo;
$ReciboIDE = $xC->setRetenerIDE($fecha_actual, false, $ide, $ide_observacion);
