-- sms, nuevo usuario en indicadores
This commit is contained in:
194
Inicio.aspx.vb
194
Inicio.aspx.vb
@@ -141,112 +141,112 @@ Partial Class Inicio
|
||||
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
|
||||
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
|
||||
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
|
||||
MuestraAniversarioLaboral()
|
||||
If UsuarioActual.CveRol = 1 Then MuestraAniversarioLaboral()
|
||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
|
||||
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
|
||||
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960, 4527) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
|
||||
',4527-pamela
|
||||
divsms1.Visible = True
|
||||
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
|
||||
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
|
||||
If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960, 4527) Then 'diego de la concha
|
||||
DdlSMSOpciones.SelectedValue = "2"
|
||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
|
||||
DdlSMSVendedores.DataBind()
|
||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||
DdlSMSTecnico.DataBind()
|
||||
End If
|
||||
If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas
|
||||
DdlSMSOpciones.SelectedValue = "2"
|
||||
DdlSMSOpciones.Items.RemoveAt(4)
|
||||
DdlSMSOpciones.Items.RemoveAt(3)
|
||||
DdlSMSOpciones.Items.RemoveAt(2)
|
||||
Dim CveGerenteVendedor As Integer = -1
|
||||
If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela
|
||||
If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez
|
||||
|
||||
divsms1.Visible = True
|
||||
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
|
||||
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
|
||||
If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha
|
||||
DdlSMSOpciones.SelectedValue = "2"
|
||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
|
||||
DdlSMSVendedores.DataBind()
|
||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||
DdlSMSTecnico.DataBind()
|
||||
End If
|
||||
If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas
|
||||
DdlSMSOpciones.SelectedValue = "2"
|
||||
DdlSMSOpciones.Items.RemoveAt(4)
|
||||
DdlSMSOpciones.Items.RemoveAt(3)
|
||||
DdlSMSOpciones.Items.RemoveAt(2)
|
||||
Dim CveGerenteVendedor As Integer = -1
|
||||
If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela
|
||||
If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez
|
||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ")
|
||||
DdlSMSVendedores.DataBind()
|
||||
DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
If UsuarioActual.CveRol = 1577 Then 'vendedores
|
||||
DdlSMSOpciones.SelectedValue = "1"
|
||||
DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString))
|
||||
DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString
|
||||
DdlSMSVendedores.Enabled = False
|
||||
DdlSMSOpciones.Enabled = False
|
||||
End If
|
||||
If UsuarioActual.CveRol = 1578 Then 'almacenista
|
||||
DdlSMSOpciones.SelectedValue = "3"
|
||||
DdlSMSOpciones.Enabled = False
|
||||
End If
|
||||
If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos
|
||||
DdlSMSOpciones.SelectedValue = "5"
|
||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||
DdlSMSTecnico.DataBind()
|
||||
DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0)
|
||||
|
||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ")
|
||||
DdlSMSVendedores.DataBind()
|
||||
DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End If
|
||||
If UsuarioActual.CveRol = 1577 Then 'vendedores
|
||||
DdlSMSOpciones.SelectedValue = "1"
|
||||
DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString))
|
||||
DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString
|
||||
DdlSMSVendedores.Enabled = False
|
||||
DdlSMSOpciones.Enabled = False
|
||||
End If
|
||||
If UsuarioActual.CveRol = 1578 Then 'almacenista
|
||||
DdlSMSOpciones.SelectedValue = "3"
|
||||
DdlSMSOpciones.Enabled = False
|
||||
End If
|
||||
If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos
|
||||
DdlSMSOpciones.SelectedValue = "5"
|
||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||
DdlSMSTecnico.DataBind()
|
||||
DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0)
|
||||
ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos
|
||||
DdlSMSOpciones.SelectedValue = "4"
|
||||
DdlSMSOpciones.Enabled = False
|
||||
DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString))
|
||||
DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString
|
||||
DdlSMSTecnico.Enabled = False
|
||||
End If
|
||||
|
||||
CargaSMSKPI()
|
||||
|
||||
ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos
|
||||
DdlSMSOpciones.SelectedValue = "4"
|
||||
DdlSMSOpciones.Enabled = False
|
||||
DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString))
|
||||
DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString
|
||||
DdlSMSTecnico.Enabled = False
|
||||
End If
|
||||
|
||||
CargaSMSKPI()
|
||||
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
|
||||
CargaGraficas()
|
||||
End If
|
||||
|
||||
CargaTareas()
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
divInd.Visible = True
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
|
||||
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
|
||||
|
||||
InicializaCalendar()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Then
|
||||
DivDirectorioTelefonico.Visible = True
|
||||
CargaDirectorioTelefonico()
|
||||
Else
|
||||
DivDirectorioTelefonico.Visible = False
|
||||
End If
|
||||
|
||||
'CARGA COMUNICADO
|
||||
If UsuarioActual.TienePermisoProceso(224) Then
|
||||
LnkAgregar.Visible = True
|
||||
End If
|
||||
|
||||
CargaComunicado()
|
||||
|
||||
'Evaluacion del proveedor
|
||||
CargaEvaluacionProveedor()
|
||||
|
||||
CargaDocumentacion()
|
||||
|
||||
|
||||
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
|
||||
LnkInconsistencias.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
IniializaDdlsOpcionesAgenda()
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
DVTareas.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
|
||||
CargaGraficas()
|
||||
End If
|
||||
|
||||
CargaTareas()
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
divInd.Visible = True
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
|
||||
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
|
||||
|
||||
InicializaCalendar()
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Then
|
||||
DivDirectorioTelefonico.Visible = True
|
||||
CargaDirectorioTelefonico()
|
||||
Else
|
||||
DivDirectorioTelefonico.Visible = False
|
||||
End If
|
||||
|
||||
'CARGA COMUNICADO
|
||||
If UsuarioActual.TienePermisoProceso(224) Then
|
||||
LnkAgregar.Visible = True
|
||||
End If
|
||||
|
||||
CargaComunicado()
|
||||
|
||||
'Evaluacion del proveedor
|
||||
CargaEvaluacionProveedor()
|
||||
|
||||
CargaDocumentacion()
|
||||
|
||||
|
||||
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
|
||||
LnkInconsistencias.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
IniializaDdlsOpcionesAgenda()
|
||||
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||
DVTareas.Visible = True
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function GetFacturasCanceladasPendientesWS(objventas As ClsVentas, RFC As String, CveEmpresa As Integer, Optional showalert As Boolean = True) As Boolean
|
||||
|
||||
Reference in New Issue
Block a user