Imports Microsoft.VisualBasic
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.OracleClient
Imports System.Collections.Generic
Imports System.Web.UI
Imports System.Web.UI.WebControls

Namespace WSys    

    Public Class Ditta
        Private _CODSOGG As String
        Private _CODDIT As String
        Private _RAG_SOC As String
        Private _INDIRIZZO As String
        Private _COMUNE As String
        Private _CAP As String
        Private _CODATECO As String
        Private _ID_U_AGG As String
        Private _DT_U_AGG As String

        Public Property CODSOGG() As String
            Get
                Return Me._CODSOGG
            End Get
            Set(ByVal value As String)
                Me._CODSOGG = value
            End Set
        End Property

        Public Property CODDIT() As String
            Get
                Return Me._CODDIT
            End Get
            Set(ByVal value As String)
                Me._CODDIT = value
            End Set
        End Property

        Public Property RAG_SOC() As String
            Get
                Return Me._RAG_SOC
            End Get
            Set(ByVal value As String)
                Me._RAG_SOC = value
            End Set
        End Property

        Public Property INDIRIZZO() As String
            Get
                Return Me._INDIRIZZO
            End Get
            Set(ByVal value As String)
                Me._INDIRIZZO = value
            End Set
        End Property

        Public Property COMUNE() As String
            Get
                Return Me._COMUNE
            End Get
            Set(ByVal value As String)
                Me._COMUNE = value
            End Set
        End Property

        Public Property CAP() As String
            Get
                Return Me._CAP
            End Get
            Set(ByVal value As String)
                Me._CAP = value
            End Set
        End Property

        Public Property CODATECO() As String
            Get
                Return Me._CODATECO
            End Get
            Set(ByVal value As String)
                Me._CODATECO = value
            End Set
        End Property

        Public Property ID_U_AGG() As String
            Get
                Return Me._ID_U_AGG
            End Get
            Set(ByVal value As String)
                Me._ID_U_AGG = value
            End Set
        End Property

        Public Property DT_U_AGG() As String
            Get
                Return Me._DT_U_AGG
            End Get
            Set(ByVal value As String)
                Me._DT_U_AGG = value
            End Set
        End Property

    End Class

    Public Class DittaManager
        Dim Sql As String

        Public Function ElencoDitte() As List(Of Ditta)
            Dim conn As New OracleConnection(ConfigurationManager.ConnectionStrings("ZRED").ConnectionString)
            Sql = "SELECT * FROM WSYS_ANAGR_CONSEGNE "
            Dim cmd As New OracleCommand(Sql, conn)

            Try
                conn.Open()
                Dim rElencoDitte As OracleDataReader

                rElencoDitte = cmd.ExecuteReader()

                If rElencoDitte.Read() Then

                End If

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

            Return ElencoDitte

        End Function

    End Class

End Namespace