.NET : Crystal Report : Report con Filtro dati

Sto continuando lo sviluppo della Maschera.
Nel caso in cui non vi siano dati compare un Messaggio.



La Parte di Codice Interessante è :

Label1.Visible = False
Label1.Text = ""

Try
Dim dv As DataView

' ''''''''''''''''''''''
' Verifica Se Esistono i Dati
' ''''''''''''''''''''''
SqlDataSource2.SelectCommand = ""
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + "SELECT COUNT (UserId)"
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + " FROM Tb_Richiesta_Ricevuta"
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + " WHERE (Data_Stato < '" + Calendar2.SelectedDate + "' AND Data_Stato > '" + Calendar1.SelectedDate + "')"
' ''''''''''''''''''''''

dv = CType(SqlDataSource2.Select(DataSourceSelectArguments.Empty), DataView)
DatiPresenti = (CInt(dv.Item(0).Item(0)) > 0)

' '''''''''''''''''''''''''''''''''''''''''
Catch ex As Exception
Label1.Text = "Errore di Accesso al dataBase"
Label1.Visible = True

Exit Sub
End Try

Ecco tutto il Listato

Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Partial Class Statistica1
Inherits System.Web.UI.Page


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
MeseFine.SelectedValue = Now.Month.ToString
AnnoFine.SelectedValue = Now.Year.ToString

Calendar1.VisibleDate = "01/01/2003"
Calendar1.SelectedDate = "01/01/2003"

Calendar2.VisibleDate = Now.Day.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
Calendar2.SelectedDate = Now.Day.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
End If
End Sub
Protected Sub Avvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avvia.Click
Dim DatiPresenti As Boolean

Label1.Visible = False
Label1.Text = ""

Try
Dim dv As DataView

' ''''''''''''''''''''''
' Verifica Se Esistono i Dati
' ''''''''''''''''''''''
SqlDataSource2.SelectCommand = ""
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + "SELECT COUNT (UserId)"
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + " FROM ***"
SqlDataSource2.SelectCommand = SqlDataSource2.SelectCommand + " WHERE (Data_Stato < '" + Calendar2.SelectedDate + "' AND Data_Stato > '" + Calendar1.SelectedDate + "')"
' ''''''''''''''''''''''

dv = CType(SqlDataSource2.Select(DataSourceSelectArguments.Empty), DataView)
DatiPresenti = (CInt(dv.Item(0).Item(0)) > 0)

' '''''''''''''''''''''''''''''''''''''''''
Catch ex As Exception
Label1.Text = "Errore di Accesso al dataBase"
Label1.Visible = True

Exit Sub
End Try

If DatiPresenti Then
Try
' ''''''''''''''''''''''
' Avvio il Report con i Dati del Calendario
' ''''''''''''''''''''''
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("STDPWeb", "ret87bak")

' ''''''''''''''''''''''
' Passo i Parametri al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", Calendar1.SelectedDate.ToString("dd/MM/yyyy"))
myreport.SetParameterValue("Data_Fine", Calendar2.SelectedDate.ToString("dd/MM/yyyy"))

CrystalReportViewer2.ReportSource = myreport
' ''''''''''''''''''''''
' ''''''''''''''''''''''

Catch ex As Exception
Label1.Text = "Errore di Accesso al dataBase"
Label1.Visible = True

Exit Sub
End Try
Else
Label1.Text = "Non sono presenti Dati nell' Intervallo Selezionato"
Label1.Visible = True

CrystalReportViewer2.Visible = False
End If

End Sub
Sub Aggiorna_Data()
Calendar1.VisibleDate = "01" + "/" + MeseInizio.SelectedValue + "/" + AnnoInizio.SelectedValue
Calendar1.SelectedDate = "01" + "/" + MeseInizio.SelectedValue + "/" + AnnoInizio.SelectedValue

Calendar2.VisibleDate = "01" + "/" + MeseFine.SelectedValue + "/" + AnnoFine.SelectedValue
Calendar2.SelectedDate = "01" + "/" + MeseFine.SelectedValue + "/" + AnnoFine.SelectedValue
End Sub

Protected Sub MeseInizio_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MeseInizio.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub AnnoInizio_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnoInizio.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub MeseFine_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MeseFine.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub AnnoFine_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnoFine.SelectedIndexChanged
Aggiorna_Data()
End Sub
End Class

Software : VideoConferenza

Interessante come prodotto

Office Live Meeting
DimDim
Skype


Per fare riunioni in WebConference

.NET : Crystal Report : Report con Filtro dati

Ecco la Maschera per Inserire i Dati di Filtraggio



Ecco il Risultato premendo il pulsante 'Avvia'



Ecco Il Codice Utilizzato

Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Partial Class Statistica1
Inherits System.Web.UI.Page


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
MeseFine.SelectedValue = Now.Month.ToString
AnnoFine.SelectedValue = Now.Year.ToString

Calendar1.VisibleDate = "01/01/2003"
Calendar1.SelectedDate = "01/01/2003"

Calendar2.VisibleDate = Now.Day.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
Calendar2.SelectedDate = Now.Day.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
End If
End Sub
Protected Sub Avvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avvia.Click
Try
' ''''''''''''''''''''''
' Avvio il Report con i Dati del Calendario
' ''''''''''''''''''''''
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("***", "***")

' ''''''''''''''''''''''
' Passo i Parametri al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", Calendar1.SelectedDate.ToString("dd/MM/yyyy"))
myreport.SetParameterValue("Data_Fine", Calendar2.SelectedDate.ToString("dd/MM/yyyy"))

CrystalReportViewer2.ReportSource = myreport
' ''''''''''''''''''''''
' ''''''''''''''''''''''
Catch ex As Exception
End Try
End Sub
Sub Aggiorna_Data()
Calendar1.VisibleDate = "01" + "/" + MeseInizio.SelectedValue + "/" + AnnoInizio.SelectedValue
Calendar1.SelectedDate = "01" + "/" + MeseInizio.SelectedValue + "/" + AnnoInizio.SelectedValue

Calendar2.VisibleDate = "01" + "/" + MeseFine.SelectedValue + "/" + AnnoFine.SelectedValue
Calendar2.SelectedDate = "01" + "/" + MeseFine.SelectedValue + "/" + AnnoFine.SelectedValue
End Sub

Protected Sub MeseInizio_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MeseInizio.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub AnnoInizio_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnoInizio.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub MeseFine_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MeseFine.SelectedIndexChanged
Aggiorna_Data()
End Sub

Protected Sub AnnoFine_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AnnoFine.SelectedIndexChanged
Aggiorna_Data()
End Sub
End Class

Crystal Report : Posizionamento del Report : Proprietà ClientTarget

Sto continuando a programmare con Crystal Report
e mi è capitato il seguente problema :

Ho realizzato il mio Report NomeReport.rpt e lo visualizzo nella mia pagina
tramite l'oggetto CrystalViewer.
Nel mio Report ho annullato tutti i Campi tranne il Grafico.

Alla Fine però in visualizzazione vedo un notevole spazio tra la parte di Filtraggio
e il Report.





Non riuscivo a capire il motivo di questa situazione, stavo per abbandonare
quando mi è capitato di vedere la Proprietà ClientTarget che consente di determinare il tipo di Browser e visualizzare gli oggetti di conseguenza.
Consiglio di utilizzare la visione 'Auto'.

Ecco il Risultato :


Finalmento lo spazio è stato annullato.

Manuale HTML

Interessante e pratico :

http://www.web-link.it/html/html.htm

Software : Rendere attiva la WebCam

Da provare, ottimo per i giochi.
Serve a Gestire il Computer direttamente da WebCam.

http://www.camspace.com/

.Net : Settare i Valori di un Oggetto Calendario

Di seguito come settare i Valori iniziali di un Oggetto Calendar,
e quindi passare il valore parametrico ad un Report.

La Maschera :



Il Codice :

Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Partial Class Statistica1
Inherits System.Web.UI.Page


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then
' ''''''''''''''''''''''''''
' Viene eseguito solo all'Avvio della Applicazione
' ''''''''''''''''''''''''''
Calendar1.VisibleDate = "01/01/2008"
Calendar2.VisibleDate = Now()

Calendar1.SelectedDate = "01/01/2008"
Calendar2.SelectedDate = Now.Day.ToString + "/" + Now.Month.ToString + "/" + Now.Year.ToString
' ''''''''''''''''''''''''''
End If

Try
' ''''''''''''''''''''''
' Avvio il Report con i Dati del Calendario
' ''''''''''''''''''''''
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

' ''''''''''''''''''''''
' Passo i Parametri al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", Calendar1.SelectedDate)
myreport.SetParameterValue("Data_Fine", Calendar2.SelectedDate)

CrystalReportViewer1.ReportSource = myreport
' ''''''''''''''''''''''
' ''''''''''''''''''''''
Catch ex As Exception
End Try
' ''''''''''''''''''''''''''
End Sub
Protected Sub Avvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avvia.Click
Try
' ''''''''''''''''''''''
' Avvio il Report con i Dati del Calendario
' ''''''''''''''''''''''
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

' ''''''''''''''''''''''
' Passo i Parametri al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", Calendar1.SelectedDate.ToString("dd/MM/yyyy"))
myreport.SetParameterValue("Data_Fine", Calendar2.SelectedDate.ToString("dd/MM/yyyy"))

CrystalReportViewer1.ReportSource = myreport
' ''''''''''''''''''''''
' ''''''''''''''''''''''
Catch ex As Exception
End Try
End Sub

End Class

.NET : Report Passaggio Parametrico di Date

Ho deciso di cambiare i parametri da passare al report.
Questa volta gli passo delle Date.
Sto utilizzando l'oggetto Calendar per definire le Date.

Ecco un pò di Codice

Imports System.Data
Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Partial Class Statistica1
Inherits System.Web.UI.Page


Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim myreport As New ReportDocument()
myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

If Not Page.IsPostBack Then
Try
' ''''''''''''''''''''''
' Setto il Valore dei Parametri da passare al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", "01/01/0000")
myreport.SetParameterValue("Data_Fine", "31/12/9999")
' ''''''''''''''''''''''

CrystalReportViewer1.ReportSource = myreport
Catch ex As Exception
End Try
End If
End Sub
Protected Sub Avvia_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Avvia.Click
Dim myreport As New ReportDocument()
myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

Try
' ''''''''''''''''''''''
' Setto il Valore dei Parametri da passare al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", Calendar1.SelectedDate.ToString("dd/MM/yyyy"))
myreport.SetParameterValue("Data_Fine", Calendar2.SelectedDate.ToString("dd/MM/yyyy"))

myreport.SetParameterValue("Data_Inizio", "01/02/2009")
myreport.SetParameterValue("Data_Fine", "28/02/2009")

CrystalReportViewer1.ReportSource = myreport
' ''''''''''''''''''''''
Catch ex As Exception
End Try
End Sub

Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

' ''''''''''''''''''''''
' Setto il Valore dei Parametri da passare al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", "01/01/0000")
myreport.SetParameterValue("Data_Fine", "01/01/9999")
' ''''''''''''''''''''''

CrystalReportViewer1.ReportSource = myreport
End Sub

Protected Sub Calendar2_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar2.SelectionChanged
Dim myreport As New ReportDocument()

myreport.Load(Server.MapPath("CrystalReport2.rpt"))
myreport.DataSourceConnections.Item(0).SetLogon("****", "****")

' ''''''''''''''''''''''
' Setto il Valore dei Parametri da passare al Report
' ''''''''''''''''''''''
myreport.SetParameterValue("Data_Inizio", "01/01/0000")
myreport.SetParameterValue("Data_Fine", "01/01/9999")
' ''''''''''''''''''''''

CrystalReportViewer1.ReportSource = myreport
End Sub
End Class

Software : Sfondo per DeskTop con Calendario

Visualizza uno Sfondo per DeskTop con Calendario mediante il Sito
http://www.smashingmagazine.com/category/graphics/

Ogni Mese una raccolta diversa.

.Net : Metodo DropDownList1_SelectedIndexChanged non funziona

Qualora abbiate una DropDownList a cui avete associato una Sub

Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged

Può darsi che non vi funzioni.
In questo caso provate a settare la Proprietà AutoPostBack, del DropDownList, a True.

Dovrebbe funzionare.

Microsoft !!!!!!!!!!!!!!!!

Eluana

Piena Solidarietà a coloro che hanno cercato,
fino all'ultimo di difendere una vita umana,
uccisa dai Politici e dalle loro Ideologie.

Office : Funzione IIF

Ecco il Link IIF

Codice .NET : Filtrare i dati di un Report

Consiste nel realizzare un Report Parametrico.

Di seguito il Codice per richiamare un Report passandogli un Parametro.
Il Parametro passato viene preso da una DropoDownList e premento il Pulsante 'Bottom1'

Imports System.Data
Imports System.Data.SqlClient

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine

Partial Class Statistica1
Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'MsgBox("Page_Load")

If Not Page.IsPostBack Then

Try
Dim myreport As New ReportDocument()
myreport.Load(Server.MapPath("CrystalReport2.rpt"))

myreport.DataSourceConnections.Item(0).SetLogon("******", "******")
myreport.SetParameterValue("UserId", "******")

CrystalReportViewer1.ReportSource = myreport

Catch ex As Exception
'MsgBox(ex.Message)
End Try

End If
End Sub

Software : TeleAssistenza

Per connettersi ad un PC Remoto propongo UltraVNC

http://www.uvnc.com/download/index.html

Sport : Calcio

Volete sapere tutto sui vostri calciatori preferiti.

Ecco il Sito che fà per voi
http://www.calciatori.com/

Sky : Guida TV

Ecco la Guida TV di SKY.
Occorre però prima registrarsi.

http://guidatv.sky.it/guida_tv/home.do