Imports System.Windows.Forms
Imports System.Data.SqlTypes


Public Class VV_ABA_Reporting
#Region "Vertragsverwaltung"
    Sub New(ByVal applikationnr As Integer, ByVal Mitarbeiternr As Integer, ByVal Connectionstring As String, _
            ByVal SecurityDaten As DataSet, ByVal Spaltendaten As DataTable, ByVal Tooltipdaten As DataSet)

        Globals.sConnectionString = Connectionstring
        Globals.conn.sConnectionString = Globals.sConnectionString

        Globals.clsapplication.iApplikationsnr = applikationnr
        Globals.clsapplication.cpMainConnectionProvider = Globals.conn
        Globals.clsapplication.SelectOne()

        Globals.clsmitarbeiter.iMitarbeiternr = New SqlInt32(CType(Mitarbeiternr, Int32))
        Globals.clsmitarbeiter.cpMainConnectionProvider = Globals.conn
        Globals.clsmitarbeiter.SelectOne()


        Globals.SecurityDaten = SecurityDaten
        Globals.Spaltendaten = Spaltendaten
        Globals.ToolTipDaten = Tooltipdaten
        Globals.sConnectionString = Connectionstring
    End Sub
    Public Function ReportSelect(ByVal Parentform As Form)
        Dim f As New FrmReportSelect
        Try
            f.MdiParent = Parentform
        Catch ex As Exception

        End Try
        f.Show()
    End Function

    Public Function ShowApplikationsReport(ByVal Reportnr As Integer, ByVal Applikationnr As Integer, ByVal ParentForm As Form)
        Dim auswertungen As New TKB.Auswertung.clsAuswertung
        Dim SQLWhere As String = ""
        Dim Auswertungsdaten As New DataTable

        auswertungen.Get_Auswertung(999)
        Dim paramcollection As New Collection
        paramcollection.Add(New TKB.Auswertung.RptParams("@sqlwhere", Applikationnr))
        Auswertungsdaten = auswertungen.Get_Auswertungsdaten(auswertungen.Auswertung.sSQL.Value, paramcollection)
        Dim f As New frmcrreporting(Auswertungsdaten, auswertungen.Auswertung.iAuswertungNr.Value, auswertungen, False)
        f.MdiParent = ParentForm
        f.Show()
    End Function
#End Region

End Class

Public Class EDOKA_Reporting

#Region "EDOKA"
    Sub New(ByVal userid As String, ByVal Password As String, ByVal Server As String, ByVal db As String)
        Globals.LoginInfo.UserId = userid
        Globals.LoginInfo.Password = Password
        Globals.LoginInfo.Server = Server
        Globals.LoginInfo.Db = db
    End Sub

    Public Function ShowMetaDataReport(ByVal ReportDir As String, ByVal filename As String, ByVal params As String, ByVal Titel As String, ByVal ParentForm As Form)
        Dim f As New frmReportViewer
        f.show_reportWithParameter(ReportDir, filename, params)
        f.Text = Titel
        f.MdiParent = ParentForm
        f.Show()
    End Function


#End Region
End Class