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.
2136 lines
88 KiB
2136 lines
88 KiB
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Imports System.ComponentModel
|
|
Imports System.IO
|
|
|
|
Public Class frmDokumentpaketdefinition
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
' 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 ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents grpAllgemein As System.Windows.Forms.GroupBox
|
|
Friend WithEvents TreeSelektion As System.Windows.Forms.TreeView
|
|
Friend WithEvents RichTextBoxHS1 As EDOKAApp.RichTextBoxHS
|
|
Friend WithEvents pnlDokumentvorlagen As System.Windows.Forms.GroupBox
|
|
Friend WithEvents pnlSelVorlagen As System.Windows.Forms.GroupBox
|
|
Friend WithEvents pnlBeschreibung As System.Windows.Forms.GroupBox
|
|
Friend WithEvents FontDialog1 As System.Windows.Forms.FontDialog
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents btnExit As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents pnlStruktur As System.Windows.Forms.GroupBox
|
|
Friend WithEvents lblBezeichnung As System.Windows.Forms.Label
|
|
Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
|
|
Friend WithEvents cboowner As System.Windows.Forms.ComboBox
|
|
Friend WithEvents lblOwner As System.Windows.Forms.Label
|
|
Friend WithEvents lblErstelltam As System.Windows.Forms.Label
|
|
Friend WithEvents lblMutiertam As System.Windows.Forms.Label
|
|
Friend WithEvents dterstelltam As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents dtmutiertam As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents cbAktiv As System.Windows.Forms.CheckBox
|
|
Friend WithEvents TreeStruktur As System.Windows.Forms.TreeView
|
|
Friend WithEvents pnlTrenner As System.Windows.Forms.Panel
|
|
Friend WithEvents TreeDokVorlagen As System.Windows.Forms.TreeView
|
|
Friend WithEvents lblSuche As System.Windows.Forms.Label
|
|
Friend WithEvents txtSuchbegriff As System.Windows.Forms.TextBox
|
|
Friend WithEvents btnsuche As System.Windows.Forms.Button
|
|
Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
|
|
Friend WithEvents treeSelVorlagen As System.Windows.Forms.TreeView
|
|
Friend WithEvents ctmenuTreeDokVorlagen As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents ctmnuVorlageSelect As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuKnotenSchliessen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuKnotenOeffnen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuAktKnotenSchliessen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuAktKnotenOeffnen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuVorlageInfo As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmenuSelVorlagen As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents ctmnuselvorlagenVorlageLoeschen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ctmnuselVorlagenInfo As System.Windows.Forms.MenuItem
|
|
Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
|
|
Friend WithEvents ctmenuBeschreibung As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents ImgListSteuerung As System.Windows.Forms.ImageList
|
|
Friend WithEvents ctMenuStruktur As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents BtnHelp As System.Windows.Forms.Button
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents lblWichtigeHinweise As System.Windows.Forms.Label
|
|
Friend WithEvents Panel2 As System.Windows.Forms.Panel
|
|
Friend WithEvents txtWichtigeHinweise As System.Windows.Forms.TextBox
|
|
Friend WithEvents Panel3 As System.Windows.Forms.Panel
|
|
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
|
|
Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
|
|
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuMoveItemUp As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuMoveItemDown As System.Windows.Forms.MenuItem
|
|
Friend WithEvents btnnew As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnopen As System.Windows.Forms.ToolBarButton
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentpaketdefinition))
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.btnExit = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnSave = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnnew = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnopen = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.grpAllgemein = New System.Windows.Forms.GroupBox()
|
|
Me.cbAktiv = New System.Windows.Forms.CheckBox()
|
|
Me.dtmutiertam = New System.Windows.Forms.DateTimePicker()
|
|
Me.dterstelltam = New System.Windows.Forms.DateTimePicker()
|
|
Me.lblErstelltam = New System.Windows.Forms.Label()
|
|
Me.lblMutiertam = New System.Windows.Forms.Label()
|
|
Me.cboowner = New System.Windows.Forms.ComboBox()
|
|
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
|
|
Me.lblBezeichnung = New System.Windows.Forms.Label()
|
|
Me.lblOwner = New System.Windows.Forms.Label()
|
|
Me.TreeSelektion = New System.Windows.Forms.TreeView()
|
|
Me.ImgListSteuerung = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.pnlDokumentvorlagen = New System.Windows.Forms.GroupBox()
|
|
Me.TreeDokVorlagen = New System.Windows.Forms.TreeView()
|
|
Me.ctmenuTreeDokVorlagen = New System.Windows.Forms.ContextMenu()
|
|
Me.ctmnuVorlageSelect = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuVorlageInfo = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem10 = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuKnotenSchliessen = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuKnotenOeffnen = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuAktKnotenSchliessen = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuAktKnotenOeffnen = New System.Windows.Forms.MenuItem()
|
|
Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.pnlTrenner = New System.Windows.Forms.Panel()
|
|
Me.btnsuche = New System.Windows.Forms.Button()
|
|
Me.txtSuchbegriff = New System.Windows.Forms.TextBox()
|
|
Me.lblSuche = New System.Windows.Forms.Label()
|
|
Me.pnlSelVorlagen = New System.Windows.Forms.GroupBox()
|
|
Me.treeSelVorlagen = New System.Windows.Forms.TreeView()
|
|
Me.ctmenuSelVorlagen = New System.Windows.Forms.ContextMenu()
|
|
Me.ctmnuselvorlagenVorlageLoeschen = New System.Windows.Forms.MenuItem()
|
|
Me.ctmnuselVorlagenInfo = New System.Windows.Forms.MenuItem()
|
|
Me.pnlBeschreibung = New System.Windows.Forms.GroupBox()
|
|
Me.RichTextBoxHS1 = New EDOKAApp.RichTextBoxHS()
|
|
Me.ctmenuBeschreibung = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.txtWichtigeHinweise = New System.Windows.Forms.TextBox()
|
|
Me.lblWichtigeHinweise = New System.Windows.Forms.Label()
|
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
|
Me.FontDialog1 = New System.Windows.Forms.FontDialog()
|
|
Me.pnlStruktur = New System.Windows.Forms.GroupBox()
|
|
Me.TreeStruktur = New System.Windows.Forms.TreeView()
|
|
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.ctMenuStruktur = New System.Windows.Forms.ContextMenu()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem5 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem6 = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuMoveItemUp = New System.Windows.Forms.MenuItem()
|
|
Me.mnuMoveItemDown = New System.Windows.Forms.MenuItem()
|
|
Me.Splitter1 = New System.Windows.Forms.Splitter()
|
|
Me.BtnHelp = New System.Windows.Forms.Button()
|
|
Me.Panel3 = New System.Windows.Forms.Panel()
|
|
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
|
|
Me.grpAllgemein.SuspendLayout()
|
|
Me.pnlDokumentvorlagen.SuspendLayout()
|
|
Me.pnlTrenner.SuspendLayout()
|
|
Me.pnlSelVorlagen.SuspendLayout()
|
|
Me.pnlBeschreibung.SuspendLayout()
|
|
Me.Panel1.SuspendLayout()
|
|
Me.pnlStruktur.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnExit, Me.btnSave, Me.btnnew, Me.btnopen})
|
|
Me.ToolBar1.DropDownArrows = True
|
|
Me.ToolBar1.ImageList = Me.ImageList1
|
|
Me.ToolBar1.Name = "ToolBar1"
|
|
Me.ToolBar1.ShowToolTips = True
|
|
Me.ToolBar1.Size = New System.Drawing.Size(816, 25)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'btnExit
|
|
'
|
|
Me.btnExit.ImageIndex = 0
|
|
Me.btnExit.ToolTipText = "Verlassen"
|
|
'
|
|
'btnSave
|
|
'
|
|
Me.btnSave.ImageIndex = 2
|
|
Me.btnSave.ToolTipText = "Speichern"
|
|
'
|
|
'btnnew
|
|
'
|
|
Me.btnnew.ImageIndex = 3
|
|
Me.btnnew.ToolTipText = "Neues Dokumentpaket erstellen"
|
|
'
|
|
'btnopen
|
|
'
|
|
Me.btnopen.ImageIndex = 9
|
|
Me.btnopen.ToolTipText = "Übersicht vorhandener Dokumentpakete und Auswahl"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'grpAllgemein
|
|
'
|
|
Me.grpAllgemein.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbAktiv, Me.dtmutiertam, Me.dterstelltam, Me.lblErstelltam, Me.lblMutiertam, Me.cboowner, Me.txtBezeichnung, Me.lblBezeichnung, Me.lblOwner})
|
|
Me.grpAllgemein.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.grpAllgemein.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.grpAllgemein.Location = New System.Drawing.Point(179, 25)
|
|
Me.grpAllgemein.Name = "grpAllgemein"
|
|
Me.grpAllgemein.Size = New System.Drawing.Size(637, 71)
|
|
Me.grpAllgemein.TabIndex = 1
|
|
Me.grpAllgemein.TabStop = False
|
|
Me.grpAllgemein.Text = "Allgemeine Informationen"
|
|
'
|
|
'cbAktiv
|
|
'
|
|
Me.cbAktiv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.cbAktiv.Location = New System.Drawing.Point(576, 16)
|
|
Me.cbAktiv.Name = "cbAktiv"
|
|
Me.cbAktiv.Size = New System.Drawing.Size(48, 24)
|
|
Me.cbAktiv.TabIndex = 2
|
|
Me.cbAktiv.Text = "Aktiv"
|
|
'
|
|
'dtmutiertam
|
|
'
|
|
Me.dtmutiertam.Enabled = False
|
|
Me.dtmutiertam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.dtmutiertam.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.dtmutiertam.Location = New System.Drawing.Point(456, 40)
|
|
Me.dtmutiertam.Name = "dtmutiertam"
|
|
Me.dtmutiertam.Size = New System.Drawing.Size(88, 20)
|
|
Me.dtmutiertam.TabIndex = 7
|
|
Me.dtmutiertam.TabStop = False
|
|
'
|
|
'dterstelltam
|
|
'
|
|
Me.dterstelltam.Enabled = False
|
|
Me.dterstelltam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.dterstelltam.Format = System.Windows.Forms.DateTimePickerFormat.Short
|
|
Me.dterstelltam.Location = New System.Drawing.Point(456, 16)
|
|
Me.dterstelltam.Name = "dterstelltam"
|
|
Me.dterstelltam.Size = New System.Drawing.Size(88, 20)
|
|
Me.dterstelltam.TabIndex = 6
|
|
Me.dterstelltam.TabStop = False
|
|
'
|
|
'lblErstelltam
|
|
'
|
|
Me.lblErstelltam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblErstelltam.Location = New System.Drawing.Point(400, 16)
|
|
Me.lblErstelltam.Name = "lblErstelltam"
|
|
Me.lblErstelltam.Size = New System.Drawing.Size(88, 23)
|
|
Me.lblErstelltam.TabIndex = 4
|
|
Me.lblErstelltam.Text = "Erstellt am"
|
|
'
|
|
'lblMutiertam
|
|
'
|
|
Me.lblMutiertam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblMutiertam.Location = New System.Drawing.Point(400, 40)
|
|
Me.lblMutiertam.Name = "lblMutiertam"
|
|
Me.lblMutiertam.Size = New System.Drawing.Size(88, 23)
|
|
Me.lblMutiertam.TabIndex = 5
|
|
Me.lblMutiertam.Text = "Mutiert am"
|
|
'
|
|
'cboowner
|
|
'
|
|
Me.cboowner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.cboowner.Location = New System.Drawing.Point(88, 40)
|
|
Me.cboowner.Name = "cboowner"
|
|
Me.cboowner.Size = New System.Drawing.Size(296, 21)
|
|
Me.cboowner.TabIndex = 3
|
|
'
|
|
'txtBezeichnung
|
|
'
|
|
Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtBezeichnung.Location = New System.Drawing.Point(88, 16)
|
|
Me.txtBezeichnung.Name = "txtBezeichnung"
|
|
Me.txtBezeichnung.Size = New System.Drawing.Size(296, 20)
|
|
Me.txtBezeichnung.TabIndex = 1
|
|
Me.txtBezeichnung.Text = ""
|
|
'
|
|
'lblBezeichnung
|
|
'
|
|
Me.lblBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblBezeichnung.Location = New System.Drawing.Point(16, 16)
|
|
Me.lblBezeichnung.Name = "lblBezeichnung"
|
|
Me.lblBezeichnung.Size = New System.Drawing.Size(88, 23)
|
|
Me.lblBezeichnung.TabIndex = 0
|
|
Me.lblBezeichnung.Text = "Bezeichnung"
|
|
'
|
|
'lblOwner
|
|
'
|
|
Me.lblOwner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblOwner.Location = New System.Drawing.Point(16, 40)
|
|
Me.lblOwner.Name = "lblOwner"
|
|
Me.lblOwner.Size = New System.Drawing.Size(64, 23)
|
|
Me.lblOwner.TabIndex = 3
|
|
Me.lblOwner.Text = "Owner"
|
|
'
|
|
'TreeSelektion
|
|
'
|
|
Me.TreeSelektion.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
|
|
Me.TreeSelektion.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.TreeSelektion.HideSelection = False
|
|
Me.TreeSelektion.ImageList = Me.ImgListSteuerung
|
|
Me.TreeSelektion.Location = New System.Drawing.Point(0, 25)
|
|
Me.TreeSelektion.Name = "TreeSelektion"
|
|
Me.TreeSelektion.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Definition Dokumentpaket", 0, 0, New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Vorlagen-Selektion", 0, 0), New System.Windows.Forms.TreeNode("Beschreibung", 0, 0), New System.Windows.Forms.TreeNode("Struktur", 0, 0)})})
|
|
Me.TreeSelektion.Size = New System.Drawing.Size(176, 476)
|
|
Me.TreeSelektion.TabIndex = 2
|
|
Me.TreeSelektion.TabStop = False
|
|
'
|
|
'ImgListSteuerung
|
|
'
|
|
Me.ImgListSteuerung.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImgListSteuerung.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImgListSteuerung.ImageStream = CType(resources.GetObject("ImgListSteuerung.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImgListSteuerung.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'pnlDokumentvorlagen
|
|
'
|
|
Me.pnlDokumentvorlagen.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeDokVorlagen, Me.pnlTrenner})
|
|
Me.pnlDokumentvorlagen.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.pnlDokumentvorlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.pnlDokumentvorlagen.Location = New System.Drawing.Point(179, 104)
|
|
Me.pnlDokumentvorlagen.Name = "pnlDokumentvorlagen"
|
|
Me.pnlDokumentvorlagen.Size = New System.Drawing.Size(389, 397)
|
|
Me.pnlDokumentvorlagen.TabIndex = 3
|
|
Me.pnlDokumentvorlagen.TabStop = False
|
|
Me.pnlDokumentvorlagen.Text = "Dokumentvorlagen"
|
|
'
|
|
'TreeDokVorlagen
|
|
'
|
|
Me.TreeDokVorlagen.ContextMenu = Me.ctmenuTreeDokVorlagen
|
|
Me.TreeDokVorlagen.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TreeDokVorlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.TreeDokVorlagen.ImageList = Me.ImageList3
|
|
Me.TreeDokVorlagen.Location = New System.Drawing.Point(3, 40)
|
|
Me.TreeDokVorlagen.Name = "TreeDokVorlagen"
|
|
Me.TreeDokVorlagen.Size = New System.Drawing.Size(383, 354)
|
|
Me.TreeDokVorlagen.TabIndex = 1
|
|
Me.TreeDokVorlagen.TabStop = False
|
|
'
|
|
'ctmenuTreeDokVorlagen
|
|
'
|
|
Me.ctmenuTreeDokVorlagen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.ctmnuVorlageSelect, Me.ctmnuVorlageInfo, Me.MenuItem10, Me.ctmnuKnotenSchliessen, Me.ctmnuKnotenOeffnen, Me.ctmnuAktKnotenSchliessen, Me.ctmnuAktKnotenOeffnen})
|
|
'
|
|
'ctmnuVorlageSelect
|
|
'
|
|
Me.ctmnuVorlageSelect.Index = 0
|
|
Me.ctmnuVorlageSelect.Text = "&Vorlage auswählen"
|
|
'
|
|
'ctmnuVorlageInfo
|
|
'
|
|
Me.ctmnuVorlageInfo.Index = 1
|
|
Me.ctmnuVorlageInfo.Text = "&Informationen zur Vorlagen"
|
|
'
|
|
'MenuItem10
|
|
'
|
|
Me.MenuItem10.Index = 2
|
|
Me.MenuItem10.Text = "-"
|
|
'
|
|
'ctmnuKnotenSchliessen
|
|
'
|
|
Me.ctmnuKnotenSchliessen.Index = 3
|
|
Me.ctmnuKnotenSchliessen.Text = "&Alle Knoten schliessen"
|
|
'
|
|
'ctmnuKnotenOeffnen
|
|
'
|
|
Me.ctmnuKnotenOeffnen.Index = 4
|
|
Me.ctmnuKnotenOeffnen.Text = "A&lle Knoten öffnen"
|
|
'
|
|
'ctmnuAktKnotenSchliessen
|
|
'
|
|
Me.ctmnuAktKnotenSchliessen.Index = 5
|
|
Me.ctmnuAktKnotenSchliessen.Text = "&Selektierter Knoten schliessen"
|
|
'
|
|
'ctmnuAktKnotenOeffnen
|
|
'
|
|
Me.ctmnuAktKnotenOeffnen.Index = 6
|
|
Me.ctmnuAktKnotenOeffnen.Text = "&Selektierter Knoten öffnen"
|
|
'
|
|
'ImageList3
|
|
'
|
|
Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'pnlTrenner
|
|
'
|
|
Me.pnlTrenner.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnsuche, Me.txtSuchbegriff, Me.lblSuche})
|
|
Me.pnlTrenner.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.pnlTrenner.Location = New System.Drawing.Point(3, 16)
|
|
Me.pnlTrenner.Name = "pnlTrenner"
|
|
Me.pnlTrenner.Size = New System.Drawing.Size(383, 24)
|
|
Me.pnlTrenner.TabIndex = 0
|
|
'
|
|
'btnsuche
|
|
'
|
|
Me.btnsuche.Image = CType(resources.GetObject("btnsuche.Image"), System.Drawing.Bitmap)
|
|
Me.btnsuche.Location = New System.Drawing.Point(362, 0)
|
|
Me.btnsuche.Name = "btnsuche"
|
|
Me.btnsuche.Size = New System.Drawing.Size(21, 21)
|
|
Me.btnsuche.TabIndex = 5
|
|
'
|
|
'txtSuchbegriff
|
|
'
|
|
Me.txtSuchbegriff.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtSuchbegriff.Location = New System.Drawing.Point(56, 0)
|
|
Me.txtSuchbegriff.Name = "txtSuchbegriff"
|
|
Me.txtSuchbegriff.Size = New System.Drawing.Size(304, 20)
|
|
Me.txtSuchbegriff.TabIndex = 4
|
|
Me.txtSuchbegriff.Text = ""
|
|
'
|
|
'lblSuche
|
|
'
|
|
Me.lblSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblSuche.Location = New System.Drawing.Point(8, 2)
|
|
Me.lblSuche.Name = "lblSuche"
|
|
Me.lblSuche.Size = New System.Drawing.Size(96, 23)
|
|
Me.lblSuche.TabIndex = 0
|
|
Me.lblSuche.Text = "Suchen"
|
|
'
|
|
'pnlSelVorlagen
|
|
'
|
|
Me.pnlSelVorlagen.Controls.AddRange(New System.Windows.Forms.Control() {Me.treeSelVorlagen})
|
|
Me.pnlSelVorlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.pnlSelVorlagen.Location = New System.Drawing.Point(600, 112)
|
|
Me.pnlSelVorlagen.Name = "pnlSelVorlagen"
|
|
Me.pnlSelVorlagen.TabIndex = 4
|
|
Me.pnlSelVorlagen.TabStop = False
|
|
Me.pnlSelVorlagen.Text = "Ausgewählte Vorlagen"
|
|
'
|
|
'treeSelVorlagen
|
|
'
|
|
Me.treeSelVorlagen.CheckBoxes = True
|
|
Me.treeSelVorlagen.ContextMenu = Me.ctmenuSelVorlagen
|
|
Me.treeSelVorlagen.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.treeSelVorlagen.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.treeSelVorlagen.ImageList = Me.ImageList3
|
|
Me.treeSelVorlagen.Location = New System.Drawing.Point(3, 16)
|
|
Me.treeSelVorlagen.Name = "treeSelVorlagen"
|
|
Me.treeSelVorlagen.Size = New System.Drawing.Size(194, 81)
|
|
Me.treeSelVorlagen.TabIndex = 0
|
|
Me.treeSelVorlagen.TabStop = False
|
|
'
|
|
'ctmenuSelVorlagen
|
|
'
|
|
Me.ctmenuSelVorlagen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.ctmnuselvorlagenVorlageLoeschen, Me.ctmnuselVorlagenInfo})
|
|
'
|
|
'ctmnuselvorlagenVorlageLoeschen
|
|
'
|
|
Me.ctmnuselvorlagenVorlageLoeschen.Index = 0
|
|
Me.ctmnuselvorlagenVorlageLoeschen.Text = "Vorlage aus Dokumentpaket löschen"
|
|
'
|
|
'ctmnuselVorlagenInfo
|
|
'
|
|
Me.ctmnuselVorlagenInfo.Index = 1
|
|
Me.ctmnuselVorlagenInfo.Text = "Informationen zur Dokumentvorlage"
|
|
'
|
|
'pnlBeschreibung
|
|
'
|
|
Me.pnlBeschreibung.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBoxHS1, Me.Panel1})
|
|
Me.pnlBeschreibung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.pnlBeschreibung.Location = New System.Drawing.Point(600, 216)
|
|
Me.pnlBeschreibung.Name = "pnlBeschreibung"
|
|
Me.pnlBeschreibung.Size = New System.Drawing.Size(200, 136)
|
|
Me.pnlBeschreibung.TabIndex = 5
|
|
Me.pnlBeschreibung.TabStop = False
|
|
Me.pnlBeschreibung.Text = "Beschreibung"
|
|
'
|
|
'RichTextBoxHS1
|
|
'
|
|
Me.RichTextBoxHS1.AcceptsTab = True
|
|
Me.RichTextBoxHS1.ContextMenu = Me.ctmenuBeschreibung
|
|
Me.RichTextBoxHS1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.RichTextBoxHS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.RichTextBoxHS1.Location = New System.Drawing.Point(3, 16)
|
|
Me.RichTextBoxHS1.Name = "RichTextBoxHS1"
|
|
Me.RichTextBoxHS1.Size = New System.Drawing.Size(194, 37)
|
|
Me.RichTextBoxHS1.TabIndex = 6
|
|
Me.RichTextBoxHS1.Text = ""
|
|
'
|
|
'ctmenuBeschreibung
|
|
'
|
|
Me.ctmenuBeschreibung.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3})
|
|
'
|
|
'MenuItem1
|
|
'
|
|
Me.MenuItem1.Index = 0
|
|
Me.MenuItem1.Text = "Schriftart..."
|
|
'
|
|
'MenuItem2
|
|
'
|
|
Me.MenuItem2.Index = 1
|
|
Me.MenuItem2.Text = "Gelb markieren"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 2
|
|
Me.MenuItem3.Text = "&Markierungen löschen"
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtWichtigeHinweise, Me.lblWichtigeHinweise, Me.Panel2})
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.Panel1.Location = New System.Drawing.Point(3, 53)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(194, 80)
|
|
Me.Panel1.TabIndex = 4
|
|
'
|
|
'txtWichtigeHinweise
|
|
'
|
|
Me.txtWichtigeHinweise.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.txtWichtigeHinweise.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtWichtigeHinweise.Location = New System.Drawing.Point(0, 24)
|
|
Me.txtWichtigeHinweise.MaxLength = 1024
|
|
Me.txtWichtigeHinweise.Multiline = True
|
|
Me.txtWichtigeHinweise.Name = "txtWichtigeHinweise"
|
|
Me.txtWichtigeHinweise.Size = New System.Drawing.Size(194, 56)
|
|
Me.txtWichtigeHinweise.TabIndex = 7
|
|
Me.txtWichtigeHinweise.Text = ""
|
|
'
|
|
'lblWichtigeHinweise
|
|
'
|
|
Me.lblWichtigeHinweise.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.lblWichtigeHinweise.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblWichtigeHinweise.Location = New System.Drawing.Point(0, 8)
|
|
Me.lblWichtigeHinweise.Name = "lblWichtigeHinweise"
|
|
Me.lblWichtigeHinweise.Size = New System.Drawing.Size(194, 16)
|
|
Me.lblWichtigeHinweise.TabIndex = 0
|
|
Me.lblWichtigeHinweise.Text = "Wichtige Hinweise"
|
|
'
|
|
'Panel2
|
|
'
|
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel2.Name = "Panel2"
|
|
Me.Panel2.Size = New System.Drawing.Size(194, 8)
|
|
Me.Panel2.TabIndex = 1
|
|
'
|
|
'pnlStruktur
|
|
'
|
|
Me.pnlStruktur.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeStruktur})
|
|
Me.pnlStruktur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.pnlStruktur.Location = New System.Drawing.Point(600, 352)
|
|
Me.pnlStruktur.Name = "pnlStruktur"
|
|
Me.pnlStruktur.TabIndex = 6
|
|
Me.pnlStruktur.TabStop = False
|
|
Me.pnlStruktur.Text = "Struktur"
|
|
'
|
|
'TreeStruktur
|
|
'
|
|
Me.TreeStruktur.AllowDrop = True
|
|
Me.TreeStruktur.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TreeStruktur.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.TreeStruktur.ImageList = Me.ImageList2
|
|
Me.TreeStruktur.Location = New System.Drawing.Point(3, 16)
|
|
Me.TreeStruktur.Name = "TreeStruktur"
|
|
Me.TreeStruktur.Size = New System.Drawing.Size(194, 81)
|
|
Me.TreeStruktur.TabIndex = 0
|
|
Me.TreeStruktur.TabStop = False
|
|
'
|
|
'ImageList2
|
|
'
|
|
Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
|
|
Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
|
|
Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
|
'
|
|
'ctMenuStruktur
|
|
'
|
|
Me.ctMenuStruktur.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7, Me.mnuMoveItemUp, Me.mnuMoveItemDown})
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 0
|
|
Me.MenuItem4.Shortcut = System.Windows.Forms.Shortcut.F2
|
|
Me.MenuItem4.Text = "Umbenennen"
|
|
'
|
|
'MenuItem5
|
|
'
|
|
Me.MenuItem5.Index = 1
|
|
Me.MenuItem5.Shortcut = System.Windows.Forms.Shortcut.Del
|
|
Me.MenuItem5.Text = "Löschen"
|
|
'
|
|
'MenuItem6
|
|
'
|
|
Me.MenuItem6.Index = 2
|
|
Me.MenuItem6.Shortcut = System.Windows.Forms.Shortcut.CtrlN
|
|
Me.MenuItem6.Text = "Neuer Ordner"
|
|
'
|
|
'MenuItem7
|
|
'
|
|
Me.MenuItem7.Index = 3
|
|
Me.MenuItem7.Text = "-"
|
|
'
|
|
'mnuMoveItemUp
|
|
'
|
|
Me.mnuMoveItemUp.Index = 4
|
|
Me.mnuMoveItemUp.Text = "&Aufwärts"
|
|
'
|
|
'mnuMoveItemDown
|
|
'
|
|
Me.mnuMoveItemDown.Index = 5
|
|
Me.mnuMoveItemDown.Text = "Abbwärts"
|
|
'
|
|
'Splitter1
|
|
'
|
|
Me.Splitter1.Location = New System.Drawing.Point(176, 25)
|
|
Me.Splitter1.Name = "Splitter1"
|
|
Me.Splitter1.Size = New System.Drawing.Size(3, 476)
|
|
Me.Splitter1.TabIndex = 7
|
|
Me.Splitter1.TabStop = False
|
|
'
|
|
'BtnHelp
|
|
'
|
|
Me.BtnHelp.Anchor = (System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right)
|
|
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Bitmap)
|
|
Me.BtnHelp.Location = New System.Drawing.Point(790, 6)
|
|
Me.BtnHelp.Name = "BtnHelp"
|
|
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
|
|
Me.BtnHelp.TabIndex = 68
|
|
Me.BtnHelp.TabStop = False
|
|
'
|
|
'Panel3
|
|
'
|
|
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.Panel3.Location = New System.Drawing.Point(179, 96)
|
|
Me.Panel3.Name = "Panel3"
|
|
Me.Panel3.Size = New System.Drawing.Size(637, 8)
|
|
Me.Panel3.TabIndex = 69
|
|
'
|
|
'frmDokumentpaketdefinition
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(816, 501)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.pnlStruktur, Me.pnlBeschreibung, Me.pnlSelVorlagen, Me.pnlDokumentvorlagen, Me.Panel3, Me.BtnHelp, Me.grpAllgemein, Me.Splitter1, Me.TreeSelektion, Me.ToolBar1})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmDokumentpaketdefinition"
|
|
Me.ShowInTaskbar = False
|
|
Me.Text = "Dokumentpaket-Definition"
|
|
Me.grpAllgemein.ResumeLayout(False)
|
|
Me.pnlDokumentvorlagen.ResumeLayout(False)
|
|
Me.pnlTrenner.ResumeLayout(False)
|
|
Me.pnlSelVorlagen.ResumeLayout(False)
|
|
Me.pnlBeschreibung.ResumeLayout(False)
|
|
Me.Panel1.ResumeLayout(False)
|
|
Me.pnlStruktur.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
Dim m_anzeige As Boolean = False
|
|
Property Anzeige() As Boolean
|
|
Get
|
|
Return m_anzeige
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_anzeige = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim Moveitem As Boolean = False
|
|
Dim WithEvents mcbowner As New MultiComboBox()
|
|
Dim m_individuell As Boolean
|
|
Property Individuelles_DP() As Boolean
|
|
Get
|
|
Return m_individuell
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_individuell = Value
|
|
End Set
|
|
End Property
|
|
Dim m_neu As Boolean
|
|
Property Neu() As Boolean
|
|
Get
|
|
Return m_neu
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_neu = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_kopie As Boolean
|
|
Property Kopie() As Boolean
|
|
Get
|
|
Return m_kopie
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_kopie = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Mitarbeiterkopie As Boolean
|
|
Property MitarbeiterKopie() As Boolean
|
|
Get
|
|
Return m_Mitarbeiterkopie
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_Mitarbeiterkopie = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_mitarbeiternr As Integer
|
|
Property Mitarbeiternr() As Integer
|
|
Get
|
|
Return m_mitarbeiternr
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_mitarbeiternr = Value
|
|
End Set
|
|
End Property
|
|
Dim vonmitarbeiter As String = ""
|
|
|
|
Friend selectPoint As New System.Drawing.Point()
|
|
|
|
Dim i As Integer
|
|
|
|
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 tn As TreeNode
|
|
Dim tn1 As TreeNode
|
|
|
|
Dim m_strukturnr As Integer = 0
|
|
Property StrukturNr() As Integer
|
|
Get
|
|
Return m_strukturnr
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_strukturnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim Aus_Formvalidate As Boolean = False
|
|
Dim haschanges As Boolean = False
|
|
Dim ShowOnly As Boolean = False
|
|
|
|
Dim DokumenttypNummern As String = ""
|
|
Dim LoadFromUebersicht As Boolean = False
|
|
#End Region
|
|
|
|
|
|
#Region "Init"
|
|
Public Sub New(ByVal Neues_DP As Boolean, ByVal dokumentpaketnr As Integer, ByVal individuelles_DP As Boolean)
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
Me.Dokumentpaketnr = dokumentpaketnr
|
|
Me.Individuelles_DP = individuelles_DP
|
|
Me.Neu = Neues_DP
|
|
|
|
If Me.Individuelles_DP = True Then Me.TreeStruktur.ContextMenu = Me.ctMenuStruktur Else Me.TreeStruktur.ContextMenu = Nothing
|
|
End Sub
|
|
|
|
Public Sub New(ByVal Neues_DP As Boolean, ByVal dokumentpaketnr As Integer, ByVal individuelles_DP As Boolean, ByVal ShowOnly As Boolean)
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
Me.Dokumentpaketnr = dokumentpaketnr
|
|
Me.Individuelles_DP = individuelles_DP
|
|
Me.Neu = Neues_DP
|
|
Me.ShowOnly = ShowOnly
|
|
If ShowOnly = True Then
|
|
Me.btnSave.Visible = False
|
|
End If
|
|
If Me.Individuelles_DP = True Then Me.TreeStruktur.ContextMenu = Me.ctMenuStruktur Else Me.TreeStruktur.ContextMenu = Nothing
|
|
End Sub
|
|
|
|
Public Sub New(ByVal Neues_DP As Boolean, ByVal Dokumentpaketnr As Integer, ByVal individuelles_dp As Boolean, ByVal Dokumenttypnummern As String)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.Dokumentpaketnr = Dokumentpaketnr
|
|
Me.Individuelles_DP = individuelles_dp
|
|
Me.Neu = Neues_DP
|
|
Me.ShowOnly = ShowOnly
|
|
If ShowOnly = True Then
|
|
Me.btnSave.Visible = False
|
|
End If
|
|
If Me.Individuelles_DP = True Then Me.TreeStruktur.ContextMenu = Me.ctMenuStruktur Else Me.TreeStruktur.ContextMenu = Nothing
|
|
Me.DokumenttypNummern = Dokumenttypnummern
|
|
End Sub
|
|
|
|
Public Sub New(ByVal Dokumentpaketnr As Integer, ByVal mitarbeiternr As Integer)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.Dokumentpaketnr = Dokumentpaketnr
|
|
Me.Individuelles_DP = True
|
|
Me.Neu = False
|
|
Me.ShowOnly = False
|
|
Me.MitarbeiterKopie = True
|
|
Me.Mitarbeiternr = mitarbeiternr
|
|
If Me.Individuelles_DP = True Then Me.TreeStruktur.ContextMenu = Me.ctMenuStruktur Else Me.TreeStruktur.ContextMenu = Nothing
|
|
End Sub
|
|
|
|
Private Sub frmDokumentpaketdefinition_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
'Abhängig ob es sich um ein individuelles Dokumentpaket handelt, die vollständige Dokumentstruktur oder diejenige des
|
|
'Benutzers laden
|
|
'Test'
|
|
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim d As New edokadb.clsMyDokumentart()
|
|
If Me.Individuelles_DP = True Then
|
|
Me.mcbowner.Enabled = False
|
|
Me.cboowner.Enabled = False
|
|
'd.Load_Neue_Dokumente(Me.TreeDokVorlagen, "", False, 0)
|
|
d.Load_Neue_Dokumente(Me.TreeDokVorlagen, "", False, 0)
|
|
Else
|
|
Me.btnnew.Visible = False
|
|
Me.btnopen.Visible = False
|
|
d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, "", False, 0)
|
|
End If
|
|
d.Dispose()
|
|
|
|
Load_Owners()
|
|
|
|
Me.TreeSelektion.Nodes.Clear()
|
|
tn = Me.TreeSelektion.Nodes.Add("Definition")
|
|
tn.Tag = 0
|
|
tn.ImageIndex = 0
|
|
tn.SelectedImageIndex = 0
|
|
|
|
tn1 = tn.Nodes.Add("Vorlagen")
|
|
tn1.Tag = 1
|
|
tn1.ImageIndex = 1
|
|
tn1.SelectedImageIndex = 1
|
|
|
|
tn1 = tn.Nodes.Add("Beschreibung")
|
|
tn1.Tag = 2
|
|
tn1.ImageIndex = 1
|
|
tn1.SelectedImageIndex = 1
|
|
|
|
tn1 = tn.Nodes.Add("Struktur")
|
|
tn1.Tag = 3
|
|
tn1.ImageIndex = 1
|
|
tn1.SelectedImageIndex = 1
|
|
|
|
Me.TreeSelektion.ExpandAll()
|
|
DivFnkt.Searchnode(Me.TreeSelektion, 1, 0)
|
|
Load_Struktur_Daten()
|
|
|
|
If Neu Then
|
|
Me.dterstelltam.Value = Now
|
|
Me.dtmutiertam.Value = Now
|
|
Me.cbAktiv.Checked = True
|
|
i = Globals.MitarbeiterNr
|
|
Me.mcbowner.SelectedValue = i
|
|
Else
|
|
If Me.DokumenttypNummern = "" Then
|
|
Load_Dokumentpaket(False)
|
|
If MitarbeiterKopie = True Then
|
|
Me.vonmitarbeiter = Me.mcbowner.Text
|
|
|
|
d.Load_FavoritenStruktur_dp_MAKopie(Me.Mitarbeiternr, Me.TreeStruktur, "", True, 1)
|
|
Me.TreeStruktur.ExpandAll()
|
|
Me.TreeStruktur.AllowDrop = True
|
|
Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
|
|
Me.StrukturNr = Me.TreeStruktur.SelectedNode.Tag
|
|
Me.dterstelltam.Value = Now
|
|
Me.dtmutiertam.Value = Now
|
|
Me.cbAktiv.Checked = True
|
|
Me.mcbowner.SelectedValue = Me.Mitarbeiternr
|
|
Me.Neu = True
|
|
Me.txtBezeichnung.Text = Me.txtBezeichnung.Text + " (von " + Me.vonmitarbeiter + ")"
|
|
Me.Save_Dokumentpaket()
|
|
Exit Sub
|
|
End If
|
|
If Kopie = True Then
|
|
Me.dterstelltam.Value = Now
|
|
Me.dtmutiertam.Value = Now
|
|
Me.cbAktiv.Checked = True
|
|
i = Globals.MitarbeiterNr
|
|
Me.mcbowner.SelectedValue = i
|
|
Me.StrukturNr = 0
|
|
Me.Neu = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
|
|
If Me.DokumenttypNummern <> "" Then
|
|
load_dokumentpaket_dt()
|
|
End If
|
|
|
|
FormValidator(False)
|
|
|
|
Me.TreeDokVorlagen.ExpandAll()
|
|
Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
|
|
Me.haschanges = False
|
|
Me.Cursor = Cursors.Default
|
|
' Me.TreeDokVorlagen_MouseDown(sender, e)
|
|
If Me.Anzeige Then Me.btnSave.Visible = False
|
|
If Me.Individuelles_DP = True Then Me.TreeStruktur.ContextMenu = Me.ctMenuStruktur Else Me.TreeStruktur.ContextMenu = Nothing
|
|
If Me.Kopie Then Me.txtBezeichnung.Text = "Kopie von " + Me.txtBezeichnung.Text
|
|
End Sub
|
|
|
|
Private Sub load_dokumentpaket_dt()
|
|
Dim splitter
|
|
Dim i1 As Integer
|
|
Dim i As Integer
|
|
Load_Dokumentpaket(True)
|
|
i = Globals.MitarbeiterNr
|
|
Me.mcbowner.SelectedValue = i
|
|
'Me.StrukturNr = 0
|
|
|
|
splitter = Microsoft.VisualBasic.Split(Me.DokumenttypNummern, ";")
|
|
i = 0
|
|
Try
|
|
Do Until splitter(i) Is Nothing
|
|
If splitter(i) <> "" Then
|
|
For i1 = 0 To Me.treeSelVorlagen.GetNodeCount(True) - 1
|
|
If Me.treeSelVorlagen.Nodes(i1).Tag = "DT_" + splitter(i) Then
|
|
splitter(i) = "X"
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
i = i + 1
|
|
Loop
|
|
Catch
|
|
End Try
|
|
|
|
i = 0
|
|
Try
|
|
Do Until splitter(i) Is Nothing
|
|
If splitter(i) <> "X" Then
|
|
|
|
'Dim dview As New DataView(Globals.Vorlagendata, "Dokumenttypnr= '" + "DT_" + splitter(i) + "'", "Parentid, sort", DataViewRowState.CurrentRows)
|
|
'Dim drv1 As DataRowView
|
|
'For Each drv1 In dview
|
|
' Dim tn As TreeNode
|
|
' tn = Me.treeSelVorlagen.Nodes.Add(drv1.Item("dt_Bezeichnung"))
|
|
' tn.ImageIndex = drv1.Item("Imageindex")
|
|
' tn.SelectedImageIndex = drv1.Item("Imageindex")
|
|
' tn.Tag = "DT_" + splitter(i)
|
|
' Me.haschanges = True
|
|
'Next
|
|
|
|
DivFnkt.Searchnode(Me.TreeDokVorlagen, "DT_" + splitter(i), 0)
|
|
If DivFnkt.found Then
|
|
Dim tn As TreeNode
|
|
tn = Me.treeSelVorlagen.Nodes.Add(DivFnkt.FoundNode.Text)
|
|
tn.ImageIndex = DivFnkt.FoundNode.ImageIndex
|
|
tn.SelectedImageIndex = DivFnkt.FoundNode.SelectedImageIndex
|
|
tn.Tag = DivFnkt.FoundNode.Tag
|
|
Me.haschanges = True
|
|
End If
|
|
End If
|
|
i = i + 1
|
|
Loop
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Navigation"
|
|
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()
|
|
Case 1 'Save
|
|
Save_Dokumentpaket()
|
|
Case 2 'neu
|
|
If Me.haschanges = True Then
|
|
Dim i As Integer
|
|
i = MyMsg.Show_MessageYesNoCancel(2)
|
|
If i = MsgBoxResult.Cancel Then Exit Sub
|
|
If i = MsgBoxResult.Yes Then
|
|
If Me.FormValidator(True) = False Then
|
|
Exit Sub
|
|
Else
|
|
Me.Save_Dokumentpaket()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Me.Neu = True
|
|
Me.Kopie = False
|
|
Me.TreeSelektion.SelectedNode = Me.TreeSelektion.Nodes(0)
|
|
Me.treeSelVorlagen.Nodes.Clear()
|
|
Me.txtBezeichnung.Text = ""
|
|
Me.dterstelltam.Value = Now
|
|
Me.dtmutiertam.Value = Now
|
|
Me.cbAktiv.Checked = True
|
|
i = Globals.MitarbeiterNr
|
|
Me.mcbowner.SelectedValue = i
|
|
Me.StrukturNr = nothing
|
|
Me.RichTextBoxHS1.Text = ""
|
|
Me.txtWichtigeHinweise.Text = ""
|
|
Me.FormValidator(False)
|
|
Case 3 'Auswahl
|
|
If Me.haschanges = True Then
|
|
Dim i As Integer
|
|
i = MyMsg.Show_MessageYesNoCancel(2)
|
|
If i = MsgBoxResult.Cancel Then Exit Sub
|
|
If i = MsgBoxResult.Yes Then
|
|
If Me.FormValidator(True) = False Then
|
|
Exit Sub
|
|
Else
|
|
Me.Save_Dokumentpaket()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Dim f As New frmDokumentpaketuebersicht(Globals.MitarbeiterNr)
|
|
f.individuelles_dp = True
|
|
|
|
f.FormMaximize = False
|
|
f.StartPosition = FormStartPosition.Manual
|
|
f.ShowDialog()
|
|
If f.TransferKey <> 0 Then
|
|
Me.haschanges = False
|
|
Me.LoadFromUebersicht = True
|
|
Me.Dokumentpaketnr = f.TransferKey
|
|
Me.Kopie = False
|
|
Me.Neu = False
|
|
Me.treeSelVorlagen.Nodes.Clear()
|
|
Me.StrukturNr = 0
|
|
Load_Dokumentpaket(False)
|
|
Me.LoadFromUebersicht = False
|
|
Me.FormValidator(False)
|
|
|
|
End If
|
|
Case Else
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub frmDokumentpaketdefinition_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
If Me.Anzeige = True Then Exit Sub
|
|
If Me.haschanges = True Then
|
|
Dim i As Integer
|
|
i = MyMsg.Show_MessageYesNoCancel(2)
|
|
If i = MsgBoxResult.Cancel Then e.Cancel = True
|
|
If i = MsgBoxResult.No Then Exit Sub
|
|
If i = MsgBoxResult.Yes Then
|
|
If Me.FormValidator(True) = False Then
|
|
e.Cancel = True
|
|
Else
|
|
Me.Save_Dokumentpaket()
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
|
|
Dim sNodeText As String
|
|
Dim iDokumentFavoritenNr As Integer
|
|
|
|
sNodeText = InputBox("Neuer Ordnername", "Neuer Favoritenordner hinzufügen")
|
|
If sNodeText = "" Then Exit Sub
|
|
Dim fs As New edokadb.clsEDEX_Favoriten()
|
|
fs.cpMainConnectionProvider = conn
|
|
fs.sBezeichnung = New SqlString(CType(sNodeText, String))
|
|
fs.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
fs.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
fs.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
fs.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
fs.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
fs.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
fs.iParentid = New SqlInt32(CType(Me.TreeStruktur.SelectedNode.Tag, Int32))
|
|
fs.iSort = New SqlInt32(CType(0, Int32))
|
|
fs.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
|
|
fs.iImageindex = New SqlInt32(CType(60, Int32))
|
|
fs.iImageindexopen = New SqlInt32(CType(60, Int32))
|
|
fs.bDp = New SqlBoolean(CType(True, Boolean))
|
|
fs.bStddp = New SqlBoolean(CType(False, Boolean))
|
|
fs.iDtnr_dpnr = New SqlInt32(CType(0, Int32))
|
|
fs.bStrukturelement = New SqlBoolean(CType(True, Boolean))
|
|
conn.OpenConnection()
|
|
Try
|
|
fs.Insert()
|
|
iDokumentFavoritenNr = fs.iNreintrag.Value
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
conn.CloseConnection(True)
|
|
fs.Dispose()
|
|
End Try
|
|
Me.Load_Struktur_Daten()
|
|
|
|
End Sub
|
|
|
|
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
|
|
Dim a As String
|
|
a = InputBox("Neuer Name:")
|
|
If a = "" Then Exit Sub
|
|
Me.TreeStruktur.SelectedNode.Text = a
|
|
Dim df As New edokadb.clsEDEX_Favoriten()
|
|
df.cpMainConnectionProvider = conn
|
|
conn.OpenConnection()
|
|
df.iNreintrag = New SqlInt32(CType(Me.TreeStruktur.SelectedNode.Tag, Int32))
|
|
df.SelectOne()
|
|
df.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
df.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
df.sBezeichnung = New SqlString(CType(Me.TreeStruktur.SelectedNode.Text, String))
|
|
df.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
df.iSprache = New SqlInt32(CType(Globals.Sprache, Int32))
|
|
df.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
Try
|
|
df.Update()
|
|
conn.CloseConnection(True)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
|
|
Globals.HTMLHelp.ShowHelpToc("dokumentpaketdefinitionsdialog")
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Dokumentpaket laden/speichern"
|
|
Public Sub Save_Dokumentpaket()
|
|
If Me.FormValidator(True) = False Then Exit Sub
|
|
Me.haschanges = False
|
|
'Save Paket
|
|
|
|
Dim key As Integer
|
|
Dim dp As New edokadb.clsEdex_dokumentpaket()
|
|
dp.cpMainConnectionProvider = conn
|
|
|
|
If Neu Then
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("edex_dokumentpaket")
|
|
dbkey.Dispose()
|
|
Me.Dokumentpaketnr = key
|
|
Else
|
|
key = Me.Dokumentpaketnr
|
|
dp.iDokumentpaketnr = New SqlInt32(CType(key, Int32))
|
|
dp.SelectOne()
|
|
End If
|
|
|
|
dp.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
dp.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
dp.sBeschreibung = New SqlString(CType("", String))
|
|
dp.iOwner = New SqlInt32(CType(Me.mcbowner.SelectedValue, Int32))
|
|
dp.bIndividuelles_dp = New SqlBoolean(CType(Me.Individuelles_DP, Boolean))
|
|
dp.iDokumentartnr = New SqlInt32(CType(Me.TreeStruktur.SelectedNode.Tag, Int32))
|
|
dp.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dp.bAktiv = New SqlBoolean(CType(Me.cbAktiv.Checked, Boolean))
|
|
dp.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
dp.sWichtigehinweise = New SqlString(CType(Me.txtWichtigeHinweise.Text, String))
|
|
|
|
conn.OpenConnection()
|
|
If Neu Then
|
|
dp.iDokumentpaketnr = New SqlInt32(CType(key, Int32))
|
|
dp.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dp.iSort = New SqlInt32(CType(0, Int32))
|
|
dp.Insert()
|
|
Else
|
|
dp.Update()
|
|
End If
|
|
conn.CloseConnection(True)
|
|
dp.Dispose()
|
|
|
|
'Save Paketvorlagen
|
|
'Zuerst bestehende Vorlagen löschen
|
|
Generic_Select(1)
|
|
|
|
Dim dpv As New edokadb.clsEdex_dokumentpaketvorlage()
|
|
dpv.cpMainConnectionProvider = conn
|
|
|
|
Dim tn As TreeNode
|
|
For Each tn In Me.treeSelVorlagen.Nodes
|
|
dpv.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
dpv.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
dpv.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
dpv.iDokumentpaketnr = New SqlInt32(CType(Me.Dokumentpaketnr, Int32))
|
|
dpv.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32))
|
|
dpv.iSort = New SqlInt32(CType(tn.Index, Int32))
|
|
dpv.iDokumenttypnr = New SqlInt32(CType(TagValue(tn.Tag), Int32))
|
|
dpv.iImageindex = New SqlInt32(CType(tn.ImageIndex, Int32))
|
|
If tn.Checked = True Then
|
|
dpv.iZwingend = New SqlInt32(CType(1, Int32))
|
|
Else
|
|
dpv.iZwingend = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
conn.OpenConnection()
|
|
dpv.Insert()
|
|
conn.CloseConnection(True)
|
|
Next
|
|
dpv.Dispose()
|
|
|
|
' Beschreibung speichern
|
|
Save_Beschreibung()
|
|
Me.Neu = False
|
|
|
|
End Sub
|
|
|
|
Private Sub Load_Dokumentpaket(ByVal Inaktive_Vorlage_Loeschen As Boolean)
|
|
'Dokumentpaket
|
|
Dim dp As New edokadb.clsEdex_dokumentpaket()
|
|
dp.cpMainConnectionProvider = conn
|
|
dp.iDokumentpaketnr = New SqlInt32(CType(Me.Dokumentpaketnr, Int32))
|
|
dp.SelectOne()
|
|
Me.txtBezeichnung.Text = dp.sBezeichnung.Value
|
|
i = dp.iOwner.Value
|
|
Me.mcbowner.SelectedValue = i
|
|
Me.cbAktiv.Checked = dp.bAktiv.Value = True
|
|
DivFnkt.Searchnode(Me.TreeStruktur, dp.iDokumentartnr.Value, 1)
|
|
If DivFnkt.found = False Then
|
|
' Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
|
|
End If
|
|
Me.dterstelltam.Value = dp.daErstellt_am.Value
|
|
Me.dtmutiertam.Value = dp.daMutiert_am.Value
|
|
Me.txtWichtigeHinweise.Text = dp.sWichtigehinweise.Value
|
|
Me.StrukturNr = dp.iDokumentartnr.Value
|
|
DivFnkt.Searchnode1(Me.TreeStruktur, Me.StrukturNr, 0)
|
|
If DivFnkt.found Then
|
|
Me.StrukturNr = DivFnkt.FoundNode.Tag
|
|
Else
|
|
Me.StrukturNr = Me.TreeStruktur.Nodes(0).Tag
|
|
End If
|
|
dp.Dispose()
|
|
|
|
'Dokumentpaketvorlagen
|
|
Dim dpv As DataTable
|
|
dpv = Generic_Select(2)
|
|
Me.treeSelVorlagen.Nodes.Clear()
|
|
|
|
Dim tn As TreeNode
|
|
For i = 0 To dpv.Rows.Count - 1
|
|
If (dpv.Rows(i).Item("dtaktiv") = False And (Me.Individuelles_DP = False Or Me.Kopie = True)) Or Inaktive_Vorlage_Loeschen = True Then
|
|
Else
|
|
tn = Me.treeSelVorlagen.Nodes.Add(dpv.Rows(i).Item("doktypbezeichnung"))
|
|
tn.Checked = dpv.Rows(i).Item("zwingend") = 1
|
|
tn.ImageIndex = dpv.Rows(i).Item("imageindex")
|
|
tn.SelectedImageIndex = dpv.Rows(i).Item("imageindex")
|
|
tn.Tag = "DT_" + LTrim(Str(dpv.Rows(i).Item("dokumenttypnr")))
|
|
Try
|
|
If dpv.Rows(i).Item("dtaktiv") = 0 Then
|
|
tn.NodeFont = New System.Drawing.Font(Me.treeSelVorlagen.Font.FontFamily, treeSelVorlagen.Font.Size, FontStyle.Strikeout)
|
|
End If
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End If
|
|
Next
|
|
|
|
'Beschreibung
|
|
Load_Beschreibung()
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Load_Beschreibung()
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("Select * From EDEX_dokumentpaket where dokumentpaketnr=" + Str(Me.Dokumentpaketnr), connection)
|
|
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
|
|
Dim ds As New DataSet()
|
|
Dim dokname As String
|
|
dokname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "tmp.rtf"
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
da.Fill(ds, "docbeschreibung")
|
|
Dim myRow As DataRow
|
|
myRow = ds.Tables(0).Rows(0)
|
|
Dim MyData() As Byte
|
|
MyData = myRow.Item(5)
|
|
Dim K As Long
|
|
K = UBound(MyData)
|
|
|
|
Dim fs As New FileStream(dokname, FileMode.OpenOrCreate, FileAccess.Write)
|
|
fs.Write(MyData, 0, K)
|
|
fs.Close()
|
|
fs = Nothing
|
|
Me.RichTextBoxHS1.LoadFile(dokname)
|
|
Catch ex As Exception
|
|
|
|
Finally
|
|
CB = Nothing
|
|
ds = Nothing
|
|
da = Nothing
|
|
connection.Close()
|
|
connection = Nothing
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Save_Beschreibung()
|
|
Dim Connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("Select * From edex_dokumentpaket where dokumentpaketnr=" + Str(Me.Dokumentpaketnr), Connection)
|
|
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
|
|
Dim ds As New DataSet()
|
|
Dim dokname As String
|
|
dokname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "tmp.rtf"
|
|
Me.RichTextBoxHS1.SaveFile(dokname)
|
|
Dim fs As New FileStream(dokname, FileMode.OpenOrCreate, FileAccess.Read)
|
|
Dim mydata(fs.Length) As Byte
|
|
Try
|
|
fs.Read(mydata, 0, fs.Length)
|
|
fs.Close()
|
|
Connection.ConnectionString = Globals.sConnectionString
|
|
Connection.Open()
|
|
da.Fill(ds, "docs")
|
|
Dim myRow As DataRow
|
|
myRow = ds.Tables(0).Rows(0)
|
|
myRow.Item(5) = mydata
|
|
da.Update(ds, "docs")
|
|
Catch ex As Exception
|
|
MyMsg.show_standardmessage(86, MsgBoxStyle.Critical)
|
|
Finally
|
|
fs = Nothing
|
|
cb = Nothing
|
|
ds = Nothing
|
|
da = Nothing
|
|
Connection.Close()
|
|
Connection = Nothing
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Datenhandling"
|
|
Public Function FormValidator(ByVal ShowErrors As Boolean) As Boolean
|
|
Me.Aus_Formvalidate = True
|
|
Dim SaveOK As Boolean = True
|
|
Dim tn As TreeNode
|
|
Dim ctn As TreeNode
|
|
Dim ErrorMsg As String = "Das Dokumentpaket kann aus folgenden Gründen nicht gespeichert werden:"
|
|
|
|
ctn = Me.TreeSelektion.SelectedNode
|
|
|
|
DivFnkt.Searchnode(Me.TreeSelektion, 1, 0)
|
|
If DivFnkt.found Then
|
|
tn = DivFnkt.FoundNode
|
|
If Me.txtBezeichnung.Text = "" Or Me.treeSelVorlagen.GetNodeCount(True) < 2 Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 1
|
|
SaveOK = False
|
|
If ShowErrors Then
|
|
If Me.txtBezeichnung.Text = "" Then ErrorMsg = ErrorMsg + vbCrLf + "- Bezeichnung des Dokumentpaketes fehlt"
|
|
If Me.treeSelVorlagen.GetNodeCount(True) < 2 Then ErrorMsg = ErrorMsg + vbCrLf + "- Es müssen mind. 2 Vorlagen ausgewählt werden"
|
|
End If
|
|
Else
|
|
tn.ImageIndex = 2
|
|
tn.SelectedImageIndex = 2
|
|
End If
|
|
|
|
End If
|
|
|
|
DivFnkt.Searchnode(Me.TreeSelektion, 2, 0)
|
|
If DivFnkt.found Then
|
|
tn = DivFnkt.FoundNode
|
|
If Me.RichTextBoxHS1.Text.Length < 1 And Me.Individuelles_DP = False Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 1
|
|
SaveOK = False
|
|
If ShowErrors Then ErrorMsg = ErrorMsg + vbCrLf + "- Die Beschreibung fehlt"
|
|
Else
|
|
tn.ImageIndex = 2
|
|
tn.SelectedImageIndex = 2
|
|
End If
|
|
End If
|
|
|
|
DivFnkt.Searchnode(Me.TreeSelektion, 3, 0)
|
|
If DivFnkt.found Then
|
|
tn = DivFnkt.FoundNode
|
|
If Me.StrukturNr = 0 Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 1
|
|
SaveOK = False
|
|
If ShowErrors Then ErrorMsg = ErrorMsg + vbCrLf + "- Die Zuordnung zur Struktur fehlt"
|
|
Else
|
|
Try
|
|
If Me.TreeStruktur.SelectedNode.Tag Is Nothing Then
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 1
|
|
SaveOK = False
|
|
If ShowErrors Then ErrorMsg = ErrorMsg + vbCrLf + "- Die Zuordnung zur Struktur fehlt"
|
|
Else
|
|
tn.ImageIndex = 2
|
|
tn.SelectedImageIndex = 2
|
|
|
|
End If
|
|
Catch
|
|
Try
|
|
If Me.TreeStruktur.Nodes(0).Tag = Me.StrukturNr Then
|
|
tn.ImageIndex = 2
|
|
tn.SelectedImageIndex = 2
|
|
Me.TreeStruktur.SelectedNode = Me.TreeStruktur.Nodes(0)
|
|
DivFnkt.Searchnode(Me.TreeSelektion, ctn.Tag, 0)
|
|
Exit Function
|
|
End If
|
|
Catch
|
|
End Try
|
|
tn.ImageIndex = 1
|
|
tn.SelectedImageIndex = 1
|
|
SaveOK = False
|
|
If ShowErrors Then ErrorMsg = ErrorMsg + vbCrLf + "- Die Zuordnung zur Struktur fehlt"
|
|
End Try
|
|
End If
|
|
Else
|
|
SaveOK = False
|
|
If ShowErrors Then ErrorMsg = ErrorMsg + vbCrLf + "- Die Zuordnung zur Struktur fehlt"
|
|
End If
|
|
DivFnkt.Searchnode(Me.TreeSelektion, ctn.Tag, 0)
|
|
Me.Aus_Formvalidate = False
|
|
|
|
If SaveOK = False Then
|
|
If ShowErrors = True Then MsgBox(ErrorMsg, MsgBoxStyle.Critical, "Dokumentpaket speichern")
|
|
Return False
|
|
End If
|
|
Me.btnSave.Enabled = True
|
|
Return True
|
|
End Function
|
|
|
|
Private Sub txtBezeichnung_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBezeichnung.Leave, RichTextBoxHS1.Leave
|
|
Me.FormValidator(False)
|
|
End Sub
|
|
|
|
Private Sub txtBezeichnung_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBezeichnung.KeyUp
|
|
Me.FormValidator(False)
|
|
End Sub
|
|
|
|
Private Sub RichTextBoxHS1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBoxHS1.KeyUp
|
|
Me.FormValidator(False)
|
|
End Sub
|
|
|
|
Private Sub txtBezeichnung_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBezeichnung.TextChanged, RichTextBoxHS1.TextChanged, mcbowner.SelectedValueChanged, cbAktiv.CheckedChanged
|
|
If Me.LoadFromUebersicht = True Then Exit Sub
|
|
Me.haschanges = True
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Handing Beschreibung"
|
|
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
|
|
Me.FontDialog1.ShowColor = True
|
|
Me.FontDialog1.ShowApply = True
|
|
Me.FontDialog1.ShowEffects = True
|
|
Me.FontDialog1.ShowDialog()
|
|
RichTextBoxHS1.SelectionFont = Me.FontDialog1.Font
|
|
RichTextBoxHS1.SelectionColor = Me.FontDialog1.Color
|
|
End Sub
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
|
|
RichTextBoxHS1.SelectionBackColor = System.Drawing.Color.Yellow
|
|
End Sub
|
|
|
|
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
|
|
RichTextBoxHS1.BackColorSetWhole(System.Drawing.Color.White)
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Datenbankzugriffe"
|
|
|
|
Private Sub Load_Owners()
|
|
Dim ii As Integer
|
|
mcbowner = New MultiComboBox(cboowner)
|
|
Me.mcbowner.DisplayColumnName = "name"
|
|
Me.mcbowner.ValueColumnName = "mitarbeiternr"
|
|
Me.mcbowner.Fill_Data(Generic_Select(3), False)
|
|
Me.cboowner.Visible = True
|
|
Me.mcbowner.Visible = 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_dokumentpaketvorlagen_delete"
|
|
Case 2
|
|
scmCmdToExecute.CommandText = "edex_sp_dokumentpaketvorlagen_select"
|
|
Case 3
|
|
scmCmdToExecute.CommandText = "SP_Dokumentbearbeitung_Mitarbeiter"
|
|
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, 2
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentpaketnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentpaketnr))
|
|
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 Function save_SortID(ByVal wert As Integer, ByVal keyvalue As Integer, ByVal indexnr As Integer)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "edex_sp_dokumentpaketstruktur_update"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, keyvalue))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@indexnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexnr))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
conn.OpenConnection()
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
conn.CloseConnection(True)
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Suche"
|
|
Private Sub txtSuchbegriff_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSuchbegriff.KeyDown
|
|
If e.KeyCode = Keys.KeyCode.Return Then
|
|
dokumentvorlage_suchen()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub dokumentvorlage_suchen()
|
|
Me.TreeDokVorlagen.BeginUpdate()
|
|
Dim d As New edokadb.clsMyDokumentart()
|
|
|
|
If Me.Individuelles_DP = True Then
|
|
d.Load_Neue_Dokumente(Me.TreeDokVorlagen, Me.txtSuchbegriff.Text, False, 0)
|
|
Else
|
|
d.Load_Neue_Dokumente_Vollstaendig(Me.TreeDokVorlagen, Me.txtSuchbegriff.Text, False, 0)
|
|
End If
|
|
d.Dispose()
|
|
Me.TreeDokVorlagen.ExpandAll()
|
|
'Me.txtSuchbegriff.Text = ""
|
|
Me.TreeDokVorlagen.EndUpdate()
|
|
Try
|
|
Me.TreeDokVorlagen.SelectedNode = Me.TreeDokVorlagen.Nodes(0)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnsuche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuche.Click
|
|
dokumentvorlage_suchen()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Drag&Drop"
|
|
Private Sub TreeDokVorlagen_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeDokVorlagen.ItemDrag
|
|
If e.Button = MouseButtons.Left Then
|
|
Moveitem = False
|
|
Select Case TagArt(TreeDokVorlagen.SelectedNode.Tag)
|
|
Case "DT_" 'nur Dokumente word,Barcode,Word mit Barcode... (keine Stukturknoten)
|
|
TreeDokVorlagen.DoDragDrop(e.Item, DragDropEffects.Copy)
|
|
Case Else
|
|
TreeDokVorlagen.DoDragDrop(e.Item, DragDropEffects.None)
|
|
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub treeSelVorlagen_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles treeSelVorlagen.DragDrop
|
|
Dim OriginalNode As New TreeNode()
|
|
|
|
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
|
Dim OriginalNodeImageIndex As Integer
|
|
Dim OriginalNodeSelectedImageIndex As Integer
|
|
Dim OriginalNodeTag As String
|
|
OriginalNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
|
End If
|
|
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", False) Then
|
|
Dim pt As Point
|
|
Dim DestinationNode As TreeNode
|
|
pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
|
|
DestinationNode = CType(sender, TreeView).GetNodeAt(pt)
|
|
If Me.treeSelVorlagen.GetNodeCount(True) = 0 Then
|
|
TreeDokVorlagen_DoubleClick(sender, e)
|
|
|
|
Else
|
|
Dim tn As TreeNode
|
|
Dim tn1 As TreeNode
|
|
If Moveitem Then
|
|
tn = Me.treeSelVorlagen.SelectedNode
|
|
Else
|
|
tn = Me.treeSelVorlagen.Nodes.Add(OriginalNode.Text)
|
|
tn.ImageIndex = OriginalNode.ImageIndex
|
|
tn.SelectedImageIndex = OriginalNode.SelectedImageIndex
|
|
tn.Tag = OriginalNode.Tag
|
|
Me.haschanges = True
|
|
End If
|
|
|
|
If DestinationNode Is Nothing Then
|
|
If Moveitem Then
|
|
tn1 = Me.treeSelVorlagen.Nodes.Add(tn.Text)
|
|
tn1.ImageIndex = tn.ImageIndex
|
|
tn1.SelectedImageIndex = tn.SelectedImageIndex
|
|
tn1.Tag = tn.Tag
|
|
tn.Remove()
|
|
Me.haschanges = True
|
|
End If
|
|
Else
|
|
tn.Remove()
|
|
Me.treeSelVorlagen.Nodes.Insert(DestinationNode.Index, tn)
|
|
Me.haschanges = True
|
|
End If
|
|
End If
|
|
|
|
Me.treeSelVorlagen.AllowDrop = False
|
|
e.Effect = DragDropEffects.None
|
|
Moveitem = False
|
|
Me.FormValidator(False)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub treeSelVorlagen_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles treeSelVorlagen.DragEnter
|
|
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
|
Me.treeSelVorlagen.AllowDrop = True
|
|
e.Effect = DragDropEffects.Copy
|
|
Else
|
|
e.Effect = DragDropEffects.None
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub treeSelVorlagen_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles treeSelVorlagen.ItemDrag
|
|
Moveitem = True
|
|
|
|
If e.Button = MouseButtons.Left Then
|
|
Select Case TagArt(treeSelVorlagen.SelectedNode.Tag)
|
|
Case "DT_" 'nur Dokumente word,Barcode,Word mit Barcode... (keine Stukturknoten)
|
|
treeSelVorlagen.DoDragDrop(e.Item, DragDropEffects.Copy)
|
|
Case Else
|
|
treeSelVorlagen.DoDragDrop(e.Item, DragDropEffects.None)
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Struktur"
|
|
Private Sub Load_Struktur_Daten()
|
|
Dim d As New edokadb.clsMyDokumentart()
|
|
If Me.Individuelles_DP = False Then
|
|
d.LoadTreeMenu(Me.TreeStruktur, 173)
|
|
Me.TreeStruktur.ExpandAll()
|
|
Me.TreeStruktur.AllowDrop = False
|
|
Else
|
|
d.Load_FavoritenStruktur_dp(Me.TreeStruktur, "", True, 1)
|
|
Me.TreeStruktur.ExpandAll()
|
|
Me.TreeStruktur.AllowDrop = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub treeStruktur_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TreeStruktur.ItemDrag
|
|
If e.Button = MouseButtons.Left Then
|
|
TreeStruktur.DoDragDrop(e.Item, DragDropEffects.Copy)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub treeStruktur_dragenter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeStruktur.DragEnter
|
|
If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then
|
|
Me.TreeStruktur.AllowDrop = True
|
|
e.Effect = DragDropEffects.Copy
|
|
Else
|
|
e.Effect = DragDropEffects.None
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub TreeStruktur_DragOver(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles TreeStruktur.DragOver
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _
|
|
True) = False Then Exit Sub
|
|
Dim selectedTreeview As TreeView = CType(sender, TreeView)
|
|
Dim pt As Point = _
|
|
CType(sender, TreeView).PointToClient(New Point(e.X, e.Y))
|
|
Dim targetNode As TreeNode = selectedTreeview.GetNodeAt(pt)
|
|
If Not (selectedTreeview.SelectedNode Is targetNode) Then
|
|
selectedTreeview.SelectedNode = targetNode
|
|
Dim dropNode As TreeNode = _
|
|
CType(e.Data.GetData("System.Windows.Forms.TreeNode"), _
|
|
TreeNode)
|
|
|
|
Do Until targetNode Is Nothing
|
|
If targetNode Is dropNode Then
|
|
e.Effect = DragDropEffects.None
|
|
Exit Sub
|
|
End If
|
|
targetNode = targetNode.Parent
|
|
Loop
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub treeStruktur_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TreeStruktur.DragDrop
|
|
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _
|
|
True) = False Then Exit Sub
|
|
Dim selectedTreeview As TreeView = CType(sender, TreeView)
|
|
Dim dropNode As TreeNode = _
|
|
CType(e.Data.GetData("System.Windows.Forms.TreeNode"), _
|
|
TreeNode)
|
|
|
|
Dim targetNode As TreeNode = selectedTreeview.SelectedNode
|
|
dropNode.Remove()
|
|
If targetNode Is Nothing Then
|
|
selectedTreeview.Nodes.Add(dropNode)
|
|
Else
|
|
targetNode.Nodes.Add(dropNode)
|
|
End If
|
|
dropNode.EnsureVisible()
|
|
selectedTreeview.SelectedNode = dropNode
|
|
Save_Sort()
|
|
End Sub
|
|
|
|
Dim index As Integer
|
|
Private Sub Save_Sort()
|
|
Dim TNODE As TreeNode
|
|
For Each TNODE In TreeStruktur.Nodes
|
|
If Not TNODE.Parent Is Nothing Then
|
|
save_SortID(TNODE.Parent.Tag, TNODE.Tag, TNODE.Index)
|
|
End If
|
|
loopother(TNODE)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub loopother(ByVal PNode As TreeNode)
|
|
Dim TNode As TreeNode
|
|
For Each TNode In PNode.Nodes
|
|
If Not TNode.Parent Is Nothing Then
|
|
save_SortID(TNode.Parent.Tag, TNode.Tag, TNode.Index)
|
|
End If
|
|
loopother(TNode)
|
|
Next
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeStruktur_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeStruktur.AfterSelect
|
|
Dim tn As New TreeNode()
|
|
tn = Me.TreeStruktur.SelectedNode
|
|
tn = Nothing
|
|
Me.TreeStruktur.SelectedNode.SelectedImageIndex = 1
|
|
Me.StrukturNr = Me.TreeStruktur.SelectedNode.Tag
|
|
Me.FormValidator(False)
|
|
End Sub
|
|
|
|
Private Sub TreeStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeStruktur.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.TreeStruktur.SelectedNode = TreeStruktur.GetNodeAt(selectPoint)
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Treeview_Selektion"
|
|
Private Sub TreeSelektion_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeSelektion.AfterSelect
|
|
If Me.Aus_Formvalidate = True Then Exit Sub
|
|
Me.pnlDokumentvorlagen.Visible = False
|
|
Me.pnlDokumentvorlagen.Dock = DockStyle.None
|
|
Me.pnlSelVorlagen.Visible = False
|
|
Me.pnlSelVorlagen.Dock = DockStyle.None
|
|
Me.pnlBeschreibung.Visible = False
|
|
Me.pnlBeschreibung.Dock = DockStyle.None
|
|
Me.pnlStruktur.Visible = False
|
|
Me.pnlSelVorlagen.Dock = DockStyle.None
|
|
Select Case Me.TreeSelektion.SelectedNode.Index
|
|
Case 0
|
|
Me.pnlDokumentvorlagen.Visible = True
|
|
Me.pnlDokumentvorlagen.Dock = DockStyle.Left
|
|
Me.pnlSelVorlagen.Visible = True
|
|
Me.pnlSelVorlagen.Dock = DockStyle.Fill
|
|
Case 1
|
|
Me.pnlBeschreibung.Visible = True
|
|
Me.pnlBeschreibung.Dock = DockStyle.Fill
|
|
Case 2
|
|
Me.pnlStruktur.Visible = True
|
|
Me.pnlStruktur.Dock = DockStyle.Fill
|
|
End Select
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "TreeDokVorlagen"
|
|
Private Sub ctmenuTreeDokVorlagen_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenuTreeDokVorlagen.Popup
|
|
If Me.TreeDokVorlagen.SelectedNode.GetNodeCount(True) = 0 Then
|
|
Me.ctmnuVorlageInfo.Enabled = True
|
|
Me.ctmnuVorlageSelect.Enabled = True
|
|
Else
|
|
Me.ctmnuVorlageInfo.Enabled = False
|
|
Me.ctmnuVorlageSelect.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeDokVorlagen_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeDokVorlagen.DoubleClick
|
|
If Me.TreeDokVorlagen.SelectedNode.GetNodeCount(True) = 0 Then
|
|
Dim tn As TreeNode
|
|
tn = Me.treeSelVorlagen.Nodes.Add(Me.TreeDokVorlagen.SelectedNode.Text)
|
|
tn.ImageIndex = Me.TreeDokVorlagen.SelectedNode.ImageIndex
|
|
tn.SelectedImageIndex = Me.TreeDokVorlagen.SelectedNode.SelectedImageIndex
|
|
tn.Tag = Me.TreeDokVorlagen.SelectedNode.Tag
|
|
Me.FormValidator(False)
|
|
Me.haschanges = True
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub TreeDokVorlagen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeDokVorlagen.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.TreeDokVorlagen.SelectedNode = TreeDokVorlagen.GetNodeAt(selectPoint)
|
|
Me.treeSelVorlagen.AllowDrop = True
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ctmnuVorlageSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuVorlageSelect.Click
|
|
TreeDokVorlagen_DoubleClick(sender, e)
|
|
End Sub
|
|
|
|
Private Sub ctmnuKnotenSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuKnotenSchliessen.Click
|
|
Try
|
|
Me.TreeDokVorlagen.Visible = False
|
|
Me.TreeDokVorlagen.CollapseAll()
|
|
Catch
|
|
End Try
|
|
Me.TreeDokVorlagen.Visible = True
|
|
End Sub
|
|
|
|
Private Sub ctmnuKnotenOeffnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuKnotenOeffnen.Click
|
|
Try
|
|
Me.TreeDokVorlagen.Visible = False
|
|
Me.TreeDokVorlagen.ExpandAll()
|
|
Catch
|
|
End Try
|
|
Me.TreeDokVorlagen.Visible = True
|
|
End Sub
|
|
|
|
Private Sub ctmnuAktKnotenSchliessen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuAktKnotenSchliessen.Click
|
|
Try
|
|
Me.TreeDokVorlagen.Visible = False
|
|
Me.TreeDokVorlagen.SelectedNode.Collapse()
|
|
Catch
|
|
End Try
|
|
Me.TreeDokVorlagen.Visible = True
|
|
|
|
End Sub
|
|
|
|
Private Sub ctmnuAktKnotenOeffnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuAktKnotenOeffnen.Click
|
|
Try
|
|
Me.TreeDokVorlagen.Visible = False
|
|
Me.TreeDokVorlagen.SelectedNode.Expand()
|
|
Catch
|
|
End Try
|
|
Me.TreeDokVorlagen.Visible = True
|
|
End Sub
|
|
|
|
Private Sub ctmnuVorlageInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuVorlageInfo.Click
|
|
Dim f As New frmDokumenttypInfo()
|
|
Try
|
|
If TagArt(Me.TreeDokVorlagen.SelectedNode.Tag) = "DT_" Then
|
|
f.Key = TagValue(Me.TreeDokVorlagen.SelectedNode.Tag)
|
|
f.Text = f.Text + Me.TreeDokVorlagen.SelectedNode.Text
|
|
f.ShowDialog()
|
|
End If
|
|
Catch
|
|
Finally
|
|
f.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "TreeSelVorlagen"
|
|
Private Sub treeSelVorlagen_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles treeSelVorlagen.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.treeSelVorlagen.SelectedNode = treeSelVorlagen.GetNodeAt(selectPoint)
|
|
Me.treeSelVorlagen.AllowDrop = True
|
|
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub ctmnuselvorlagenVorlageLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuselvorlagenVorlageLoeschen.Click
|
|
Try
|
|
Me.treeSelVorlagen.SelectedNode.Remove()
|
|
Me.FormValidator(False)
|
|
Me.haschanges = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ctmnuselVorlagenInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctmnuselVorlagenInfo.Click
|
|
Dim f As New frmDokumenttypInfo()
|
|
Try
|
|
If TagArt(Me.treeSelVorlagen.SelectedNode.Tag) = "DT_" Then
|
|
f.Key = TagValue(Me.treeSelVorlagen.SelectedNode.Tag)
|
|
f.Text = f.Text + Me.treeSelVorlagen.SelectedNode.Text
|
|
f.ShowDialog()
|
|
End If
|
|
Catch
|
|
Finally
|
|
f.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ctmenuSelVorlagen_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenuSelVorlagen.Popup
|
|
If Me.treeSelVorlagen.GetNodeCount(True) < 1 Then
|
|
Me.ctmnuselVorlagenInfo.Enabled = False
|
|
Me.ctmnuselvorlagenVorlageLoeschen.Enabled = False
|
|
Else
|
|
Me.ctmnuselVorlagenInfo.Enabled = True
|
|
Me.ctmnuselvorlagenVorlageLoeschen.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
' Dim bt As New clsBalloon()
|
|
Private Sub TreeView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeSelektion.MouseMove
|
|
Exit Sub
|
|
Try
|
|
Dim TN As TreeNode
|
|
Static old_node As TreeNode
|
|
Dim node_here As TreeNode = Me.TreeSelektion.GetNodeAt(e.X, e.Y)
|
|
If node_here Is old_node Then Exit Sub
|
|
old_node = node_here
|
|
|
|
' ToolTip1.AutoPopDelay = 1000000
|
|
' ToolTip1.InitialDelay = 1
|
|
ToolTip1.RemoveAll()
|
|
If old_node Is Nothing Then
|
|
ToolTip1.SetToolTip(Me.TreeSelektion, "")
|
|
Else
|
|
If node_here.Nodes.Count = 0 Then
|
|
TN = Me.TreeSelektion.GetNodeAt(e.X, e.Y)
|
|
If TN.Text = "Vorlagen" Then
|
|
ToolTip1.SetToolTip(Me.TreeSelektion, "Tooltip Vorlagenselektion")
|
|
End If
|
|
If TN.Text = "Beschreibung" Then
|
|
ToolTip1.SetToolTip(Me.TreeSelektion, "Tooltip Beschreibung")
|
|
End If
|
|
If TN.Text = "Struktur" Then
|
|
ToolTip1.SetToolTip(Me.TreeSelektion, "Tooltip Struktur")
|
|
End If
|
|
End If
|
|
End If
|
|
' bt.CustomBalloon(ToolTip1, 1)
|
|
Catch
|
|
MsgBox(Err.Description)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TreeStruktur_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TreeStruktur.KeyDown
|
|
If e.Control = True Then
|
|
Select Case e.KeyCode
|
|
Case Keys.N
|
|
If MenuItem6.Enabled Then
|
|
MenuItem6_Click(sender, e)
|
|
End If
|
|
Case Keys.Up
|
|
Me.MoveNode(1)
|
|
Case Keys.Down
|
|
Me.MoveNode(2)
|
|
End Select
|
|
End If
|
|
|
|
If e.Control = False And e.Alt = False And e.Shift = False Then
|
|
Select Case e.KeyCode
|
|
Case Keys.Return
|
|
Case Keys.F2
|
|
If MenuItem4.Enabled Then
|
|
MenuItem4_Click(sender, e)
|
|
End If
|
|
Case Keys.Delete
|
|
If MenuItem5.Enabled Then
|
|
MenuItem5_Click(sender, e)
|
|
End If
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MoveNode(ByVal direction As Integer)
|
|
If Me.Individuelles_DP = False Then Exit Sub
|
|
Dim tn As TreeNode
|
|
Dim tnp As TreeNode
|
|
Dim index As Integer
|
|
tn = Me.TreeStruktur.SelectedNode
|
|
If tn.Parent Is Nothing Then Exit Sub
|
|
tnp = tn.Parent
|
|
|
|
If tnp.GetNodeCount(True) < 1 Then
|
|
Exit Sub
|
|
End If
|
|
|
|
If direction = 1 And tn.Index > 0 Then
|
|
index = tn.Index - 1
|
|
tn.Remove()
|
|
tnp.Nodes.Insert(index, tn)
|
|
End If
|
|
If direction = 2 And tn.Index < tnp.GetNodeCount(True) Then
|
|
index = tn.Index + 1
|
|
tn.Remove()
|
|
tnp.Nodes.Insert(index, tn)
|
|
End If
|
|
|
|
Dim i As Integer
|
|
Me.Save_Sort()
|
|
DivFnkt.Searchnode(TreeStruktur, tn.Tag, 0)
|
|
End Sub
|
|
|
|
Public Sub DeleteNodes(ByVal pn As TreeNode)
|
|
Dim i As Integer
|
|
Dim tn As TreeNode
|
|
|
|
For Each tn In pn.Nodes
|
|
DelNode(tn)
|
|
If tn.GetNodeCount(False) > 0 Then DeleteNodes(tn)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub DelNode(ByVal tn As TreeNode)
|
|
Dim df As New edokadb.clsEDEX_Favoriten()
|
|
df.cpMainConnectionProvider = conn
|
|
df.iNreintrag = New SqlInt32(CType(tn.Tag, Int32))
|
|
conn.OpenConnection()
|
|
df.Delete()
|
|
conn.CloseConnection(True)
|
|
df.Dispose()
|
|
'Allfällige individuellen Dokumentpakete deaktivieren
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.edex_sp_dokumentpakete_inaktivieren"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentartnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, tn.Tag))
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
conn.OpenConnection()
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Catch ex As Exception
|
|
Throw New Exception("Inaktivieren Dokumentpakete fehlgeschlagen::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
conn.CloseConnection(True)
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
|
|
Dim tn As TreeNode
|
|
tn = Me.TreeStruktur.SelectedNode
|
|
If tn.Parent Is Nothing Then
|
|
MyMsg.show_standardmessage(400, MsgBoxStyle.Information)
|
|
' MsgBox("Die Root-Einträge können nicht gelöscht werden.", MsgBoxStyle.Information)
|
|
Exit Sub
|
|
|
|
End If
|
|
|
|
Dim answer As MsgBoxResult
|
|
answer = MyMsg.show_MessageYesNo_ReplaceText(401, tn.Text, "")
|
|
'answer = MsgBox("Wollen Sie den Eintrag '" + tn.Text + "' inkl. allfälligen Untereinträgen löschen?" + vbCrLf + "(Individuelle Dokumentpakete werden inaktiviert)", MsgBoxStyle.YesNo + MsgBoxStyle.Question)
|
|
If answer = MsgBoxResult.No Then Exit Sub
|
|
DeleteNodes(Me.TreeStruktur.SelectedNode)
|
|
DelNode(tn)
|
|
tn.Remove()
|
|
|
|
End Sub
|
|
|
|
Private Function TagArt(ByVal tag As String) As String
|
|
Dim Art As String
|
|
Art = tag
|
|
Return Art.Substring(0, 3)
|
|
End Function
|
|
|
|
Private Function TagValue(ByVal tag As String) As String
|
|
Dim Keyvalue As String
|
|
Keyvalue = tag
|
|
Return Keyvalue.Substring(3, Len(Keyvalue) - 3)
|
|
End Function
|
|
|
|
|
|
Private Sub mnuMoveItemUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuMoveItemUp.Click
|
|
MoveNode(1)
|
|
|
|
End Sub
|
|
|
|
Private Sub mnuMoveItemDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuMoveItemDown.Click
|
|
MoveNode(2)
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub treeSelVorlagen_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles treeSelVorlagen.Enter
|
|
Me.AllowDrop = True
|
|
|
|
End Sub
|
|
End Class
|