diff --git a/App_Code/ClsSisUsuarios.vb b/App_Code/ClsSisUsuarios.vb
index c1f9e640a..d1ff35a2d 100644
--- a/App_Code/ClsSisUsuarios.vb
+++ b/App_Code/ClsSisUsuarios.vb
@@ -191,7 +191,7 @@ Public Class ClsSisUsuarios
End Try
Return Retorno
End Function
- Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1) As Usuario
+ Public Function ValidaUsuario(Usuario As String, Password As String, tIMEI As String, Optional CveEmpresa As Integer = -1, Optional CvePlataforma As Integer = -1) As Usuario
Dim Retorno As Usuario = Nothing
DataAdapter("PA_Sis_UsuariosGet")
With SqlAdapter.SelectCommand.Parameters
@@ -199,6 +199,7 @@ Public Class ClsSisUsuarios
.Add("@CveRol", SqlDbType.Int).Value = -1
.Add("@Usuario", SqlDbType.VarChar).Value = Usuario
.Add("@Contraseña", SqlDbType.VarChar).Value = Password
+ .Add("@CvePlataforma", SqlDbType.Int).Value = CvePlataforma
.Add("@EsLogIn", SqlDbType.Bit).Value = 1
End With
Try
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 3f7b5b01f..89b63605c 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -210,7 +210,7 @@
-
+
@@ -236,7 +236,7 @@
<%----%>
-
+
@@ -250,7 +250,7 @@
<%----%>
-
+
@@ -324,7 +324,7 @@
-
+
@@ -348,7 +348,7 @@
-
+
@@ -361,7 +361,7 @@
-
+
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index ed6cba02e..0f8199f3a 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -898,7 +898,7 @@ Partial Class Compras_eFacturas
End If
If e.Row.DBCampo("CveCompra") <> "" Then
- e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml
+ e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml
End If
If e.Row.DBCampo("CveProveedor") = "" Then
@@ -1059,7 +1059,7 @@ Partial Class Compras_eFacturas
End If
If e.Row.DBCampo("CveCompra") <> "" Then
- e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml
+ e.Row.FCLiteral("LtlFolio").Text = String.Format("{1}", e.Row.DBCampo("CveCompra"), e.Row.DBCampo("SerieFolio")) '1\Compras\GAPC480413QL3\A-69.xml
End If
If e.Row.DBCampo("CveProveedor") = "" Then
diff --git a/LogIn.aspx.vb b/LogIn.aspx.vb
index bff8ad86f..7235394c6 100644
--- a/LogIn.aspx.vb
+++ b/LogIn.aspx.vb
@@ -198,13 +198,13 @@ Partial Class LogIn
Dim Usuario As Usuario = Nothing
'Dim UsuarioAsignaciones As Usuario = Nothing
- Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI)
+ Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
+ Usuario = ObjUsuario.ValidaUsuario(txtUsuario.Text, Encripta(TxtContraseña.Text.Trim), IMEI, CvePlataforma:=If(isgps, 3, 1))
'UsuarioAsignaciones = ObjUsuario.ValidaUsuarioAsignacion(Usuario.CveUsuario, Usuario.CveEmpresa)
ADSSessionConfig.sessionUser = Usuario
ADSSessionConfig.sessionDpage = False
ObjUsuario.Dispose()
- Dim isgps = Request.Url.Host.ToUpper().Contains("SIGNALSGPS".ToUpper())
If Usuario IsNot Nothing AndAlso (
Usuario.CveRol = 1 OrElse (
(isgps AndAlso (Usuario.CvePlataforma = 3 OrElse Usuario.CveRol = 1200)) OrElse
diff --git a/vwd.webinfo b/vwd.webinfo
index 37b42e3cc..d553518ff 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -174,6 +174,8 @@
+
+