Using Context As New receptionEntities
                    Dim Id As Integer = Session("idstruttura")
                    Dim query = (From m In Context.Tab_movimenti
                                Where m.Idstruttura = Id And m.arrivo = data
                                Group By codstruttura = m.Idstruttura, strprovenienza = m.Tab_comuni_nazioni.descrizione,
                                         idtipogruppo = m.idtipogruppo, strtipogruppo = m.Tab_tipogruppo.nomegruppo, dataelaborazione = m.arrivo, movchiuso = m.movchiuso, tipo = m.Tab_comuni_nazioni.tipo, stato = "ARRIVO" Into mov = Group
                                Select New With {codstruttura, strprovenienza, strtipogruppo, dataelaborazione, .nmov = mov.Count, stato, .tipomov = If(tipo = "ITA", "ITALIANI", "STRANIERI")}).Concat _
                                (From m In Context.Tab_movimenti
                                 Where m.Idstruttura = Id And m.partenza = data
                                 Group By codstruttura = m.Idstruttura, strprovenienza = m.Tab_comuni_nazioni.descrizione,
                                         idtipogruppo = m.idtipogruppo, strtipogruppo = m.Tab_tipogruppo.nomegruppo, dataelaborazione = m.partenza, movchiuso = m.movchiuso, tipo = m.Tab_comuni_nazioni.tipo, stato = "PARTENZA" Into mov = Group
                                 Select New With {codstruttura, strprovenienza, strtipogruppo, dataelaborazione, .nmov = mov.Count, stato, .tipomov = If(tipo = "ITA", "ITALIANI", "STRANIERI")}).ToList
                    report.SetDataSource(query)
                End Using