Public Class TransactionReport

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim CardType As String = Me.SetCardType()

If ValidateCardTypes() Then

Me.CreditCardTransReportBBS.FillByDate(Me.dtTransDateFilter.Value, CardType, Me.SchoolPCCDefaultsBO1.School_key)

If Me.CreditCardTransReportBBS.BusinessObject.Count > 0 Then

MsgBox("Prepare")

TransReport.Prepare()

MsgBox("End Prepare")

Else

With InfoBox.NotifyBoxSettings

.SpecialEffect = InfoBoxSpecialEffect.Fade

.Sound = MessagingSounds.Notify

End With

InfoBox.NotifyBox("No Records", "There are no " + CardType + " transactions " _

& " on " + Me.dtTransDateFilter.Value.ToShortDateString.ToString + " " _

& "for " + Trim(Me.SchoolPCCDefaultsBO1.School_name) + ".")

End If

End If

End Sub

Private Sub TransReport_RenderCompleted(ByVal sender As Object, ByVal e As System.EventArgs) Handles TransReport.RenderCompleted

MsgBox("TransREport_rendercompleted")

Dim NewThread As Thread = New Thread(New ThreadStart(AddressOf GenReport))

NewThread.SetApartmentState(ApartmentState.STA)

NewThread.Start()

End Sub

Sub GenReport()

MsgBox("GenReportStart")

Thread.Sleep(0)

Dim previewForm As PerpetuumSoft.Reporting.View.PreviewForm

previewForm = New PerpetuumSoft.Reporting.View.PreviewForm(TransReport)

previewForm.WindowState = FormWindowState.Maximized

'previewForm.ShowDialog(Me)

MsgBox("PreviewForm.ShowDialog.Done")

If Not (previewForm Is Nothing) Then

End If

End Sub

End class