-- agregar campo de celular en usuario

App_Code/ClsSisUsuarioAutenticacion.vb

@@ -184,7 +184,9 @@ Public Class ClsSisUsuarioAutenticacion
                 Retorno.Contraseña = Data.Rows(0)("Contraseña").ToString()
                 Retorno.Nombre = Data.Rows(0)("Nombre").ToString()
                 Retorno.CveRol = Data.Rows(0)("CveRol").ToString().ToEntero()
+                Retorno.CveRol = Data.Rows(0)("CveRol").ToString().ToEntero()
                 Retorno.Rol = Data.Rows(0)("Rol").ToString()
+                Retorno.Celular = Data.Rows(0)("Celular").ToString()
 
                 If CveEmpresa > 0 Then Retorno.CveEmpresa = CveEmpresa Else Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero()
                 Retorno.CvePlataforma = Data.Rows(0)("CvePlataforma").ToString().ToEntero()
@@ -319,6 +321,7 @@ Public Class ClsSisUsuarioAutenticacion
                 Retorno.Nombre = Data.Rows(0)("Nombre").ToString()
                 Retorno.CveRol = Data.Rows(0)("CveRol").ToString().ToEntero()
                 Retorno.Rol = Data.Rows(0)("Rol").ToString()
+                Retorno.Celular = Data.Rows(0)("Celular").ToString
 
                 If CveEmpresa > 0 Then Retorno.CveEmpresa = CveEmpresa Else Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString().ToEntero()
                 Retorno.CvePlataforma = Data.Rows(0)("CvePlataforma").ToString().ToEntero()

App_Code/ClsSisUsuarios.vb

@@ -532,7 +532,7 @@ Public Class ClsSisUsuarios
                                CvePersonal As Integer, CveVendedor As Integer, CambiarContraseña As Boolean,
                                CveUsuarioIng As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, Optional Rol As String = "-1", Optional CveAlmacenAsignado As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
                                Optional CvePlataforma As Integer = -1, Optional CveClientePlataforma As Integer = -1, Optional CveProveedorPlataforma As Integer = -1, Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1",
-                               Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Integer
+                               Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "") As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Sis_UsuarioAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -556,6 +556,7 @@ Public Class ClsSisUsuarios
             .Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
             .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
             .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
+            .Add("@Celular", SqlDbType.VarChar).Value = Celular
 
             .Add("@CveUsuario", SqlDbType.Int).Direction = ParameterDirection.Output
         End With
@@ -683,7 +684,7 @@ Public Class ClsSisUsuarios
     End Function
     Public Function UpdateUsuario(Usuario As String, Nombre As String, CveRol As Integer, Correo As String, CvePersonal As Integer,
                                   CveVendedor As Integer, CambiarContraseña As Boolean, Activo As Boolean, CveEmpresa As Integer, CveUsuario As Integer, CveAlmacenAsignado As Integer, CveSubProyecto As Integer, Optional CveUsuarioModifico As Integer = -1, Optional AsignarSubProyecto As Boolean = False, Optional AsignarOC As Boolean = False,
-                                  Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0) As Boolean
+                                  Optional DescuentoAutorizado As Double = 0, Optional CodigoAcceso As String = "-1", Optional LimiteCreditoAutorizado As Decimal = 0, Optional PorcentajeMaximoAutorizacion As Decimal = 0, Optional DiasMaximoAutorizacion As Integer = 0, Optional Celular As String = "") As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Sis_UsuarioUpdate")
@@ -708,6 +709,7 @@ Public Class ClsSisUsuarios
             .Add("@LimiteCreditoAutorizado", SqlDbType.Money).Value = LimiteCreditoAutorizado
             .Add("@PorcentajeMaximoAutorizacion", SqlDbType.Money).Value = PorcentajeMaximoAutorizacion
             .Add("@DiasMaximoAutorizacion", SqlDbType.Int).Value = DiasMaximoAutorizacion
+            .Add("@Celular", SqlDbType.VarChar).Value = Celular
         End With
 
         Try
@@ -2282,7 +2284,7 @@ Public Class ClsSisUsuarios
                 Retorno.Nombre = Data.Rows(0)("Nombre").ToString
                 Retorno.CveRol = Data.Rows(0)("CveRol").ToString.ToEntero
                 Retorno.Rol = Data.Rows(0)("Rol").ToString
-                'Retorno.NombreEmpresa = Data.Rows(0)("Empresa").ToString
+                'Retorno.Celular = Data.Rows(0)("Celular").ToString
                 Retorno.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                 Retorno.CveProveedor = Data.Rows(0)("CveProveedor").ToString.ToEntero
                 Retorno.CveCliente = Data.Rows(0)("CveCliente").ToString.ToEntero

App_Code/Usuario.vb

@@ -18,6 +18,7 @@ Public Class Usuario
     Public Property CveEmpresa As Integer
     Public Property Liga As String
     Public Property Portal As Boolean = False
+    Public Property Celular As String
     Public Property ClienteGPS As Boolean = False
     Public Property Modulos As HybridDictionary
     Public Property Procesos As HybridDictionary