Public Class DittaManager
        Dim Sql As String

        Public Function ElencoDitte() As List(Of Ditta)
            Dim conn As New OracleConnection(ConfigurationManager.ConnectionStrings("WSysCnn").ConnectionString)
            Dim ListaDitte As New List(Of Ditta)

            Sql = "SELECT * FROM WSYS_ANAGR_CONSEGNE "
            Dim cmd As New OracleCommand(Sql, conn)

            Try
                conn.Open()
                Dim rElencoDitte As OracleDataReader

                rElencoDitte = cmd.ExecuteReader()

                While (rElencoDitte.Read())
                    ListaDitte.Add(AggiungiDitta(rElencoDitte))
                End While

                rElencoDitte.Close()
            Finally
                If (conn.State <> Data.ConnectionState.Closed) Then
                    conn.Close()
                End If
            End Try

            Return ListaDitte

        End Function

        Private Function AggiungiDitta(ByVal dr As OracleDataReader) As Ditta
            Dim ditta As New Ditta()

            ditta.RAG_SOC = dr("Rag_soc") & ""
            ditta.INDIRIZZO = dr("Indirizzo") & ""
            ditta.COMUNE = dr("Comune") & ""
            ditta.CAP = dr("Cap") & ""
            ditta.CODSOGG = dr("CODSOGG") & ""
            ditta.CODDIT = dr("CODDIT") & ""            
            ditta.COMUNE = dr("COMUNE") & ""
            ditta.CAP = dr("Cap") & ""
            ditta.CODATECO = dr("CODATECO") & ""
            ditta.ID_U_AGG = dr("ID_U_AGG") & ""
            ditta.DT_U_AGG = dr("DT_U_AGG") & ""
            
            Return ditta

        End Function

    End Class