$aliasFil = getSucursal() . "-eventos-al-cierre-de-captacion-del-dia-{$fechaop}";
$xLog = new cFileLog($aliasFil, true);
$idrecibo = DEFAULT_RECIBO;
$xRec = new cReciboDeOperacion(12, false);
//$xRec->setGenerarPoliza();
$xRec->setForceUpdateSaldos();
$idrecibo = $xRec->setNuevoRecibo(DEFAULT_SOCIO, DEFAULT_CUENTA_CORRIENTE, $fechaop, 1, 12, "CIERRE_DE_CAPTACION_{$fechaop}", "", TESORERIA_COBRO_NINGUNO, "", DEFAULT_GRUPO);
$xRec->setNumeroDeRecibo($idrecibo);
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\t" . EACP_NAME . " \r\n";
$messages .= "=========================\t\t" . getSucursal() . " \r\n";
$messages .= "=======================================================================================\r\n";
$messages .= "=========================\t\tINICIANDO EL CIERRE DE CAPTACION ====================\r\n";
$messages .= "=========================\t\tRECIBO: {$idrecibo}\t\t\t\t ====================\r\n";
$messages .= "=======================================================================================\r\n";
$xUCapt = new cUtileriasParaCaptacion();
$messages .= "=========================\t\tPurgando Dias Minimo de Inversion \t====================\r\n";
$messages .= $xUCapt->vencer_intereses_de_inversion($idrecibo, $fechaop);
$messages .= $xUCapt->inversiones_automaticas($idrecibo, $fechaop);
if ($xF->getDiaFinal() == $xF->get()) {
$messages .= $xUCapt->setGenerarInteresSobreSDPM($idrecibo, $fechaop);
if (CAPTACION_IMPUESTOS_A_DEPOSITOS_ACTIVO == true) {
$messages .= $xUCapt->getGenerarBaseGravadaMensualIDE($fechaop);
$messages .= $xUCapt->setGenerarIDE_mensual($idrecibo, $fechaop);
}
}
$xRec->setFinalizarRecibo(true);
$xLog->setWrite($messages);
$xLog->setClose();
if (ENVIAR_MAIL_LOGS == true) {
$xLog->setSendToMail("TR.Eventos del Cierre del Captacion");
$msg .= $xCred->setEliminarInteresesDeCreditosPagados();
break;
case 884:
$sql = "SELECT\n\t\t\t\t\t`captacion_cuentas`.*,\n\t\t\t\t\t`captacion_cuentastipos`.`descripcion_cuentastipos` AS `tipo`,\n\t\t\t\t\t/* heredado de inversion */\n\t\t\t\t\t`captacion_cuentas`.`numero_cuenta` AS `cuenta`,\n\t\t\t\t\t`captacion_cuentas`.`fecha_afectacion` AS `apertura`,\n\t\t\t\t\t`captacion_cuentas`.`inversion_fecha_vcto` AS `vencimiento`,\n\t\t\t\t\t`captacion_cuentas`.`tasa_otorgada` AS `tasa`,\n\t\t\t\t\t`captacion_cuentas`.`dias_invertidos` AS `dias`,\n\t\t\t\t\t`captacion_cuentas`.`observacion_cuenta` AS `observaciones`,\n\t\t\t\t\t`captacion_cuentas`.`saldo_cuenta` \t\t\t AS `saldo`,\n\t\t\t\t\t/*heredado de captacion a la vista */\n\t\t\t\t\t`captacion_subproductos`.`descripcion_subproductos` AS `subproducto`,\n\t\t\t\t\t`captacion_subproductos`.`algoritmo_de_premio`,\n\t\t\t\t\t`captacion_subproductos`.`algoritmo_de_tasa_incremental`,\n\t\t\t\t\t`captacion_subproductos`.`metodo_de_abono_de_interes`,\n\t\t\t\t\t`captacion_subproductos`.`destino_del_interes`\n\t\t\t\tFROM\n\t\t\t\t\t`captacion_cuentas` `captacion_cuentas`\n\t\t\t\t\t\tINNER JOIN `captacion_cuentastipos` `captacion_cuentastipos`\n\t\t\t\t\t\tON `captacion_cuentas`.`tipo_cuenta` = `captacion_cuentastipos`.\n\t\t\t\t\t\t`idcaptacion_cuentastipos`\n\t\t\t\t\t\t\tINNER JOIN `captacion_subproductos` `captacion_subproductos`\n\t\t\t\t\t\t\tON `captacion_cuentas`.`tipo_subproducto` = `captacion_subproductos`\n\t\t\t\t\t\t\t.`idcaptacion_subproductos`\n\t\t\t\tWHERE\n\t\t\t\t\t`captacion_cuentas`.tipo_cuenta = 20";
$rs = mysql_query($sql, cnnGeneral());
while ($rw = mysql_fetch_array($rs)) {
$socio = $rw["numero_socio"];
$cuenta = $rw["numero_cuenta"];
$xInv = new cCuentaInversionPlazoFijo($cuenta, $socio);
$xInv->init($rw);
$msg .= $xInv->setDelete();
}
break;
case 885:
$fecha = $id;
$xUC = new cUtileriasParaCaptacion();
$msg .= $xUC->getGenerarBaseGravadaMensualIDE($fecha);
break;
case 886:
$ForzarCorreccion = strtoupper($id);
$Forzar = $ForzarCorreccion == "SI" ? true : false;
$xCUtils = new cUtileriasParaCaptacion();
$msg .= $xCUtils->setValidarCuentas($Forzar);
break;
//TODO: Terminar
//TODO: Terminar
case 887:
$xop = new cUtileriasParaOperaciones();
$msg .= $xop->setPurgarMovimientos();
break;
case 888:
