Public Sub GuardarDatosDeSesion(ByVal sessionID As Integer, ByVal usuario As String)
Dim parametros As New List(Of SqlParameter) From {
New SqlParameter("@SesionID", SqlDbType.Int) With {.Value = sessionID},
New SqlParameter("@UsuarioID", SqlDbType.VarChar, 150) With {.Value = usuario}
}
Using con As New ControlDB
' Intentar actualizar primero
Dim updateQuery As String = "UPDATE DB_SIA.mnt.SesionesUsuarios SET UsuarioID = @UsuarioID, FechaLogueo = GETDATE(), SesionActiva = 1 WHERE SesionID = @SesionID"
Dim filasAfectadas As Integer = con.ExecuteNonQuery(updateQuery, Enumerator.ServerName.SIA_AFIA, parametros)
' Si no se actualizó nada, insertar
If filasAfectadas = 0 Then
Dim insertQuery As String = "INSERT INTO DB_SIA.mnt.SesionesUsuarios (SesionID, UsuarioID, FechaLogueo, SesionActiva) VALUES (@SesionID, @UsuarioID, GETDATE(), 1)"
con.ExecuteNonQuery(insertQuery, Enumerator.ServerName.SIA_AFIA, parametros)
End If
End Using
End Sub
