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=="PROCESAR_CS")
{
$lb_valido=false;
$rs_data = "";
$lb_valido_update = false;
$lb_valido = $io_cmp->uf_select_comprobantes_spg_int($ld_fechades,$ld_fechahas,$rs_data);
if($lb_valido)
{
$li_numcmp=$io_sql->num_rows($rs_data);
if($li_numcmp > 0)
{
while($li_numcmp>0)
{
$fila=$io_sql->fetch_row($rs_data);
$li_numcmp=$li_numcmp-1;
$ls_comprobante =rtrim($fila["comprobante"]);
$ld_fecha =$fila["fecha"];
$ls_procede =$fila["procede"];
$ls_codban =$fila["codban"];
$ls_ctaban =$fila["ctaban"];
$resultado =$io_comprobantes->uf_cargar_bddestino();//busca todas las bases configuradas como consolidadoras
$li_numrows=$io_sql->num_rows($resultado);
$lb_valido_transferencia = true;
if($li_numrows > 0)
{
$ls_dbdestino ="";
$i=0;
$la_bddestino=array();
while(($li_numrows>0)&&($lb_valido_transferencia))
{
$row=$io_sql->fetch_row($resultado);
$li_numrows=$li_numrows-1;
$ls_dbdestino=rtrim($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_asipre($ls_codempdes,$ls_comprobante,$ld_fecha,$ls_procede,$ls_codban,$ls_ctaban,'CS');
if ($lb_valido_transferencia)
{
$io_transferencia->uf_update_estatus($ls_codempdes,$ls_comprobante,$ld_fecha,$ls_procede,$ls_codban,$ls_ctaban);
$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++;
}
} // Si encontrado
unset($io_transferencia);
} //FIN DEL while
//----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;
$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));
if($lb_valido_update)
{
$ls_evento="PROCESS";
$ls_desc_event="Ejecutó el proceso de Transferencia de Asientos Presupuestarios y Contables desde la Base de Datos Origen ".$_SESSION["ls_database"]." hacia la Base de Datos Destino ".$_SESSION["ls_database_destino"];
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
}
}
//---------------------------------------------------------------------------------------------------
} // FIN DEL if($li_numrows > 0)
//unset($io_transferencia);
} // End While Comprobantes
} // if numcmp > 0
if (($lb_valido_transferencia)&&($lb_valido_update))
{
$msg->message("Transferencia de Asientos Presupuestarios y Contables realizada con éxito !!!");
}
else
{
$msg->message("Error al realizar Transferencia de Asientos Presupuestarios y Contables !!!");
}
}
else
{
$msg->message("No hay Asientos Presupuestarios y Contables por transferir !!!");
}
}//FIN DEL IF PROCESAR_CS
elseif($ls_operacion=="PROCESAR_UE")
{
$lb_valido=false;
$rs_data = "";
$lb_valido = $io_cmp->uf_select_comprobantes_spg_int($ld_fechades,$ld_fechahas,$rs_data);
if($lb_valido)
{
$li_numcmp=$io_sql->num_rows($rs_data);
if($li_numcmp > 0)
{
while($li_numcmp>0)
{
$fila=$io_sql->fetch_row($rs_data);
$li_numcmp=$li_numcmp-1;
$ls_comprobante =rtrim($fila["comprobante"]);
$ld_fecha =$fila["fecha"];
$ls_procede =$fila["procede"];
$ls_codban =$fila["codban"];
$ls_ctaban =$fila["ctaban"];
$ls_dbdestino ="";
$i=0;
$la_bddestino=array();
$lb_encontrado = uf_get_datos_bddestino($ls_basdatcon,$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_asipre($ls_codempdes,$ls_comprobante,$ld_fecha,$ls_procede,$ls_codban,$ls_ctaban,'UE');
if ($lb_valido_transferencia)
{
$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++;
}
} // Si encontrado
else
{
$msg->message("Error en conexion con Base de Datos que Consolida, contacte a su Admnistrador de Sistema !!!");
$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;
$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));
if($lb_valido_update)
{
$ls_evento="PROCESS";
$ls_desc_event="Ejecutó el proceso de Transferencia de Asientos Presupuestarios y Contables desde la Base de Datos Origen ".$_SESSION["ls_database"]." hacia la Base de Datos Destino ".$_SESSION["ls_database_destino"];
$ls_variable= $io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa,$ls_sistema,$ls_evento,$ls_logusr,$ls_ventana,$ls_desc_event);
}
}
//---------------------------------------------------------------------------------------------------
//unset($io_transferencia);
} // End While Comprobantes
} // if numcmp > 0
if (($lb_valido_transferencia)&&($lb_valido_update))
{
$msg->message("Transferencia de Asientos Presupuestarios y Contables realizada con éxito !!!");
}
else
{
$msg->message("Error al realizar Transferencia de Asientos Presupuestarios y Contables !!!");
}
}
else
{
$msg->message("No hay Asientos Presupuestarios y Contables por transferir !!!");
}
}//FIN DEL IF PROCESAR_UE
}
?>
