}
elseif($i>0)
{
$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_revcierre = new sigesp_spg_c_transferencia($hostname_destino,$login_destino,$password_destino,$database_destino,$gestor_destino);
$ls_codemprev = $io_revcierre->uf_obtener_codempresa_bd($hostname_destino,$login_destino,$password_destino,$database_destino,$gestor_destino);
$io_transferencia->uf_cerrar_presupuesto($ls_codemprev,1);
}
}
} // Si encontrado
unset($io_transferencia);
} //FIN DEL while
} // FIN DEL if($li_numrows > 0)
else
{
$msg->message("No existen Bases de Datos para Consolidacion Configuradas, consulte a su Administrador de Sistema!!!");
}
if (($lb_valido_cierre))
{
$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!!!");
$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;
$ls_valido_reverso=$io_revtran->uf_reversar_transferencia_comprobantes(rtrim($ls_comprobante),rtrim($ls_fecha),
rtrim($ls_fecaprsol),rtrim($ls_procede),$la_seguridad);
unset($io_revtran);//libero el objeto
}// fin del for
}// fin del if ($i>0)
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($ld_fecha),rtrim($ld_fecha),rtrim($ls_procede));