Initial

EDOKA/Backup/Report/frmReportViewer.vb

@@ -0,0 +1,314 @@
+'Option Strict On
+'Option Explicit On 
+Imports CrystalDecisions.CrystalReports.Engine
+Imports CrystalDecisions.Shared
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.ComponentModel
+Imports UtilityLibrary.Win32
+
+Public Class frmReportViewer
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
+    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
+    Friend WithEvents mnuClose As System.Windows.Forms.ToolBarButton
+    Friend WithEvents crviewer As CrystalDecisions.Windows.Forms.CrystalReportViewer
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmReportViewer))
+        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
+        Me.mnuClose = New System.Windows.Forms.ToolBarButton()
+        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
+        Me.crviewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer()
+        Me.SuspendLayout()
+        '
+        'ToolBar1
+        '
+        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.mnuClose})
+        Me.ToolBar1.DropDownArrows = True
+        Me.ToolBar1.ImageList = Me.ImageList1
+        Me.ToolBar1.Name = "ToolBar1"
+        Me.ToolBar1.ShowToolTips = True
+        Me.ToolBar1.Size = New System.Drawing.Size(816, 25)
+        Me.ToolBar1.TabIndex = 0
+        '
+        'mnuClose
+        '
+        Me.mnuClose.ImageIndex = 4
+        Me.mnuClose.ToolTipText = "Schliessen"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
+        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        '
+        'crviewer
+        '
+        Me.crviewer.ActiveViewIndex = -1
+        Me.crviewer.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.crviewer.Location = New System.Drawing.Point(0, 25)
+        Me.crviewer.Name = "crviewer"
+        Me.crviewer.ReportSource = "C:\EDOKA\EDOKA\Report\Reports\MetaDataReport.rpt"
+        Me.crviewer.ShowCloseButton = False
+        Me.crviewer.ShowGroupTreeButton = False
+        Me.crviewer.ShowRefreshButton = False
+        Me.crviewer.Size = New System.Drawing.Size(816, 500)
+        Me.crviewer.TabIndex = 1
+        '
+        'frmReportViewer
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(816, 525)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.crviewer, Me.ToolBar1})
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmReportViewer"
+        Me.Text = "Report-Viewer"
+        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+#Region " Declaration "
+
+    Dim i As Integer
+    Dim s As String
+    Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
+    Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
+    Dim m_sWindowTitel As String
+
+    Dim rpt As New ReportDocument()
+    Dim crParameterValues As ParameterValues
+    Dim crParameterDiscreteValue As ParameterDiscreteValue
+    Dim crParameterFieldDefinitions As ParameterFieldDefinitions
+    Dim crParameterFieldDefinition As ParameterFieldDefinition
+
+#End Region
+
+#Region " Property "
+
+    Property WindowTitel() As String
+        Get
+            Return m_sWindowTitel
+        End Get
+        Set(ByVal Value As String)
+            m_sWindowTitel = Value
+        End Set
+    End Property
+
+#End Region
+
+    Private Sub frmReportViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+#Region " Reporting "
+
+    Public Function show_reportWithParameter(ByVal ReportName As String, ByVal param As String) As Boolean
+        '===============================================================================
+        'Desc       : Anziegen des gewählten report 
+        'Input 	    : Reportname
+        'Kriterium  : Der Report muss im Verzeichenis welches in der Tabelle Applikation
+        '             hinterlegt ist, vorhanden sein
+        'Erstellt   : bud 25.05.2005
+        'Geaendert  : 
+        '===============================================================================
+        Dim sReportpath As String
+        If m_sWindowTitel <> "" Then
+            Me.Text = m_sWindowTitel
+        End If
+        Try
+            sReportpath = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
+            If Microsoft.VisualBasic.Right(sReportpath, 1) <> "\" Then
+                sReportpath = sReportpath & "\"
+            End If
+            '=============================================
+            'Fileprüfung
+            '=============================================
+            If FileExist(sReportpath, ReportName) = True Then
+                rpt.Load(sReportpath & ReportName)
+                Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
+
+                '***************************************************
+                '***************************************************
+                Dim intCounter As Integer
+                intCounter = rpt.DataDefinition.ParameterFields.Count
+
+                If intCounter = 1 Then
+                    If InStr(rpt.DataDefinition.ParameterFields(0).ParameterFieldName, ".", CompareMethod.Text) > 0 Then
+                        intCounter = 0
+                    End If
+
+                End If
+
+                Dim strParValPair() As String
+                Dim strVal() As String
+                Dim index As Integer
+                Dim paraValue As New CrystalDecisions.Shared.ParameterDiscreteValue()
+                Dim currValue As CrystalDecisions.Shared.ParameterValues
+                Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo()
+                Dim mySubReportObject As CrystalDecisions.CrystalReports.Engine.SubreportObject
+                Dim mySubRepDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
+                Dim intCounter1 As Integer
+
+                If intCounter > 0 And Trim(param) <> "" Then
+                    strParValPair = param.Split(CType("&", Char))
+
+                    'For i = 0 To intCounter - 1
+                    '    If rpt.DataDefinition.ParameterFields(i).Name = "@MANr" Then
+                    '        strVal = strParValPair(0).Split(CType("=", Char))
+                    '        paraValue.Value = strVal(1)
+                    '        currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
+                    '        currValue.Add(paraValue)
+                    '        rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
+                    '    End If
+                    '    If rpt.DataDefinition.ParameterFields(i).Name = "@MetDataOption" Then
+                    '        strVal = strParValPair(1).Split(CType("=", Char))
+                    '        paraValue.Value = strVal(1)
+                    '        currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
+                    '        currValue.Add(paraValue)
+                    '        rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
+                    '    End If
+                    '    If rpt.DataDefinition.ParameterFields(i).Name = "@OfficeDokID" Then
+                    '        strVal = strParValPair(2).Split(CType("=", Char))
+                    '        paraValue.Value = strVal(1)
+                    '        currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
+                    '        currValue.Add(paraValue)
+                    '        rpt.DataDefinition.ParameterFields(i).ApplyCurrentValues(currValue)
+                    '    End If
+                    'Next
+
+                    For index = 0 To UBound(strParValPair)
+                        If InStr(strParValPair(index), "=") > 0 Then
+                            strVal = strParValPair(index).Split(CType("=", Char))
+                            paraValue.Value = strVal(1)
+                            currValue = rpt.DataDefinition.ParameterFields(strVal(0)).CurrentValues
+                            currValue.Add(paraValue)
+                            rpt.DataDefinition.ParameterFields(strVal(0)).ApplyCurrentValues(currValue)
+                        End If
+                    Next
+                End If
+
+
+                ConInfo.ConnectionInfo.UserID = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("user_report"), String)
+                ConInfo.ConnectionInfo.Password = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("passwort_report"), String)
+                ConInfo.ConnectionInfo.ServerName = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_server"), String)
+                ConInfo.ConnectionInfo.DatabaseName = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("report_db"), String)
+
+                For intCounter = 0 To rpt.Database.Tables.Count - 1
+                    rpt.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
+                Next
+
+                For index = 0 To rpt.ReportDefinition.Sections.Count - 1
+                    For intCounter = 0 To rpt.ReportDefinition.Sections(index).ReportObjects.Count - 1
+                        With rpt.ReportDefinition.Sections(index)
+                            If .ReportObjects(intCounter).Kind = CrystalDecisions.Shared.ReportObjectKind.SubreportObject Then
+                                mySubReportObject = CType(.ReportObjects(intCounter), CrystalDecisions.CrystalReports.Engine.SubreportObject)
+                                mySubRepDoc = mySubReportObject.OpenSubreport(mySubReportObject.SubreportName)
+                                For intCounter1 = 0 To mySubRepDoc.Database.Tables.Count - 1
+                                    mySubRepDoc.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
+                                    mySubRepDoc.Database.Tables(intCounter1).ApplyLogOnInfo(ConInfo)
+                                Next
+                            End If
+                        End With
+                    Next
+
+                Next
+
+                Dim crReportDocument As ReportDocument 'Untyped report object 
+                Me.crviewer.ReportSource = rpt
+
+                Me.crviewer.Zoom(2)
+                Me.Cursor = System.Windows.Forms.Cursors.Default
+                show_reportWithParameter = True
+
+                Exit Function
+            End If
+        Catch Exp As LoadSaveReportException
+            show_reportWithParameter = False
+            Me.Cursor = System.Windows.Forms.Cursors.Default
+        Catch Exp As Exception
+            show_reportWithParameter = False
+            Me.Cursor = System.Windows.Forms.Cursors.Default
+        End Try
+
+    End Function
+
+#End Region
+
+#Region " Extras "
+
+    Private Function FileExist(ByVal FilePath As String, ByVal FileName As String) As Boolean
+        '===============================================================================
+        'Ermittelt ob eine Datei vorhanden ist.
+        'Input : Verzeichnis
+        'Output: True/False
+        'Erstellt  : koe 20.10.2003
+        'Geaendert : 
+        '===============================================================================
+        Try
+            If Microsoft.VisualBasic.Right(FilePath, 1) <> "\" Then
+                FilePath = FilePath + "\"
+            End If
+
+            If System.IO.Directory.Exists(FilePath) Then
+                If System.IO.File.Exists(FilePath & FileName) Then
+                    FileExist = True
+                Else
+                    MyMsg.show_standardmessage_ReplaceText(210, MsgBoxStyle.Exclamation, FilePath & " " & FileName, "") 'Datei  #1 nicht gefunden!
+                    FileExist = False
+                End If
+            Else
+                MyMsg.show_standardmessage_ReplaceText(210, MsgBoxStyle.Exclamation, FilePath, "") '"Verzeichnis " & FilePath & " nicht gefunden!
+                FileExist = False
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.Message, "Reportdatei", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
+            FileExist = False
+        End Try
+    End Function
+
+#End Region
+
+#Region " Menue Funktionen "
+
+    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
+        Me.Close()
+    End Sub
+
+#End Region
+
+End Class