Crystal Report : Source Code Filter dengan Bulan dan Tahun

sudah lama ngga ngeblog nih kangen juga mau ngeblog lagi ni, kali ini saya akan mencoba membagi tips lagi yaitu untuk memfilter Crystal Reports sesuai dengan yang kita mau dalam hal ini filterisasi di gunakan pada bulan dan tahun untuk menampilkan suatu transaksinya.

Apa yang dibutuhkan ?

ok untuk kali ini saya membutuhkan filter pada form CrystalReportViewer ditambahkan :
1. Combobox (2 buah) untuk Bulan dan Tahun yang masing-masing saya namakan CbBulan dan CbTahun
2. Button (1 buah) untuk memproses filterisasi dari combobox yang tadi anda pilih dan saya namakan btnProses
3. CrystalReportV1ewer untuk menampilkan/menempel CrystalReport ke dalam form

Yang mau difilter apa ? dan pada saat apa ? 

kali ini yang akan menjadi studi kasus adalah Transaksi Penjualan yang mana pada laporannya dibutuhkan bentuk laporan secara berkala (bulan dan tahun)

Setelah itu apa ?

setelah itu kita mulai koding, siap2 ok mulai, pertama anda klik double pada form dimana saja anda isi pada combobox bulan (cbBulan) dengan event btnProses_Click dan sebelumnya main aman dulu yaitu anda isi koding dibawahnya Try Catch

Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan
Dim xBulan as Integer

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

Select Case CbBulan.Text
Case "Januari"
xBulan = 1
Case "Februari"
xBulan = 2
Case "Maret"
xBulan = 3
Case "April"
xBulan = 4
Case "Mei"
xBulan = 5
Case "Juni"
xBulan = 6
Case "Juli"
xBulan = 7
Case "Agustus"
xBulan = 8
Case "September"
xBulan = 9
Case "Oktober"
xBulan = 10
Case "November"
xBulan = 11
Case "Desember"
xBulan = 12
End Select

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,1) to datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,” &  Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ahh Ribet, maksudnya selectionFormula gimana tuh ?

Jadi begini dalam CrystalReport disediakan suatu formula yang mana dapat kita manipulasi lewat SelectionFormula jadi segala macam rumus dapat kita tambahkan sesuai yang kita butuhkan dalam hal ini saya mengambil untuk memfilter bulan dan tahun dan kalau masih bingung yang mana sih SelectionFormulanya ? yang ini “{Transaksi.TglTransaksi} in datetime(2009,8,1) to datetime(2008,1,1)”

 Kan di Comboboxnya tampilannya berupa huruf ?

He3x memang dalam combobox isinya berupa Januari dst sampai Desember tapi kok munculnya angka 1 hingga 12 ? itu karena tadi saya select case karena semua format dalam SelectionFormula berupa angka bukan huruf (YYYY/MM/DD) sehingga harus saya konversi dahulu

Sampai disini dulu pembelajaran kali ini mengenai Crystal Report moga bermanfaat dan mohon masukan kritik dan saran...

Aplikasi tersebut dibuat dengan Visual Studio 2005. Bahasa pemrograman VB.NET, dan menggunakan SQL Server 2005 database dan Crystal Report bawaan Visual Studio 2005

by :

Wal