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);