Initial commit

EDOKA/Reporting/frmParameterSetName.vb

@@ -0,0 +1,712 @@
+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"
+        '
+        '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