CveSubProyecto al loguear

asmx/WSApp.asmx

@@ -535,6 +535,7 @@ Public Class WSApp
         ObjUsuarios.Dispose()
         Return UsuarioActual
     End Function
+
     <WebMethod()>
     Public Function Login(Usuario As String, Contrasenia As String) As String
         Dim retorno As String = ""
@@ -563,7 +564,9 @@ Public Class WSApp
                         Salida.Cliente = ObjClientes.Nombre
                         Salida.CvePrecioLista = ObjClientes.CvePrecioLista
                         Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
-
+                        If ObjClientes.CveSubProyecto > 0 Then
+                            Salida.CveSubProyecto = ObjClientes.CveSubProyecto
+                        End If
                         retorno = JsonConvert.SerializeObject(Salida)
                     End If
                 Else
@@ -610,6 +613,9 @@ Public Class WSApp
                         Salida.Cliente = ObjClientes.Nombre
                         Salida.CvePrecioLista = ObjClientes.CvePrecioLista
                         Salida.CveEstatusCliente = If(ObjClientes.Estatus, 1, 0)
+                        If ObjClientes.CveSubProyecto > 0 Then
+                            Salida.CveSubProyecto = ObjClientes.CveSubProyecto
+                        End If
                     End If
                 End If