AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OI/Circular.aspx.vb
View File

@@ -28,7 +28,7 @@ Partial Class OI_Circular
TxtFechaI.Text = FechaI.ToString()
TxtFechaF.Text = FechaF.ToString
DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

6
OI/CircularDetalle.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class OI_CircularDetalle
DdlRolesFiltro.DataBind()
DdlRolesFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSucursales.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
DdlSucursales.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursales.DataBind()
DdlSucursales.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
@@ -129,8 +129,8 @@ Partial Class OI_CircularDetalle
Dim buscadorQuery As New StringBuilder
buscadorQuery.Append(If(DdlRolesFiltro.SelectedValue.ToEntero > 0, String.Format("CveRol = {0}", DdlRolesFiltro.SelectedValue), ""))
buscadorQuery.Append(If(DdlSucursales.SelectedValue.ToEntero > 0, String.Format("{0} CveSubProyecto = {1}", If(buscadorQuery.Length > 0, "AND", ""), DdlSucursales.SelectedValue), ""))
GvUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
DtUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
GvUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
GvUsuarios.DataBind()
UpUsuarios.Update()
RegistraScript("$('#ModalDescuento').modal()")

4
OI/ConvocatoriaDetalle.aspx.cs
View File

@@ -61,7 +61,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
{
string FiltroAD = "";
GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", UsuarioActual.CveEmpresa, FiltroAD), "Rol ASC");
GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC");
GVUsuarios.DataSource = GVUsuariosB.DataSource;
DdlModera.DataSource = GVUsuariosB.DataSource;
DdlModerador.DataSource = GVUsuariosB.DataSource;
@@ -744,7 +744,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
}
protected void LnkEnviarCorreo_Click(object sender, EventArgs e)
{

2
OI/DocumentoDetalle.aspx.cs
View File

@@ -151,7 +151,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
private void CargarUsuarios()
{
GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
GvUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
GvUsuarios.DataBind();
}

4
OI/EventoDetalle.aspx.vb
View File

@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
' End If
'End If
Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", tCveEmpresa, FiltroAD), "Rol ASC")
Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)

6
OI/MinutaDetalle.aspx.cs
View File

@@ -33,10 +33,10 @@ public partial class OI_MinutaDetalle : ClsPaginas
DdlRoles.DataSource = get_GlobalDTRoles(UsuarioActual.CveEmpresa);
DdlRoles.DataBind();
DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursales.DataBind();
DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GVUsuariosB.DataSource = GVUsuarios.DataSource;
DdlTareaPara.DataSource = GVUsuarios.DataSource;
DdlTareaPara.DataBind();
@@ -1015,7 +1015,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1,UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
//Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion);
Retorno = true;
}

12
OI/Minutas.aspx.vb
View File

@@ -74,11 +74,11 @@ Partial Class OI_Minutas
Private Sub CargaCombos()
ddlUsuarioTarea.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
ddlUsuarioTarea.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlUsuarioTarea.DataBind()
ddlUsuarioTarea.Items.Insert(0, New ListItem("Seleccione", "-1"))
ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlUsuarioAgenda.DataBind()
ddlUsuarioAgenda.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -95,10 +95,10 @@ Partial Class OI_Minutas
End Sub
Private Sub GetUsuarios()
Dim DT As Data.DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Rol ASC")
Dim DT As Data.DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
'AGREGA JULIAN Y RENE DE FUERZAS
DT.Merge(GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
DT.Merge(GlobalDTUsuarios(-1, 70).FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
DT = DT.FiltraParametros("", "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
@@ -187,7 +187,7 @@ Partial Class OI_Minutas
' Dim CorreosCCP As New List(Of String)
For Each Row As DataRow In .DtResultados.FiltraParametros("CveEvento is not null").Rows
'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString)
Next
ViewState("ArrayCC") = StrCorreos.ToString 'CorreosCCP.ToArray
End If
@@ -524,7 +524,7 @@ Partial Class OI_Minutas
Try
Body = GeneraContenido(CveEvento)
ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng)(0)("correo").ToString
ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng, UsuarioActual.CveEmpresa)(0)("correo").ToString
ViewState("Asunto") = String.Format("SIG - Minuta {0}", TxtAsunto.Text)
ViewState("Body") = Body
Dim Hilo As New System.Threading.Thread(AddressOf MandaCorreo)

5
OI/PopUpAgenda.aspx.vb
View File

@@ -550,7 +550,7 @@ Partial Class OI_PopUpAgenda
End Sub
Private Sub GetUsuarios()
Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "Rol ASC")
Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose()
@@ -732,10 +732,9 @@ Partial Class OI_PopUpAgenda
CveRevision = DdlRevision.SelectedValue.ToEntero
Fecha = NowADS().ToLongDateString
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
If CveEvento = -1 Then
If CveTipoEvento = 1 Then
If ObjEventos.AddEventoTarea(Asunto, Descripcion, Prioridad, CveUsuarioDe, CveUsuarioPara, FechaInicio.ToDateTime, FechaFin.ToDateTime, -1, 1, CveRevision, Archivo, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveUsuarioIng, CveUsuario, CveEmpresa) Then

2
OI/Proyecto.aspx.cs
View File

@@ -334,7 +334,7 @@ public partial class OI_Proyecto : ClsPaginas
string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol" };
GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Nombre ASC", FiltroAD);
GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Nombre ASC", FiltroAD);
GVUsuariosB.DataBind();
StringBuilder StrPara = new StringBuilder();

2
OI/RepProyectos.aspx.cs
View File

@@ -17,7 +17,7 @@ public partial class OI_RepProyectos : ClsPaginas
if (!IsPostBack)
{
DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
DdlPara.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
DdlPara.DataBind();
DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1"));

2
OI/RepReuniones.aspx.cs
View File

@@ -245,7 +245,7 @@ public partial class OI_RepReuniones : ClsPaginas
ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
ClsSisMail Mail = new ClsSisMail();
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
}
private string Asuntoconvocatoria;
private string CorreoExternoconvocatoria;

2
OI/RepSoporteADS.aspx.vb
View File

@@ -75,7 +75,7 @@ Partial Class OI_RepSoporteADS
End Sub
Private Sub CargaUsuarios()
DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) 'solo empresa 2
DdlUsuarios.DataBind()
DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub

8
OI/SoporteADS.aspx.vb
View File

@@ -705,7 +705,7 @@ Partial Class OI_SoporteADS
ObjEventos.Dispose()
End Sub
Private Sub CargaUsuarios()
DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) '.FiltraParametros("CveEmpresa = 2 ")
DdlUsuarios.DataBind()
DdlUsuarios.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
@@ -852,7 +852,7 @@ Partial Class OI_SoporteADS
If .CveEmpresaSop > 0 Then
DdlEmpresaSop.SelectedValueExist(.CveEmpresaSop)
DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero)
DdlUsuarioSop.DataBind()
DdlUsuarioSop.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -1331,7 +1331,7 @@ Partial Class OI_SoporteADS
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
@@ -2237,7 +2237,7 @@ Partial Class OI_SoporteADS
TxtPersona.Enabled = True
Else
DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero) '.FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
DdlUsuarioSop.DataBind()
rfvDdlUsuario.Enabled = True

2
OI/Tablero.aspx.cs
View File

@@ -47,7 +47,7 @@ public partial class OI_Tablero : ClsPaginas
}
protected void CargaDDl()
{
DdlTablusuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
DdlTablusuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
DdlTablusuario.DataBind();
UPModalTabl.Update();
}

7
OI/TareaDetalle.aspx.cs
View File

@@ -9,7 +9,6 @@ using Extensiones;
public partial class OI_TareaDetalle : ClsPaginas
{
private class OI_TareaDetalle_Permisos
{
public bool EntrarOI;
@@ -288,18 +287,18 @@ public partial class OI_TareaDetalle : ClsPaginas
DdlRoles.DataBind();
DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursales.DataBind();
DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
GVUsuarios.DataBind();
UpUsuarios.Update();
GVUsuarios.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Rol ASC", FiltroAD);
GVUsuariosB.DataSource = GVUsuarios.DataSource;
GVUsuarios.DataBind();
GVUsuariosB.DataBind();

4
OI/UnoaUno.aspx.cs
View File

@@ -36,9 +36,7 @@ public partial class OI_UnoaUno : ClsPaginas
TxtCFecha.Text = NowADS().ToString("dd/MM/yyyy");
LtlusuarioTitulo.Text = UsuarioActual.Nombre;
GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GvUsuarioCuest.DataBind();
CargarSiguiendoA();
CargarSeguidoPor();