";
print "location.href='sigesp_conexion.php'";
print "";
}
function uf_print_lista($as_nombre,$as_campoclave,$as_campoimprimir,$aa_lista)
{
//////////////////////////////////////////////////////////////////////////////
// Function : uf_print_lista
// Access : private
// Arguments : $as_nombre // Nombre del Campo
// $as_campoclave // campo por medio del cual se va filtrar la lista
// $as_campoimprimir // campo que se va a mostrar
// $aa_lista // arreglo que se va a colocar en la lista
// Description : Función que imprime el contenido de una caja de texto multiple
// Creado Por : Ing. Luis Anibal Lang
// Fecha Creación : 26/10/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
if(empty($aa_lista))
{
$li_total=0;
}
else
{
$li_total=count($aa_lista);
}
print "";
} // end function uf_print_lista
?>
Registro de Control de Número
Sistema de Configuración
uf_conectar ();
$la_emp = $_SESSION["la_empresa"];
$io_msg = new class_mensajes(); //Instanciando la clase mensajes
$fun_db = new class_funciones_db($con);
$io_sql = new class_sql($con); //Instanciando la clase sql
$io_dsest = new class_datastore(); //Instanciando la clase datastore
$lb_valido = "";
$io_chkrel = new sigesp_c_check_relaciones($con);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
require_once("../shared/class_folder/sigesp_c_seguridad.php");
$io_seguridad= new sigesp_c_seguridad();
$arre = $_SESSION["la_empresa"];
$ls_empresa = $arre["codemp"];
$ls_logusr = $_SESSION["la_logusr"];
$ls_sistema = "CFG";
$ls_ventanas = "sigesp_cfg_d_ctrl_numero.php";
$la_seguridad["empresa"] = $ls_empresa;
$la_seguridad["logusr"] = $ls_logusr;
$la_seguridad["sistema"] = $ls_sistema;
$la_seguridad["ventanas"] = $ls_ventanas;
if (array_key_exists("permisos",$_POST)||($ls_logusr=="PSEGIS"))
{
if($ls_logusr=="PSEGIS")
{
$ls_permisos="";
}
else
{
$ls_permisos = $_POST["permisos"];
$la_accesos["leer"] = $_POST["leer"];
$la_accesos["incluir"] = $_POST["incluir"];
$la_accesos["cambiar"] = $_POST["cambiar"];
$la_accesos["eliminar"] = $_POST["eliminar"];
$la_accesos["imprimir"] = $_POST["imprimir"];
$la_accesos["anular"] = $_POST["anular"];
$la_accesos["ejecutar"] = $_POST["ejecutar"];
}
}
else
{
$la_accesos["leer"] = "";
$la_accesos["incluir"] = "";
$la_accesos["cambiar"] = "";
$la_accesos["eliminar"] = "";
$la_accesos["imprimir"] = "";
$la_accesos["anular"] = "";
$la_accesos["ejecutar"] = "";
$ls_permisos=$io_seguridad->uf_sss_load_permisos($ls_empresa,$ls_logusr,$ls_sistema,$ls_ventanas,$la_accesos);
}
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
function uf_limpiarvariables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por : Ing. Luis Anibal Lang
// Fecha Creación : 22/02/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $ls_codigo,$ls_codsis,$ls_maxlon,$ls_prefijo,$ls_numini,$ls_numfin,$ls_numact,$ls_estatus;
global $la_disponibles,$ls_operacion,$ls_read,$ls_activo,$la_asignados,$ls_numcominicero,$ls_nunasig;
$ls_codigo = "";
$ls_codsis = "";
$ls_maxlon = "";
$ls_prefijo = "";
$ls_numini = "";
$ls_numfin = "";
$ls_numact = "";
$ls_estatus = "NUEVO";
$ls_operacion="";
$ls_read="";
$ls_activo="";
$la_disponibles="";
$la_asignados="";
$ls_numcominicero="";
$ls_nunasig="";
} // end function uf_limpiarvariables
if (array_key_exists("operacion",$_POST))
{
$ls_operacion = $_POST["operacion"];
$ls_codigo = $_POST["txtcodigo"];
$lr_datos["codigo"] = $ls_codigo;
if(array_key_exists("cmbsis",$_POST))
{
$ls_codsis = $_POST["cmbsis"];
}else
{
$ls_codsis = "";
}
//$ls_codsis = $_POST["txtcodsis"];
$lr_datos["codsis"] = $ls_codsis;
if(array_key_exists("txtprefi",$_POST))
{
$ls_prefijo=$_POST["txtprefi"];
}else
{
$ls_prefijo= "";
}
$lr_datos["prefijo"] = $ls_prefijo;
$ls_maxlon = $_POST["txtlong"];
$lr_datos["maxlon"] = $ls_maxlon;
$ls_numini = $_POST["txtnumini"];
$lr_datos["numini"] = $ls_numini;
$ls_numfin = $_POST["txtnumfin"];
$lr_datos["numfin"] = $ls_numfin;
$ls_numact = $_POST["txtnumact"];
$lr_datos["nunact"] = $ls_numact;
$ls_status = $_POST["status"];
$ls_estatus = $_POST["status"];
$ls_nunasig=$_POST["total"];
}
else
{
$ls_codigo = "";
$ls_codsis = "";
$ls_maxlon = "";
$ls_prefijo = "";
$ls_numini = "";
$ls_numfin = "";
$ls_numact = "";
$ls_estatus = "NUEVO";
$ls_operacion="";
$ls_read="";
$ls_activo="";
$ls_nunasig="";
$la_disponibles="";
$la_asignados="";
}
if (array_key_exists("chkestinicero",$_POST))
{
$ls_numcominicero=$_POST["chkestinicero"];
$lr_datos["estcompscg"]=$ls_numcominicero;
$ls_numcominicero = 'checked';
}
else
{
$ls_numcominicero ='0';
$lr_datos["estcompscg"]=$ls_numcominicero;
$ls_numcominicero="";
}
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//uf_limpiarvariables();
if($ls_operacion=="NUEVO")
{
uf_limpiarvariables();
$ls_codigo = $fun_db->uf_generar_codigo(false,"","sigesp_ctrl_numero","id");
}
if ($ls_operacion=="GUARDAR")
{
/* list($lb_existe,$ls_existe)=$io_ctrl_numero->uf_verificar_procede($ls_empresa,$ls_prefijo,$lr_datos["codsis"] ,$ls_logusr);
if($ls_existe=='0')
{*/
$la_estasig=$io_cfs->uf_obtenervalor("txtasignados","");
$la_estdisp=$io_cfs->uf_obtenervalor("txtdisponibles","");
$li_conasig=count($la_estasig);
$li_condisp=count($la_estdisp);
$ls_codproc = $lr_datos["codsis"];
if(!empty($la_estasig))
{
for($li_i=0;$li_i<$li_conasig;$li_i++)
{
$ls_codusu=$la_estasig[$li_i];
list($lb_valido,$ls_codsis)=$io_ctrl_numero->uf_buscar_campo("sigesp_procedencias","codsis"," procede='".$ls_codproc."'");
$lb_existe=$io_ctrl_numero->uf_select_ctrl_numero($ls_empresa,$ls_codsis,$ls_codproc,$ls_codusu);
if (!$lb_existe)
{
$lb_valido = $io_ctrl_numero->uf_guardar_ctrl_numero($lr_datos,$ls_codusu,$ls_codsis,$la_seguridad);
}
else
{
$lb_valido = $io_ctrl_numero->uf_actualizar_ctrl_numero($lr_datos,$ls_codusu,$ls_codsis,$la_seguridad);
}
}// fin del for
if($lb_valido)
{
if(!empty($la_estdisp))
{
for($li_i=0;$li_i<$li_condisp;$li_i++)
{
$ls_codusu=$la_estdisp[$li_i];
$lb_existe=$io_ctrl_numero->uf_buscar_usuarios_disponibles($ls_empresa,$ls_codsis,$ls_prefijo,$la_asignados);;
if($lb_existe)
{
$lb_valido=$io_ctrl_numero->uf_delete_usuarioasignados($ls_empresa,$ls_codsis,$ls_codproc,$ls_prefijo,$la_asignados,$ls_codusu,$la_seguridad);
}
}
}
}
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("El Control de Número ha sido procesado !!!");
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo procesar el Control de Número !!!");
}
$ls_operacion = "";
$ls_codigo = "";
$ls_codsis = "";
$ls_maxlon = "";
$ls_prefijo = "";
$ls_numini = "";
$ls_numfin = "";
$ls_numact = "";
$ls_codsis = "";
$ls_estatus = "NUEVO";
$ls_read="";
$ls_activo="";
$ls_activo2="disabled";
$ls_numcominicero="";
$la_disponibles="";
$la_asignados="";
$ls_nunasig="";
}
/* }
else
{
$io_msg->message("Ya Existe otro usuario con el mismo Prefijo para el mismo Documento !!!");
$ls_read="";
$ls_activo="";
}*/
}
if ($ls_operacion=="ELIMINAR")
{
list($lb_valido,$as_existe)=$io_ctrl_numero->uf_verificar_eliminacion($lr_datos["codsis"]);
if($as_existe=='0')
{
$lb_valido=$io_ctrl_numero->uf_delete_ctrl_numero($lr_datos,$la_seguridad);
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("Registro Eliminado !!!");
$ls_codigo = "";
$ls_codsis = "";
$ls_maxlon = "";
$ls_prefijo = "";
$ls_numini = "";
$ls_numfin = "";
$ls_numact = "";
$ls_codsis = "";
$ls_estatus = "NUEVO";
$ls_activo2="disabled";
$ls_read="";
$ls_activo="";
$ls_numcominicero="";
$la_disponibles="";
$la_asignados="";
$ls_nunasig="";
}
else
{
$io_sql->rollback();
$io_msg->message($io_procedencias->is_msg_error);
}
}
else
{
$io_msg->message(" El registro no puede ser Eliminado porque existe Documentos con el Prefijo ".$lr_datos["prefijo"]);
$ls_read="readonly";
$ls_activo="disabled";
}
/* $lb_existe = $io_procedencias->uf_select_procedencia($ls_codigo);
if ($lb_existe)
{
$ls_condicion = " AND (column_name='procede' OR column_name='procede_doc')";//Nombre del o los campos que deseamos buscar.
$ls_mensaje = ""; //Mensaje que será enviado al usuario si se encuentran relaciones a asociadas al campo.
$lb_tiene = $io_chkrel->uf_check_relaciones($ls_empresa,$ls_condicion,'sigesp_procedencias',$ls_codigo,$ls_mensaje);//Verifica los movimientos asociados a la cuenta
if (!$lb_tiene)
{
$lb_valido = $io_procedencias->uf_delete_procedencia($ls_codigo,$la_seguridad);
if ($lb_valido)
{
$io_sql->commit();
c
$ls_codigo = "";
$ls_codsis = "";
$ls_maxlon = "";
$ls_prefijo = "";
$ls_numini = "";
$ls_numfin = "";
$ls_numact = "";
$ls_codsis = "";
}
else
{
$io_sql->rollback();
$io_msg->message($io_procedencias->is_msg_error);
}
}
else
{
$io_msg->message($io_chkrel->is_msg_error);
}
}
else
{
$io_msg->message("Este Registro No Existe !!!");
}*/
}
if ($ls_operacion=="buscar")
{
$ls_codsis=$_POST["txtcodsis"];
$ls_read="readonly";
$ls_activo='readonly="true"';
$lb_valido=$io_ctrl_numero->uf_buscar_usuarios_disponibles($ls_empresa,$ls_codsis,$ls_prefijo,$la_disponibles);
$ls_nunasig=$io_ctrl_numero->uf_buscar_usuarios_asignados($ls_empresa,$ls_codsis,$ls_prefijo,$la_asignados);
}
if($ls_operacion=="LLENARGRID")
{
$ls_codsis= $_POST["cmbsis"];
$ls_prefi= $_POST["txtprefi"];
if($ls_codsis=='CXPSOP')
{
$ls_desdoc="Solicitud de Pago";
}
elseif($ls_codsis=='SEPSPC')
{
$ls_desdoc="Solicitud de Ejecución Presupuestaria";
}elseif($ls_codsis=='SOCCOC')
{
$ls_desdoc="Orden de Compra";
}elseif($ls_codsis=='SCGCMP')
{
$ls_desdoc="Comprobante Contable";
}elseif($ls_codsis=='SOCCOS')
{
$ls_desdoc="Orden de Servicios";
}
elseif($ls_codsis=='SCBBRE')
{
$ls_desdoc="Movimiento de Banco";
}
$lb_valido=$io_ctrl_numero->uf_verificar_prefijo($ls_empresa,$ls_codsis,$ls_prefi,$li_sal);
if($li_sal!=0)
{
$io_msg->message("Ya existe el prefijo ".$ls_prefi." para el documento ".$ls_desdoc);
uf_limpiarvariables();
}
else
{
$lb_valido=$io_ctrl_numero->uf_sss_load_usuarios_disponibles($ls_empresa,$ls_codsis,$ls_prefijo,$la_disponibles);
$lb_valido=$io_ctrl_numero->uf_sss_load_usuarios_asignados($ls_empresa,$ls_prefijo,$la_asignados);
}
}
?>
