";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_funciones_ingreso.php");
$io_fun_spi=new class_funciones_ingreso();
$io_fun_spi->uf_load_seguridad("SPI","sigesp_spi_p_consolidacion_empresas.php",$ls_permisos,$la_seguridad,$la_permisos);
$ls_reporte=$io_fun_spi->uf_select_config("SPI","REPORTE","COMPROBANTE_FORMATO1","sigesp_spi_rpp_comprobante_formato1.php","C");
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
require_once("../covensol_config.php");
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/sigesp_include.php");
require_once("../shared/class_folder/class_funciones.php");
require_once("../shared/class_folder/class_mensajes.php");
require_once("class_folder/sigesp_spi_c_consolidacion_empresas.php");
require_once("../shared/class_folder/sigesp_c_seguridad.php");
$io_seguridad = new sigesp_c_seguridad;
$msg=new class_mensajes();
$arre=$_SESSION["la_empresa"];
$ls_empresa=$arre["codemp"];
$ls_sistema="SPI";
$ls_ventana="sigesp_spi_p_consolidacion_empresas.php";
$la_seguridad["empresa"]=$ls_empresa;
$la_seguridad["logusr"]=$ls_logusr;
$la_seguridad["sistema"]=$ls_sistema;
$la_seguridad["ventanas"]=$ls_ventana;
global $ls_operacion, $ld_fecha;
$ld_fecha="";
$ls_procede="";
$ls_operacion="";
$ls_titletable="Comprobantes de Ejecución Presupuestaria Consolidados";
$li_widthtable=550;
$ls_nametable="grid";
$lo_title[1]="";
$lo_title[2]="Nro. de Comprobante";
$lo_title[3]="Procedencia";
$lo_title[4]="Fecha de Consolidacion";
$lo_title[5]="Concepto";
$lo_title[6]="Detalle";
$li_totrows=$io_fun_spi->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: 17/09/2009 Fecha Última Modificación :
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_concepto,$ls_comprobante,$ls_fecha,$ls_procede,$ls_selcmp,$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_selcmp = $_POST["txtselcmp".$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] = "
";
}
?>
SIGESP - Consolidación de la Ejecución Presupuestaria de Ingreso
Contabilidad Presupuestaria de Ingreso
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,&$ab_errorbdcon)
{
$encontrado = false;
global $msg;
$li_total = count($aa_empresa["database"]);
for($i=1;(($i <= $li_total)&&(!$encontrado)); $i++)
{
if(trim($aa_empresa["database"][$i])==trim($as_dbdestino))
{
if($as_dbdestino != $_SESSION["ls_database"])
{
$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;
$ab_errorbdcon=false;
}
}
else
{
$msg->message("La Base de Datos ".strtoupper($as_dbdestino)." no puede ser consolidadora de si misma, verifique la configuración de las Bases de Datos para consolidación");
$ab_errorbdcon=true;
return false;
}
}
}
return $encontrado;
}
if(array_key_exists("txtfecha",$_POST))
{
$ld_fecha = $_POST["txtfecha"];
}
else
{
$ld_fecha = date("d/m/Y");
}
if (array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
if ($ls_operacion=="BUSCAR")
{
$io_consolidacion = new sigesp_spi_c_consolidacion_empresas();
$li_totrows=1;
$lb_valido=$io_consolidacion->uf_select_comprobantes_consolidacion($lo_object,$li_totrows);
unset($io_consolidacion);
}
elseif ($ls_operacion=="PROCESAR")
{
$ld_fecha =$_POST["txtfecha"];
$io_consolidacion = new sigesp_spi_c_consolidacion_empresas();
$rs_basedatos=$io_consolidacion->uf_cargar_bdconsolidacion();
while(!$rs_basedatos->EOF)
{
$ls_basedatos = $rs_basedatos->fields["nombasdat"];
$lb_errorbdcon=false;
$lb_encontrado = uf_get_datos_bddestino($ls_basedatos,$empresa,$lb_errorbdcon);
if($lb_encontrado)
{
$io_consolidacion->uf_conectar_destino($_SESSION["ls_hostname_destino"],$_SESSION["ls_login_destino"],$_SESSION["ls_password_destino"] ,$_SESSION["ls_database_destino"],$_SESSION["ls_gestor_destino"]);
$lb_valido=$io_consolidacion->uf_generar_comprobante_consolidacion($ld_fecha,$la_seguridad);
if($lb_valido)
{
$io_consolidacion->uf_liberar_conexion_destino();
}
}
else
{
if(!$lb_errorbdcon)
{
$msg->message("La Base de Datos para consolidación ".strtoupper($ls_basedatos)." no está en el archivo de configuración del sistema, consulte a su Administrador de Sistema");
}
}
$rs_basedatos->MoveNext();
}
$li_totrows=1;
$lb_valido=$io_consolidacion->uf_select_comprobantes_consolidacion($lo_object,$li_totrows);
unset($io_consolidacion);
}
elseif($ls_operacion=="REVERSAR")
{
$io_consolidacion = new sigesp_spi_c_consolidacion_empresas();
for ($li_i=1;$li_i<=$li_totrows;$li_i++)//$li_totrows numeros de comprobantes
{
uf_cargar_dt($li_i);
if($ls_selcmp==1)
{
$ls_cod_prov = "----------";
$ls_ced_ben = "----------";
$ls_tipo = "-";
$lb_valido=$io_consolidacion->uf_revertir_comprobante_consolidacion($ls_empresa,$ls_procede,$ls_comprobante, $ls_fecha,$ls_tipo,$ls_ced_ben,$ls_cod_prov,$ls_codban,$ls_ctaban,$la_seguridad);
}
}
$lb_valido=$io_consolidacion->uf_select_comprobantes_consolidacion($lo_object,$li_totrows);
unset($io_consolidacion);
}
}
else
{
$io_consolidacion = new sigesp_spi_c_consolidacion_empresas();
$li_totrows=1;
$lb_valido=$io_consolidacion->uf_select_comprobantes_consolidacion($lo_object,$li_totrows);
unset($io_consolidacion);
}
?>
