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 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