Initial commit
This commit is contained in:
578
Backup/EDOKA/EDEX/Dokumentpakete/frmDokumentpaketuebersicht.vb
Normal file
578
Backup/EDOKA/EDEX/Dokumentpakete/frmDokumentpaketuebersicht.vb
Normal file
@@ -0,0 +1,578 @@
|
||||
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"
|
||||
'
|
||||
'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
|
||||
Reference in New Issue
Block a user