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