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