+
+
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 96ba681cf..b18897be0 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -142,7 +142,7 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
- If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso (UsuarioActual.CveUsuario = 3964 Or UsuarioActual.CveRol = 1639) Then 'AndAlso UsuarioActual.CveRol.Contiene(1577, 1639, 1573) Then
+ If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso (UsuarioActual.CveUsuario = 3964 OrElse UsuarioActual.CveRol = 1639) Then 'AndAlso UsuarioActual.CveRol.Contiene(1577, 1639, 1573) Then
'Dim Opcion As Integer = 1
'Dim CveVendedor As Integer = -1
'Dim CveUsuarioTecnico As Integer = -1
@@ -155,6 +155,8 @@ Partial Class Inicio
' Opcion = 2 'gerente ventas
'End If
divsms1.Visible = True
+ txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
+ txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
If UsuarioActual.CveUsuario = 3964 Then
DdlSMSOpciones.SelectedValue = "2"
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
@@ -1641,8 +1643,8 @@ Partial Class Inicio
Dim Gral As New ClsVentas
Dim ds As DataSet = Nothing
- Dim FechaI As Date = Now.FirstDayOfMonth
- Dim FechaF As Date = Now.LastDayOfMonth
+ Dim FechaI As Date = txtFechaInicioSMS.Text.ToDate ' Now.FirstDayOfMonth
+ Dim FechaF As Date = txtFechaFinSMS.Text.ToDate 'Now.LastDayOfMonth
If Gral.GetSMSIndicadores(Opcion, FechaI, FechaF, UsuarioActual.CveUsuario, CveVendedor, CveGerenteVendedor, CveUsuarioTecnico, UsuarioActual.CveEmpresa) Then
ds = Gral.DataSetResultados
@@ -2576,4 +2578,8 @@ Partial Class Inicio
Protected Sub DdlSMSTecnico_SelectedIndexChanged(sender As Object, e As EventArgs)
CargaKPICirugias(DdlSMSOpciones.SelectedValue.ToEntero, -1, DdlSMSTecnico.SelectedValue.ToEntero)
End Sub
+
+ Protected Sub BtnSMSAplicarFecha_Click(sender As Object, e As EventArgs)
+ CargaSMSKPI()
+ End Sub
End Class