Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/_FRReporting/Formulare/frmCRReporting.vb
+++ b/SW/_FRReporting/Formulare/frmCRReporting.vb
@@ -0,0 +1,122 @@
+Imports System.Windows.Forms
+Imports FastReport
+
+Public Class frmcrreporting
+
+    Dim ds As DataSet
+    Dim auswertungnr As Integer
+    Dim dms As New Utils.MyDocMgmt
+    Dim auswertung As New TKB.Auswertung.clsAuswertung
+    Dim rptfilename As String
+    Dim printparam As Boolean = True
+    Dim StandardAuswertung As Boolean = True
+    Dim Design As Boolean = False
+
+    Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer, ByRef auswertung As TKB.Auswertung.clsAuswertung, ByVal printparam As Boolean, ByVal Design As Boolean)
+        InitializeComponent()
+        Me.ds = ds
+        Me.auswertungnr = Auswertungnr
+        Me.auswertung = auswertung
+        Me.printparam = printparam
+        Me.StandardAuswertung = True
+        Me.Design = Design
+    End Sub
+    Sub New(ByRef ds As DataSet, ByVal Auswertungnr As Integer)
+        InitializeComponent()
+        Me.ds = ds
+        Me.auswertungnr = Auswertungnr
+        Me.StandardAuswertung = False
+    End Sub
+    Private Sub frmcrreporting_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+
+    End Sub
+
+    Public Sub DesignReport()
+        Me.Cursor = Cursors.WaitCursor
+        Application.DoEvents()
+        rptfilename = dms.Get_RptDatei(Me.auswertungnr)
+
+        Dim i As Integer
+        ds.Tables(0).TableName = "Daten"
+        For i = 1 To ds.Tables.Count - 1
+            ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
+        Next
+
+        Dim report As New Report
+        Try
+            If rptfilename <> "" Then report.Load(rptfilename)
+            report.RegisterData(ds)
+            report.GetDataSource("Daten").Enabled = True
+            report.SetParameterValue("Titel1", auswertung.TitelZeile1)
+            report.SetParameterValue("Titel2", auswertung.TitelZeile2)
+            If Me.printparam Then
+                i = 0
+                Dim s As String = ""
+
+                For i = 1 To Me.auswertung.ParamCollection.Count
+                    If s <> "" Then s = s + "|"
+                    s = s + Me.auswertung.ParamCollection.Item(i).ToString
+                Next
+                report.SetParameterValue("Parameters", s)
+            End If
+            Cursor = Cursors.Default
+            report.Preview = Me.PreviewControl1
+            report.Design()
+            report.Dispose()
+            Me.Close()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+    Public Sub DisplayReport()
+        Me.Cursor = Cursors.WaitCursor
+        Application.DoEvents()
+        rptfilename = dms.Get_RptDatei(Me.auswertungnr)
+
+        Dim i As Integer
+        ds.Tables(0).TableName = "Daten"
+        For i = 1 To ds.Tables.Count - 1
+            ds.Tables(i).TableName = "Daten_" + Trim(Str(i))
+        Next
+
+        Dim report As New Report
+        Try
+            If rptfilename <> "" Then report.Load(rptfilename)
+            report.RegisterData(ds)
+            report.GetDataSource("Daten").Enabled = True
+            report.SetParameterValue("Titel1", auswertung.TitelZeile1)
+            report.SetParameterValue("Titel2", auswertung.TitelZeile2)
+            If Me.printparam Then
+                i = 0
+                Dim s As String = ""
+
+                For i = 1 To Me.auswertung.ParamCollection.Count
+                    If s <> "" Then s = s + "|"
+                    s = s + Me.auswertung.ParamCollection.Item(i).ToString
+                Next
+                report.SetParameterValue("Parameters", s)
+            End If
+            Cursor = Cursors.Default
+            report.Preview = Me.PreviewControl1
+            report.Show()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+    End Sub
+
+    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+
+
+
+End Class