1 2 3 4 5 6 7 8 9 10
|
Public Shared Function GetInvitesRepas(ByVal IdInv As Integer, ByVal LesDatas As kickoff2012Entities) As Object
Try
Dim Query = (From Cop In LesDatas.Contacts Join Inv In LesDatas.InvitationsRepasInvites On Cop.IDContact Equals Inv.IDContact Where Inv.IDInvitation = IdInv Order By Cop.Nom, Cop.Prenom Select Cop, Inv)
Dim Query2 = From u In Query.ToList() Select New With {.IDContact = u.Cop.IDContact, .NomComplet = GetNomComplet(u.Cop), .LibelleFonction = u.Cop.LibelleFonction, .LibelleSociete = u.Cop.LibelleSociete, .StatutInvitation = u.Inv.StatutInvitation}
Return Query2
Catch ex As Exception
Return Nothing
End Try
End Function |
Partager