Imports System.ComponentModel Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports System.Drawing Imports System.Drawing.Color Public Class frmDokumentpaketuebersicht Inherits frmDomainEditor #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 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 Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents ctmnuNew As System.Windows.Forms.MenuItem Friend WithEvents ctmnuEdit As System.Windows.Forms.MenuItem Friend WithEvents cdmnuShow As System.Windows.Forms.MenuItem Friend WithEvents cboDokTyp As System.Windows.Forms.ComboBox Friend WithEvents btnDokTypSelektion As System.Windows.Forms.Button Friend WithEvents btnXLSExport As System.Windows.Forms.Button Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Friend WithEvents lblSelektion As System.Windows.Forms.Label Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentpaketuebersicht)) 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() Me.DataSet1 = New System.Data.DataSet() Me.ContextMenu1 = New System.Windows.Forms.ContextMenu() Me.ctmnuNew = New System.Windows.Forms.MenuItem() Me.ctmnuEdit = New System.Windows.Forms.MenuItem() Me.cdmnuShow = New System.Windows.Forms.MenuItem() Me.cboDokTyp = New System.Windows.Forms.ComboBox() Me.btnDokTypSelektion = New System.Windows.Forms.Button() Me.btnXLSExport = New System.Windows.Forms.Button() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.lblSelektion = New System.Windows.Forms.Label() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ContextMenu2 = New System.Windows.Forms.ContextMenu() Me.MenuItem4 = New System.Windows.Forms.MenuItem() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' '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", "edex_dokumentpaket", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumentpaketnr", "dokumentpaketnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung"), New System.Data.Common.DataColumnMapping("beschreibung", "beschreibung"), New System.Data.Common.DataColumnMapping("owner", "owner"), New System.Data.Common.DataColumnMapping("individuelles_dp", "individuelles_dp"), New System.Data.Common.DataColumnMapping("dpbeschreibung", "dpbeschreibung"), New System.Data.Common.DataColumnMapping("dokumentartnr", "dokumentartnr"), New System.Data.Common.DataColumnMapping("erstellt_am", "erstellt_am"), New System.Data.Common.DataColumnMapping("mutiert_am", "mutiert_am"), New System.Data.Common.DataColumnMapping("mandantnr", "mandantnr"), New System.Data.Common.DataColumnMapping("aktiv", "aktiv")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[edex_pr_dokumentpaket_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_dokumentpaketnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentpaketnr", 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_dokumentartnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", 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_individuelles_dp", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "individuelles_dp", 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_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_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", System.Data.DataRowVersion.Original, Nothing)) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=SHUMAIN;initial catalog=edoka;persist security info=False;user id=sa;" & _ "workstation id=SHUMAIN;packet size=4096" ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[edex_pr_dokumentpaket_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("@dokumentpaketnr", System.Data.SqlDbType.Int, 4, "dokumentpaketnr")) 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("@owner", System.Data.SqlDbType.Int, 4, "owner")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@individuelles_dp", System.Data.SqlDbType.Bit, 1, "individuelles_dp")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpbeschreibung", System.Data.SqlDbType.VarBinary, 2147483647, "dpbeschreibung")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentartnr", System.Data.SqlDbType.Int, 4, "dokumentartnr")) 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("@mandantnr", System.Data.SqlDbType.Int, 4, "mandantnr")) Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1, "aktiv")) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[edex_sp_dokumentpakete_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("@mandantnr", 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("@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("@filter", 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 = "[edex_pr_dokumentpaket_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("@dokumentpaketnr", System.Data.SqlDbType.Int, 4, "dokumentpaketnr")) 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("@owner", System.Data.SqlDbType.Int, 4, "owner")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@individuelles_dp", System.Data.SqlDbType.Bit, 1, "individuelles_dp")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dpbeschreibung", System.Data.SqlDbType.VarBinary, 2147483647, "dpbeschreibung")) Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@dokumentartnr", System.Data.SqlDbType.Int, 4, "dokumentartnr")) 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("@Param1", 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("@Original_dokumentpaketnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentpaketnr", 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_dokumentartnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "dokumentartnr", 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_individuelles_dp", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "individuelles_dp", 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_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_owner", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "owner", System.Data.DataRowVersion.Original, Nothing)) ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" Me.DataSet1.Locale = New System.Globalization.CultureInfo("de-CH") ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.ctmnuNew, Me.ctmnuEdit, Me.cdmnuShow}) ' 'ctmnuNew ' Me.ctmnuNew.Index = 0 Me.ctmnuNew.Text = "&Neues Dokumentpaket" ' 'ctmnuEdit ' Me.ctmnuEdit.Index = 1 Me.ctmnuEdit.Text = "&Dokumentpaket bearbeiten" ' 'cdmnuShow ' Me.cdmnuShow.Index = 2 Me.cdmnuShow.Text = "Dokumentpaket anzeigen" ' 'cboDokTyp ' Me.cboDokTyp.Location = New System.Drawing.Point(160, 3) Me.cboDokTyp.Name = "cboDokTyp" Me.cboDokTyp.Size = New System.Drawing.Size(272, 21) Me.cboDokTyp.TabIndex = 8 ' 'btnDokTypSelektion ' Me.btnDokTypSelektion.Location = New System.Drawing.Point(432, 3) Me.btnDokTypSelektion.Name = "btnDokTypSelektion" Me.btnDokTypSelektion.Size = New System.Drawing.Size(20, 20) Me.btnDokTypSelektion.TabIndex = 9 Me.btnDokTypSelektion.Text = "..." ' 'btnXLSExport ' Me.btnXLSExport.Image = CType(resources.GetObject("btnXLSExport.Image"), System.Drawing.Bitmap) Me.btnXLSExport.Location = New System.Drawing.Point(456, 3) Me.btnXLSExport.Name = "btnXLSExport" Me.btnXLSExport.Size = New System.Drawing.Size(20, 20) Me.btnXLSExport.TabIndex = 10 ' 'SaveFileDialog1 ' Me.SaveFileDialog1.FileName = "doc1" ' 'lblSelektion ' Me.lblSelektion.Location = New System.Drawing.Point(24, 7) Me.lblSelektion.Name = "lblSelektion" Me.lblSelektion.Size = New System.Drawing.Size(144, 16) Me.lblSelektion.TabIndex = 11 Me.lblSelektion.Text = "Dokumenttyp-Verwendung:" ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4}) ' 'MenuItem4 ' Me.MenuItem4.Index = 0 Me.MenuItem4.Text = "&Dokumentpaket übernehmen" ' 'frmDokumentpaketuebersicht ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(1008, 273) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnXLSExport, Me.btnDokTypSelektion, Me.cboDokTyp, Me.lblSelektion}) Me.Name = "frmDokumentpaketuebersicht" Me.Text = "frmDokumentpaketuebersicht" CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Dim dtDokumenttyp As DataTable Dim WithEvents mcbdoktyp As MultiComboBox Dim m_mitarbeiternr As Integer = 0 Property Mitarbeiternr() As Integer Get Return m_mitarbeiternr End Get Set(ByVal Value As Integer) m_mitarbeiternr = Value End Set End Property Dim m_individuelles_DP As Boolean Property individuelles_dp() As Boolean Get Return m_individuelles_DP End Get Set(ByVal Value As Boolean) m_individuelles_DP = Value End Set End Property Dim m_dokumentpaketnr As Integer Property Dokumentpaketnr() As Integer Get Return m_dokumentpaketnr End Get Set(ByVal Value As Integer) m_dokumentpaketnr = Value End Set End Property Dim on_Load As Boolean = False Public Sub New(ByVal mitarbeiternr As Integer) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() Me.Mitarbeiternr = Mitarbeiternr If Me.Mitarbeiternr <> 0 Then Me.individuelles_dp = True Else Me.individuelles_dp = False ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub Private Sub frmDokumentpaketuebersicht_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ToolBar1.Height = Me.ToolBar1.Height + 3 Me.on_Load = True If Me.individuelles_dp = True Then ' Me.Width = Me.ParentForm.Width / 3 ' Me.Height = Me.ParentForm.Height / 3 ' Me.Text = "Übersicht Individuelle Dokumentpakete" Me.Text = "Übersicht Individuelle Dokumentpakete" Me.Width = 600 Me.Height = 450 Me.cboDokTyp.Visible = False Me.btnDokTypSelektion.Visible = False Me.btnXLSExport.Visible = False Else Me.DomainList.ContextMenu = Me.ContextMenu1 Me.Text = "Übersicht Dokumentpakete" Me.cboDokTyp.BringToFront() Me.btnDokTypSelektion.BringToFront() Me.btnXLSExport.BringToFront() Me.dtDokumenttyp = Generic_Select(1) Me.mcbdoktyp = New MultiComboBox(Me.cboDokTyp) Me.mcbdoktyp.Items.Clear() Me.mcbdoktyp.CheckNullValue = False Me.mcbdoktyp.DisplayColumnName = "Bezeichnung" Me.mcbdoktyp.ValueColumnName = "dokumenttypnr" Me.mcbdoktyp.Fill_Data(dtDokumenttyp, True, "-- Keine Dokumenttyp-Verwendung --") Me.mcbdoktyp.Visible = True Me.lblSelektion.BringToFront() Me.mcbdoktyp.BringToFront() Dim ttip As New ToolTip() ttip.SetToolTip(Me.mcbdoktyp, MyTxt.gettext(22106)) ttip.SetToolTip(Me.btnDokTypSelektion, MyTxt.gettext(22107)) ttip.SetToolTip(Me.btnXLSExport, MyTxt.gettext(22108)) End If Load_data() Me.DomainList.AllowAddNew = False Me.on_Load = False If Me.individuelles_dp = True Then Me.DomainList.ContextMenu = Me.ContextMenu2 Else Me.DomainList.ContextMenu = Me.ContextMenu1 End Sub Private Sub Load_data() Dim xd As DataTable 'Me.DomainList.BeginInit() Me.DataSet1.Tables.Clear() Me.DomainList.DataSource = Nothing Me.DomainList.DataMember = Nothing Me.TableName = "dokumentpaket" 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("@mandantnr", Globals.MandantNr) If Me.Mitarbeiternr > 0 Then Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mitarbeiternr", Mitarbeiternr) Else Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@mitarbeiternr", 0) Me.SqlDataAdapter1.SelectCommand.Parameters.AddWithValue("@filter", Me.mcbdoktyp.SelectedValue) End If Me.SqlDataAdapter1.Fill(Me.DataSet1) Me.DomainList.DataSource = Me.DataSet1.Tables(0) Me.DomainList.DataMember = Me.DataSet1.Tables(0).TableName SpaltenTitel_Aktualisieren(Me.DataSet1) Me.ToolBtnSave.Visible = False Me.DomainList.ContextMenu = Me.ContextMenu1 Me.SqlConnection1.Close() If Me.DomainList.Splits(0).Rows.Count < 1 Then Me.btnXLSExport.Enabled = False Else Me.btnXLSExport.Enabled = True End Sub Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "edex_sp_get_dokumenttypdaten" Case 2 Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Select Case typ Case 1 Case Else End Select scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function 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 Me.Close() End Select End Sub Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup Try If Not DivFnkt.Check_Sysadmin_Stellvertreter(Me.DomainList.Columns(10).Value) Then Me.ctmnuEdit.Enabled = False Me.ctmnuNew.Enabled = True Else Me.ctmnuEdit.Enabled = True Me.ctmnuNew.Enabled = True End If Catch If Me.DomainList.Splits(0).Rows.Count < 2 Then Me.ctmnuEdit.Enabled = False Me.ctmnuNew.Enabled = True End If End Try End Sub Private Sub ctmnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuNew.Click Try Dim f As New frmDokumentpaketdefinition(True, 0, Me.individuelles_dp) f.ShowDialog() Me.DomainList.BeginInit() Load_data() Me.DomainList.EndInit() Catch End Try End Sub Private Sub ctmnuEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuEdit.Click Try Dim book If Globals.MitarbeiterNr <> Me.DomainList.Columns(10).Value Then If Not DivFnkt.Check_Sysadmin_Stellvertreter(Me.DomainList.Columns(10).Value) Then Dim f As New frmDokumentpaketdefinition(False, Me.DomainList.Columns("dokumentpaketnr").Value, False, Me.individuelles_dp) book = Me.DomainList.Bookmark f.Anzeige = True f.ShowDialog() Load_data() Me.DomainList.Bookmark = book f.Dispose() Else Dim f As New frmDokumentpaketdefinition(False, Me.DomainList.Columns("dokumentpaketnr").Value, Me.individuelles_dp) book = Me.DomainList.Bookmark f.ShowDialog() Load_data() Me.DomainList.Bookmark = book f.Dispose() End If Else Dim f As New frmDokumentpaketdefinition(False, Me.DomainList.Columns("dokumentpaketnr").Value, Me.individuelles_dp) book = Me.DomainList.Bookmark f.ShowDialog() Load_data() Me.DomainList.Bookmark = book f.Dispose() End If Catch End Try End Sub Private Sub Domainlist_dblclick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DomainList.DoubleClick, MenuItem4.Click If ToSelect Or Me.individuelles_dp = True Then Me.TransferKey = Me.DomainList.Columns(0).Value Me.Close() Exit Sub End If ctmnuEdit_Click(sender, e) End Sub Private Sub cdmnuShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cdmnuShow.Click Try Dim f As New frmDokumentpaketdefinition(False, Me.DomainList.Columns("dokumentpaketnr").Value, False, Me.individuelles_dp) f.Anzeige = True f.ShowDialog() f.Dispose() Catch End Try End Sub Private Sub Domainlist_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DomainList.MouseDown Me.DomainList.Bookmark = Me.DomainList.RowContaining(e.Y) End Sub Private Sub btnDokTypSelektion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDokTypSelektion.Click Dim F As New frmDataselect() Dim i1 As Integer F.Left = Me.MousePosition.X F.Top = Me.MousePosition.Y F.C1TrueDBGrid1.DataSource = Me.dtDokumenttyp F.C1TrueDBGrid1.DataMember = Me.dtDokumenttyp.TableName F.C1TrueDBGrid1.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None F.ShowDialog() If F.DialogResult = DialogResult.OK Then Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection colRows = F.C1TrueDBGrid1.SelectedRows If colRows.Count - 1 = 0 Then Dim i As Integer = F.C1TrueDBGrid1.Columns(0).Value Me.mcbdoktyp.SelectedValue = i Me.Load_data() Else For i1 = 0 To colRows.Count - 1 Dim i As Integer i = F.C1TrueDBGrid1.Columns(0).CellValue(colRows(i1)) Me.mcbdoktyp.SelectedValue = i Me.Load_data() Next End If End If If F.DialogResult = DialogResult.Yes Then Dim i As Integer = F.C1TrueDBGrid1.Columns(0).Value Me.mcbdoktyp.SelectedValue = i Me.Load_data() End If F.Dispose() End Sub Private Sub cboDokTyp_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mcbdoktyp.Leave If Me.on_Load = True Then Exit Sub Try Me.Load_data() Catch End Try End Sub Private Sub btnXLSExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnXLSExport.Click If Me.DomainList.Splits(0).Rows.Count > 0 Then Me.SaveFileDialog1.CheckFileExists = False Me.SaveFileDialog1.CheckPathExists = True Me.SaveFileDialog1.DefaultExt = "csv" Me.SaveFileDialog1.Filter = "CSV-Dateien (*.csv)|*.csv|Alle Dateien (*.*)|*.*" Me.SaveFileDialog1.RestoreDirectory = True Me.SaveFileDialog1.ShowHelp = True Me.SaveFileDialog1.Title = "Liste als CSV-Datei speichern" Me.SaveFileDialog1.ValidateNames = True Me.SaveFileDialog1.AddExtension = True Me.SaveFileDialog1.DefaultExt.Insert(0, "*.csv") Me.SaveFileDialog1.AddExtension = True Me.SaveFileDialog1.ShowDialog() If Me.SaveFileDialog1.FileName <> "" Then Me.DomainList.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";") End If End If End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Me.TransferKey = Me.DomainList.Columns(0).Value Me.Close() Exit Sub End Sub Private Sub mcbdoktyp_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbdoktyp.SelectedIndexChanged cboDokTyp_leave(sender, e) End Sub End Class