";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_gasto.php");
$io_fun_gasto=new class_funciones_gasto();
$io_fun_gasto->uf_load_seguridad("SPG","sigesp_spg_p_transferir_traspasos.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
require_once("../sigesp_config.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/sigesp_include.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/class_funciones.php");
require_once("../shared/class_folder/class_mensajes.php");
require_once("sigesp_spg_c_transferencia.php");
require_once("sigesp_spg_c_mod_presupuestarias.php");
require_once("../shared/class_folder/sigesp_c_seguridad.php");
$io_seguridad = new sigesp_c_seguridad;
$io_comprobantes = new sigesp_spg_c_mod_presupuestarias;
$in = new sigesp_include();
$con = $in->uf_conectar();
$io_sql =new class_sql($con);
$msg=new class_mensajes();
$arre=$_SESSION["la_empresa"];
$ls_empresa=$arre["codemp"];
$ls_sistema="SPG";
$ls_ventana="sigesp_spg_p_transferir_traspasos.php";
$la_seguridad["empresa"]=$ls_empresa;
$la_seguridad["logusr"]=$ls_logusr;
$la_seguridad["sistema"]=$ls_sistema;
$la_seguridad["ventanas"]=$ls_ventana;
if(array_key_exists("txtbddestino",$_POST))
{
$ls_dbdestino=$_POST["txtbddestino"];
}
else
{
$ls_dbdestino="";
}
if(array_key_exists("conexion",$_POST))
{
$li_conexion=$_POST["conexion"];
}
else
{
$li_conexion=0;
}
global $ls_operacion, $li_conexion, $ls_codcmpdes ,$ls_codcmphas, $ls_descripcion, $ld_fecha, $ld_fecsolapr, $io_comprobantes;
global $ld_fecha,$ld_fecaprob;
$ld_fecha="";
$ld_fecaprob="";
$ls_procede="";
$ls_operacion="";
$ls_codcmpdes ="";
$ls_codcmphas="";
$ls_codempdes="";
$ls_descripcion="";
$ls_titletable="Solicitudes Modificación Presupuestaria Aprobadas";
$li_widthtable=550;
$ls_nametable="grid";
$lo_title[1]="";
$lo_title[2]="Nro. de Solicitud";
$lo_title[3]="Procedencia";
$lo_title[4]="Fecha de Solicitud";
$lo_title[5]="Fecha de Aprobación";
$lo_title[6]="Concepto";
$lo_title[7]="Detalle";
$li_totrows=$io_fun_gasto->uf_obtenervalor("totalfilas",1);
function uf_cargar_dt($li_i)
{
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Arnaldo Suárez
// Fecha Creación: 04/08/2008 Fecha Última Modificación :
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_concepto,$ls_comprobante,$ls_fecha,$ls_fecaprsol,$ls_procede,$ls_selusu,$ls_codban,$ls_ctaban;
$ls_concepto = $_POST["txtconcepto".$li_i];
$ls_comprobante = $_POST["txtcomprobante".$li_i];
$ls_procede = $_POST["txtprocede".$li_i];
$ls_fecha = $_POST["txtfecha".$li_i];
$ls_fecaprsol = $_POST["txtfecaprsol".$li_i];
$ls_selusu = $_POST["txtselusu".$li_i];
$ls_codban = $_POST["hidcodban".$li_i];
$ls_ctaban = $_POST["hidctaban".$li_i];
}
function uf_agregarlineablanca(&$aa_object,$ai_totrows)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablanca
// Arguments: aa_object // arreglo de Objetos
// ai_totrows // total de Filas
// Description: Función que agrega una linea mas en el grid
//////////////////////////////////////////////////////////////////////////////
$aa_object[$ai_totrows][1]="";
$aa_object[$ai_totrows][2] = "";
$aa_object[$ai_totrows][3] = "";
$aa_object[$ai_totrows][4] = "";
$aa_object[$ai_totrows][5] = "";
$aa_object[$ai_totrows][6] = "";
$aa_object[$ai_totrows][7] = "
";
}
?>
Transferencia de Modificaciones Presupuestarias
Sistema de Presupuesto de Gasto
message("No pudo conectar con el servidor de datos MYSQL ".$as_servidor." , consulte a su Administrador de Sistema");
}
else
{
$lb_ok=@mysql_select_db(trim($as_dbdestino),$conec);
if (!$lb_ok)
{
$msg->message("No existe la base de datos ".$as_dbdestino);
}
}
}
elseif(strtoupper($as_gestor)==strtoupper("postgres"))
{
$conec = @pg_connect("host=".$as_servidor." port=".$as_puerto." dbname=".$as_dbdestino." user=".$as_usuario." password=".$as_password);
if (!$conec)
{
$msg->message("No pudo conectar a la base de datos ".$as_dbdestino." en el servidor ".$as_servidor.", consulte a su Administrador de Sistema");
}
}
return $conec;
}// fin de function uf_conectar_destino()
function uf_get_datos_bddestino($as_dbdestino,$aa_empresa)
{
$encontrado = false;
$li_total = count($aa_empresa["database"]);
for($i=1;(($i <= $li_total)&&(!$encontrado)); $i++)
{
if(trim($aa_empresa["database"][$i])==trim($as_dbdestino))
{
$lb_conecta = uf_conectar_destino($aa_empresa["gestor"][$i],$aa_empresa["database"][$i],$aa_empresa["port"][$i],$aa_empresa["hostname"][$i], $aa_empresa["login"][$i],$aa_empresa["password"][$i]);
if($lb_conecta)
{
$_SESSION["ls_database_destino"] = $aa_empresa["database"][$i];
$_SESSION["ls_hostname_destino"] = $aa_empresa["hostname"][$i];
$_SESSION["ls_login_destino"] = $aa_empresa["login"][$i];
$_SESSION["ls_password_destino"] = $aa_empresa["password"][$i];
$_SESSION["ls_gestor_destino"] = $aa_empresa["gestor"][$i];
$_SESSION["ls_port_destino"] = $aa_empresa["port"][$i];
$encontrado = true;
}
}
}
return $encontrado;
}
if (array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
if ($ls_operacion=="BUSCAR")
{
//Realizo la conexion a la base de datos
$li_totrows=0;
if(array_key_exists("txtcodcmpdes",$_POST))
{
$ls_codcmpdes = $_POST["txtcodcmpdes"];
}
else
{
$ls_codcmpdes = "";
}
if(array_key_exists("txtcodcmphas",$_POST))
{
$ls_codcmphas = $_POST["txtcodcmphas"];
}
else
{
$ls_codcmphas = "";
}
if(array_key_exists("txtdescripcion",$_POST))
{
$ls_descripcion= $_POST["txtdescripcion"];
}
else
{
$ls_descripcion= "";
}
if(array_key_exists("txtfechadoc",$_POST))
{
$ld_fecha= $_POST["txtfechadoc"];
}
else
{
$ld_fecha= "";
}
if(array_key_exists("txtfecsolapr",$_POST))
{
$ld_fecsolapr= $_POST["txtfecsolapr"];
}
else
{
$ld_fecsolapr= "";
}
$lb_valido=$io_comprobantes->uf_select_comprobantes_spg($ls_codcmpdes,$ls_codcmphas,$ld_fecha,$ld_fecsolapr,$ls_descripcion,"",1,$lo_object,$li_totrows);
}
elseif ($ls_operacion=="MOSTRAR")
{
}
else
{
if ($ls_operacion=="PROCESAR")
{
$lb_valido_transferencia = false;
for ($li_i=1;$li_i<=$li_totrows;$li_i++)//$li_totrows numeros de comprobantes
{
uf_cargar_dt($li_i);
$resultado = $io_comprobantes->uf_cargar_bddestino();//busca todas las bases configuradas como consolidadoras
$li_numrows = $io_sql->num_rows($resultado);
if ($li_numrows > 0)
{
$ls_dbdestino = "";
$i = 0;
if ($ls_selusu=='1')
{
$la_bddestino = array();
$lb_valido_transferencia = true;
while(($li_numrows>0)&&($lb_valido_transferencia))
{
$row = $io_sql->fetch_row($resultado);
$li_numrows--;
$ls_dbdestino = trim($row["nombasdat"]);
$lb_encontrado = uf_get_datos_bddestino($ls_dbdestino,$empresa);
if ($lb_encontrado)
{
$ls_registro = "";
$io_transferencia = new sigesp_spg_c_transferencia($_SESSION["ls_hostname_destino"],$_SESSION["ls_login_destino"],$_SESSION["ls_password_destino"] ,$_SESSION["ls_database_destino"],$_SESSION["ls_gestor_destino"]);
$ls_codempdes = $io_transferencia->uf_obtener_codempresa_bd($_SESSION["ls_hostname_destino"],$_SESSION["ls_login_destino"],$_SESSION["ls_password_destino"] ,$_SESSION["ls_database_destino"],$_SESSION["ls_gestor_destino"]);
$lb_valido_transferencia = false;
$lb_valido_transferencia = $io_transferencia->uf_transferir_comprobantes(rtrim($ls_codempdes),rtrim($ls_comprobante),rtrim($ls_fecha),rtrim($ls_fecaprsol),rtrim($ls_procede),$ls_codban,$ls_ctaban);
if ($lb_valido_transferencia)
{
if ($li_i < $li_totrows)
{
$ls_registro = $ls_registro." ".$ls_comprobante." ";
}
else
{
$ls_registro = $ls_registro." ".$ls_comprobante.".";
}
//arreglo que guarda las bases de datos cuando la insersiòn es exitosa
$la_bddestino[$i][0] = $_SESSION["ls_hostname_destino"];
$la_bddestino[$i][1] = $_SESSION["ls_login_destino"];
$la_bddestino[$i][2] = $_SESSION["ls_password_destino"];
$la_bddestino[$i][3] = $_SESSION["ls_database_destino"];
$la_bddestino[$i][4] = $_SESSION["ls_gestor_destino"];
$i++;
}
}
else
{
$msg->message("La Base de datos ".$ls_dbdestino." no esta en el archivo de configuración.");
$lb_valido_transferencia=false;
}
unset($io_transferencia);
}
//----en el caso que exista un error al insertar un comprobante se debe reversar---------------------
if (($i>0)&&(!$lb_valido_transferencia))
{
$ls_valido_reverso = true;
$ls_valido_rev_md = false;
$ls_valido_trans = true;
$hostname_destino = "";
$login_destino = "";
$password_destino = "";
$database_destino = "";
$gestor_destino = "";
for ($ls_j=0;$ls_j<$i;$ls_j++)
{
$hostname_destino = $la_bddestino[$ls_j][0];
$login_destino = $la_bddestino[$ls_j][1];
$password_destino = $la_bddestino[$ls_j][2];
$database_destino = $la_bddestino[$ls_j][3];
$gestor_destino = $la_bddestino[$ls_j][4];
$io_revtran = new sigesp_spg_c_transferencia($hostname_destino,$login_destino,$password_destino,$database_destino,$gestor_destino);
global $io_revtran;
// elimina los comprobante de modificaciòn
$ls_valido_rev_md = $io_revtran->uf_reversar_transferencia_comprobantes_md(rtrim($ls_comprobante),rtrim($ls_fecha),
rtrim($ls_fecaprsol),rtrim($ls_procede),$la_seguridad);
if ($ls_valido_rev_md)
{
//elimina los comprobantes en sigesp_cmp
$ls_valido_reverso = $io_revtran->uf_reversar_transferencia_comprobantes(rtrim($ls_comprobante),rtrim($ls_fecha),
rtrim($ls_fecaprsol),rtrim($ls_procede),$ls_codban,$ls_ctaban,$la_seguridad);
if (!$ls_valido_reverso)
{
$ls_valido_trans=$io_revtran->uf_transferir_comprobantes_md(rtrim($ls_codempdes),rtrim($ls_comprobante),rtrim($ls_fecha),rtrim($ls_fecaprsol),rtrim($ls_procede));
if (!$ls_valido_trans)
{
$msg->message("Error al realizar Transferencia de Modificaciones Presupuestarias de Reverso!!!");
}
}
}
unset($io_revtran);//libero el objeto
}// fin del for
}
else
{
unset($la_bddestino);
}
//---------------------------------------------------------------------------------------------------
//----------------si el traspaso fue exitoso en todas las bases de datos-----------------------------
if ($lb_valido_transferencia === true)
{
$lb_valido_update=$io_comprobantes->uf_update_estatus(rtrim($ls_comprobante),rtrim($ls_fecha),rtrim($ls_fecaprsol),rtrim($ls_procede),$as_codban,$as_ctaban);
$ls_evento="PROCESS";
$ls_desc_event="Ejecutó el proceso de Transferencia de Modificaciones Presupuestarias desde la Base de Datos Origen ".$_SESSION["ls_database"]." hacia la Base de Datos Destino ".$_SESSION["ls_database_destino"]." , se transfirieron las siguientes solicitudes : ".$ls_registro;
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
}
}
}
}
if (($lb_valido_transferencia)&&($lb_valido_update))
{
$msg->message("Transferencia de Modificaciones Presupuestarias realizada con éxito !!!");
}
else
{
$msg->message("Error al realizar Transferencia de Modificaciones Presupuestarias !!!");
}
}
$io_comprobantes->uf_select_comprobantes_spg($ls_codcmpdes,$ls_codcmphas,$ld_fecha,$ld_fecsolapr,$ls_descripcion,"",1,$lo_object,$li_totrows);
}
}
else
{
uf_agregarlineablanca($lo_object,1);
}
?>
