AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CveSubProyecto al loguear

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-09-07 20:55:52 -07:00
parent acd580af52
commit 0bcdb8df74
1 changed files with 225 additions and 219 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
asmx/WSApp.asmx
View File

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