Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class frmReportSelection
    Inherits System.Windows.Forms.Form
#Region " Declerations "
    Private m_sTableName As String
    Private m_iReportgruppeNr As Integer
    Private m_iReportNr As Integer
    Private m_iParameterSetNameID As Integer
#End Region

#Region " Property "
    Property ReportgruppeNr()
        Get
            Return m_iReportgruppeNr
        End Get
        Set(ByVal Value)
            m_iReportgruppeNr = Value
        End Set
    End Property
    Property ReportNr()
        Get
            Return m_iReportNr
        End Get
        Set(ByVal Value)
            m_iReportNr = Value
        End Set
    End Property
    Property TableName() As String
        Get
            Return m_sTableName
        End Get
        Set(ByVal Value As String)
            m_sTableName = Value
        End Set
    End Property
    Property ParameterSetNameID() As Integer
        Get
            Return m_iParameterSetNameID
        End Get
        Set(ByVal Value As Integer)
            m_iParameterSetNameID = Value
        End Set
    End Property
#End Region

#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 SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Friend WithEvents DataSet1 As System.Data.DataSet
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ToolBtnExit As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBtnSave As System.Windows.Forms.ToolBarButton
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand
    Friend WithEvents daReport As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents dsReport As System.Data.DataSet
    Friend WithEvents dsParameter As System.Data.DataSet
    Friend WithEvents ToolBtnPreview As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBtnOpenParSet As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBtnClearParameter As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents SqlSelectCommand4 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Friend WithEvents daParameter As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents pnlTop As System.Windows.Forms.Panel
    Friend WithEvents pnlBottom As System.Windows.Forms.Panel
    Friend WithEvents pnlReportgruppe As System.Windows.Forms.Panel
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents gbxReportgruppen As System.Windows.Forms.GroupBox
    Friend WithEvents grdReportgruppen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Splitter3 As System.Windows.Forms.Splitter
    Friend WithEvents gbxReserve As System.Windows.Forms.GroupBox
    Friend WithEvents pnlRepoert_Reportbeschreibung As System.Windows.Forms.Panel
    Friend WithEvents gbxReport As System.Windows.Forms.GroupBox
    Friend WithEvents grdReport As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents Splitter4 As System.Windows.Forms.Splitter
    Friend WithEvents gbxReportBeschreibung As System.Windows.Forms.GroupBox
    Friend WithEvents txtReportDescription As System.Windows.Forms.TextBox
    Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
    Friend WithEvents pnlParameter As System.Windows.Forms.Panel
    Friend WithEvents grxParameter As System.Windows.Forms.GroupBox
    Friend WithEvents grdParameter As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmReportSelection))
        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines2 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Dim GridLines3 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.DataSet1 = New System.Data.DataSet()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.ToolBtnExit = New System.Windows.Forms.ToolBarButton()
        Me.ToolBtnOpenParSet = New System.Windows.Forms.ToolBarButton()
        Me.ToolBtnSave = New System.Windows.Forms.ToolBarButton()
        Me.ToolBtnClearParameter = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBtnPreview = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.MainMenu1 = New System.Windows.Forms.MainMenu()
        Me.pnlTop = New System.Windows.Forms.Panel()
        Me.pnlBottom = New System.Windows.Forms.Panel()
        Me.daReport = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand()
        Me.dsReport = New System.Data.DataSet()
        Me.dsParameter = New System.Data.DataSet()
        Me.daParameter = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand4 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.pnlReportgruppe = New System.Windows.Forms.Panel()
        Me.gbxReserve = New System.Windows.Forms.GroupBox()
        Me.Splitter3 = New System.Windows.Forms.Splitter()
        Me.gbxReportgruppen = New System.Windows.Forms.GroupBox()
        Me.grdReportgruppen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Splitter1 = New System.Windows.Forms.Splitter()
        Me.pnlRepoert_Reportbeschreibung = New System.Windows.Forms.Panel()
        Me.gbxReportBeschreibung = New System.Windows.Forms.GroupBox()
        Me.txtReportDescription = New System.Windows.Forms.TextBox()
        Me.Splitter4 = New System.Windows.Forms.Splitter()
        Me.gbxReport = New System.Windows.Forms.GroupBox()
        Me.grdReport = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.Splitter2 = New System.Windows.Forms.Splitter()
        Me.pnlParameter = New System.Windows.Forms.Panel()
        Me.grxParameter = New System.Windows.Forms.GroupBox()
        Me.grdParameter = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dsReport, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.dsParameter, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlReportgruppe.SuspendLayout()
        Me.gbxReportgruppen.SuspendLayout()
        CType(Me.grdReportgruppen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlRepoert_Reportbeschreibung.SuspendLayout()
        Me.gbxReportBeschreibung.SuspendLayout()
        Me.gbxReport.SuspendLayout()
        CType(Me.grdReport, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.pnlParameter.SuspendLayout()
        Me.grxParameter.SuspendLayout()
        CType(Me.grdParameter, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_reportgruppe_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[sp_Mitarbeiter_Reportgruppen_select]"
        Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiterNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=tgtsqledokabssf;initial catalog=edoka;integrated security=SSPI;persis" & _
        "t security info=False;workstation id=TG602643;packet size=4096"
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBtnExit, Me.ToolBtnOpenParSet, Me.ToolBtnSave, Me.ToolBtnClearParameter, Me.ToolBarButton1, Me.ToolBtnPreview})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(864, 25)
        Me.ToolBar1.TabIndex = 6
        '
        'ToolBtnExit
        '
        Me.ToolBtnExit.ImageIndex = 0
        Me.ToolBtnExit.ToolTipText = "Beenden"
        '
        'ToolBtnOpenParSet
        '
        Me.ToolBtnOpenParSet.ImageIndex = 5
        Me.ToolBtnOpenParSet.ToolTipText = "Öffnet persönliche Parameterwerte"
        '
        'ToolBtnSave
        '
        Me.ToolBtnSave.ImageIndex = 1
        Me.ToolBtnSave.ToolTipText = "Speichern"
        '
        'ToolBtnClearParameter
        '
        Me.ToolBtnClearParameter.ImageIndex = 6
        Me.ToolBtnClearParameter.ToolTipText = "Löscht alle Parametereingaben"
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBtnPreview
        '
        Me.ToolBtnPreview.ImageIndex = 4
        Me.ToolBtnPreview.ToolTipText = "Report Vorschau"
        '
        '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
        '
        'MainMenu1
        '
        Me.MainMenu1.RightToLeft = System.Windows.Forms.RightToLeft.No
        '
        'pnlTop
        '
        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlTop.Location = New System.Drawing.Point(0, 25)
        Me.pnlTop.Name = "pnlTop"
        Me.pnlTop.Size = New System.Drawing.Size(864, 8)
        Me.pnlTop.TabIndex = 10
        '
        'pnlBottom
        '
        Me.pnlBottom.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnlBottom.Location = New System.Drawing.Point(0, 689)
        Me.pnlBottom.Name = "pnlBottom"
        Me.pnlBottom.Size = New System.Drawing.Size(864, 8)
        Me.pnlBottom.TabIndex = 13
        '
        'daReport
        '
        Me.daReport.SelectCommand = Me.SqlSelectCommand2
        Me.daReport.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "reportgruppe_report", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ReportgruppeReportNr", "ReportgruppeReportNr"), New System.Data.Common.DataColumnMapping("reportgruppeNr", "reportgruppeNr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("report", "report"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("dateiname", "dateiname")})})
        '
        'SqlSelectCommand2
        '
        Me.SqlSelectCommand2.CommandText = "[sp_ReportsForGroup_select]"
        Me.SqlSelectCommand2.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand2.Connection = Me.SqlConnection1
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ReportGruppenNr", System.Data.SqlDbType.Int, 4, "reportgruppeNr"))
        '
        'dsReport
        '
        Me.dsReport.DataSetName = "NewDataSet"
        '
        'dsParameter
        '
        Me.dsParameter.DataSetName = "NewDataSet"
        '
        'daParameter
        '
        Me.daParameter.DeleteCommand = Me.SqlDeleteCommand1
        Me.daParameter.InsertCommand = Me.SqlInsertCommand1
        Me.daParameter.SelectCommand = Me.SqlSelectCommand4
        Me.daParameter.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "pv_reportfeldregel_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("reportfeldregelNr", "reportfeldregelNr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("feldtypNr", "feldtypNr"), New System.Data.Common.DataColumnMapping("feldsteuerungNr", "feldsteuerungNr"), New System.Data.Common.DataColumnMapping("datenherkunft", "datenherkunft"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer"), New System.Data.Common.DataColumnMapping("eingabe_zwingend", "eingabe_zwingend")})})
        Me.daParameter.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_reportfeldregel_delete]"
        Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 2048, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_reportfeldregel_insert]"
        Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "reportfeldregelNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "feldtypNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "feldsteuerungNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 2048, "datenherkunft"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
        '
        'SqlSelectCommand4
        '
        Me.SqlSelectCommand4.CommandText = "[sp_reportFeldregel_select]"
        Me.SqlSelectCommand4.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlSelectCommand4.Connection = Me.SqlConnection1
        Me.SqlSelectCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand4.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[pv_reportfeldregel_update]"
        Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "reportfeldregelNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50, "beschreibung"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "feldtypNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "feldsteuerungNr", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datenherkunft", System.Data.SqlDbType.VarChar, 2048, "datenherkunft"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8, "mutiert_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@eingabe_zwingend", System.Data.SqlDbType.Bit, 1, "eingabe_zwingend"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportfeldregelNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_datenherkunft", System.Data.SqlDbType.VarChar, 2048))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_eingabe_zwingend", System.Data.SqlDbType.Bit, 1))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldsteuerungNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_feldtypNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8))
        '
        'pnlReportgruppe
        '
        Me.pnlReportgruppe.Controls.AddRange(New System.Windows.Forms.Control() {Me.gbxReserve, Me.Splitter3, Me.gbxReportgruppen})
        Me.pnlReportgruppe.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlReportgruppe.Location = New System.Drawing.Point(0, 33)
        Me.pnlReportgruppe.Name = "pnlReportgruppe"
        Me.pnlReportgruppe.Size = New System.Drawing.Size(864, 95)
        Me.pnlReportgruppe.TabIndex = 43
        '
        'gbxReserve
        '
        Me.gbxReserve.Dock = System.Windows.Forms.DockStyle.Fill
        Me.gbxReserve.Location = New System.Drawing.Point(400, 0)
        Me.gbxReserve.Name = "gbxReserve"
        Me.gbxReserve.Size = New System.Drawing.Size(464, 95)
        Me.gbxReserve.TabIndex = 47
        Me.gbxReserve.TabStop = False
        Me.gbxReserve.Text = "gbxReserve"
        Me.gbxReserve.Visible = False
        '
        'Splitter3
        '
        Me.Splitter3.Location = New System.Drawing.Point(392, 0)
        Me.Splitter3.Name = "Splitter3"
        Me.Splitter3.Size = New System.Drawing.Size(8, 95)
        Me.Splitter3.TabIndex = 45
        Me.Splitter3.TabStop = False
        '
        'gbxReportgruppen
        '
        Me.gbxReportgruppen.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdReportgruppen})
        Me.gbxReportgruppen.Dock = System.Windows.Forms.DockStyle.Left
        Me.gbxReportgruppen.Name = "gbxReportgruppen"
        Me.gbxReportgruppen.Size = New System.Drawing.Size(392, 95)
        Me.gbxReportgruppen.TabIndex = 44
        Me.gbxReportgruppen.TabStop = False
        Me.gbxReportgruppen.Text = "Reportgruppen"
        '
        'grdReportgruppen
        '
        Me.grdReportgruppen.AllowFilter = True
        Me.grdReportgruppen.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.grdReportgruppen.AllowSort = True
        Me.grdReportgruppen.AllowUpdate = False
        Me.grdReportgruppen.AlternatingRows = True
        Me.grdReportgruppen.CaptionHeight = 17
        Me.grdReportgruppen.CollapseColor = System.Drawing.Color.Black
        Me.grdReportgruppen.DataChanged = False
        Me.grdReportgruppen.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.grdReportgruppen.ExpandColor = System.Drawing.Color.Black
        Me.grdReportgruppen.GroupByCaption = "Drag a column header here to group by that column"
        Me.grdReportgruppen.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
        Me.grdReportgruppen.Location = New System.Drawing.Point(16, 24)
        Me.grdReportgruppen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.grdReportgruppen.Name = "grdReportgruppen"
        Me.grdReportgruppen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.grdReportgruppen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.grdReportgruppen.PreviewInfo.ZoomFactor = 75
        Me.grdReportgruppen.PrintInfo.ShowOptionsDialog = False
        Me.grdReportgruppen.RecordSelectorWidth = 16
        GridLines1.Color = System.Drawing.Color.DarkGray
        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.grdReportgruppen.RowDivider = GridLines1
        Me.grdReportgruppen.RowHeight = 15
        Me.grdReportgruppen.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.grdReportgruppen.ScrollTips = False
        Me.grdReportgruppen.Size = New System.Drawing.Size(221, 56)
        Me.grdReportgruppen.TabIndex = 0
        Me.grdReportgruppen.Text = "C1TrueDBGrid2"
        Me.grdReportgruppen.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:224, 224, 224;}" & _
        "Selected{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor" & _
        ":InactiveCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{Align" & _
        "Horz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}S" & _
        "tyle1{}OddRow{BackColor:White;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
        "ue;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:C" & _
        "enter;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data" & _
        "></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tr" & _
        "ue"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeS" & _
        "tyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScr" & _
        "ollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 217, 52</ClientRect><Bo" & _
        "rderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle" & _
        " parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Fil" & _
        "terBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""S" & _
        "tyle3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading" & _
        """ me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><Inactive" & _
        "Style parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /" & _
        "><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle pare" & _
        "nt=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1True" & _
        "DBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style par" & _
        "ent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=" & _
        """Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""" & _
        "Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Norm" & _
        "al"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Nor" & _
        "mal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""" & _
        "Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><ver" & _
        "tSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRec" & _
        "SelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 217, 52</ClientArea></Blob>"
        '
        'Splitter1
        '
        Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Splitter1.Location = New System.Drawing.Point(0, 128)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(864, 8)
        Me.Splitter1.TabIndex = 44
        Me.Splitter1.TabStop = False
        '
        'pnlRepoert_Reportbeschreibung
        '
        Me.pnlRepoert_Reportbeschreibung.Controls.AddRange(New System.Windows.Forms.Control() {Me.gbxReportBeschreibung, Me.Splitter4, Me.gbxReport})
        Me.pnlRepoert_Reportbeschreibung.Dock = System.Windows.Forms.DockStyle.Top
        Me.pnlRepoert_Reportbeschreibung.Location = New System.Drawing.Point(0, 136)
        Me.pnlRepoert_Reportbeschreibung.Name = "pnlRepoert_Reportbeschreibung"
        Me.pnlRepoert_Reportbeschreibung.Size = New System.Drawing.Size(864, 152)
        Me.pnlRepoert_Reportbeschreibung.TabIndex = 45
        '
        'gbxReportBeschreibung
        '
        Me.gbxReportBeschreibung.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtReportDescription})
        Me.gbxReportBeschreibung.Location = New System.Drawing.Point(424, 16)
        Me.gbxReportBeschreibung.Name = "gbxReportBeschreibung"
        Me.gbxReportBeschreibung.Size = New System.Drawing.Size(200, 64)
        Me.gbxReportBeschreibung.TabIndex = 49
        Me.gbxReportBeschreibung.TabStop = False
        Me.gbxReportBeschreibung.Text = "Reportbeschreibung"
        '
        'txtReportDescription
        '
        Me.txtReportDescription.BackColor = System.Drawing.SystemColors.Control
        Me.txtReportDescription.Location = New System.Drawing.Point(8, 16)
        Me.txtReportDescription.Multiline = True
        Me.txtReportDescription.Name = "txtReportDescription"
        Me.txtReportDescription.ReadOnly = True
        Me.txtReportDescription.ScrollBars = System.Windows.Forms.ScrollBars.Both
        Me.txtReportDescription.Size = New System.Drawing.Size(88, 40)
        Me.txtReportDescription.TabIndex = 1
        Me.txtReportDescription.Text = ""
        '
        'Splitter4
        '
        Me.Splitter4.Location = New System.Drawing.Point(400, 0)
        Me.Splitter4.Name = "Splitter4"
        Me.Splitter4.Size = New System.Drawing.Size(8, 152)
        Me.Splitter4.TabIndex = 48
        Me.Splitter4.TabStop = False
        '
        'gbxReport
        '
        Me.gbxReport.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdReport})
        Me.gbxReport.Dock = System.Windows.Forms.DockStyle.Left
        Me.gbxReport.Name = "gbxReport"
        Me.gbxReport.Size = New System.Drawing.Size(400, 152)
        Me.gbxReport.TabIndex = 47
        Me.gbxReport.TabStop = False
        Me.gbxReport.Text = "Report"
        '
        'grdReport
        '
        Me.grdReport.AllowFilter = True
        Me.grdReport.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.grdReport.AllowSort = True
        Me.grdReport.AllowUpdate = False
        Me.grdReport.AlternatingRows = True
        Me.grdReport.CaptionHeight = 17
        Me.grdReport.CollapseColor = System.Drawing.Color.Black
        Me.grdReport.DataChanged = False
        Me.grdReport.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.grdReport.ExpandColor = System.Drawing.Color.Black
        Me.grdReport.GroupByCaption = "Drag a column header here to group by that column"
        Me.grdReport.Images.Add(CType(resources.GetObject("resource.Images1"), System.Drawing.Bitmap))
        Me.grdReport.Location = New System.Drawing.Point(16, 16)
        Me.grdReport.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.grdReport.Name = "grdReport"
        Me.grdReport.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.grdReport.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.grdReport.PreviewInfo.ZoomFactor = 75
        Me.grdReport.PrintInfo.ShowOptionsDialog = False
        Me.grdReport.RecordSelectorWidth = 16
        GridLines2.Color = System.Drawing.Color.DarkGray
        GridLines2.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.grdReport.RowDivider = GridLines2
        Me.grdReport.RowHeight = 15
        Me.grdReport.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.grdReport.ScrollTips = False
        Me.grdReport.Size = New System.Drawing.Size(120, 56)
        Me.grdReport.TabIndex = 0
        Me.grdReport.Text = "C1TrueDBGrid1"
        Me.grdReport.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:224, 224, 224;}" & _
        "Selected{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor" & _
        ":InactiveCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{Align" & _
        "Horz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}S" & _
        "tyle1{}OddRow{BackColor:White;}RecordSelector{AlignImage:Center;}Heading{Wrap:Tr" & _
        "ue;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;AlignVert:C" & _
        "enter;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style13{}Style9{}</Data" & _
        "></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" AlternatingRowStyle=""Tr" & _
        "ue"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHeight=""17"" MarqueeS" & _
        "tyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSelWidth=""16"" VerticalScr" & _
        "ollGroup=""1"" HorizontalScrollGroup=""1""><ClientRect>0, 0, 116, 52</ClientRect><Bo" & _
        "rderSide>0</BorderSide><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle" & _
        " parent=""Editor"" me=""Style5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><Fil" & _
        "terBarStyle parent=""FilterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""S" & _
        "tyle3"" /><GroupStyle parent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading" & _
        """ me=""Style2"" /><HighLightRowStyle parent=""HighlightRow"" me=""Style7"" /><Inactive" & _
        "Style parent=""Inactive"" me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /" & _
        "><RecordSelectorStyle parent=""RecordSelector"" me=""Style11"" /><SelectedStyle pare" & _
        "nt=""Selected"" me=""Style6"" /><Style parent=""Normal"" me=""Style1"" /></C1.Win.C1True" & _
        "DBGrid.MergeView></Splits><NamedStyles><Style parent="""" me=""Normal"" /><Style par" & _
        "ent=""Normal"" me=""Heading"" /><Style parent=""Heading"" me=""Footer"" /><Style parent=" & _
        """Heading"" me=""Caption"" /><Style parent=""Heading"" me=""Inactive"" /><Style parent=""" & _
        "Normal"" me=""Selected"" /><Style parent=""Normal"" me=""Editor"" /><Style parent=""Norm" & _
        "al"" me=""HighlightRow"" /><Style parent=""Normal"" me=""EvenRow"" /><Style parent=""Nor" & _
        "mal"" me=""OddRow"" /><Style parent=""Heading"" me=""RecordSelector"" /><Style parent=""" & _
        "Normal"" me=""FilterBar"" /><Style parent=""Caption"" me=""Group"" /></NamedStyles><ver" & _
        "tSplits>1</vertSplits><horzSplits>1</horzSplits><Layout>None</Layout><DefaultRec" & _
        "SelWidth>16</DefaultRecSelWidth><ClientArea>0, 0, 116, 52</ClientArea></Blob>"
        '
        'Splitter2
        '
        Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Splitter2.Location = New System.Drawing.Point(0, 288)
        Me.Splitter2.Name = "Splitter2"
        Me.Splitter2.Size = New System.Drawing.Size(864, 8)
        Me.Splitter2.TabIndex = 46
        Me.Splitter2.TabStop = False
        '
        'pnlParameter
        '
        Me.pnlParameter.Controls.AddRange(New System.Windows.Forms.Control() {Me.grxParameter})
        Me.pnlParameter.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlParameter.Location = New System.Drawing.Point(0, 296)
        Me.pnlParameter.Name = "pnlParameter"
        Me.pnlParameter.Size = New System.Drawing.Size(864, 393)
        Me.pnlParameter.TabIndex = 47
        '
        'grxParameter
        '
        Me.grxParameter.BackColor = System.Drawing.SystemColors.Control
        Me.grxParameter.Controls.AddRange(New System.Windows.Forms.Control() {Me.grdParameter})
        Me.grxParameter.Location = New System.Drawing.Point(40, 48)
        Me.grxParameter.Name = "grxParameter"
        Me.grxParameter.Size = New System.Drawing.Size(120, 96)
        Me.grxParameter.TabIndex = 45
        Me.grxParameter.TabStop = False
        Me.grxParameter.Text = "Parameter"
        '
        'grdParameter
        '
        Me.grdParameter.AllowFilter = True
        Me.grdParameter.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
        Me.grdParameter.AllowSort = True
        Me.grdParameter.AllowUpdate = False
        Me.grdParameter.AlternatingRows = True
        Me.grdParameter.CaptionHeight = 17
        Me.grdParameter.CollapseColor = System.Drawing.Color.Black
        Me.grdParameter.DataChanged = False
        Me.grdParameter.DeadAreaBackColor = System.Drawing.Color.Empty
        Me.grdParameter.ExpandColor = System.Drawing.Color.Black
        Me.grdParameter.FetchRowStyles = True
        Me.grdParameter.GroupByCaption = "Drag a column header here to group by that column"
        Me.grdParameter.Images.Add(CType(resources.GetObject("resource.Images2"), System.Drawing.Bitmap))
        Me.grdParameter.Location = New System.Drawing.Point(8, 16)
        Me.grdParameter.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
        Me.grdParameter.Name = "grdParameter"
        Me.grdParameter.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.grdParameter.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.grdParameter.PreviewInfo.ZoomFactor = 75
        Me.grdParameter.PrintInfo.ShowOptionsDialog = False
        Me.grdParameter.RecordSelectorWidth = 16
        GridLines3.Color = System.Drawing.Color.DarkGray
        GridLines3.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
        Me.grdParameter.RowDivider = GridLines3
        Me.grdParameter.RowHeight = 15
        Me.grdParameter.RowSubDividerColor = System.Drawing.Color.DarkGray
        Me.grdParameter.ScrollTips = False
        Me.grdParameter.Size = New System.Drawing.Size(96, 48)
        Me.grdParameter.TabIndex = 3
        Me.grdParameter.Text = "C1TrueDBGrid1"
        Me.grdParameter.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:224, 224, 224;}" & _
        "Selected{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor" & _
        ":InactiveCaptionText;BackColor:InactiveCaption;}FilterBar{}Footer{}Caption{Align" & _
        "Horz:Center;}Normal{BackColor:Control;}HighlightRow{ForeColor:HighlightText;Back" & _
        "Color:Highlight;}Style1{}OddRow{BackColor:White;}RecordSelector{AlignImage:Cente" & _
        "r;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor:Contr" & _
        "olText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{}Style" & _
        "13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" Alter" & _
        "natingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFooterHe" & _
        "ight=""17"" FetchRowStyles=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWi" & _
        "dth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><" & _
        "ClientRect>0, 0, 92, 44</ClientRect><BorderSide>0</BorderSide><CaptionStyle pare" & _
        "nt=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRowSt" & _
        "yle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Style1" & _
        "3"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me=""S" & _
        "tyle12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle parent" & _
        "=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" /><Od" & _
        "dRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSelec" & _
        "tor"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style parent" & _
        "=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles><S" & _
        "tyle parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style parent" & _
        "=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent=""H" & _
        "eading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=""No" & _
        "rmal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=""No" & _
        "rmal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Heading" & _
        """ me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent=""C" & _
        "aption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</horz" & _
        "Splits><Layout>None</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><ClientAr" & _
        "ea>0, 0, 92, 44</ClientArea></Blob>"
        '
        'frmReportSelection
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(864, 697)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlParameter, Me.Splitter2, Me.pnlRepoert_Reportbeschreibung, Me.Splitter1, Me.pnlReportgruppe, Me.pnlBottom, Me.pnlTop, Me.ToolBar1})
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Menu = Me.MainMenu1
        Me.Name = "frmReportSelection"
        Me.ShowInTaskbar = False
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "frmReportSelection"
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dsReport, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.dsParameter, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlReportgruppe.ResumeLayout(False)
        Me.gbxReportgruppen.ResumeLayout(False)
        CType(Me.grdReportgruppen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlRepoert_Reportbeschreibung.ResumeLayout(False)
        Me.gbxReportBeschreibung.ResumeLayout(False)
        Me.gbxReport.ResumeLayout(False)
        CType(Me.grdReport, System.ComponentModel.ISupportInitialize).EndInit()
        Me.pnlParameter.ResumeLayout(False)
        Me.grxParameter.ResumeLayout(False)
        CType(Me.grdParameter, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region " Formularfunktionen "
    Private Sub frmReportSelection_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Me.Cursor = Cursors.WaitCursor
            grdReportgruppen.Dock = DockStyle.Fill

            grdReport.Dock = DockStyle.Fill

            gbxReportBeschreibung.Dock = DockStyle.Fill
            txtReportDescription.Dock = DockStyle.Fill

            grxParameter.Dock = DockStyle.Fill
            grdParameter.Dock = DockStyle.Fill


            'Me.grdReportgruppen.Dock = DockStyle.Fill
            'Me.grdReport.Dock = DockStyle.Fill
            'Me.grdParameter.Dock = DockStyle.Fill
            'Me.txtReportDescription.Dock = DockStyle.Fill

            Me.SqlConnection1.ConnectionString = Globals.sConnectionString
            Me.SqlConnection1.Open()

            ' Nur für den aktuell gewählten Mandanten die Daten auslesen
            Me.SqlDataAdapter1.SelectCommand.Parameters.Clear()
            Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@MitarbeiterNr", Globals.MitarbeiterNr)
            Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mandantNr", Globals.MandantNr)
            '============ Datenanbindung Reportgruppen
            SqlDataAdapter1.Fill(Me.DataSet1, "Mitarbeiter_ReportGruppe")
            Me.TableName = Me.DataSet1.Tables(0).TableName
            Me.grdReportgruppen.DataMember = Me.TableName
            Me.grdReportgruppen.DataSource = Me.DataSet1
            If Me.grdReportgruppen.Splits(0).Rows.Count > 0 Then
                Me.m_iReportgruppeNr = Me.grdReportgruppen.Columns("reportgruppeNr").Value
            Else
                Me.m_iReportgruppeNr = 0
            End If
            SpaltenTitel_Aktualisieren(Me.DataSet1, Me.grdReportgruppen)

            '============ Datenanbindung Reportgruppen
            FillReport()        'Füllen der Reportliste anhand der reportgruppeNr
            Me.TableName = Me.dsReport.Tables(0).TableName
            Me.grdReport.DataMember = Me.TableName
            Me.grdReport.DataSource = Me.dsReport
            SpaltenTitel_Aktualisieren(Me.dsReport, Me.grdReport)


            '============ Datenanbindung Parameter
            FillParameter()        'Füllen der Reportliste anhand der reportgruppeNr
            Me.TableName = Me.dsParameter.Tables(0).TableName
            Me.grdParameter.DataMember = Me.TableName
            Me.grdParameter.DataSource = Me.dsParameter
            SpaltenTitel_Aktualisieren(Me.dsParameter, Me.grdParameter)
            Me.grdParameter.Splits(0).DisplayColumns("ParameterDisplayValue").Button = True
            Me.grdParameter.Splits(0).DisplayColumns("ParameterDisplayValue").FetchStyle = True

            'grdParameter.Splits(0).DisplayColumns(0).Button = True

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Try
            Globals.WinPos.Get_Position(Me)
        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
        End Try

        Me.Cursor = Cursors.Default
    End Sub

    Private Sub frmReportSelection_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Try
            Globals.WinPos.Set_Position(Me)
        Catch
        End Try

    End Sub

    Private Sub frmReportSelection_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Dim iHight As Integer

        iHight = Me.ClientSize.Height - (ToolBar1.Height + pnlTop.Height + Splitter1.Height + Splitter2.Height + pnlBottom.Height)
        'iHight = Me.Height - Me.ToolBar1.Height - Me.Splitter2.Height - Me.Splitter4.Height - Me.Panel1.Height - Me.Panel3.Height
        pnlReportgruppe.Height = iHight / 3
        pnlRepoert_Reportbeschreibung.Height = iHight / 3

        Me.gbxReportgruppen.Width = pnlTop.Width / 2
        Me.gbxReport.Width = pnlTop.Width / 2
    End Sub



#End Region

#Region " Datenfunktionen "

    Private Function ValidateParameterfields() As Boolean
        '===============================================================================
        'Desc       : Prüfene der Parameter auf Zwingende Felder und Formate
        'Input      : 
        'Output     : 
        'Erstellt   : koe 20.10.2003
        'Geaendert  : 
        '===============================================================================
        Dim lcnt As Long
        ValidateParameterfields = True
        For lcnt = 0 To grdParameter.Splits(0).Rows.Count - 1
            'Validierung auf zwingend
            'If Me.grdParameter.Columns("eingabe_zwingend").Value <> 0 Then
            If Me.grdParameter.Columns("eingabe_zwingend").CellText(lcnt) = True Then
                If Me.grdParameter.Columns("ParameterNavigationValue").CellText(lcnt) = "" Then
                    MessageBox.Show("Der Parameterwert " & Me.grdParameter.Columns("Parameter").CellText(lcnt) & " verlangt eine Eingabe?", "Auswertung", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                    ValidateParameterfields = False
                    Exit For
                End If
            End If
        Next


    End Function

    Private Sub FillReport()
        '===============================================================================
        'Desc       : Füllen des Grid Report Kriterium ist ReportgruppenNr ab Property
        'Input      : 
        'Output     : 
        'Erstellt   : koe 20.10.2003
        'Geaendert  : 
        '===============================================================================
        Me.daReport.SelectCommand.Parameters.Clear()
        Me.daReport.SelectCommand.Parameters.Add("@reportgruppeNr", Me.m_iReportgruppeNr)
        Me.dsReport.Clear()
        Me.daReport.Fill(Me.dsReport, "ReportsForGroup")
        If grdReport.Bookmark < 0 Then
            Me.m_iReportNr = 0
            Me.txtReportDescription.Text = ""

        Else
            'Me.m_iReportNr = dsReport.Tables(0).Rows(grdReport.Bookmark).Item("reportNr")
            Me.m_iReportNr = grdReport.Columns("reportNr").Value
            Me.txtReportDescription.Text = grdReport.Columns("beschreibung").CellValue(grdReport.Row)

        End If
        FillParameter()
    End Sub

    Private Sub FillParameter()
        '===============================================================================
        'Desc       : Füllen des Grid Parameter Kriterium ist die ReportNr ab Property
        'Input      : 
        'Output     : 
        'Erstellt   : koe 20.10.2003
        'Geaendert  : 
        '===============================================================================
        Me.daParameter.SelectCommand.Parameters.Clear()
        Me.daParameter.SelectCommand.Parameters.Add("@reportNr", Me.m_iReportNr)
        Me.dsParameter.Clear()
        Me.daParameter.Fill(Me.dsParameter, "ParametersForReport")


    End Sub

#End Region

#Region " Kontrol Funktionen "

    Private Sub CreateDatasourceDokumentauswertung(ByVal ProfilNr As Integer)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.[SP_DokAuswertung_GetData]"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure

        scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ProfilNr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
        scmCmdToExecute.Connection = Me.SqlConnection1
        'scmCmdToExecute.Connection.Open()
        scmCmdToExecute.CommandTimeout = 120
        scmCmdToExecute.ExecuteNonQuery()
        scmCmdToExecute.CommandTimeout = 30


        scmCmdToExecute.Parameters.Clear()
        scmCmdToExecute.CommandText = "dbo.[sp_DokAuswertung_Getdata_Hierarchie]"

        scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Sprache))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@imandant", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@ProfilNr", SqlDbType.NVarChar, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, CStr(ProfilNr)))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@bCreateTabel", SqlDbType.Bit, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
        scmCmdToExecute.ExecuteNonQuery()


    End Sub

    Private Sub grdReport_RowColChange(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdReport.RowColChange
        If Me.grdReport.Splits(0).Rows.Count > 0 Then
            Me.m_iReportNr = Me.grdReport.Columns("reportNr").Value
        Else
            Me.m_iReportNr = 0
        End If
        FillParameter()        'Füllen der Parameterliste anhand der reportNr
        Me.txtReportDescription.Text = grdReport.Columns("beschreibung").CellValue(grdReport.Row)

    End Sub

    Private Sub grdReport_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles grdReport.MouseDown
        If Me.grdReport.Splits(0).Rows.Count > 0 Then
            Me.m_iReportNr = Me.grdReport.Columns("reportNr").Value
        Else
            Me.m_iReportNr = 0
        End If
        FillParameter()        'Füllen der Parameterliste anhand der reportNr
        Me.txtReportDescription.Text = grdReport.Columns("beschreibung").CellValue(grdReport.Row)

    End Sub

    Private Sub grdParameter_BeforeColUpdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles grdParameter.BeforeColUpdate
        Dim aParametervalue() As String
        Select Case Me.grdParameter.Columns("feldtypNr").CellText(grdParameter.Bookmark)
            Case 2, 3   '2 = Ganzzahl, 3 = Dezimalzahl 2"
                If Not Me.grdParameter.Columns("ParameterNavigationValue") Is System.DBNull.Value And Me.grdParameter.Columns("ParameterNavigationValue").Value <> "" Then
                    If Not IsNumeric(Me.grdParameter.Columns("ParameterNavigationValue").Value) Then
                        MyMsg.show_standardmessage_ReplaceText(212, MsgBoxStyle.Exclamation, Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark), Me.grdParameter.Columns("Format").CellText(grdParameter.Bookmark))  'Ihre Eingabe im Parameterwert #1 entspricht nicht der Vormatvorlage! Format = #2
                        e.Cancel = True
                    End If
                End If
            Case 4      'Boolean
                If Not Me.grdParameter.Columns("ParameterNavigationValue") Is System.DBNull.Value And Me.grdParameter.Columns("ParameterNavigationValue").Value <> "" Then
                    If Not IsNumeric(Me.grdParameter.Columns("ParameterNavigationValue").Value) Then
                        MyMsg.show_standardmessage_ReplaceText(212, MsgBoxStyle.Exclamation, Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark), Me.grdParameter.Columns("Format").CellText(grdParameter.Bookmark))  'Ihre Eingabe im Parameterwert #1 entspricht nicht der Vormatvorlage! Format = #2
                        e.Cancel = True

                    End If
                End If
            Case 5      'Datum
                If Not Me.grdParameter.Columns("ParameterNavigationValue") Is System.DBNull.Value And Me.grdParameter.Columns("ParameterNavigationValue").Value <> "" Then
                    If Not IsDate(Me.grdParameter.Columns("ParameterNavigationValue").Value) Then
                        MyMsg.show_standardmessage_ReplaceText(212, MsgBoxStyle.Exclamation, Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark), Me.grdParameter.Columns("Format").CellText(grdParameter.Bookmark))  'Ihre Eingabe im Parameterwert #1 entspricht nicht der Vormatvorlage! Format = #2
                        e.Cancel = True
                    End If
                End If

            Case 6      'Datumbereich
                If Not Me.grdParameter.Columns("ParameterNavigationValue") Is System.DBNull.Value And Me.grdParameter.Columns("ParameterNavigationValue").Value <> "" Then
                    aParametervalue = Split(Me.grdParameter.Columns("ParameterNavigationValue").Value, " ")
                    If UBound(aParametervalue) = 3 Then
                        If Not IsDate(aParametervalue(1)) Then
                            MyMsg.show_standardmessage_ReplaceText(213, MsgBoxStyle.Exclamation, Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark), Me.grdParameter.Columns("Format").CellText(grdParameter.Bookmark))  'Der ertste Datumswert  #1 entspricht nicht einem Datumformat! Format = DD.MM.JJJJ
                            e.Cancel = True
                        End If

                        If Not IsDate(aParametervalue(3)) Then
                            MyMsg.show_standardmessage_ReplaceText(214, MsgBoxStyle.Exclamation, Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark), Me.grdParameter.Columns("Format").CellText(grdParameter.Bookmark))  'Der zweite Datumswert  #1 entspricht nicht einem Datumformat!Format = DD.MM.JJJJ
                            MessageBox.Show("Der zweite Datumswert  " & aParametervalue(3) & " entspricht nicht einem Datumformat! " & vbLf & vbLf & "Format = DD.MM.JJJJ", "Auswertung", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                            e.Cancel = True
                        End If

                        If UCase(aParametervalue(0)) <> "BETWEEN" Then
                            MessageBox.Show("Das erste Wort muss BETWEEN heissen! " & vbLf & vbLf & "Eingabeformat = BETWEEN [Datum] AND [DATUM]", "Auswertung", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                            e.Cancel = True
                        End If

                        If UCase(aParametervalue(2)) <> "AND" Then
                            MessageBox.Show("Das Wort zwischen den Datum muss AND sein! " & vbLf & vbLf & "Eingabeformat = BETWEEN [Datum] AND [DATUM]", "Auswertung", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                            e.Cancel = True
                        End If
                    Else
                        MessageBox.Show("Falsche Parameteranzahl in " & Me.grdParameter.Columns("Parameter").CellText(grdParameter.Bookmark) & "!" & vbLf & vbLf & "Eingabeformat = BETWEEN [Datum] AND [DATUM]", "Auswertung", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                        e.Cancel = True

                    End If
                End If


        End Select

    End Sub

    Private Sub grdParameter_FetchCellStyle(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles grdParameter.FetchCellStyle
        If Me.grdParameter.Columns("eingabe_zwingend").CellValue(e.Row) = True Then
            e.CellStyle.BackColor = System.Drawing.Color.Pink
        End If
        If Me.grdParameter.Columns("SteuerbefehlNr").CellValue(e.Row) = 14 Then     'JaNeinFeld
            'Me.grdParameter.Columns("SteuerbefehlNr").CellValue(e.Row) 
            'e.CellStyle.
            'grdParameter.Columns("ParameterDisplayValue").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            'e.CellStyle.d = System.Drawing.Color.Pink
        End If
    End Sub

    Private Sub grdParameter_BeforeColEdit(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColEditEventArgs) Handles grdParameter.BeforeColEdit
        Select Case Me.grdParameter.Columns("Datenherkunft").Text
            'Case "&Funktionsgruppe&", "&Mitarbeiter&", "&Rollen&", "&Dokumenttyp&"
        Case Else
                MessageBox.Show("Diese Spalte kann nicht editiert werden!" & vbLf & "Wählen Sie einen Wert aus der Liste aus, indem sie die Schaltfläche im Feld betätigen.", "Gesperrtes Feld", MessageBoxButtons.OK, MessageBoxIcon.Information)
                MyMsg.show_standardmessage(215, MsgBoxStyle.Exclamation)  'Der ertste Datumswert  #1 entspricht nicht einem Datumformat! Format = DD.MM.JJJJ

                e.Cancel = True
        End Select

    End Sub

    Private Sub grdParameter_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles grdParameter.DoubleClick
        OpenParameterDialog()
    End Sub

    Private Sub grdParameter_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles grdParameter.KeyDown
        If e.KeyCode = Keys.Delete Then
            grdParameter.Columns("ParameterDisplayValue").Text = ""
            grdParameter.Columns("ParameterNavigationValue").Text = ""

        End If
    End Sub

    Private Sub grdParameter_ButtonClick(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles grdParameter.ButtonClick
        OpenParameterDialog()
    End Sub

    Private Sub grdReportgruppen_RowColChange(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles grdReportgruppen.RowColChange

        'If Me.grdReport.Splits(0).Rows.Count > 0 Then
        Me.m_iReportgruppeNr = Me.grdReportgruppen.Columns("reportgruppeNr").Value
        'Else
        '    Me.m_iReportgruppeNr = 0
        'End If
        FillReport()        'Füllen der Reportliste anhand der reportgruppeNr

        If Me.grdReport.Splits(0).Rows.Count = 1 Then
            Me.m_iReportNr = Me.grdReport.Columns("reportNr").Value
            FillParameter()        'Füllen der Parameterliste anhand der reportNr
            Me.txtReportDescription.Text = grdReport.Columns("beschreibung").CellValue(grdReport.Row)
        End If

    End Sub


#End Region

#Region " Extra Funktionen "

    Private Sub OpenParameterDialog()
        '*********************************************************************************************************************
        'Description:   Oeffnet die Parametersialoge
        'Input:
        'Criteria:
        'Output:
        'Erstellt   : koe 11.01.2004
        'Geaendert:
        '*********************************************************************************************************************
        Dim sDislpayResult As String
        Dim sNavigationResult As String
        Dim bDialogOK As Boolean = False
        Dim s_Result As String
        Dim s_datenherkunft As String
        Me.Cursor = Cursors.WaitCursor
        Select Case UCase(Me.grdParameter.Columns("SteuerbefehlNr").Value)
            Case 1              'STANDART
            Case 2              'PARTNERSUCHE

                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Partner"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                Me.SuspendLayout()

                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
                Me.ResumeLayout()


            Case 3          'Kalender
                Dim f As New frmCalendar()
                f.ShowDialog()
                If f.DialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = ""
                    sNavigationResult = f.MonthCalendar1.SelectionStart
                    sDislpayResult = sNavigationResult
                End If
                f.Dispose()

            Case 4          'Datumbereich
                Dim f As New frmDatumSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()

            Case 5          'Dokumenttypnummer
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Dokumenttyp"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()

            Case 6          'Rollen
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Rollen"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 7          'Funktionen
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Funktionsgruppen"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 8          'Mitarbeiter
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Mitarbeiter"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If

                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 9          'Dokumentauswertung (Profil)
                Dim f As New frmProfilDokAuswertung()
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then

                    Me.Cursor = Cursors.WaitCursor
                    Me.Refresh()
                    Me.ResumeLayout()
                    bDialogOK = True
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                    s_datenherkunft = ""
                    Try
                        CreateDatasourceDokumentauswertung(CInt(sNavigationResult))

                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try
                    Me.SuspendLayout()
                End If
                f.Dispose()
                Me.Cursor = Cursors.Default

            Case 10          'Sortierung
                Dim f As New frmSortSelect()
                f.ReportID = Me.grdReport.Columns("reportNr").Value
                Try
                    f.ShowDialog()
                    If f.dialogResult = DialogResult.OK Then
                        bDialogOK = True
                        sNavigationResult = f.NavigationResult
                        sDislpayResult = f.DislpayResult
                        s_datenherkunft = ""
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
                f.Dispose()
            Case 11          'Team
                Dim f As New frmValueSelect()
                Me.Cursor = Cursors.WaitCursor
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Team"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 12          'Berechtigung
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Berechtigung"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If

                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 13          'Sysadminfunktion
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Sysadminfunktionen"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If

                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()
            Case 14          'Ja Nein
                Select Case Me.grdParameter.Columns("ParameterDisplayValue").Text
                    Case ""
                        Me.grdParameter.Columns("ParameterDisplayValue").Text = "Ja"
                        Me.grdParameter.Columns("ParameterNavigationValue").Text = "1"
                    Case "Ja"
                        Me.grdParameter.Columns("ParameterDisplayValue").Text = "Nein"
                        Me.grdParameter.Columns("ParameterNavigationValue").Text = "0"
                    Case "Nein"
                        Me.grdParameter.Columns("ParameterDisplayValue").Text = ""
                        Me.grdParameter.Columns("ParameterNavigationValue").Text = ""
                End Select
            Case 15          'Dokumentart
                Dim f As New frmValueSelect()
                f.datenherkunft = Me.grdParameter.Columns("datenherkunft").Text
                f.StartPosition = FormStartPosition.CenterParent
                f.SelectionType = frmValueSelect.Enum_SelelectType.ValueSelect
                f.Text = "Dokumentart"
                If Me.grdParameter.Columns("ParameterNavigationValue").Text = "" Then
                    f.NavigationResult = ""
                    f.DislpayResult = ""
                Else
                    f.NavigationResult = CType(Me.grdParameter.Columns("ParameterNavigationValue").Text, String)
                    f.DislpayResult = CType(Me.grdParameter.Columns("ParameterDisplayValue").Text, String)
                End If
                f.ShowDialog()
                If f.dialogResult = DialogResult.OK Then
                    bDialogOK = True
                    s_datenherkunft = f.datenherkunft
                    sNavigationResult = f.NavigationResult
                    sDislpayResult = f.DislpayResult
                End If
                f.Dispose()

            Case Else
                MessageBox.Show(MyTxt.gettext(18), "Falsche Steuerbefehl Nr.", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End Select
        '===============================================================================
        'Spalten im Grid aktualisieren
        '===============================================================================
        Me.Cursor = Cursors.Default
        If bDialogOK = True Then
            Me.grdParameter.Columns("ParameterNavigationValue").Text = sNavigationResult
            Me.grdParameter.Columns("ParameterDisplayValue").Text = sDislpayResult
            Me.grdParameter.Columns("datenherkunft").Text = s_datenherkunft
        End If
        Me.ActiveControl = Me.ToolBar1
        Me.ActiveControl = Me.grdParameter

    End Sub


    Private Sub ClearParameterFields()
        '===============================================================================
        'Desc  :    Setzt alle Parameterwerte auf Null 
        'Input :    Datatabel der Persönlichen Parameterwerte
        'Output: 
        'Erstellt  : koe 20.10.2003
        'Geaendert : 
        '===============================================================================
        'Me.dsParameter.Tables(0)
        Dim RowParameter As DataRow
        For Each RowParameter In Me.dsParameter.Tables(0).Rows
            RowParameter.Item("ParameterNavigationValue") = ""
            RowParameter.Item("ParameterDisplayValue") = ""
        Next RowParameter
    End Sub

    Private Sub loadParameterList()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "sp_ParameterSetListe_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        scmCmdToExecute.Parameters.Clear()
        scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.ParameterSetNameID))
        sdaAdapter.Fill(dtToReturn)
        FillParameterRows(dtToReturn)

    End Sub

    Public Sub SpaltenTitel_Aktualisieren(ByVal ds As DataSet, ByRef grd As C1.Win.C1TrueDBGrid.C1TrueDBGrid)

        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim cols(grd.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String

        Dim DisplayColumnsCount As Integer
        Dim aSpalten(0, 0) As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim Reihe As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim iMaxSortOrderValue As Integer = 0
        Dim dsMaxSortOrder As New DataSet()
        Dim bSetNewSortOrder As Boolean = True
        Dim iSpaltenOffset As Integer = 0 'Offset wenn Nothing in Array

        '============ Bestimmt Anzahl Displaycolumn und MaxValue Sortorder
        'Dim ssql As String
        'ssql = "SELECT MAX(Reihenfolge) AS MaxSortOrder FROM spalten WHERE tabelle = '" & Me.TableName & "'"
        Dim daMaxSortOrder As New SqlDataAdapter("SELECT MAX(Reihenfolge) AS MaxSortOrder FROM spalten WHERE tabelle = '" & Me.TableName & "'", Globals.sConnectionString)
        daMaxSortOrder.Fill(dsMaxSortOrder)
        DisplayColumnsCount = grd.Splits(0).DisplayColumns.Count - 1
        iMaxSortOrderValue = dsMaxSortOrder.Tables(0).Rows(0).Item(0)
        ReDim aSpalten(iMaxSortOrderValue - 1, 0)       'Array für Anzahlen definieren

        Try
            t = ds.Tables(0)
            ts.Tabelle = Me.TableName
            For i = 0 To grd.Columns.Count - 1
                s = grd.Columns(i).DataField
                ts.Feld = s
                ts.getspalte()
                grd.Columns(i).Caption = ts.spaltenname
                If ts.ColWith = 0 Then
                    grd.Splits(0).DisplayColumns(i).Width = 0
                    grd.Splits(0).DisplayColumns(i).Visible = False
                Else
                    grd.Splits(0).DisplayColumns(i).Width = ts.ColWith
                End If

                'If grd.Columns(i).Caption = "" Then
                '    'grd.Splits(0).DisplayColumns(i).Visible = False
                '    grd.Splits(0).DisplayColumns(i).Width = 0
                '    'grd.Columns(i).Caption = grd.Columns(i).DataField
                'Else
                '    grd.Splits(0).DisplayColumns(i).Width = ts.ColWith
                'End If
                If ts.locked Then
                    grd.Splits(0).DisplayColumns(i).Locked = True
                End If

                If ts.AlsHacken Then
                    grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                End If

                'Präsentation von aktiv
                If grd.Columns(i).DataField = "aktiv" Then
                    grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                    grd.Columns(i).ValueItems.DefaultItem = True
                    grd.Columns(i).DefaultValue = True
                    grd.Columns(i).FilterText = True
                End If
                If grd.Columns(i).DataField = "erstellt_am" Then
                    grd.Columns(i).DefaultValue = Now
                End If


                '============ Aktuelle Spalte in ArraySpalten schreiben
                '============ Sortorder darf nicht 0 sein
                If iMaxSortOrderValue > 0 Then
                    If ts.Order = 0 Then
                        MessageBox.Show("Fehler Reihenfolge" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Sortierreihenfolge mit dem Wert 0 sind nicht erlaubt!" & vbCrLf & "Prüfen Sie die Reihenfolge der Tabelle " & Me.TableName & " in der Systemadministration Spalten", "Sortierreihenfolge 0", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                    Else
                        Reihe = grd.Splits(0).DisplayColumns(i)
                        If Not aSpalten(ts.Order - 1, 0) Is Nothing Then
                            '============ Arrayplatz bereits bleget
                            '                        MessageBox.Show("Doppelte Sortier-Nummer!" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Prüfen Sie die Sortierreihenfoge der Tabelle " & Me.TableName & " in der Systemadministration Spalten!", MessageBoxButtons.OK, "Sortierreihenfolge ", MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                            MessageBox.Show("Doppelte Sortier-Nummer!" & vbCrLf & "Tabelle " & Me.TableName & vbCrLf & "Spalte " & s & vbCrLf & "Sortierreihenfolge mit 2 gleichen Werten sind nicht erlaubt!" & vbCrLf & "Prüfen Sie die Reihenfolge der Tabelle " & Me.TableName & " in der Systemadministration Spalten", "Doppelte Sortier-Nummer " & ts.Order, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                            'bSetNewSortOrder = False
                        End If
                        If ts.Order > 0 And aSpalten(ts.Order - 1, 0) Is Nothing Then
                            '============ Aktuelle Spalte in ArraySpalten schreiben
                            aSpalten(ts.Order - 1, 0) = Reihe
                        End If
                    End If
                End If
            Next

            If iMaxSortOrderValue > 0 And bSetNewSortOrder = True Then
                '===============================================================================
                'Wenn in der Sortierreihenfoge keine 0 steht werden die Spalten neu Sortiert
                '===============================================================================
                Try
                    '============ Spalten löschen
                    For i = 0 To DisplayColumnsCount
                        grd.Splits(0).DisplayColumns.RemoveAt(0)
                    Next
                Catch
                End Try
                '============ Spalten nachh Sortorder einfügen
                For i = 0 To iMaxSortOrderValue - 1
                    Try
                        If Not aSpalten(i, 0) Is Nothing Then
                            If aSpalten(i, 0).Width > 0 Then
                                grd.Splits(0).DisplayColumns.Insert(i - iSpaltenOffset, aSpalten(i, 0))
                            Else
                                iSpaltenOffset += 1
                            End If
                        Else
                            iSpaltenOffset += 1
                        End If
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try

                Next
            End If
            dsMaxSortOrder = Nothing
            daMaxSortOrder = Nothing

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Public Sub SpaltenTitel_AktualisierenHUT(ByVal ds As DataSet, ByRef grd As C1.Win.C1TrueDBGrid.C1TrueDBGrid)
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim anzcols As Integer
        Dim cols(grd.Splits(0).DisplayColumns.Count) As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String
        anzcols = grd.Splits(0).DisplayColumns.Count
        t = ds.Tables(0)
        ts.Tabelle = TableName
        For i = 0 To grd.Columns.Count - 1
            s = grd.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            grd.Columns(i).Caption = ts.spaltenname
            'If grd.Columns(i).Caption = "" Then
            If ts.ColWith = 0 Then
                grd.Splits(0).DisplayColumns(i).Width = 0
                grd.Splits(0).DisplayColumns(i).Visible = False
            Else
                grd.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            '            If grd.Columns(i).Caption = "" Then grd.Splits(0).DisplayColumns(i).Width = 0
            If ts.locked Then
                grd.Splits(0).DisplayColumns(i).Locked = True
            End If

            If ts.AlsHacken Then
                grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If

            'Präsentation von aktiv
            If grd.Columns(i).DataField = "aktiv" Then
                grd.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                grd.Columns(i).ValueItems.DefaultItem = True
                grd.Columns(i).DefaultValue = True
                grd.Columns(i).FilterText = True
            End If
            If grd.Columns(i).DataField = "erstellt_am" Then
                grd.Columns(i).DefaultValue = Now
            End If
            'grd.Splits(0).DisplayColumns.Insert(ts.Order, grd.Splits(0).DisplayColumns(i))
            'grd.Splits(0).DisplayColumns.RemoveAt(i)
            '            cols(ts.Order) = grd.Splits(0).DisplayColumns(i)
        Next
        '       For i = 0 To grd.Splits(0).DisplayColumns.Count - 1
        '          grd.Splits(0).DisplayColumns.RemoveAt(0)
        '     Next
        '    For i = anzcols To 0 Step -1
        '       grd.Splits(0).DisplayColumns.Insert(0, cols(i))
        '  Next
        ' cols = Nothing
        '
        'Form_As_SelectForm()
    End Sub

    Private Function FillParameterCollection() As Collection
        '===============================================================================
        'Desc       : Abfüllern der Parametercollection
        'Output	    : collection
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim colParameter As New Microsoft.VisualBasic.Collection()
        'Dim x As Microsoft.VisualBasic.Collection
        Dim iCnt As Integer
        Dim sParameterKey As String
        Dim sParameterValue As String
        Dim sFilterDisplayValue As String
        Try
            For iCnt = 0 To grdParameter.Splits(0).Rows.Count - 1
                '*********************************************************************************************************************
                'parameter
                '*********************************************************************************************************************
                sParameterKey = "@" & UCase(grdParameter.Columns("Parametername").CellText(iCnt))
                sParameterValue = grdParameter.Columns("ParameterNavigationValue").CellText(iCnt)
                Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
                colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
                '*********************************************************************************************************************
                'Filter
                '*********************************************************************************************************************
                sParameterKey = "@FILTER" & UCase(grdParameter.Columns("Parametername").CellText(iCnt))

                If grdParameter.Columns("ParameterDisplayValue").CellText(iCnt) = "" Then
                    sParameterValue = grdParameter.Columns("Parameter").CellText(iCnt) & " = Keine " & grdParameter.Columns("ParameterDisplayValue").CellText(iCnt)
                Else
                    sParameterValue = grdParameter.Columns("Parameter").CellText(iCnt) & " = " & grdParameter.Columns("ParameterDisplayValue").CellText(iCnt)
                End If
                '*********************************************************************************************************************
                'String auf 254 länge schneiden Grund Crystal report
                '*********************************************************************************************************************

                'Debug.Write(Len(sParameterValue))
                sParameterValue = Microsoft.VisualBasic.Left(sParameterValue, 254)
                Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
                colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)

                Select Case sParameterKey
                    Case "@SORTIERUNG"
                        sParameterKey = "@SORTIERUNG_DISPLAY"
                        Debug.Write(sParameterKey & vbCrLf)
                        sParameterValue = grdParameter.Columns("ParameterDisplayValue").CellText(iCnt)
                        sParameterValue = Microsoft.VisualBasic.Left(sParameterValue, 254)
                        colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)
                End Select
            Next
            '*********************************************************************************************************************
            'Parameter welche im Report sein müssen
            '*********************************************************************************************************************
            sParameterKey = "@MANr"
            Debug.Write(sParameterKey & vbCrLf)
            sParameterValue = Globals.MitarbeiterNr
            Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
            colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)

            sParameterKey = "@ReportTitel"
            Debug.Write(sParameterKey & vbCrLf)
            sParameterValue = grdReport.Columns("report").Text
            Debug.Write(sParameterKey & vbTab & sParameterValue & vbCrLf)
            colParameter.Add(Item:=sParameterValue, Key:=sParameterKey)

            FillParameterCollection = colParameter
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Function


    Private Sub FillParameterRows(ByVal thisTable As DataTable)
        '===============================================================================
        'Desc  :    Abfüllen der Persönlichen Parameterwerte für den gewählten Report 
        'Input :    Datatabel der Persönlichen Parameterwerte
        'Output: 
        'Erstellt  : koe 20.10.2003
        'Geaendert : 
        '===============================================================================
        Dim RowParameter As DataRow
        Dim iReportReportfeldregelNr As Integer
        Dim RowParameterList As DataRow
        Dim sParameterwert As String
        For Each RowParameterList In thisTable.Rows
            iReportReportfeldregelNr = RowParameterList.Item("ReportReportfeldregelNr")

            For Each RowParameter In Me.dsParameter.Tables(0).Rows
                If RowParameter.Item("ReportReportfeldregelNr") = iReportReportfeldregelNr Then
                    RowParameter.Item("datenherkunft") = RowParameterList.Item("datenherkunft")
                    RowParameter.Item("ParameterDisplayValue") = RowParameterList.Item("ParameterDisplayValue")
                    If PharseDatenherkunft(RowParameterList.Item("datenherkunft"), sParameterwert) = True Then
                        'Parameter verwendet dynamische Datum 
                        RowParameter.Item("ParameterNavigationValue") = sParameterwert
                    Else
                        RowParameter.Item("ParameterNavigationValue") = RowParameterList.Item("ParameterNavigationValue")
                    End If
                    Select Case RowParameterList.Item("datenherkunft")
                        Case "&Dokumentauswertung&"
                            CreateDatasourceDokumentauswertung(CInt(sParameterwert))
                    End Select
                    Exit For
                End If

            Next
        Next RowParameterList
    End Sub
    Private Function PharseDatenherkunft(ByVal Datenherkunft As String, ByRef Parameterwert As String) As Boolean
        '===============================================================================
        'Desc       : Ermitteln von dynamischen Datum im Datumbereich
        'Input 	    : 
        'Kriterium  : 
        'Updatewert : 
        'Output	    : 
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim a_Datenherkunft() As String
        Dim StartDate As String
        Dim EndDate As String
        a_Datenherkunft = Split(Datenherkunft, ";")

        Select Case Microsoft.VisualBasic.Left(Datenherkunft, 2)
            Case "0;"           'Von_Bis
                PharseDatenherkunft = False

            Case "1;"           'Datum_Bis_Heute
                StartDate = a_Datenherkunft(1)
                EndDate = Format(Now(), "dd.MM.yyyy")
                PharseDatenherkunft = True

            Case "2;"           'Tage_Bis_Heute
                StartDate = Format(DateAdd(DateInterval.Day, -a_Datenherkunft(1), Now()), "dd.MM.yyyy")
                EndDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now), getlastDayInMonth(Now())), "dd.MM.yyyy")
                PharseDatenherkunft = True

            Case "3;"           'Aktueller_Monat
                StartDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now), 1), "dd.MM.yyyy")
                EndDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now), getlastDayInMonth(Now())), "dd.MM.yyyy")
                Parameterwert = "BETWEEN " & StartDate & " AND " & EndDate
                PharseDatenherkunft = True

            Case "4;"           'Aktueller_MonatVon_Bis
                StartDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), a_Datenherkunft(1)), "dd.MM.yyyy")
                If a_Datenherkunft(2) = "Letzter Tag" Then
                    EndDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), getlastDayInMonth(Now())), "dd.MM.yyyy")
                Else
                    EndDate = Format(DateSerial(DatePart(DateInterval.Year, Now()), DatePart(DateInterval.Month, Now()), a_Datenherkunft(3)), "dd.MM.yyyy")
                End If
                Parameterwert = "BETWEEN " & StartDate & " AND " & EndDate
                PharseDatenherkunft = True

            Case Else
                StartDate = Format(Now(), "dd.MM.yyyy")
                EndDate = Format(Now(), "dd.MM.yyyy")
                PharseDatenherkunft = False

        End Select
        Parameterwert = "BETWEEN " & StartDate & " AND " & EndDate

    End Function
    Private Function getlastDayInMonth(ByVal Datum As Date) As Integer
        '===============================================================================
        'Desc       : Ermittelt den letzten Tag des Monats
        'Input 	    : Datum
        'Kriterium  : 
        'Updatewert : 
        'Output	    : Letzter Tag des Monats
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim iFirstDayNextMonat As Integer
        Dim iMonat As Integer
        Dim dDate As Date
        iMonat = DatePart(DateInterval.Month, Datum, FirstDayOfWeek.Monday)
        dDate = DateSerial(DatePart(DateInterval.Year, Datum, FirstDayOfWeek.Monday), iMonat + 1, 1)
        iFirstDayNextMonat = DatePart(DateInterval.Day, DateAdd(DateInterval.Day, -1, dDate), FirstDayOfWeek.Monday)

        getlastDayInMonth = iFirstDayNextMonat

    End Function

#End Region

#Region " Menu Funktionen "
    Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As C1.Win.C1Command.ClickEventArgs)
        Me.Close()
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0 'close button
                Close()
            Case 2 'Speichern
                Dim f As New frmParameterSetName()
                'f.MdiParent = Me.ParentForm
                f.DatenSpeichern = True
                f.Eintrag = "Parameterset speichern"
                f.ReportNr = Me.grdReport.Columns("reportnr").Value
                f.ParameterSetNameID = Me.ParameterSetNameID
                Me.ParameterSetNameID = f.TransferKey
                f.ParameterDataset = Me.dsParameter
                f.DatenModus = f.Enum_DatenModus.Speichern
                f.ShowDialog()
                f.Dispose()
            Case 1  'laden
                Dim f As New frmParameterSetName()
                ' f.MdiParent = Me.ParentForm
                f.DatenSpeichern = False
                f.ReportNr = Me.grdReport.Columns("reportnr").Value
                f.Eintrag = "Parameterset laden"
                f.DatenModus = f.Enum_DatenModus.Laden
                f.ShowDialog()
                Me.grxParameter.Text = "Parameter " & f.ParameterSetName
                Me.ParameterSetNameID = f.TransferKey
                grxParameter.Text = "Parameter " & f.ParameterSetName
                f.Dispose()
                If Me.ParameterSetNameID > 0 Then
                    ClearParameterFields()
                    loadParameterList() 'Laden der Parameter in die Tabelle
                End If
            Case 3  'ClearParameter
                ClearParameterFields()
            Case 5  'Preview
                'Rel 4.1 Reporting
                'Me.Cursor = Cursors.WaitCursor
                'Dim f As New frmReporting()
                'Dim objReport As New edokadb.clsReporting_Dokumenttyp()
                'Dim ParameterCollection As New Collection()
                'Dim Dokument_Temp As String
                'If ValidateParameterfields() = True Then

                '    '=======================================
                '    'Dokument Speichern
                '    '=======================================
                '    Dokument_Temp = CType(Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente"), String)
                '    objReport.Get_DocumentFrom_DB("reportNr", grdReport.Columns("reportNr").Text, "report", "reportfile", Dokument_Temp, grdReport.Columns("dateiname").Value)
                '    objReport = Nothing
                '    f.WindowTitel = grdReport.Columns("report").Text
                '    ParameterCollection = FillParameterCollection()

                '    If Not f.show_report(grdReport.Columns("dateiname").Text, ParameterCollection) Then
                '        If MyMsg.Show_MessageYesNo(217) Then  'Sie haben keine Parameter übergeben! Die Datenaufbereitung könnter längere Zei
                '            Exit Sub
                '        End If
                '    End If
                '    ' f.MdiParent = Me.ParentForm
                '    Try

                '        f.Show()

                '    Catch ex As Exception
                '        Me.Cursor = Cursors.Default
                '        MsgBox(ex.Message)
                '    End Try

                'End If
                'Me.Cursor = Cursors.Default

            Case Else
        End Select
    End Sub

#End Region


    Private Sub gbxReportgruppen_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gbxReportgruppen.Enter

    End Sub
End Class