shu
/
EDOKA_DMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '07c531bdf3'
${ noResults }
EDOKA_DMS/EDOKA/Dokumentmanagement/frmVorlagenauswahl.vb

2546 lines
113 KiB
Raw Blame History

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
<System.Diagnostics.DebuggerStepThrough()> 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, "")
Me.ImageList4.Images.SetKeyName(75, "Snapform.png")
Me.ImageList4.Images.SetKeyName(76, "pdf.png")
Me.ImageList4.Images.SetKeyName(77, "pdfform.png")
Me.ImageList4.Images.SetKeyName(78, "pdf.png")
Me.ImageList4.Images.SetKeyName(79, "pdfform.png")
Me.ImageList4.Images.SetKeyName(80, "pdf.png")
'
'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(529, 2)
Me.BtnHelp.Name = "BtnHelp"
Me.BtnHelp.Size = New System.Drawing.Size(23, 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 Or TVStruktur.SelectedNode.ImageIndex > 67 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
'20190316-CLM-Anpassung Übersteuerung BC-Question
If DivFnkt.BC_Uebersteuerung(dt.iDokumenttypnr.Value) = False 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()
Else
showbc = True
End If
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 Or Originalnode.ImageIndex = 75 Or Originalnode.ImageIndex = 76) And targetNode.ImageIndex <> 1 Then
e.Effect = DragDropEffects.None
Exit Sub
End If
If (Originalnode.ImageIndex >= 60 And Originalnode.ImageIndex <> 71 And Originalnode.ImageIndex <> 72 And Originalnode.ImageIndex <> 67 And Originalnode.ImageIndex <> 68 And Originalnode.ImageIndex <> 75 And Originalnode.ImageIndex <> 76) 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.Show()
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.Show()
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
'Objeperson
If DivFnkt.PartnerTyp(BestBPNr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False 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
'ObjPerson
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(Me.BestBPNr, Me.Dokumentvorlage)
Select Case erlaubt
Case 0
Case 1 'Dokument nicht für BP
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
Case 2 'DOkument nicht für Person
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End Select
'Rel 5.6
If DivFnkt.Check_Dokumenterstellung(1, Me.Dokumentvorlage, Me.BestBPNr) = 1 Then
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End If
End If
'ObjPerson
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
'ObjPerson
If DivFnkt.PartnerTyp(BestBPNr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False 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
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(BestBPNr, Dokumentvorlage)
Select Case erlaubt
Case 0
Case 1 'Dokument nicht für BP
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
Case 2 'DOkument nicht für Person
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End Select
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
'Objeperson
If DivFnkt.PartnerTyp(BestBPNr) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent And DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumentvorlage) = False 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
'ObjPerson
Dim erlaubt As Integer = DivFnkt.Erstellung_Erlaubt(BestBPNr, Dokumentvorlage)
Select Case erlaubt
Case 0
Case 1 'Dokument nicht für BP
MyMsg.show_standardmessage(60000, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
Case 2 'DOkument nicht für Person
MyMsg.show_standardmessage(60001, MsgBoxStyle.Critical)
Me.Cursor = System.Windows.Forms.Cursors.Default
Exit Sub
End Select
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
Reference in new issue View Git Blame Copy Permalink