Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports Microsoft.VisualBasic Public Class frmVorlagenauswahl Inherits System.Windows.Forms.Form #Region " Vom Windows Form Designer generierter Code " Public Sub New() MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen End Sub ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ' Für Windows Form-Designer erforderlich Private components As System.ComponentModel.IContainer 'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich 'Sie kann mit dem Windows Form-Designer modifiziert werden. 'Verwenden Sie nicht den Code-Editor zur Bearbeitung. Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents TVStruktur As System.Windows.Forms.TreeView Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton Friend WithEvents TxtSearch As System.Windows.Forms.TextBox Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuDokumenterstellen As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents MnuAddFavoriten As System.Windows.Forms.MenuItem Friend WithEvents MnuShowFavoriten As System.Windows.Forms.MenuItem Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuUnExpand As System.Windows.Forms.MenuItem Friend WithEvents MenuExpand As System.Windows.Forms.MenuItem Friend WithEvents MenuUnexpandsel As System.Windows.Forms.MenuItem Friend WithEvents MnuExpandSel As System.Windows.Forms.MenuItem Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton Friend WithEvents pnlFavoriten As System.Windows.Forms.Panel Friend WithEvents FavoritenStruktur As System.Windows.Forms.TreeView Friend WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter Friend WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection Friend WithEvents DataSet1 As System.Data.DataSet Friend WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu Friend WithEvents ImageList2 As System.Windows.Forms.ImageList Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Splitter2 As System.Windows.Forms.Splitter Friend WithEvents mnuNeuerOrdner As System.Windows.Forms.MenuItem Friend WithEvents mnuLoeschen As System.Windows.Forms.MenuItem Friend WithEvents mnuUmbenennen As System.Windows.Forms.MenuItem Friend WithEvents mnuInfoDokumentvorlage As System.Windows.Forms.MenuItem Friend WithEvents mnuDokument_erstellen As System.Windows.Forms.MenuItem Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem Friend WithEvents MnuIDVBearbeitung As System.Windows.Forms.MenuItem Friend WithEvents MnuNeuesDokumentpaket As System.Windows.Forms.MenuItem Friend WithEvents MnuDokumentpaketKopieren As System.Windows.Forms.MenuItem Friend WithEvents MnuPaketverwaltung As System.Windows.Forms.MenuItem Friend WithEvents MnuMAKopie As System.Windows.Forms.MenuItem Friend WithEvents MnuEmptyDoc As System.Windows.Forms.MenuItem Friend WithEvents ImageList4 As System.Windows.Forms.ImageList Friend WithEvents picSmiley As System.Windows.Forms.PictureBox Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmVorlagenauswahl)) Me.ToolBar1 = New System.Windows.Forms.ToolBar Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.TVStruktur = New System.Windows.Forms.TreeView Me.ContextMenu1 = New System.Windows.Forms.ContextMenu Me.MnuDokumenterstellen = New System.Windows.Forms.MenuItem Me.MenuItem8 = New System.Windows.Forms.MenuItem Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MnuAddFavoriten = New System.Windows.Forms.MenuItem Me.MnuShowFavoriten = New System.Windows.Forms.MenuItem Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MenuUnExpand = New System.Windows.Forms.MenuItem Me.MenuExpand = New System.Windows.Forms.MenuItem Me.MenuUnexpandsel = New System.Windows.Forms.MenuItem Me.MnuExpandSel = 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.MnuEmptyDoc = New System.Windows.Forms.MenuItem Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.TxtSearch = New System.Windows.Forms.TextBox Me.pnlFavoriten = New System.Windows.Forms.Panel Me.FavoritenStruktur = New System.Windows.Forms.TreeView Me.ContextMenu3 = New System.Windows.Forms.ContextMenu Me.mnuDokument_erstellen = New System.Windows.Forms.MenuItem Me.mnuInfoDokumentvorlage = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MnuPaketverwaltung = New System.Windows.Forms.MenuItem Me.MnuIDVBearbeitung = New System.Windows.Forms.MenuItem Me.MnuNeuesDokumentpaket = New System.Windows.Forms.MenuItem Me.MnuDokumentpaketKopieren = New System.Windows.Forms.MenuItem Me.MnuMAKopie = New System.Windows.Forms.MenuItem Me.mnuLoeschen = New System.Windows.Forms.MenuItem Me.MenuItem12 = New System.Windows.Forms.MenuItem Me.mnuUmbenennen = New System.Windows.Forms.MenuItem Me.mnuNeuerOrdner = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.MenuItem9 = New System.Windows.Forms.MenuItem Me.MenuItem10 = New System.Windows.Forms.MenuItem Me.ImageList4 = New System.Windows.Forms.ImageList(Me.components) Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand Me.DataSet1 = New System.Data.DataSet Me.ComboBox1 = New System.Windows.Forms.ComboBox Me.Label1 = New System.Windows.Forms.Label Me.Splitter2 = New System.Windows.Forms.Splitter Me.BtnHelp = New System.Windows.Forms.Button Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.picSmiley = New System.Windows.Forms.PictureBox Me.pnlFavoriten.SuspendLayout() CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picSmiley, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton5, Me.ToolBarButton4, Me.ToolBarButton6, Me.ToolBarButton3}) Me.ToolBar1.DropDownArrows = True Me.ToolBar1.ImageList = Me.ImageList2 Me.ToolBar1.Location = New System.Drawing.Point(0, 0) Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(552, 28) Me.ToolBar1.TabIndex = 0 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" ' 'ToolBarButton2 ' Me.ToolBarButton2.ImageIndex = 1 Me.ToolBarButton2.Name = "ToolBarButton2" Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarButton5 ' Me.ToolBarButton5.ImageIndex = 1 Me.ToolBarButton5.Name = "ToolBarButton5" ' 'ToolBarButton4 ' Me.ToolBarButton4.ImageIndex = 2 Me.ToolBarButton4.Name = "ToolBarButton4" Me.ToolBarButton4.ToolTipText = "Favoriten anzeigen" ' 'ToolBarButton6 ' Me.ToolBarButton6.ImageIndex = 3 Me.ToolBarButton6.Name = "ToolBarButton6" Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator ' 'ToolBarButton3 ' Me.ToolBarButton3.ImageIndex = 3 Me.ToolBarButton3.Name = "ToolBarButton3" ' 'ImageList2 ' Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent Me.ImageList2.Images.SetKeyName(0, "") Me.ImageList2.Images.SetKeyName(1, "") Me.ImageList2.Images.SetKeyName(2, "") Me.ImageList2.Images.SetKeyName(3, "") ' 'ImageList1 ' Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent Me.ImageList1.Images.SetKeyName(0, "") Me.ImageList1.Images.SetKeyName(1, "") Me.ImageList1.Images.SetKeyName(2, "") Me.ImageList1.Images.SetKeyName(3, "") Me.ImageList1.Images.SetKeyName(4, "") Me.ImageList1.Images.SetKeyName(5, "") Me.ImageList1.Images.SetKeyName(6, "") Me.ImageList1.Images.SetKeyName(7, "") ' 'TVStruktur ' Me.TVStruktur.ContextMenu = Me.ContextMenu1 Me.TVStruktur.Dock = System.Windows.Forms.DockStyle.Left Me.TVStruktur.HideSelection = False Me.TVStruktur.ImageIndex = 0 Me.TVStruktur.ImageList = Me.ImageList3 Me.TVStruktur.Location = New System.Drawing.Point(0, 28) Me.TVStruktur.Name = "TVStruktur" Me.TVStruktur.SelectedImageIndex = 0 Me.TVStruktur.Size = New System.Drawing.Size(552, 537) Me.TVStruktur.TabIndex = 1 ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDokumenterstellen, Me.MenuItem8, Me.MenuItem2, Me.MnuAddFavoriten, Me.MnuShowFavoriten, Me.MenuItem1, Me.MenuUnExpand, Me.MenuExpand, Me.MenuUnexpandsel, Me.MnuExpandSel, Me.MenuItem5, Me.MenuItem6, Me.MenuItem7, Me.MnuEmptyDoc}) ' 'MnuDokumenterstellen ' Me.MnuDokumenterstellen.Index = 0 Me.MnuDokumenterstellen.Text = "&Dokument erstellen" ' 'MenuItem8 ' Me.MenuItem8.Index = 1 Me.MenuItem8.Text = "Informationen zur Dokumentvorlage" ' 'MenuItem2 ' Me.MenuItem2.Index = 2 Me.MenuItem2.Text = "-" Me.MenuItem2.Visible = False ' 'MnuAddFavoriten ' Me.MnuAddFavoriten.Index = 3 Me.MnuAddFavoriten.Text = "&Vorlage zu den Favoriten hinzufügen..." Me.MnuAddFavoriten.Visible = False ' 'MnuShowFavoriten ' Me.MnuShowFavoriten.Index = 4 Me.MnuShowFavoriten.Text = "&Favoriten anzeigen" Me.MnuShowFavoriten.Visible = False ' 'MenuItem1 ' Me.MenuItem1.Index = 5 Me.MenuItem1.Text = "-" ' 'MenuUnExpand ' Me.MenuUnExpand.Index = 6 Me.MenuUnExpand.Text = "Alle Knoten schliessen" ' 'MenuExpand ' Me.MenuExpand.Index = 7 Me.MenuExpand.Text = "Alle Knoten öffnen" ' 'MenuUnexpandsel ' Me.MenuUnexpandsel.Index = 8 Me.MenuUnexpandsel.Text = "Selektierter Knoten schliessen" ' 'MnuExpandSel ' Me.MnuExpandSel.Index = 9 Me.MnuExpandSel.Text = "Selektierter Knoten öffnen" ' 'MenuItem5 ' Me.MenuItem5.Index = 10 Me.MenuItem5.Text = "-" ' 'MenuItem6 ' Me.MenuItem6.Index = 11 Me.MenuItem6.Text = "Dokumentvorschau" ' 'MenuItem7 ' Me.MenuItem7.Index = 12 Me.MenuItem7.Text = "-" Me.MenuItem7.Visible = False ' 'MnuEmptyDoc ' Me.MnuEmptyDoc.Index = 13 Me.MnuEmptyDoc.Text = "&Leeres Dokument erstellen" ' 'ImageList3 ' Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16) Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent ' 'TxtSearch ' Me.TxtSearch.Location = New System.Drawing.Point(104, 4) Me.TxtSearch.Name = "TxtSearch" Me.TxtSearch.Size = New System.Drawing.Size(200, 20) Me.TxtSearch.TabIndex = 2 ' 'pnlFavoriten ' Me.pnlFavoriten.Controls.Add(Me.FavoritenStruktur) Me.pnlFavoriten.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlFavoriten.Location = New System.Drawing.Point(557, 28) Me.pnlFavoriten.Name = "pnlFavoriten" Me.pnlFavoriten.Size = New System.Drawing.Size(0, 537) Me.pnlFavoriten.TabIndex = 3 Me.pnlFavoriten.Visible = False ' 'FavoritenStruktur ' Me.FavoritenStruktur.AllowDrop = True Me.FavoritenStruktur.ContextMenu = Me.ContextMenu3 Me.FavoritenStruktur.Dock = System.Windows.Forms.DockStyle.Fill Me.FavoritenStruktur.FullRowSelect = True Me.FavoritenStruktur.HideSelection = False Me.FavoritenStruktur.ImageIndex = 0 Me.FavoritenStruktur.ImageList = Me.ImageList4 Me.FavoritenStruktur.Location = New System.Drawing.Point(0, 0) Me.FavoritenStruktur.Name = "FavoritenStruktur" Me.FavoritenStruktur.SelectedImageIndex = 0 Me.FavoritenStruktur.Size = New System.Drawing.Size(0, 537) Me.FavoritenStruktur.TabIndex = 0 ' 'ContextMenu3 ' Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDokument_erstellen, Me.mnuInfoDokumentvorlage, Me.MenuItem3, Me.MnuPaketverwaltung, Me.mnuLoeschen, Me.MenuItem12, Me.mnuUmbenennen, Me.mnuNeuerOrdner, Me.MenuItem4, Me.MenuItem9, Me.MenuItem10}) ' 'mnuDokument_erstellen ' Me.mnuDokument_erstellen.Index = 0 Me.mnuDokument_erstellen.Text = "&Dokument erstellen" ' 'mnuInfoDokumentvorlage ' Me.mnuInfoDokumentvorlage.Index = 1 Me.mnuInfoDokumentvorlage.Text = "Informationen zur Dokumentvorlage" ' 'MenuItem3 ' Me.MenuItem3.Index = 2 Me.MenuItem3.Text = "-" ' 'MnuPaketverwaltung ' Me.MnuPaketverwaltung.Index = 3 Me.MnuPaketverwaltung.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuIDVBearbeitung, Me.MnuNeuesDokumentpaket, Me.MnuDokumentpaketKopieren, Me.MnuMAKopie}) Me.MnuPaketverwaltung.Text = "Dokumentpaket-Verwaltung" ' 'MnuIDVBearbeitung ' Me.MnuIDVBearbeitung.Index = 0 Me.MnuIDVBearbeitung.Text = "&Dokumentpaket bearbeiten" ' 'MnuNeuesDokumentpaket ' Me.MnuNeuesDokumentpaket.Index = 1 Me.MnuNeuesDokumentpaket.Text = "&Neues Dokumentpaket erstellen" ' 'MnuDokumentpaketKopieren ' Me.MnuDokumentpaketKopieren.Index = 2 Me.MnuDokumentpaketKopieren.Text = "Dokumentpaket &kopieren" ' 'MnuMAKopie ' Me.MnuMAKopie.Index = 3 Me.MnuMAKopie.Text = "Dokument für ... kopieren" ' 'mnuLoeschen ' Me.mnuLoeschen.Index = 4 Me.mnuLoeschen.Shortcut = System.Windows.Forms.Shortcut.Del Me.mnuLoeschen.Text = "&Löschen" ' 'MenuItem12 ' Me.MenuItem12.Index = 5 Me.MenuItem12.Text = "-" ' 'mnuUmbenennen ' Me.mnuUmbenennen.Index = 6 Me.mnuUmbenennen.Shortcut = System.Windows.Forms.Shortcut.F2 Me.mnuUmbenennen.Text = "&Umbenennen" ' 'mnuNeuerOrdner ' Me.mnuNeuerOrdner.Index = 7 Me.mnuNeuerOrdner.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.mnuNeuerOrdner.Text = "Neuer Ordner" ' 'MenuItem4 ' Me.MenuItem4.Index = 8 Me.MenuItem4.Text = "-" ' 'MenuItem9 ' Me.MenuItem9.Index = 9 Me.MenuItem9.Text = "&Aufwärts" ' 'MenuItem10 ' Me.MenuItem10.Index = 10 Me.MenuItem10.Text = "A&bwärts" ' 'ImageList4 ' Me.ImageList4.ImageStream = CType(resources.GetObject("ImageList4.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList4.TransparentColor = System.Drawing.Color.Transparent Me.ImageList4.Images.SetKeyName(0, "image0.bmp") Me.ImageList4.Images.SetKeyName(1, "image1.bmp") Me.ImageList4.Images.SetKeyName(2, "image2.bmp") Me.ImageList4.Images.SetKeyName(3, "image3.bmp") Me.ImageList4.Images.SetKeyName(4, "image4.bmp") Me.ImageList4.Images.SetKeyName(5, "image5.bmp") Me.ImageList4.Images.SetKeyName(6, "image6.bmp") Me.ImageList4.Images.SetKeyName(7, "image7.bmp") Me.ImageList4.Images.SetKeyName(8, "") Me.ImageList4.Images.SetKeyName(9, "") Me.ImageList4.Images.SetKeyName(10, "") Me.ImageList4.Images.SetKeyName(11, "") Me.ImageList4.Images.SetKeyName(12, "") Me.ImageList4.Images.SetKeyName(13, "") Me.ImageList4.Images.SetKeyName(14, "") Me.ImageList4.Images.SetKeyName(15, "") Me.ImageList4.Images.SetKeyName(16, "") Me.ImageList4.Images.SetKeyName(17, "") Me.ImageList4.Images.SetKeyName(18, "") Me.ImageList4.Images.SetKeyName(19, "") Me.ImageList4.Images.SetKeyName(20, "") Me.ImageList4.Images.SetKeyName(21, "") Me.ImageList4.Images.SetKeyName(22, "") Me.ImageList4.Images.SetKeyName(23, "") Me.ImageList4.Images.SetKeyName(24, "") Me.ImageList4.Images.SetKeyName(25, "") Me.ImageList4.Images.SetKeyName(26, "") Me.ImageList4.Images.SetKeyName(27, "") Me.ImageList4.Images.SetKeyName(28, "") Me.ImageList4.Images.SetKeyName(29, "") Me.ImageList4.Images.SetKeyName(30, "") Me.ImageList4.Images.SetKeyName(31, "") Me.ImageList4.Images.SetKeyName(32, "") Me.ImageList4.Images.SetKeyName(33, "") Me.ImageList4.Images.SetKeyName(34, "") Me.ImageList4.Images.SetKeyName(35, "") Me.ImageList4.Images.SetKeyName(36, "") Me.ImageList4.Images.SetKeyName(37, "") Me.ImageList4.Images.SetKeyName(38, "") Me.ImageList4.Images.SetKeyName(39, "") Me.ImageList4.Images.SetKeyName(40, "") Me.ImageList4.Images.SetKeyName(41, "") Me.ImageList4.Images.SetKeyName(42, "") Me.ImageList4.Images.SetKeyName(43, "") Me.ImageList4.Images.SetKeyName(44, "") Me.ImageList4.Images.SetKeyName(45, "") Me.ImageList4.Images.SetKeyName(46, "") Me.ImageList4.Images.SetKeyName(47, "") Me.ImageList4.Images.SetKeyName(48, "") Me.ImageList4.Images.SetKeyName(49, "") Me.ImageList4.Images.SetKeyName(50, "") Me.ImageList4.Images.SetKeyName(51, "") Me.ImageList4.Images.SetKeyName(52, "") Me.ImageList4.Images.SetKeyName(53, "") Me.ImageList4.Images.SetKeyName(54, "") Me.ImageList4.Images.SetKeyName(55, "") Me.ImageList4.Images.SetKeyName(56, "") Me.ImageList4.Images.SetKeyName(57, "") Me.ImageList4.Images.SetKeyName(58, "") Me.ImageList4.Images.SetKeyName(59, "") Me.ImageList4.Images.SetKeyName(60, "") Me.ImageList4.Images.SetKeyName(61, "") Me.ImageList4.Images.SetKeyName(62, "") Me.ImageList4.Images.SetKeyName(63, "") Me.ImageList4.Images.SetKeyName(64, "") Me.ImageList4.Images.SetKeyName(65, "") Me.ImageList4.Images.SetKeyName(66, "") Me.ImageList4.Images.SetKeyName(67, "") Me.ImageList4.Images.SetKeyName(68, "") Me.ImageList4.Images.SetKeyName(69, "") Me.ImageList4.Images.SetKeyName(70, "") Me.ImageList4.Images.SetKeyName(71, "") Me.ImageList4.Images.SetKeyName(72, "") Me.ImageList4.Images.SetKeyName(73, "") Me.ImageList4.Images.SetKeyName(74, "") ' 'SqlDataAdapter1 ' Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1 Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1 Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1 Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "sp_dokumentfavoriten_select", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("dokumenttypnr", "dokumenttypnr"), New System.Data.Common.DataColumnMapping("bezeichnung", "bezeichnung")})}) Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1 ' 'SqlDeleteCommand1 ' Me.SqlDeleteCommand1.CommandText = "[NewDeleteCommand]" Me.SqlDeleteCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlDeleteCommand1.Connection = Me.SqlConnection1 Me.SqlDeleteCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Original, Nothing)}) ' 'SqlConnection1 ' Me.SqlConnection1.ConnectionString = "data source=shu;initial catalog=edoka;persist security info=False;user id=sa;work" & _ "station id=SHU;packet size=4096" Me.SqlConnection1.FireInfoMessageEventOnUserErrors = False ' 'SqlInsertCommand1 ' Me.SqlInsertCommand1.CommandText = "[NewInsertCommand]" Me.SqlInsertCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlInsertCommand1.Connection = Me.SqlConnection1 Me.SqlInsertCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlSelectCommand1 ' Me.SqlSelectCommand1.CommandText = "[sp_dokumentfavoriten_select]" Me.SqlSelectCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlSelectCommand1.Connection = Me.SqlConnection1 Me.SqlSelectCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@dokumentfavoritenstruktur", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing)}) ' 'SqlUpdateCommand1 ' Me.SqlUpdateCommand1.CommandText = "[NewUpdateCommand]" Me.SqlUpdateCommand1.CommandType = System.Data.CommandType.StoredProcedure Me.SqlUpdateCommand1.Connection = Me.SqlConnection1 Me.SqlUpdateCommand1.Parameters.AddRange(New System.Data.SqlClient.SqlParameter() {New System.Data.SqlClient.SqlParameter("@RETURN_VALUE", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.ReturnValue, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@bezeichnung", System.Data.SqlDbType.VarChar, 50, "bezeichnung"), New System.Data.SqlClient.SqlParameter("@beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Param1", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutiert_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_funktionsgruppenr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_aktiv", System.Data.SqlDbType.Bit, 1), New System.Data.SqlClient.SqlParameter("@Original_beschreibung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_bezeichnung", System.Data.SqlDbType.VarChar, 50), New System.Data.SqlClient.SqlParameter("@Original_erstellt_am", System.Data.SqlDbType.DateTime, 8), New System.Data.SqlClient.SqlParameter("@Original_mandantnr", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutierer", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(10, Byte), CType(0, Byte), "", System.Data.DataRowVersion.Current, Nothing), New System.Data.SqlClient.SqlParameter("@Original_mutiert_am", System.Data.SqlDbType.DateTime, 8)}) ' 'DataSet1 ' Me.DataSet1.DataSetName = "NewDataSet" ' 'ComboBox1 ' Me.ComboBox1.Location = New System.Drawing.Point(344, 3) Me.ComboBox1.Name = "ComboBox1" Me.ComboBox1.Size = New System.Drawing.Size(176, 21) Me.ComboBox1.TabIndex = 4 Me.ComboBox1.Text = "ComboBox1" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(312, 6) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(100, 16) Me.Label1.TabIndex = 5 Me.Label1.Text = "Filter:" ' 'Splitter2 ' Me.Splitter2.Location = New System.Drawing.Point(552, 28) Me.Splitter2.Name = "Splitter2" Me.Splitter2.Size = New System.Drawing.Size(5, 537) Me.Splitter2.TabIndex = 6 Me.Splitter2.TabStop = False ' 'BtnHelp ' Me.BtnHelp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(528, 2) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 36 ' 'picSmiley ' Me.picSmiley.Image = CType(resources.GetObject("picSmiley.Image"), System.Drawing.Image) Me.picSmiley.Location = New System.Drawing.Point(128, 136) Me.picSmiley.Name = "picSmiley" Me.picSmiley.Size = New System.Drawing.Size(256, 248) Me.picSmiley.TabIndex = 37 Me.picSmiley.TabStop = False Me.ToolTip1.SetToolTip(Me.picSmiley, "Greetings from the developers :)") ' 'frmVorlagenauswahl ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(552, 565) Me.ControlBox = False Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.pnlFavoriten) Me.Controls.Add(Me.Splitter2) Me.Controls.Add(Me.ComboBox1) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.TxtSearch) Me.Controls.Add(Me.TVStruktur) Me.Controls.Add(Me.ToolBar1) Me.Controls.Add(Me.picSmiley) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmVorlagenauswahl" Me.ShowInTaskbar = False Me.Text = "Vorlagenauswahl" Me.pnlFavoriten.ResumeLayout(False) CType(Me.DataSet1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picSmiley, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region " Deklarationen" Dim WithEvents mcbfilter As New MultiComboBox() Dim todelete(50) As Integer Dim itodelete As Integer Dim ssort As Integer Dim m_dokumentvorlage As Long Dim m_profilnr As Long Dim m_profile As DataTable Dim m_dokumentart As String Dim m_barcodeid As String Dim On_Load As Boolean = False Friend selectPoint As New System.Drawing.Point() Private m_iImagesOffestImagelist1 As Integer 'Anzahl Iamges in der Liste bevor die KocIcons dazukopiert werden Dim m_favoriten As Boolean Public Enum EnumFavoritenDokumentenAktion ' Aktionen wenn ein Dokument in die Favoriten mit DragDrop hinzugefuegt wird NichtUebreschreiben = 0 Einfuegen = 1 Ueberschreiben = 2 End Enum Private m_iWindowWidth As Integer Dim m_Dokumentpaket As Boolean = False Const DP_Imagepos As Integer = 8 Dim ItemMove As Boolean = False Dim m_edex_Vorlagenauswahl As Boolean = False Property edex_vorlagenauswahl() As Boolean Get Return m_edex_Vorlagenauswahl End Get Set(ByVal Value As Boolean) m_edex_Vorlagenauswahl = Value End Set End Property 'Rel 4.03 Public Event Dokument_Erstellen() Dim m_bestehenderpartner As Boolean Property Bestehenderpartner() As Boolean Get Return m_bestehenderpartner End Get Set(ByVal value As Boolean) m_bestehenderpartner = value End Set End Property Dim m_bestbpnr As Integer Property BestBPNr() As Integer Get Return m_bestbpnr End Get Set(ByVal value As Integer) m_bestbpnr = value End Set End Property Dim m_bestehenderBP As String Property BestehenderBP() As String Get Return m_bestehenderBP End Get Set(ByVal value As String) m_bestehenderBP = value End Set End Property Dim m_DocType_To_Create As String Property DocType_To_Create() As String Get Return m_DocType_To_Create End Get Set(ByVal value As String) m_DocType_To_Create = value End Set End Property #End Region #Region " Eigenschaften " Property Dokumentpaket() As Boolean Get Return m_Dokumentpaket End Get Set(ByVal Value As Boolean) m_Dokumentpaket = Value End Set End Property Property Dokumentvorlage() As Long Get Return m_dokumentvorlage End Get Set(ByVal Value As Long) m_dokumentvorlage = Value End Set End Property Property Dokumentart() As String Get Return m_dokumentart End Get Set(ByVal Value As String) m_dokumentart = Value End Set End Property Property ProfilNr() As Long Get Return m_profilnr End Get Set(ByVal Value As Long) m_profilnr = Value End Set End Property Property Profile() As DataTable Get Return m_profile End Get Set(ByVal Value As DataTable) m_profile = Value End Set End Property Property Show_Favoriten() As Boolean Get Return m_favoriten End Get Set(ByVal Value As Boolean) m_favoriten = Value Me.ToolBar1.Buttons(3).Pushed() = m_favoriten Me.ToolBar1.Buttons(2).Pushed() = Not m_favoriten End Set End Property Property BarcodeID() As String Get Return m_barcodeid End Get Set(ByVal Value As String) m_barcodeid = Value End Set End Property #End Region #Region " Formular Funktionen " Private Sub Vorlagenauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Me.TVStruktur.ImageList = Globals.DokumentartenImages 'Filter On_Load = True '=============================================================================== 'Image von der Dokstruktur in die Imagelist Hinzufügen '=============================================================================== m_iImagesOffestImagelist1 = ImageList1.Images.Count Dim iCount As Integer For iCount = 0 To TVStruktur.ImageList.Images.Count - 1 ImageList1.Images.Add(TVStruktur.ImageList.Images.Item(iCount).Clone) Next 'Me.FavoritenStruktur.ImageList.Images.Clear() 'For iCount = 0 To Me.ImageList1.Images.Count - 1 ' Me.FavoritenStruktur.ImageList.Images.Add(Me.ImageList1.Images(iCount)) 'Next 'For iCount = 0 To Me.ImageList4.Images.Count - 1 ' Me.FavoritenStruktur.ImageList.Images.Add(Me.ImageList4.Images(iCount)) 'Next 'Dim x As Integer 'For x = 0 To ImageList1.Images.Count - 1 ' Dim temp As Image = ImageList1.Images(x) ' temp.Save("d:\images\image" & x & ".bmp") 'Next 'For x = 0 To TVStruktur.ImageList.Images.Count - 1 ' Dim temp As Image = TVStruktur.ImageList.Images(x) ' temp.Save("d:\images\image" & x + 8 & ".bmp") 'Next mcbfilter = New MultiComboBox(Me.ComboBox1) Me.mcbfilter.BeginUpdate() Me.mcbfilter.DisplayColumnName = "Bezeichnung" Me.mcbfilter.ValueColumnName = "Type" mcbfilter.Fill_Data(Get_Filter, False) Me.mcbfilter.NullValueMessage = MyMsg.Get_Meldungstext(18) Me.mcbfilter.CheckNullValue = True Me.mcbfilter.BringToFront() Me.Label1.Visible = True Me.mcbfilter.Visible = True Me.ComboBox1.Visible = True On_Load = False Me.Dokumentvorlage = 0 Me.Cursor = Cursors.WaitCursor ShowControls() 'anzeigen der Controls auf dem Form If Me.ToolBar1.Buttons(3).Pushed = True Then 'OrdnerStruktur Favoriten Me.FavoritenStruktur.Select() Me.FavoritenStruktur.HideSelection = False Load_Struktur("", True) Try Me.FavoritenStruktur.SelectedNode = Me.FavoritenStruktur.Nodes(0) Catch End Try End If If Me.ToolBar1.Buttons(2).Pushed = True Then If Me.Dokumentart <> "" Then Me.mcbfilter.SelectedValue = 0 Globals.Vorlagenfilter = 0 End If Load_Struktur("", False) Me.TVStruktur.ContextMenu = Me.ContextMenu1 If Me.Dokumentart <> "" Then DivFnkt.Searchnode1(Me.TVStruktur, "DA_" + Me.Dokumentart, 0) Me.Dokumentart = "" If DivFnkt.found Then Me.TVStruktur.CollapseAll() Me.TVStruktur.SelectedNode = DivFnkt.FoundNode Me.TVStruktur.SelectedNode.ExpandAll() Me.TVStruktur.SelectedNode = DivFnkt.FoundNode If TVStruktur.Nodes.Count > 0 Then Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) End If End If End If End If formatForm() Try Me.TxtSearch.Select() Catch End Try On_Load = True Me.mcbfilter.SelectedValue = Globals.Vorlagenfilter If Globals.Vorlagenfilter <> 0 Then Load_Struktur(Me.TxtSearch.Text, False) If Me.TVStruktur.Nodes.Count > 0 Then Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) End If End If Me.mcbfilter.EndUpdate() On_Load = False ' Dim ttip As New ToolTip() Dim s As String = "- CTRL+N: Neuer Ordner erstellen" + vbCrLf + _ "- CTRL+UP: Aktueller Eintrag nach oben verschieben" + vbCrLf + _ "- CTRL+Down: Aktueller Eintrag nach untern verschieben" + vbCrLf + _ "- Enter: Ordner önnen/Schliessen bzw. Dokument/Dokumentpaket erstellen" + vbCrLf + _ "- Del: Eintrag löschen" + vbCrLf + _ "- Up: Selektion nach oben verschieben" + vbCrLf + _ "- Down: Selektion nach unten Vershcieben" ' ttip.SetToolTip(FavoritenStruktur, s) ' Dim td As New clsBalloon() ' td.CustomBalloon(ttip) Me.Cursor = Cursors.Default 'Hutter 2005-02-01 EDEX If Me.edex_vorlagenauswahl Then Me.ToolBarButton4.Enabled = False DivFnkt.Searchnode(Me.TVStruktur, "DP_0", 0) If DivFnkt.found Then DivFnkt.FoundNode.Remove() End If End If End Sub Private Sub frmVorlagenauswahl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize ' ResizeForm() End Sub Private Sub ResizeForm() formatForm() ' If FavoritenStruktur.Visible And TVStruktur.Visible Then ' 'TVStruktur.Width = Me.ClientSize.Width / 2 ' End If End Sub #End Region #Region " Menu Funktionen " Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Dim bFavoritenVissible As Boolean Dim bDokStruckturVissible As Boolean Try Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 ' Close Me.Close() Case 3 'Ordner Struktur If Me.ToolBar1.Buttons(3).Pushed Then bFavoritenVissible = True Else bFavoritenVissible = False End If Me.ToolBar1.Buttons(3).Pushed = Not Me.ToolBar1.Buttons(3).Pushed 'Favoriten ShowControls() If bFavoritenVissible = False Then Load_Struktur("", True) End If If Me.FavoritenStruktur.Nodes.Count > 0 Then Me.FavoritenStruktur.SelectedNode = Me.FavoritenStruktur.Nodes(0) End If ResizeForm() Case 2 'Dokumentstruktur If Me.ToolBar1.Buttons(2).Pushed Then bDokStruckturVissible = True Else bDokStruckturVissible = False End If Me.ToolBar1.Buttons(2).Pushed = Not Me.ToolBar1.Buttons(2).Pushed 'Dokumentvorlagen ShowControls() Me.TxtSearch.Select() If bDokStruckturVissible = False Then Load_Struktur("", False) End If Me.TVStruktur.ContextMenu = Me.ContextMenu1 If Me.TVStruktur.Nodes.Count > 0 Then Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) End If ResizeForm() Case 5 Load_Struktur(Me.TxtSearch.Text, False) Me.TVStruktur.ContextMenu = Me.ContextMenu1 If Me.TVStruktur.Nodes.Count > 0 Then Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) End If Case Else End Select Catch End Try End Sub Private Sub mnuNeuerOrdner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNeuerOrdner.Click Dim Strukturnr As Integer Dim tn As TreeNode Dim tnnew As TreeNode Dim sNodeText As String Dim iDokumentFavoritenNr As Integer sNodeText = InputBox("Neuer Ordnername", "Neuer Favoritenordner hinzufügen") If sNodeText = "" Then Exit Sub If Me.FavoritenStruktur.SelectedNode.ImageIndex <> 1 And Me.FavoritenStruktur.SelectedNode.ImageIndex <> 60 + DP_Imagepos Then tn = Me.FavoritenStruktur.SelectedNode Strukturnr = TagValue(Me.FavoritenStruktur.SelectedNode.Parent.Tag) Else Strukturnr = TagValue(Me.FavoritenStruktur.SelectedNode.Tag) tn = Me.FavoritenStruktur.SelectedNode End If tnnew = tn.Nodes.Add(sNodeText) tnnew.ImageIndex = tn.ImageIndex tnnew.SelectedImageIndex = tn.SelectedImageIndex tnnew.Tag = "tmp" 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(TagValue(Me.FavoritenStruktur.SelectedNode.Tag), Int32)) fs.iSort = New SqlInt32(CType(tnnew.Index, Int32)) fs.iSprache = New SqlInt32(CType(Globals.Sprache, Int32)) If Me.FavoritenStruktur.SelectedNode.ImageIndex <> 60 + DP_Imagepos Then fs.iImageindex = New SqlInt32(CType(tnnew.ImageIndex, Int32)) fs.iImageindexopen = New SqlInt32(CType(tnnew.SelectedImageIndex, Int32)) Else fs.iImageindex = New SqlInt32(CType(tnnew.ImageIndex - DP_Imagepos, Int32)) fs.iImageindexopen = New SqlInt32(CType(tnnew.SelectedImageIndex - DP_Imagepos, Int32)) End If fs.bDp = New SqlBoolean(CType(False, Boolean)) fs.bStddp = New SqlBoolean(CType(False, Boolean)) fs.iDtnr_dpnr = New SqlInt32(CType(0, Int32)) fs.bStrukturelement = New SqlBoolean(CType(True, Boolean)) If tn.ImageIndex = 60 + DP_Imagepos Then fs.bDp = New SqlBoolean(CType(True, Boolean)) End If conn.OpenConnection() Try fs.Insert() tnnew.Tag = TagArt(tn.Tag) + LTrim(Str(fs.iNreintrag.Value)) Catch ex As Exception MsgBox(ex.Message) Finally conn.CloseConnection(True) fs.Dispose() End Try tn.ExpandAll() End Sub Private Sub MenuUnExpand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuUnExpand.Click Try Me.TVStruktur.Visible = False Me.TVStruktur.CollapseAll() Catch End Try Me.TVStruktur.Visible = True End Sub Private Sub MenuExpand_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExpand.Click Try Me.TVStruktur.Visible = False Me.TVStruktur.ExpandAll() Catch End Try Me.TVStruktur.Visible = True End Sub Private Sub MenuUnexpandsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuUnexpandsel.Click Try Me.TVStruktur.Visible = False Me.TVStruktur.SelectedNode.Collapse() Catch End Try Me.TVStruktur.Visible = True End Sub Private Sub MnuExpandSel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuExpandSel.Click Try Me.TVStruktur.Visible = False Me.TVStruktur.SelectedNode.Expand() Catch End Try Me.TVStruktur.Visible = True End Sub Private Sub MnuAddFavoriten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuAddFavoriten.Click Dim f As New frmFavoritenZuordnung() f.Dokumenttypnr = TagValue(Me.TVStruktur.SelectedNode.Tag) f.TextBox1.Text = Me.TVStruktur.SelectedNode.Text f.ShowDialog() End Sub Private Sub MnuFavoritentfernen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim df As New edokadb.clsDokumentfavoriten() Dim dbkey As New edokadb.clsMyKey_Tabelle() Dim key As Long dbkey.cpMainConnectionProvider = conn df.iDokumenttypnr = New SqlInt32(CType(TagValue(Me.TVStruktur.SelectedNode.Tag), Int32)) df.bAktiv = New SqlBoolean(CType(False, Boolean)) df.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) df.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) df.Update() conn.CloseConnection(True) df.Dispose() dbkey.Dispose() End Sub 'Rel 4.03 - Komplette Überarbeitung der Methode Private Sub MnuDokumenterstellen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokumenterstellen.Click, TVStruktur.DoubleClick Me.Cursor = Cursors.Default If TagArt(Me.TVStruktur.SelectedNode.Tag) <> "DT_" And TagArt(Me.TVStruktur.SelectedNode.Tag) <> "DP_" Then Exit Sub End If If Me.TVStruktur.SelectedNode.ImageIndex = 62 Then Me.Dokumentvorlage = TagValue(Me.TVStruktur.SelectedNode.Tag) Globals.bckdokument = False Globals.EinzelDokument = False Globals.DokumentPaket = True Globals.Individuelles_Dokumentpaket = False Me.DialogResult = DialogResult.OK Me.Start_DP() Me.Close() Exit Sub End If Globals.EinzelDokument = False Globals.bckdokument = False Me.Dokumentvorlage = Me.TagValue(Me.TVStruktur.SelectedNode.Tag) If Check_Barcode() = False Then Exit Sub If Globals.bckdokument = False And Not Globals.EinzelDokument Then Me.Dokumentvorlage = Me.TagValue(Me.TVStruktur.SelectedNode.Tag) Globals.bckdokument = False Globals.EinzelDokument = False 'If Check_Barcode() = False Then Exit Sub Me.DialogResult = DialogResult.OK 'Rel 4.03 Me.Start_Doc() Me.Close() Exit Sub End If If Globals.bckdokument = True Then Me.Start_BCK() Me.DialogResult = Windows.Forms.DialogResult.OK Me.Close() Else Me.Start_Einzeldokument() Me.DialogResult = Windows.Forms.DialogResult.OK Me.Close() End If End Sub Private Sub mnuUmbenennen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuUmbenennen.Click Dim a As String a = InputBox("Neuer Name:") If a = "" Then Exit Sub Me.FavoritenStruktur.SelectedNode.Text = a RenameNodeFavoritenstruktur(TagValue(Me.FavoritenStruktur.SelectedNode.Tag), Me.FavoritenStruktur.SelectedNode.Text) 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) If tn.ImageIndex = 61 + DP_Imagepos Then Dim dp As New edokadb.clsEdex_dokumentpaket() dp.cpMainConnectionProvider = conn dp.iDokumentpaketnr = New SqlInt32(CType(TagValue(tn.Tag), Int32)) conn.OpenConnection() dp.SelectOne() dp.bAktiv = New SqlBoolean(CType(False, Boolean)) dp.Update() conn.CloseConnection(True) dp.Dispose() Else Dim df As New edokadb.clsEDEX_Favoriten() df.cpMainConnectionProvider = conn df.iNreintrag = New SqlInt32(CType(TagValue(tn.Tag), Int32)) conn.OpenConnection() df.Delete() conn.CloseConnection(True) df.Dispose() End If End Sub Private Sub mnuLoeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLoeschen.Click Dim tn As TreeNode tn = Me.FavoritenStruktur.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 If tn.ImageIndex <> 1 And tn.ImageIndex <> 60 + DP_Imagepos Then answer = MyMsg.show_MessageYesNo_ReplaceText(403, tn.Text, "") ' answer = MsgBox("Wollen Sie den Eintrag '" + tn.Text + "' löschen?", MsgBoxStyle.YesNo + MsgBoxStyle.Question) Else If tn.ImageIndex = 1 Then answer = MyMsg.show_MessageYesNo_ReplaceText(402, tn.Text, "") ' answer = MsgBox("Wollen Sie den Eintrag '" + tn.Text + "' inkl. allfälligen Untereinträgen löschen?", MsgBoxStyle.YesNo + MsgBoxStyle.Question) Else 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) End If End If If answer = MsgBoxResult.No Then Exit Sub DeleteNodes(Me.FavoritenStruktur.SelectedNode) DelNode(tn) tn.Remove() End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Dim i As Integer Dim printable As Boolean = False i = TagValue(Me.TVStruktur.SelectedNode.Tag) If DivFnkt.leererstellung(3, i) = True Then printable = True Else printable = False DivFnkt.show_officevorlage(i, Me, printable) End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click If TagArt(Me.TVStruktur.SelectedNode.Tag) <> "DT_" And TagArt(Me.TVStruktur.SelectedNode.Tag) <> "DP_" Then Exit Sub End If If Me.TVStruktur.SelectedNode.ImageIndex = 62 Then Dim f As New frmDokumentpaketInfo() Try f.Key = TagValue(Me.TVStruktur.SelectedNode.Tag) f.Titel = Me.TVStruktur.SelectedNode.Text f.ShowDialog() f.Dispose() Exit Sub Catch Finally f.Dispose() End Try Else Dim f As New frmDokumenttypInfo() Try f.Key = TagValue(TVStruktur.SelectedNode.Tag) f.Text = f.Text + Me.TVStruktur.SelectedNode.Text f.ShowDialog() Catch Finally f.Dispose() End Try End If End Sub Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup If TagArt(Me.TVStruktur.SelectedNode.Tag) <> "DT_" Then Me.MenuItem6.Enabled = False Else Me.MenuItem6.Enabled = True End If Dim i As Integer = 0 Dim printable As Boolean = False i = TagValue(Me.TVStruktur.SelectedNode.Tag) If DivFnkt.leererstellung(3, i) = True Then Me.MnuEmptyDoc.Visible = True Else Me.MnuEmptyDoc.Visible = False 'Dim i As Integer 'Try ' i = TagValue(Me.TVStruktur.SelectedNode.Tag) ' Me.MenuItem6.Enabled = False ' If DivFnkt.leererstellung(3, i) = True Then Me.MenuItem6.Enabled = True 'Catch ' Me.MenuItem6.Enabled = False 'End Try End Sub Private Sub MnuShowFavoriten_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowFavoriten.Click Me.pnlFavoriten.Visible = True Load_Struktur("", True) End Sub Private Sub mnuDokument_erstellen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDokument_erstellen.Click DokumentErstellen() End Sub Private Sub mnuInfoDokumentvorlage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuInfoDokumentvorlage.Click If Me.FavoritenStruktur.SelectedNode.ImageIndex >= 60 + DP_Imagepos Then Dim f As New frmDokumentpaketInfo() Try If Me.FavoritenStruktur.SelectedNode.ImageIndex = 62 + DP_Imagepos Then f.Key = Me.Get_dtnr_dpnr(TagValue(Me.FavoritenStruktur.SelectedNode.Tag)) Else f.Key = TagValue(Me.FavoritenStruktur.SelectedNode.Tag) End If f.Titel = Me.FavoritenStruktur.SelectedNode.Text f.ShowDialog() f.Dispose() Exit Sub Catch Finally f.Dispose() End Try Else Dim f As New frmDokumenttypInfo() Try f.Key = Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag)) f.Text = f.Text + Me.FavoritenStruktur.SelectedNode.Text f.ShowDialog() Catch Finally f.Dispose() End Try End If End Sub #End Region #Region " Kontrol Funktionen " Private Sub TVStruktur_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TVStruktur.AfterSelect Me.Dokumentpaket = False If TVStruktur.SelectedNode.ImageIndex = 68 Then Me.Dokumentpaket = True End Sub Private Sub TVStruktur_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TVStruktur.KeyDown If e.KeyCode = Keys.Return Then Me.MnuDokumenterstellen_Click(sender, e) End Sub Private Sub TVStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TVStruktur.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Me.FavoritenStruktur.AllowDrop = True Try TVStruktur.SelectedNode = TVStruktur.GetNodeAt(selectPoint) Catch End Try If TVStruktur.SelectedNode.ImageIndex < 60 Then Me.MnuDokumenterstellen.Text = "Dokument erstellen" Me.MenuItem8.Text = "Informationen zur Dokumentvorlage" Else Me.MnuDokumenterstellen.Text = "Dokumentpaket auswählen" Me.MenuItem8.Text = "Informationen zum Dokumentpaket" End If If Me.TVStruktur.SelectedNode.GetNodeCount(False) < 1 Then Me.MnuDokumenterstellen.Enabled = True Me.MenuItem8.Enabled = True Else Me.MnuDokumenterstellen.Enabled = False Me.MenuItem8.Enabled = False End If Catch End Try End Sub Private Sub TVStruktur_ItemDrag(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles TVStruktur.ItemDrag Me.ItemMove = False If e.Button = MouseButtons.Left Then Select Case TagArt(TVStruktur.SelectedNode.Tag) Case "DT_" 'nur Dokumente word,Barcode,Word mit Barcode... (keine Stukturknoten) TVStruktur.DoDragDrop(e.Item, DragDropEffects.Copy) Case "DP_" TVStruktur.DoDragDrop(e.Item, DragDropEffects.Copy) Case Else TVStruktur.DoDragDrop(e.Item, DragDropEffects.None) End Select End If End Sub Private Sub FavoritenStruktur_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles FavoritenStruktur.BeforeSelect Try 'Me.FavoritenStruktur.SelectedNode.BackColor = System.Drawing.Color.White Catch End Try End Sub Private Sub FavoritenStruktur_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FavoritenStruktur.MouseDown Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Try FavoritenStruktur.SelectedNode = FavoritenStruktur.GetNodeAt(selectPoint) Catch End Try Update_Menu() End Sub Private Sub Update_Menu() If Not FavoritenStruktur.SelectedNode Is Nothing Then Select Case FavoritenStruktur.SelectedNode.ImageIndex Case 1 'Folder mnuUmbenennen.Enabled = True 'Umbenennen eines Ordners mnuNeuerOrdner.Enabled = True 'Erstellen eines Ordners mnuLoeschen.Enabled = True 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = False 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = False 'Erstellen eines Dokument mnuDokument_erstellen.Text = "Dokument erstellen" mnuInfoDokumentvorlage.Text = "Informationen zur Dokumentvorlage" Case (60 + DP_Imagepos) 'Dokumentpaketfolder mnuUmbenennen.Enabled = True 'Umbenennen eines Ordners mnuNeuerOrdner.Enabled = True 'Erstellen eines Ordners mnuLoeschen.Enabled = True 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = False 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = False 'Erstellen eines Dokument mnuDokument_erstellen.Text = "Dokumentpaket erstellen" mnuInfoDokumentvorlage.Text = "Informationen zum Dokumentpaket" Case Is > 60 mnuUmbenennen.Enabled = False 'Umbenennen eines Ordeners mnuNeuerOrdner.Enabled = False 'Erstellen eines Ordners mnuLoeschen.Enabled = True 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = True 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = True 'Erstellen eines Dokument mnuDokument_erstellen.Enabled = True 'Erstellen eines Dokument mnuDokument_erstellen.Text = "Dokumentpaket auswählen" mnuInfoDokumentvorlage.Text = "Informationen zum Dokumentpaket" Case Is > 1 'Dokumente mnuUmbenennen.Enabled = False 'Umbenennen eines Ordeners mnuNeuerOrdner.Enabled = False 'Erstellen eines Ordners mnuLoeschen.Enabled = True 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = True 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = True 'Erstellen eines Dokument mnuDokument_erstellen.Text = "Dokument erstellen" mnuInfoDokumentvorlage.Text = "Informationen zur Dokumentvorlage" Case Else mnuUmbenennen.Enabled = False 'Umbenennen eines Ordeners mnuNeuerOrdner.Enabled = False 'Erstellen eines Ordners mnuLoeschen.Enabled = False 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = False 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = False 'Erstellen eines Dokument mnuDokument_erstellen.Text = "Dokument erstellen" mnuInfoDokumentvorlage.Text = "Informationen zur Dokumentvorlage" End Select Else mnuUmbenennen.Enabled = False 'Umbenennen eines Ordeners mnuNeuerOrdner.Enabled = False 'Erstellen eines Ordners mnuLoeschen.Enabled = False 'löschen eines Ordner oder Dokument mnuInfoDokumentvorlage.Enabled = False 'Info zu Dokvorlage mnuDokument_erstellen.Enabled = False 'Erstellen eines Dokument End If End Sub Private Sub FavoritenStruktur_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles FavoritenStruktur.DoubleClick DokumentErstellen() End Sub Private Sub FavoritenStruktur_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles FavoritenStruktur.KeyDown If e.Control = True Then Select Case e.KeyCode Case Keys.N If mnuNeuerOrdner.Enabled Then mnuNeuerOrdner_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 If Me.FavoritenStruktur.SelectedNode.ImageIndex = 1 Or Me.FavoritenStruktur.SelectedNode.ImageIndex = 60 + DP_Imagepos Then If Me.FavoritenStruktur.SelectedNode.IsExpanded Then Me.FavoritenStruktur.SelectedNode.Collapse() Else Me.FavoritenStruktur.SelectedNode.Expand() End If Else If mnuDokument_erstellen.Enabled Then DokumentErstellen() End If End If Case Keys.F2 If mnuUmbenennen.Enabled Then mnuUmbenennen_Click(sender, e) End If Case Keys.Delete If mnuLoeschen.Enabled Then mnuLoeschen_Click(sender, e) End If Case Keys.Up Update_Menu() Case Keys.Down Update_Menu() End Select End If End Sub Private Sub TxtSearch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TxtSearch.KeyDown If e.KeyCode = Keys.Enter Then 'Me.pnlFavoriten.Visible = False Load_Struktur(Me.TxtSearch.Text, False) Try Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) Catch End Try End If End Sub #End Region #Region " Data Funktionen " Private Sub Load_Struktur(ByVal Searchstring As String, ByVal favoriten As Boolean) Try Me.Cursor = Cursors.WaitCursor Dim dokart As New edokadb.clsMyDokumentart() If favoriten Then Me.FavoritenStruktur.BeginUpdate() Me.FavoritenStruktur.Nodes.Clear() dokart.Load_FavoritenStruktur(Me.FavoritenStruktur, Searchstring, True, m_iImagesOffestImagelist1) If Searchstring = "" Then If RootNodesFavoritenStrukturExist() = False Then dokart.Load_FavoritenStruktur(Me.FavoritenStruktur, Searchstring, True, m_iImagesOffestImagelist1) End If End If 'Rel 3.3 '09.11.2004 / BUD Me.FavoritenStruktur.Nodes.Item(0).Expand() Me.FavoritenStruktur.Nodes.Item(1).Expand() 'Me.FavoritenStruktur.ExpandAll() Me.FavoritenStruktur.EndUpdate() If Me.FavoritenStruktur.Nodes.Count > 0 Then Me.FavoritenStruktur.SelectedNode = Me.FavoritenStruktur.Nodes(0) End If Me.FavoritenStruktur.Refresh() Me.FavoritenStruktur.SelectedNode.Checked = True Else 'Me.pnlFavoriten.Visible = False Me.TVStruktur.BeginUpdate() dokart.Load_Neue_Dokumente(Me.TVStruktur, Searchstring, False, Me.mcbfilter.SelectedValue) Me.TVStruktur.ExpandAll() TVStruktur.EndUpdate() If Me.TVStruktur.Nodes.Count > 0 Then Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) TVStruktur.Refresh() TVStruktur.SelectedNode.Checked = True End If End If dokart.Dispose() Catch ex As Exception MsgBox(ex.Message) End Try Me.Cursor = Cursors.Default End Sub Private Sub RenameNodeFavoritenstruktur(ByVal dokumentfavoritennr As Integer, ByVal NodeText As String) If dokumentfavoritennr <> 0 Then Dim df As New edokadb.clsEDEX_Favoriten() df.cpMainConnectionProvider = conn conn.OpenConnection() df.iNreintrag = New SqlInt32(CType(dokumentfavoritennr, Int32)) df.SelectOne() df.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) df.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) df.sBezeichnung = New SqlString(CType(NodeText, String)) df.bAktiv = New SqlBoolean(CType(True, Boolean)) df.iSprache = New SqlInt32(CType(Globals.Sprache, Int32)) df.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) df.Update() conn.CloseConnection(True) End If End Sub Private Function DocumentAllreadyExists(ByVal strukturnr As Integer, ByVal doktypnr As Integer) As EnumFavoritenDokumentenAktion '=============================================================================== 'Description : Ermittelt, ob das Dokument berits in der Struktur vorhanden ist 'Input : strukturnr = PK des Favoriten ' doktypnr = PK des Dokumenttyp 'Output : Ausgeführte Aktion Einfuegen oder Ueberschreiben oder NichtUebreschreiben 'Date : koe 24.08.2004 'Modified : '=============================================================================== Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) DocumentAllreadyExists = EnumFavoritenDokumentenAktion.Einfuegen 'Dokument wir in die Favoriten eingefuegt Try scmCmdToExecute.CommandText = "dbo.SP_Favorit_bereits_vorhanden" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@strukturnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, strukturnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@doktypnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, doktypnr)) sdaAdapter.Fill(dtToReturn) Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try If dtToReturn.Rows.Count > 0 Then If MyMsg.Show_MessageYesNo(23) = MsgBoxResult.Yes Then 'Die gewählte Dokumentvorlage ist bereits bei den Favoriten eingetragen. Wollen Sie sie erneut übernehmen? DocumentAllreadyExists = EnumFavoritenDokumentenAktion.Ueberschreiben 'Dokument wir in die Favoriten Ueberschrieben Else DocumentAllreadyExists = EnumFavoritenDokumentenAktion.NichtUebreschreiben 'Dokument wir in den Favoriten nicht Ueberschrieben End If End If End Function Private Function Get_dtnr_dpnr(ByVal nreintrag As Integer) As Integer '=============================================================================== 'Description : Aus dem PrimaryKey dokumentfavoritnr aus der Tabelle dokumentfavoriten ' wird die DokumenttypNr ermittelt 'Input : DokumentfavoritNr 'Criteria : MitarbeiterNr 'Output : DokumenttypNr 'Date : koe 19.08.2004 'Modified : '=============================================================================== Dim iDokumenttypNr As Integer Dim sqlConnection As New SqlConnection() Dim Sqlcmd As New SqlCommand() sqlConnection = conn.scoDBConnection ' If sqlConnection.State = ConnectionState.Closed Then sqlConnection.Open() ' End If With Sqlcmd .CommandType = CommandType.StoredProcedure .CommandText = "dbo.edex_sp_get_dtdp_key" .Parameters.Clear() .Parameters.Add(New SqlParameter("@nreintrag", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Default, nreintrag)) .Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) .Connection = sqlConnection .ExecuteNonQuery() Sqlcmd.Dispose() sqlConnection.Close() Return .Parameters.Item("@key").Value End With End Function Private Function GetDokumentFavoritNr(ByVal DokumenttypNr As Integer) As Integer '=============================================================================== 'Description : Aus dem DokumenttypNr aus der Tabelle dokumentfavoriten ' wird die DokumentFavoritNr ermittelt 'Input : DokumenttypNr 'Criteria : MitarbeiterNr 'Output : DokumentfavoritNr 'Date : koe 19.08.2004 'Modified : '=============================================================================== Dim iDokumentFavoritNr As Integer Dim sqlConnection As New SqlConnection() Dim Sqlcmd As New SqlCommand() sqlConnection = conn.scoDBConnection sqlConnection.Open() With Sqlcmd .CommandType = CommandType.StoredProcedure .CommandText = "sp_get_DokumentFavoritNr" .Parameters.Clear() .Parameters.Add(New SqlParameter("@MitarbeiterNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Default, Globals.MitarbeiterNr)) .Parameters.Add(New SqlParameter("@DokumenttypNr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Default, DokumenttypNr)) .Parameters.Add(New SqlParameter("@DokumentFavoritNr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, iDokumentFavoritNr)) .Connection = sqlConnection .ExecuteNonQuery() iDokumentFavoritNr = New SqlInt32(CType(.Parameters.Item("@DokumentFavoritNr").Value, SqlInt32)).Value GetDokumentFavoritNr = iDokumentFavoritNr End With Sqlcmd.Dispose() sqlConnection.Close() End Function Private Sub SearchDokFavoritenNode(ByRef TV As TreeView, ByVal tn As TreeNode, ByRef Tag As String) If tn.Tag <> Tag Then If tn.FirstNode Is Nothing Then 'Keine Childknoten gefunden If Not tn.NextNode Is Nothing Then 'Knoten auf gleicher Ebene SearchDokFavoritenNode(TV, tn.NextNode, Tag) End If Else 'Childkonoten vorhanden SearchDokFavoritenNode(TV, tn.FirstNode, Tag) If Not tn.NextNode Is Nothing Then 'Knoten auf gleicher Ebene SearchDokFavoritenNode(TV, tn.NextNode, Tag) End If End If Else TV.SelectedNode = tn End If End Sub #End Region #Region " Extra Funktionen " Private Sub ShowControls() '=============================================================================== 'Dokumentvorlage '=============================================================================== Me.TVStruktur.Visible = Me.ToolBar1.Buttons(2).Pushed Me.Label1.Visible = Me.TVStruktur.Visible Me.mcbfilter.Visible = Me.TVStruktur.Visible Me.ComboBox1.Visible = Me.TVStruktur.Visible ToolBar1.Buttons(5).Visible = Me.TVStruktur.Visible 'Button suchen Me.TxtSearch.Visible = Me.TVStruktur.Visible '=============================================================================== 'Favoriten Ordnerstruktur '=============================================================================== Me.pnlFavoriten.Visible = Me.ToolBar1.Buttons(3).Pushed '=============================================================================== 'Anordnen der Controls '=============================================================================== ' Me.FavoritenStruktur.AllowDrop = False If Me.TVStruktur.Visible Then If Me.pnlFavoriten.Visible Then Me.TVStruktur.Dock = DockStyle.Left 'Me.TVStruktur.BringToFront() Me.Splitter2.Visible = True Me.Splitter2.Dock = DockStyle.Left 'Me.Splitter2.BringToFront() Me.FavoritenStruktur.AllowDrop = True Me.pnlFavoriten.Dock = DockStyle.Fill 'Me.pnlFavoriten.BringToFront() Else Me.Splitter2.Visible = False Me.TVStruktur.Dock = DockStyle.Fill 'Me.TVStruktur.BringToFront() End If Else If Me.pnlFavoriten.Visible Then Me.Splitter2.Visible = False Me.pnlFavoriten.Dock = DockStyle.Fill 'Me.pnlFavoriten.BringToFront() Else End If End If 'If Me.pnlFavoriten.Visible And Me.TVStruktur.Visible Then 'Me.Width = Globals.EDOKAMAIN_WindowWidth / 4 * 3 'Else 'Me.Width = Globals.EDOKAMAIN_WindowWidth / 5 * 2 'End If End Sub Private Sub formatForm() Me.WindowState = FormWindowState.Normal If Me.TVStruktur.Visible = True And Me.pnlFavoriten.Visible = False Then Me.Width = 560 End If If Me.TVStruktur.Visible = True And Me.pnlFavoriten.Visible = True Then Me.Width = 960 'Me.Width = Me.TVStruktur.Width + Me.Splitter2.Width + Me.TVStruktur.Width End If If Me.TVStruktur.Visible = False And Me.pnlFavoriten.Visible = True Then Me.Width = 560 'Me.Width = Me.TVStruktur.Width End If If Me.TVStruktur.Visible = False And Me.pnlFavoriten.Visible = False Then Me.Width = 560 End If End Sub 'Rel 4.03 Anpassungen aufgrund neuer Aufrufe als MDI-Fenster Private Sub DokumentErstellen() Dim iDokumentFavoritenNr As Integer If FavoritenStruktur.SelectedNode.ImageIndex <> 1 And FavoritenStruktur.SelectedNode.ImageIndex <> 60 + DP_Imagepos Then If FavoritenStruktur.SelectedNode.ImageIndex = 61 + DP_Imagepos Then Me.Dokumentvorlage = TagValue(FavoritenStruktur.SelectedNode.Tag) 'Rel. 4.1 Dim dp As New edokadb.clsEdex_dokumentpaket dp.cpMainConnectionProvider = Globals.conn dp.iDokumentpaketnr = Me.Dokumentvorlage dp.SelectOne() If dp.bAktiv = False Then MyMsg.show_standardmessage(50104, MsgBoxStyle.Exclamation) dp.Dispose() Exit Sub End If dp.Dispose() 'Ende Rel. 4.1 Globals.DokumentPaket = True Globals.Individuelles_Dokumentpaket = True Globals.bckdokument = False Globals.EinzelDokument = False Me.DialogResult = DialogResult.OK Me.Start_DP() Me.Close() Exit Sub End If If FavoritenStruktur.SelectedNode.ImageIndex = 62 + DP_Imagepos Then iDokumentFavoritenNr = Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag)) Me.Dokumentvorlage = iDokumentFavoritenNr 'Rel. 4.1 Dim dp As New edokadb.clsEdex_dokumentpaket dp.cpMainConnectionProvider = Globals.conn dp.iDokumentpaketnr = Me.Dokumentvorlage dp.SelectOne() If dp.bAktiv = False Then MyMsg.show_standardmessage(50104, MsgBoxStyle.Exclamation) dp.Dispose() Exit Sub End If dp.Dispose() 'Ende Rel. 4.1 Globals.DokumentPaket = True Globals.Individuelles_Dokumentpaket = False Globals.bckdokument = False Globals.EinzelDokument = False Me.DialogResult = DialogResult.OK Me.Start_DP() Me.Close() Exit Sub End If Me.Dokumentvorlage = Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag)) 'Rel. 4.1 - Prüfung, ob Dokument noch erstellt werden darf Dim dt As New edokadb.clsDokumenttyp dt.cpMainConnectionProvider = Globals.conn dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumentvorlage, Int32)) dt.SelectOne() If dt.bAktiv.Value = False Or dt.bAnzeigeZurDokumenterstellung = False Then MyMsg.show_standardmessage(50103, MsgBoxStyle.Exclamation) dt.Dispose() Exit Sub End If dt.Dispose() 'Ende Rel. 4.1 Globals.bckdokument = False Globals.EinzelDokument = False If Check_Barcode() = False Then Exit Sub Me.DialogResult = DialogResult.OK 'Rel. 4.03 Korrektur If Globals.bckdokument = True Then Me.Start_BCK() Else If Globals.EinzelDokument = True Then Me.Start_Einzeldokument() Else Me.Start_Doc() End If End If 'Ende Korrektur 'Me.Start_Doc() Me.Close() End If End Sub Private Function Check_Barcode() As Boolean If Me.edex_vorlagenauswahl = True Then Return True Exit Function End If Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Me.Dokumentvorlage, Int32)) dt.SelectOne() Me.BarcodeID = "" Check_Barcode = True Dim showbc As Boolean = False '20120211 Dim ShowEL As Boolean = False If dt.bNurnative.Value = True Then Globals.EinzelDokument = True Return True End If '20120211 If dt.bElDokImport.Value = True Then ShowEL = True If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = False Then showbc = True If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = True Then Dim f As New frmbcquestion() f.ShowDialog() If f.DialogResult = DialogResult.Abort Then showbc = True If f.DialogResult = DialogResult.OK Then showbc = False f.Dispose() End If If showbc Then Dim f As New frmBarcodeKleber() f.ShowDialog() If f.DialogResult = DialogResult.Abort Then Check_Barcode = False Else If f.DialogResult = DialogResult.OK Then Me.BarcodeID = f.BarcodeID Check_Barcode = True Globals.bckdokument = True Else Check_Barcode = False End If End If End If If ShowEL Then Dim f As New frmBarcodeKleber(True) f.ShowDialog() If f.DialogResult = DialogResult.Abort Then Check_Barcode = False Else If f.DialogResult = DialogResult.OK Then Globals.Dokument_Importfilename = f.Label2.Text Me.BarcodeID = f.BarcodeID Check_Barcode = True Globals.bckdokument = True Else Check_Barcode = False End If End If End If End Function Private Function RootNodesFavoritenStrukturExist(Optional ByVal RootNodetext As String = "Favoriten") As Boolean RootNodesFavoritenStrukturExist = True If FavoritenStruktur.Nodes.Count < 1 Then Dim dfs As New edokadb.clsDokumentfavoriten_struktur() RootNodesFavoritenStrukturExist = False dfs.cpMainConnectionProvider = conn conn.OpenConnection() dfs.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) dfs.sBezeichnung = New SqlString(CType(RootNodetext, String)) dfs.iParentid = New SqlInt32(CType(0, Int32)) dfs.iSort = New SqlInt32(CType(0, Int32)) dfs.iImageindex = New SqlInt32(CType(1, Int32)) dfs.iImageindexopen = New SqlInt32(CType(1, Int32)) dfs.sBeschreibung = New SqlString(CType("Root Knoten", String)) dfs.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) dfs.iSprache = New SqlInt32(CType(1, Int32)) dfs.bAktiv = New SqlBoolean(CType(True, Boolean)) dfs.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) dfs.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) dfs.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) dfs.Insert() conn.CloseConnection(True) End If End Function #End Region Private Function Get_Filter() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.CommandText = "dbo.sp_get_Filter_NeueDokumente" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() scmCmdToExecute.Connection = conn.scoDBConnection sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Get_Filter_NeueDokumente::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Protected Overrides Sub Finalize() MyBase.Finalize() End Sub Private Sub mcbfilter_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mcbfilter.SelectedValueChanged If On_Load Then Exit Sub Me.Cursor = Cursors.WaitCursor Globals.Vorlagenfilter = Me.mcbfilter.SelectedValue 'TVStruktur.BeginUpdate() Load_Struktur(Me.TxtSearch.Text, False) 'Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) 'TVStruktur.EndUpdate() 'TVStruktur.Refresh() Try Me.TVStruktur.SelectedNode = Me.TVStruktur.Nodes(0) Catch End Try Me.Cursor = Cursors.Default End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click If Me.ToolBar1.Buttons(2).Pushed = False Then Globals.HTMLHelp.ShowHelpToc("favoriten") Else Globals.HTMLHelp.ShowHelpToc("vorlagenauswahl") End If End Sub #Region "DragDrop Favoriten" Private Sub FavoritenStruktur_ItemDrag(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemDragEventArgs) Handles FavoritenStruktur.ItemDrag Me.ItemMove = True Me.FavoritenStruktur.AllowDrop = True If e.Button = MouseButtons.Left Then FavoritenStruktur.DoDragDrop(e.Item, DragDropEffects.Copy) End If End Sub Private Sub Favoritenstruktur_dragenter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles FavoritenStruktur.DragEnter If (e.Data.GetDataPresent("System.Windows.Forms.TreeNode")) Then Me.FavoritenStruktur.AllowDrop = True e.Effect = DragDropEffects.Copy Else e.Effect = DragDropEffects.None End If End Sub Public Sub Favoritenstruktur_DragOver(ByVal sender As System.Object, ByVal e As DragEventArgs) Handles FavoritenStruktur.DragOver If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _ True) = False Then Exit Sub Dim selectedTreeview As TreeView = CType(sender, TreeView) Dim Originalnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode) Dim pt As Point = _ CType(sender, TreeView).PointToClient(New Point(e.X, e.Y)) Dim targetNode As TreeNode = selectedTreeview.GetNodeAt(pt) If targetNode Is Nothing Then Exit Sub selectedTreeview.SelectedNode = targetNode If Originalnode.ImageIndex <= 60 And targetNode.ImageIndex <> 1 Then e.Effect = DragDropEffects.None Exit Sub End If If Originalnode.ImageIndex >= 60 And targetNode.ImageIndex <> 60 + DP_Imagepos Then e.Effect = DragDropEffects.None Exit Sub End If 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 e.Effect = DragDropEffects.Copy End Sub Private Sub Favoritenstruktur_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles FavoritenStruktur.DragDrop If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", _ True) = False Then Exit Sub Dim selectedTreeview As TreeView = CType(sender, TreeView) If Me.ItemMove = False Then FavoritenStruktur_Dragdrop_insert(sender, e) Exit Sub End If 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 Dim tn As TreeNode tn = targetNode Dim i As Integer i = tn.GetNodeCount(True) For i = 0 To targetNode.GetNodeCount(True) - 1 Save_Nodedata(tn.Nodes(i)) Next End Sub Private Sub Save_Nodedata(ByVal tn As TreeNode) Dim keyvalue As Integer Dim wert As Integer Dim indexnr As Integer Dim idp As Integer If tn.ImageIndex = 61 + DP_Imagepos Then idp = 1 keyvalue = TagValue(tn.Tag) Else keyvalue = TagValue(tn.Tag) idp = 0 End If indexnr = tn.Index wert = TagValue(tn.Parent.Tag) 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.Parameters.Add(New SqlParameter("@idp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, idp)) scmCmdToExecute.Connection = conn.scoDBConnection Try conn.OpenConnection() scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception Throw New Exception("Vorlagenauswahl::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally conn.CloseConnection(True) scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Sub Private Sub FavoritenStruktur_Dragdrop_insert(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Dim pt As Point Dim DestinationNode As TreeNode Dim Strukturnr As Integer Dim tn As TreeNode Dim tnnew As TreeNode Dim Originalnode As TreeNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode) pt = CType(sender, TreeView).PointToClient(New Point(e.X, e.Y)) DestinationNode = CType(sender, TreeView).GetNodeAt(pt) If DestinationNode.ImageIndex <> 1 And DestinationNode.ImageIndex <> 60 + DP_Imagepos Then tn = DestinationNode.Parent Strukturnr = TagValue(tn.Tag) Else tn = DestinationNode Strukturnr = TagValue(tn.Tag) End If tnnew = tn.Nodes.Add(Originalnode.Text) tnnew.ImageIndex = Originalnode.ImageIndex + DP_Imagepos tnnew.SelectedImageIndex = Originalnode.SelectedImageIndex + DP_Imagepos Dim ps As New edokadb.clsEDEX_Favoriten() ps.cpMainConnectionProvider = conn ps.sBezeichnung = New SqlString(CType(Originalnode.Text, String)) ps.bAktiv = New SqlBoolean(CType(True, Boolean)) ps.daErstellt_am = New SqlDateTime(CType(Now, DateTime)) ps.daMutiert_am = New SqlDateTime(CType(Now, DateTime)) ps.iMandantnr = New SqlInt32(CType(Globals.MandantNr, Int32)) ps.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) ps.iMutierer = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) ps.iParentid = New SqlInt32(CType(TagValue(DestinationNode.Tag), Int32)) ps.iSort = New SqlInt32(CType(tnnew.Index, Int32)) ps.iSprache = New SqlInt32(CType(Globals.Sprache, Int32)) ps.iImageindex = New SqlInt32(CType(Originalnode.ImageIndex, Int32)) ps.iImageindexopen = New SqlInt32(CType(Originalnode.SelectedImageIndex, Int32)) If DestinationNode.ImageIndex >= 60 + DP_Imagepos Then ps.bDp = New SqlBoolean(CType(True, Boolean)) ps.iDtnr_dpnr = New SqlInt32(CType(TagValue(Originalnode.Tag), Int32)) Else ps.bDp = New SqlBoolean(CType(False, Boolean)) ps.iDtnr_dpnr = New SqlInt32(CType(TagValue(Originalnode.Tag), Int32)) End If ps.bStddp = New SqlBoolean(CType(False, Boolean)) ps.bStrukturelement = New SqlBoolean(CType(False, Boolean)) conn.OpenConnection() Try ps.Insert() Strukturnr = ps.iNreintrag.Value tnnew.Tag = TagArt(tn.Tag) + LTrim(Str(Strukturnr)) tn.ExpandAll() Catch Finally conn.CloseConnection(True) ps.Dispose() End Try Me.FavoritenStruktur.AllowDrop = False e.Effect = DragDropEffects.None Originalnode = Nothing DestinationNode = Nothing e.Effect = DragDropEffects.None End Sub Private Sub MoveNode(ByVal direction As Integer) Dim tn As TreeNode Dim tnp As TreeNode Dim index As Integer tn = Me.FavoritenStruktur.SelectedNode If tn.Parent Is Nothing Then Exit Sub tnp = tn.Parent 'If tnp.ImageIndex = 1 Or tnp.ImageIndex = 60 + DP_Imagepos Then Exit Sub 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 For i = 0 To tnp.GetNodeCount(False) - 1 Me.Save_Nodedata(tnp.Nodes(i)) Next DivFnkt.Searchnode(FavoritenStruktur, tn.Tag, 0) End Sub #End Region Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click MoveNode(1) End Sub Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click MoveNode(2) 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 ContextMenu3_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu3.Popup Try Me.MnuNeuesDokumentpaket.Enabled = False Me.MnuDokumentpaketKopieren.Enabled = False Me.MnuIDVBearbeitung.Enabled = False Me.MnuMAKopie.Enabled = False If Me.FavoritenStruktur.SelectedNode.ImageIndex < 60 + Me.DP_Imagepos Then Me.MnuPaketverwaltung.Enabled = False Exit Sub Else Me.MnuPaketverwaltung.Enabled = True End If If Me.FavoritenStruktur.SelectedNode.ImageIndex > 59 + Me.DP_Imagepos Then Me.MnuNeuesDokumentpaket.Enabled = True End If If Me.FavoritenStruktur.SelectedNode.ImageIndex = 61 + Me.DP_Imagepos Then Me.MnuIDVBearbeitung.Enabled = True Me.MnuMAKopie.Enabled = True Me.MnuDokumentpaketKopieren.Enabled = True End If If Me.FavoritenStruktur.SelectedNode.ImageIndex = 62 + Me.DP_Imagepos Then Me.MnuDokumentpaketKopieren.Enabled = True End If Catch Me.MnuPaketverwaltung.Enabled = False End Try End Sub Private Sub MnuNeuesDokumentpaket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuNeuesDokumentpaket.Click Dim f As New frmDokumentpaketdefinition(True, 0, True) f.ShowDialog() Me.FavoritenStruktur.Nodes.Clear() Load_Struktur("", True) End Sub Private Sub MnuIDVBearbeitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuIDVBearbeitung.Click Dim f As New frmDokumentpaketdefinition(False, Me.TagValue(Me.FavoritenStruktur.SelectedNode.Tag), True) f.ShowDialog() f.Dispose() Me.FavoritenStruktur.Nodes.Clear() Load_Struktur("", True) End Sub Private Sub MnuDokumentpaketKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDokumentpaketKopieren.Click Dim f As frmDokumentpaketdefinition If Me.FavoritenStruktur.SelectedNode.ImageIndex = 62 + Me.DP_Imagepos Then f = New frmDokumentpaketdefinition(False, Get_dtnr_dpnr(TagValue(FavoritenStruktur.SelectedNode.Tag)), True) Else f = New frmDokumentpaketdefinition(False, TagValue(Me.FavoritenStruktur.SelectedNode.Tag), True) End If f.Kopie = True f.ShowDialog() f.Dispose() Me.FavoritenStruktur.Nodes.Clear() Load_Struktur("", True) End Sub Private Sub MnuMaKopie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuMAKopie.Click Dim ma As New frmMitarbeiterSelektion() Dim i As Integer i = ma.ShowDialog() If Not i = DialogResult.OK Then Exit Sub End If i = ma.Mitarbeiternr ma.Dispose() Dim f As frmDokumentpaketdefinition f = New frmDokumentpaketdefinition(TagValue(Me.FavoritenStruktur.SelectedNode.Tag), i) f.Show() f.Dispose() MyMsg.show_standardmessage(415, MsgBoxStyle.Information) End Sub #Region "Rel. 4.03" Private Sub Start_Doc() If Bestehenderpartner = True Then If Me.BestBPNr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False Then MyMsg.show_standardmessage(110, MsgBoxStyle.Critical) Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If End If Dim bestbp As String = "" If Bestehenderpartner = True Then Me.BestehenderBP = Me.BestBPNr Else BestehenderBP = "" End If Me.DocType_To_Create = "N" Me.DialogResult = Windows.Forms.DialogResult.OK Me.Cursor = System.Windows.Forms.Cursors.Default Me.Close() End Sub Private Sub Start_DP() If Bestehenderpartner = True Then Me.BestehenderBP = Me.BestBPNr Else BestehenderBP = "0" End If If Globals.DokumentPaket = True Then Me.DocType_To_Create = "DP" Me.DialogResult = Windows.Forms.DialogResult.OK Me.Cursor = System.Windows.Forms.Cursors.Default insert_used_dp(Me.Dokumentvorlage, 0) Me.Close() End If End Sub Private Sub Start_BCK() If Bestehenderpartner = True Then If Me.BestBPNr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False Then MyMsg.show_standardmessage(110, MsgBoxStyle.Critical) Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If End If If Bestehenderpartner = True Then Me.BestehenderBP = Me.BestBPNr Else BestehenderBP = "" End If Me.DocType_To_Create = "BCK" Me.DialogResult = Windows.Forms.DialogResult.OK Me.Cursor = System.Windows.Forms.Cursors.Default Me.Close() End Sub Private Sub Start_Einzeldokument() If Bestehenderpartner = True Then If Me.BestBPNr > 91000000 And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False Then MyMsg.show_standardmessage(110, MsgBoxStyle.Critical) Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If End If If Bestehenderpartner = True Then Me.BestehenderBP = Me.BestBPNr Else BestehenderBP = "" End If Me.DocType_To_Create = "ED" Me.DialogResult = Windows.Forms.DialogResult.OK Me.Cursor = System.Windows.Forms.Cursors.Default Me.Close() End Sub Private Function insert_used_dp(ByVal dpnr As Integer, ByVal standard As Integer) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_register_used_dp" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Try scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dpnr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@std", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, standard)) sdaAdapter.Fill(dtToReturn) If scmCmdToExecute.Parameters("@blkunde").Value = 0 Then Return False Else Return True End If Catch ex As Exception Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() dtToReturn.Dispose() End Try End Function Private Sub frmVorlagenauswahl_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave Me.Cursor = Cursors.Default End Sub #End Region Private Sub MnuEmptyDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEmptyDoc.Click Dim i As Integer Dim w As New WordLib() Try i = TagValue(Me.TVStruktur.SelectedNode.Tag) ' i = Val(Me.TVStruktur.SelectedNode.Tag / 10000) If i > 0 Then w.Create_Empty_Doc(i) End If Catch ex As Exception MsgBox(ex.Message) Finally w = Nothing End Try End Sub End Class