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