25 lines
989 B
VB.net
25 lines
989 B
VB.net
Public Class cStatFunctions
|
|
Public Sub showReport(hAuswahl As String, hSQL As String, Optional optIntern As Boolean = False, Optional cboFirma As String = "", Optional Auswahl_Standort As String = "")
|
|
Try
|
|
'Dim Werte = New cWerteDAL
|
|
Dim report As rptAuswertung = New rptAuswertung
|
|
|
|
report.Auswahl = hAuswahl
|
|
report.SQL = hSQL
|
|
If optIntern Then report.Intern = optIntern
|
|
If cboFirma <> "" Then report.Frächter = cboFirma
|
|
If Auswahl_Standort <> "" Then report.Standort = Auswahl_Standort
|
|
' report.Frächter = cboFirma.Text
|
|
' report.Standort = Auswahl_Standort
|
|
|
|
Dim arAuswertung As New frmDruck(report)
|
|
arAuswertung.Text = "Saldenliste"
|
|
arAuswertung.Show()
|
|
|
|
Catch ex As Exception
|
|
MsgBox("Beim Drucken ist ein Fehler aufgetreten: " & vbCrLf & ex.Message)
|
|
Exit Sub
|
|
End Try
|
|
End Sub
|
|
End Class
|