Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel

Public Class frmParameterSetName
    Inherits EDOKAApp.frmDomainEditor

#Region "Deklarationen"
    Private m_iReportNr As Integer
    Private m_dsParameterDataset As DataSet
    Private m_sParameterSetName As String
    Private m_iParameterSetNameID As Integer
    Private m_bDatenSpeichern As Boolean = False             'False = Daten Laden True = Daten Speichern
    Private m_bNewParameterSetListe As Boolean = False      ' Wird auf true gesetzt, wenn ein neuer ParametesetName eingegeben wird
    Public Enum Enum_DatenModus
        Speichern = 0
        Laden = 1
    End Enum
    Private m_iDatenModus As Enum_DatenModus
#End Region

#Region "Property"
    Public Property DatenModus()
        Get
            Return DatenModus
        End Get
        Set(ByVal Value)
            m_iDatenModus = Value
        End Set
    End Property

    Public Property DatenSpeichern()
        Get
            DatenSpeichern = m_bDatenSpeichern
        End Get
        Set(ByVal Value)
            m_bDatenSpeichern = Value
            Me.DomainList.AllowAddNew = m_bDatenSpeichern
            Me.DomainList.AllowUpdate = m_bDatenSpeichern
        End Set
    End Property

    Public Property ParameterSetNameID()
        Get
            ParameterSetNameID = m_iParameterSetNameID
        End Get
        Set(ByVal Value)
            m_iParameterSetNameID = Value
        End Set
    End Property

    Public Property ParameterDataset()
        Get
            ParameterDataset = m_dsParameterDataset
        End Get
        Set(ByVal Value)
            m_dsParameterDataset = Value
        End Set
    End Property
    Public Property ParameterSetName()
        Get
            ParameterSetName = m_sParameterSetName
        End Get
        Set(ByVal Value)
            m_sParameterSetName = Value
        End Set
    End Property
    Public Property ReportNr()
        Get
            ReportNr = m_iReportNr
        End Get
        Set(ByVal Value)
            m_iReportNr = 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 DataSet1 As System.Data.DataSet
    Friend WithEvents cmUebernehmen As System.Windows.Forms.ContextMenu
    Friend WithEvents mnuUebernehmen As System.Windows.Forms.MenuItem
    Friend WithEvents mnuExit As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Friend WithEvents SqlSelectCommand1 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 SqlConnection1 As System.Data.SqlClient.SqlConnection
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.DataSet1 = New System.Data.DataSet()
        Me.cmUebernehmen = New System.Windows.Forms.ContextMenu()
        Me.mnuUebernehmen = New System.Windows.Forms.MenuItem()
        Me.mnuExit = New System.Windows.Forms.MenuItem()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'DataSet1
        '
        Me.DataSet1.DataSetName = "NewDataSet"
        Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH")
        '
        'cmUebernehmen
        '
        Me.cmUebernehmen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuUebernehmen, Me.mnuExit, Me.MenuItem4, Me.MenuItem5})
        '
        'mnuUebernehmen
        '
        Me.mnuUebernehmen.Index = 0
        Me.mnuUebernehmen.Text = "Ü&bernehmen"
        '
        'mnuExit
        '
        Me.mnuExit.Index = 1
        Me.mnuExit.Text = "B&eenden ohne Übernehmen"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 2
        Me.MenuItem4.Text = "-"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 3
        Me.MenuItem5.Text = "Parameterset &löschen"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "ParameterSetName", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ParameterSetNameID", "ParameterSetNameID"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("mitarbeiternr", "mitarbeiternr"), New System.Data.Common.DataColumnMapping("reportNr", "reportNr"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mutierer", "mutierer")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "[pv_ParameterSetName_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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", 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), "aktiv", 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), "beschreibung", 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), "bezeichnung", 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), "erstellt_am", 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(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", 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(0, Byte), CType(0, Byte), "mutierer", 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), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=TGTSQLEDOKABSSF;initial catalog=edoka;integrated security=SSPI;persis" & _
        "t security info=False;user id=tgentwicklung3;workstation id=TG602640;packet size" & _
        "=4096"
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "[pv_ParameterSetName_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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
        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("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportNr", System.Data.SqlDbType.Int, 4, "reportNr"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        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("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        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("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "[pv_ParameterSetName_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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mitarbeiternr", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@reportnr", System.Data.SqlDbType.Int, 4, "reportNr"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "[pv_ParameterSetName_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(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@ParameterSetNameID", System.Data.SqlDbType.Int, 4, "ParameterSetNameID"))
        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("@Param1", System.Data.SqlDbType.Int, 4, "mitarbeiternr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Param2", System.Data.SqlDbType.Int, 4, "reportNr"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr"))
        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("@erstellt_am", System.Data.SqlDbType.DateTime, 8, "erstellt_am"))
        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("@mutierer", System.Data.SqlDbType.Int, 4, "mutierer"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_ParameterSetNameID", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ParameterSetNameID", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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), "aktiv", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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), "beschreibung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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), "bezeichnung", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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), "erstellt_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mandantnr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mitarbeiternr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mitarbeiternr", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "mutierer", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.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), "mutiert_am", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_reportNr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "reportNr", System.Data.DataRowVersion.Original, Nothing))
        '
        'frmParameterSetName
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(880, 377)
        Me.Name = "frmParameterSetName"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = ""
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "Formular Funktionen"

    Private Sub frmParameterSet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lCnt As Long
        Me.DomainList.ContextMenu = Me.cmUebernehmen

        Me.TableName = "ParameterSetName"
        Dim dbconn As New EDOKA.DB_Connection()
        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("@reportnr", Me.ReportNr)

        Me.SqlDataAdapter1.Fill(Me.DataSet1)
        Me.DomainList.DataSource = Me.DataSet1
        Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName
        'Me.Eintrag = "Parameterwerte"
        SpaltenTitel_Aktualisieren(Me.DataSet1)
        DomainList.FetchRowStyles = True
        If Me.ParameterSetNameID > 0 Then
            For lCnt = 0 To DomainList.Splits(0).Rows.Count - 1
                If DomainList.Columns("ParameterSetNameID").CellText(lCnt) = Me.ParameterSetNameID Then
                    DomainList.Bookmark = lCnt
                    Exit For
                End If
            Next
        End If

    End Sub

    Private Sub frmParameterSetName_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Select Case m_iDatenModus
            Case Enum_DatenModus.Laden          'Form wird für Laden der Parameter geöffnet
                Me.ToolBar1.Buttons(1).Visible = False      'Ausschalten des Speichernknopfes
                Me.MenuItem3.Visible = False
            Case Enum_DatenModus.Speichern      'Form wir für Speichern der Parameter geöffnet

        End Select

    End Sub

    Private Sub frmParameterSetName_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim msg As MsgBoxResult
        If Me.DataSet1.HasChanges Then
            msg = Globals.MyMsg.Show_MessageYesNoCancel(2)
            If msg = MsgBoxResult.No Then
                e.Cancel = False
            End If
            If msg = MsgBoxResult.Yes Then
                If Save_Data() Then
                    e.Cancel = False
                Else
                    e.Cancel = True
                End If
                If msg = MsgBoxResult.Cancel Then
                    e.Cancel = True
                End If
            End If
        End If
    End Sub
#End Region

#Region "Menu Funktionen"
    Private Sub mnuUebernehmen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUebernehmen.Click
        Uebenehmen()
    End Sub

    Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click


        Me.TransferKey = 0
        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
                Select Case m_iDatenModus
                    Case Enum_DatenModus.Laden
                        Uebenehmen()
                    Case Enum_DatenModus.Speichern
                        Me.Close()
                End Select
            Case 1 'Speichern
                Save_Data()
        End Select
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Save_Data()
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        '===============================================================================
        'Desc       : Löschen der ParamterSetNamen Nach OK Bestätigung des Users wird erst die ParametersetListe gelöscht
        '             Danach die ParameterSetName
        'Input      : 
        'Output     : 
        'Erstellt   : koe 20.10.2003
        'Geaendert  : 
        '===============================================================================
        Save_Data()

    End Sub
    Private Sub MenuItem5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

        '===============================================================================
        'Desc       : Löschen der ParamterSetNamen Nach OK Bestätigung des Users wird erst die ParametersetListe gelöscht
        '             Danach die ParameterSetName
        'Input      : 
        'Output     : 
        'Erstellt   : koe 20.10.2003
        'Geaendert  : 
        '===============================================================================
        If MyMsg.show_MessageYesNo_ReplaceText(218, DomainList.Columns("bezeichnung").Value, "") = DialogResult.Yes Then          'Möchten Sie das Parameterset " & DomainList.Columns("bezeichnung").Value & " Löschen?"
            'MyMsg.show_standardmessage_ReplaceText(218, MsgBoxStyle.Question, DomainList.Columns("bezeichnung").Value, "")
            DeleteParameterSetList()
            DeleteParameterSetName()
            RefreshParameterlist()
        End If
    End Sub


#End Region

#Region "Daten Funktionen"

    Private Sub Uebenehmen()
        Select Case m_iDatenModus
            Case Enum_DatenModus.Laden
                If Me.DomainList.Splits(0).Rows.Count >= 1 And Not Me.DomainList.Columns("ParameterSetNameID").Value Is System.DBNull.Value Then
                    Me.ToSelect = True
                    Me.ParameterSetName = Me.DomainList.Columns("bezeichnung").Value
                    Me.TransferKey = Me.DomainList.Columns("ParameterSetNameID").Value
                Else
                    Me.TransferKey = 0
                End If
                Me.Close()
            Case Enum_DatenModus.Speichern
        End Select
    End Sub

    Private Function Save_Data() As Boolean
        Save_Data = True
        Me.ActiveControl = Me.ToolBar1
        Try
            SqlDataAdapter1.Update(Me.DataSet1)
            If m_bNewParameterSetListe = True Then
                '===============================================================================
                'Ein neuer Parametename wurde vergeben
                '===============================================================================
                If InsertParameterList() = False Then
                    Save_Data = False
                End If
            Else
                '===============================================================================
                'Ein bestehender Parametername wird überschreiben
                '===============================================================================
                If UpdateParameterList() = False Then
                    Save_Data = False
                End If

            End If
            m_bNewParameterSetListe = False
            'Me.Close()
        Catch ex As Exception
            MsgBox(Globals.MyMsg.Get_Meldungstext(902))
            Save_Data = False
        End Try
    End Function

    Private Function InsertParameterList() As Boolean
        '===============================================================================
        'Desc       : Neue Parameter werden gespeichert
        'Input      : 
        'Output     : True False
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim lCnt As Long
        Dim key As Long
        Dim vdata As New edokadb.clsParameterSetList()
        Dim dbkey As New edokadb.clsMyKey_Tabelle()
        InsertParameterList = True
        Try
            conn.OpenConnection()
            dbkey.cpMainConnectionProvider = conn
            For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
                'Alle Benutzerparanmeter durchlaufen
                With vdata
                    key = dbkey.get_dbkey("ParameterSetList")
                    conn.OpenConnection()
                    .cpMainConnectionProvider = conn
                    .iParameterSetListID = New SqlInt32(CType(key, Integer))
                    .iParameterSetNameID = New SqlInt32(CType(Me.DomainList.Columns("ParameterSetNameID").Value, SqlInt32))
                    .iReportReportfeldregelNr = New SqlInt32(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr"), Integer))

                    If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue") Is System.DBNull.Value Then
                        .sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))
                    Else
                        '.sParameterDisplayValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")
                    End If
                    '.sParameterDisplayValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue"), String))

                    If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue") Is System.DBNull.Value Then
                        .sParameterNavigationValue = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue"), String))
                    Else
                        '.sParameterNavigationValue = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")
                    End If

                    If Not m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft") Is System.DBNull.Value Then
                        .sDatenherkunft = New SqlString(CType(m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft"), String))
                    Else
                        '.sDatenherkunft = m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")
                    End If
                    .iReihenfolge() = New SqlInt32(lCnt)
                    .iMandantnr = New SqlInt32(Globals.MitarbeiterNr)
                    .bAktiv = New SqlBoolean(True)
                    .daErstellt_am = New SqlDateTime(Now())
                    .daMutiert_am = New SqlDateTime(Now())
                    .iMutierer = New SqlInt32(Globals.MitarbeiterNr)
                End With
                vdata.Insert()
                'conn.Dispose()
            Next
        Catch ex As Exception
            InsertParameterList = False
            MessageBox.Show(ex.Message, "Einfügefehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try

        conn.CloseConnection(True)
        vdata.Dispose()
        dbkey.Dispose()
    End Function

    Private Function UpdateParameterList() As Boolean
        '===============================================================================
        'Desc       : Besthende Parameter werden ergänzt
        'Kriterium  : ParameterSetNameID,ReportReportfeldregelNr
        'Updatewert : MitarbeiterNr, Parameterwert
        'Output     : True False
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim objParmameterSetList As New edokadb.clsParameterSetList()
        Dim daTable As New DataTable()
        Dim iErrorCode As Integer
        Dim lCnt As Long
        UpdateParameterList = True
        scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_Update]"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        conn.OpenConnection()
        objParmameterSetList.cpMainConnectionProvider = conn
        daTable = objParmameterSetList.SelectAll()
        conn.CloseConnection(True)
        Try
            If GetRecordcount() = m_dsParameterDataset.Tables(0).Rows.Count Then
                conn.OpenConnection()
                scmCmdToExecute.Connection = conn.scoDBConnection
                For lCnt = 0 To m_dsParameterDataset.Tables(0).Rows.Count - 1
                    scmCmdToExecute.Parameters.Clear()

                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterDisplayValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterDisplayValue")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterNavigationValue", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("ParameterNavigationValue")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@Datenherkunft", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("datenherkunft")))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ParametesetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DomainList.Columns("ParameterSetNameID").Value))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ReportReportfeldregelNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_dsParameterDataset.Tables(0).Rows(lCnt).Item("Reportreportfeldregelnr")))
                    ' // Execute query.
                    scmCmdToExecute.ExecuteNonQuery()
                Next
            Else
                DeleteParameterSetList()
                InsertParameterList()
            End If
        Catch ex As Exception
            UpdateParameterList = False
            MessageBox.Show(ex.Message, "Update Parameterliste", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        Finally
            scmCmdToExecute.Dispose()
        End Try

        conn.CloseConnection(True)
    End Function

    Private Function DeleteParameterSetList() As Boolean
        '===============================================================================
        'Desc       : Besthende ParameterSetListe werden gelöscht
        'Kriterium  : DomainList.Columns("ParameterSetNameID") 
        'Output     : True False
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim scmCmdToExecuteParameterSetlist As SqlCommand = New SqlCommand()
        Dim iErrorCode As Integer
        Dim lCnt As Long
        DeleteParameterSetList = True
        scmCmdToExecuteParameterSetlist.CommandText = "dbo.[sp_ParameterSetList_Delete]"
        scmCmdToExecuteParameterSetlist.CommandType = CommandType.StoredProcedure

        conn.OpenConnection()
        scmCmdToExecuteParameterSetlist.Connection = conn.scoDBConnection

        Try
            scmCmdToExecuteParameterSetlist.Parameters.Clear()
            scmCmdToExecuteParameterSetlist.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
            ' // Execute query ParameterSetList.
            scmCmdToExecuteParameterSetlist.ExecuteNonQuery()
            ' // Execute query ParameterSetName.
        Catch ex As Exception
            DeleteParameterSetList = False
            MessageBox.Show(ex.Message, "Parametersetliste löschen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        Finally
            scmCmdToExecuteParameterSetlist.Dispose()
        End Try
        conn.CloseConnection(True)
    End Function

    Private Function DeleteParameterSetName() As Boolean
        '===============================================================================
        'Desc       : Besthende ParameterSetName werden gelöscht
        'Kriterium  : DomainList.Columns("ParameterSetNameID") 
        'Output     : True False
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim scmCmdToExecuteParameterSetName As SqlCommand = New SqlCommand()
        DeleteParameterSetName = True
        scmCmdToExecuteParameterSetName.CommandText = "dbo.[sp_ParameterSetName_Delete]"
        scmCmdToExecuteParameterSetName.CommandType = CommandType.StoredProcedure
        conn.OpenConnection()
        scmCmdToExecuteParameterSetName.Connection = conn.scoDBConnection
        Try
            scmCmdToExecuteParameterSetName.Parameters.Clear()
            scmCmdToExecuteParameterSetName.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))

            ' // Execute query ParameterSetName.
            scmCmdToExecuteParameterSetName.ExecuteNonQuery()
            DomainList.Refresh()
        Catch ex As Exception
            DeleteParameterSetName = False
            MessageBox.Show(ex.Message, "ParametersetNamen löschen", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        Finally
            scmCmdToExecuteParameterSetName.Dispose()
        End Try

        conn.CloseConnection(True)
    End Function

    Private Sub RefreshParameterlist()
        DataSet1.Clear()
        Me.SqlDataAdapter1.Fill(Me.DataSet1)
        Me.DomainList.DataSource = Me.DataSet1
        Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName

    End Sub

#End Region

#Region "Diverse Funktionen"
    Public Function GetRecordcount() As Integer
        '===============================================================================
        'Desc       : Ermittelt die Anzahl der Records in der Tabelle ParameterSetList
        'Input 	    : 
        'Kriterium  : DomainList.Columns("ParameterSetNameID").Value
        'Updatewert : 
        'Output	    : Anzahl Datensätze 
        'Erstellt   : koe 10.11.2003
        'Geaendert  : 
        '===============================================================================
        Dim m_dbkey As Long
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.[sp_ParameterSetList_anzahl]"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure

        conn.OpenConnection()
        ' // Use base class' connection object
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@ParameterSetNameID", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, DomainList.Columns("ParameterSetNameID").Value))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Anzahl", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, GetRecordcount))
            'scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
            'scmCmdToExecute.Connection.Open()

            scmCmdToExecute.ExecuteNonQuery()
            GetRecordcount = scmCmdToExecute.Parameters("@Anzahl").Value()

        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            MessageBox.Show(ex.Message, "Anzahl Parametersetliste ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)

        Finally
            scmCmdToExecute.Dispose()
            conn.CloseConnection(True)
        End Try


    End Function

#End Region

#Region "Grid Funktionen"

    Private Sub DomainList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown
        If e.Button = MouseButtons.Right Then
            Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y)
        End If

    End Sub

    Private Sub DomainList_BeforeInsert(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeInsert
        If m_bNewParameterSetListe = False Then
            m_bNewParameterSetListe = True
        End If
    End Sub

    Private Sub DomainList_Dblklick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick
        Uebenehmen()
    End Sub
    Private Sub DomainList_AfterInsert(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.AfterInsert
        Me.DomainList.Columns("beschreibung").Text = ""

    End Sub
    Private Sub domainlist_aftercellupdate(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles DomainList.AfterColUpdate
        'Aktualisieren von Mutierer und Mutiert_am
        Dim i As Integer
        Try
            Me.DomainList.Columns("reportNr").Value = Me.m_iReportNr
            Me.DomainList.Columns("mandantnr").Value = Globals.MandantNr
            Me.DomainList.Columns("mitarbeiternr").Value = Globals.MitarbeiterNr

            Save_Data()
        Catch
        End Try
    End Sub

    Private Sub DomainList_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles DomainList.BeforeRowColChange

    End Sub


#End Region


End Class