Torna al Thread
Public Class StampaConsegne
Dim Sql As String
Function DettaglioConsegna(ByVal INTCONSPADRE As String, ByVal INTCONSDATA As Date, ByVal INTCONSDA As String) As List(Of Consegna)
Dim conn As New OracleConnection(ConfigurationManager.ConnectionStrings("ZRED").ConnectionString)
Dim stpListaConsegna As New List(Of Consegna)
If INTCONSPADRE <> "" And INTCONSDATA <> "" And INTCONSDA <> "" Then
Sql = "Select INTCONS, INTCONSPADRE, INTCONSCRD, INTCONSDATA, INTCONSCHIUSA, INTCONSSPUNTA, INTCONSDA, INTCONSNOTE, ID_U_AGG, DT_U_AGG "
Sql += " from WSYS_INTCONSEGNE "
Sql += " where INTCONSPADRE = :INTCONSPADRE AND "
Sql += " INTCONSDATA = :INTCONSDATA AND "
Sql += " INTCONSDA = :INTCONSDA "
Dim cmd As New OracleCommand(Sql, conn)
cmd.Parameters.AddWithValue(":INTCONSPADRE", INTCONSPADRE)
cmd.Parameters.AddWithValue(":INTCONSDATA", INTCONSDATA)
cmd.Parameters.AddWithValue(":INTCONSDA", INTCONSDA)
Try
conn.Open()
Dim rStpConsegna As OracleDataReader
rStpConsegna = cmd.ExecuteReader()
While rStpConsegna.Read
Dim consegna As New Consegna(rStpConsegna.GetValue(0), rStpConsegna.GetValue(1) & "", _
rStpConsegna.GetValue(2), rStpConsegna.GetValue(3), rStpConsegna.GetValue(4), _
rStpConsegna.GetValue(5), rStpConsegna.GetValue(6), rStpConsegna.GetValue(7), _
rStpConsegna.GetValue(8), rStpConsegna.GetValue(9))
stpListaConsegna.Add(CreaConsegna(rStpConsegna))
End While
Catch ex As Exception
End Try
Return stpListaConsegna
End If
End Function
Private Function CreaConsegna(ByVal dr As OracleDataReader) As Consegna
Dim Consegna As New Consegna()
Consegna.INTCONS = dr("INTCONS") & ""
Consegna.INTCONSCHIUSA = dr("INTCONSCHIUSA") & ""
Consegna.INTCONSCRD = dr("INTCONSCRD") & ""
Consegna.INTCONSDA = dr("INTCONSDA") & ""
Consegna.INTCONSDATA = dr("INTCONSDATA") & ""
Consegna.INTCONSNOTE = dr("INTCONSNOTE") & ""
Consegna.INTCONSPADRE = dr("INTCONSPADRE") & ""
Consegna.INTCONSSPUNTA = dr("INTCONSSPUNTA") & ""
Consegna.ID_U_AGG = dr("ID_U_AGG") & ""
Consegna.DT_U_AGG = dr("DT_U_AGG") & ""
Return Consegna
End Function
End Class