You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
75 lines
2.7 KiB
75 lines
2.7 KiB
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
|