Projektdateien hinzufügen.

Aviso/Auswertung/cStatFunctions.vb

@@ -0,0 +1,24 @@
+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