Private Sub ReporteNcRecepcion_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim CodigoE As Date = #12/3/2006#
Dim silo As String = "Silo Nº 01"
Dim trigo As String = "HRW"
Dim Reporte As New CrystalReport1()
CrystalReportViewer1.ReportSource = Reporte
CrystalReportViewer1.SelectionFormula = "Evaluacion.FechaE=" + CodigoE + "and Silo.NombreS = " + silo + "AND Trigo.NombreT = " + trigo
End Sub