Imports Microsoft.Reporting.WinForms
Imports MySql.Data.MySqlClient
Public Class frmReportCedolino
Dim Connection As New MySqlConnection(Conn.Connessione)
Private Sub frmReportCedolino_Load(sender As Object, e As EventArgs) Handles MyBase.Load
With Me.ReportViewer1.LocalReport
' Report path
.ReportPath = Application.StartupPath & "\..\..\Report\rptCedolino.rdlc"
.DataSources.Clear()
Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout)
End With
End Sub
Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
Dim id As ListViewItem
Dim idCollection As ListView.CheckedListViewItemCollection = frmStampe.lv.CheckedItems
For Each id In idCollection
If id.Checked = True Then
Connection.Open()
Dim SQLStipendio As String = "Select Stipendio.ID_Anagrafica,Stipendio.Mese,Stipendio.Anno,Stipendio.Incarico," & _
"Stipendio.Task_Force,Stipendio.Lct,Stipendio.Step,Stipendio.Data_Assunzione," & _
"Stipendio.Totale_Lettere,anagrafica.Nominativo" & _
" From stipendio Inner Join anagrafica On anagrafica.ID = stipendio.ID_Anagrafica" & _
" Where stipendio.ID_Anagrafica = " & id.Text & " And stipendio.Mese = '" & frmStampe.ComboBox1.Text & "' And stipendio.Anno = " & frmStampe.TextBox1.Text & ""
Using da As New MySqlDataAdapter(SQLStipendio, Connection)
Using ds As New DataSet
da.Fill(ds, "Stipendio")
Dim rds As New ReportDataSource("dtsStipendio", ds.Tables("Stipendio"))
Me.ReportViewer1.LocalReport.DataSources.Add(rds)
End Using
End Using
Dim SQLStipendioDettaglio As String = "Select Stipendio_Dettaglio.ID_Anagrafica,Stipendio_Dettaglio.Mese," & _
"Stipendio_Dettaglio.Anno,Stipendio_Dettaglio.Voce,Stipendio_Dettaglio.Quantita," & _
"Stipendio_Dettaglio.Importo,Stipendio_Dettaglio.Totale,Stipendio_Dettaglio.Capitolo" & _
" From Stipendio_Dettaglio" & _
" Where stipendio_dettaglio.ID_Anagrafica = " & id.Text & " And stipendio_dettaglio.Mese = '" & frmStampe.ComboBox1.Text & "' And stipendio_dettaglio.Anno = " & frmStampe.TextBox1.Text & ""
Using da As New MySqlDataAdapter(SQLStipendioDettaglio, Connection)
Using ds As New DataSet
da.Fill(ds, "stipendio_dettaglio")
Dim rds As New ReportDataSource("dtsDettaglio", ds.Tables("stipendio_dettaglio"))
Me.ReportViewer1.LocalReport.DataSources.Add(rds)
End Using
End Using
ReportViewer1.RefreshReport()
Connection.Close()
End If
Next
End Sub
End Class