Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.ComponentModel Imports System.Drawing Imports System.Drawing.Color Imports System.IO Imports System.Threading Imports System.Windows.Forms Public Class frmSuchFormular 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 TabControl1 As System.Windows.Forms.TabControl Friend WithEvents Suche As System.Windows.Forms.TabPage Friend WithEvents Gruppierung As System.Windows.Forms.TabPage Friend WithEvents TreeView1 As System.Windows.Forms.TreeView Friend WithEvents Splitter1 As System.Windows.Forms.Splitter Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ImageList2 As System.Windows.Forms.ImageList Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu Friend WithEvents MnuDatenselektion As System.Windows.Forms.MenuItem Friend WithEvents MnuDelete As System.Windows.Forms.MenuItem Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar Friend WithEvents Splitter2 As System.Windows.Forms.Splitter Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Splitter3 As System.Windows.Forms.Splitter Friend WithEvents Panel2 As System.Windows.Forms.Panel Friend WithEvents btnSearch As System.Windows.Forms.Button Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents btndruck As System.Windows.Forms.ToolBarButton Friend WithEvents btnSave As System.Windows.Forms.ToolBarButton Friend WithEvents cbProfile As System.Windows.Forms.ComboBox Friend WithEvents BTNDELETEPROFIL As System.Windows.Forms.ToolBarButton Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton Friend WithEvents ContextMenu3 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem Friend WithEvents SaveFileDialog1 As System.Windows.Forms.SaveFileDialog Friend WithEvents ContextMenu4 As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem Friend WithEvents rbzv6monate As System.Windows.Forms.RadioButton Friend WithEvents rbzvvollständig As System.Windows.Forms.RadioButton Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSuchFormular)) Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Daten") Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumentart") Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumentstatus") Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Partner") Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokument", 0, 0, New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3, TreeNode4}) Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Ersteller", 8, 8, New System.Windows.Forms.TreeNode() {TreeNode6, TreeNode7, TreeNode8, TreeNode9, TreeNode10}) Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mutierer", 9, 9, New System.Windows.Forms.TreeNode() {TreeNode12, TreeNode13, TreeNode14, TreeNode15, TreeNode16}) Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Kostenstelle") Dim TreeNode19 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Marktbereich") Dim TreeNode20 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Mitarbeiter") Dim TreeNode21 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Niederlassung") Dim TreeNode22 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Team") Dim TreeNode23 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Verantwortlich", 7, 7, New System.Windows.Forms.TreeNode() {TreeNode18, TreeNode19, TreeNode20, TreeNode21, TreeNode22}) Me.TabControl1 = New System.Windows.Forms.TabControl Me.Suche = New System.Windows.Forms.TabPage Me.Panel2 = New System.Windows.Forms.Panel Me.btnSearch = New System.Windows.Forms.Button Me.Splitter3 = New System.Windows.Forms.Splitter Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ContextMenu1 = New System.Windows.Forms.ContextMenu Me.MnuDatenselektion = New System.Windows.Forms.MenuItem Me.MnuDelete = New System.Windows.Forms.MenuItem Me.MenuItem9 = New System.Windows.Forms.MenuItem Me.Panel1 = New System.Windows.Forms.Panel Me.Label1 = New System.Windows.Forms.Label Me.Splitter1 = New System.Windows.Forms.Splitter Me.TreeView1 = New System.Windows.Forms.TreeView Me.ContextMenu4 = New System.Windows.Forms.ContextMenu Me.MenuItem8 = New System.Windows.Forms.MenuItem Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components) Me.Gruppierung = New System.Windows.Forms.TabPage Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ContextMenu2 = New System.Windows.Forms.ContextMenu Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MenuItem10 = New System.Windows.Forms.MenuItem Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MenuItem3 = New System.Windows.Forms.MenuItem Me.MenuItem4 = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MenuItem6 = New System.Windows.Forms.MenuItem Me.ToolBar1 = New System.Windows.Forms.ToolBar Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton Me.btndruck = New System.Windows.Forms.ToolBarButton Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton Me.btnSave = New System.Windows.Forms.ToolBarButton Me.BTNDELETEPROFIL = New System.Windows.Forms.ToolBarButton Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.Splitter2 = New System.Windows.Forms.Splitter Me.cbProfile = New System.Windows.Forms.ComboBox Me.ContextMenu3 = New System.Windows.Forms.ContextMenu Me.MenuItem7 = New System.Windows.Forms.MenuItem Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog Me.rbzv6monate = New System.Windows.Forms.RadioButton Me.rbzvvollständig = New System.Windows.Forms.RadioButton Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.BtnHelp = New System.Windows.Forms.Button Me.TabControl1.SuspendLayout() Me.Suche.SuspendLayout() Me.Panel2.SuspendLayout() CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Gruppierung.SuspendLayout() CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TabControl1 ' Me.TabControl1.Controls.Add(Me.Suche) Me.TabControl1.Controls.Add(Me.Gruppierung) Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControl1.Location = New System.Drawing.Point(0, 28) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(792, 505) Me.TabControl1.TabIndex = 0 ' 'Suche ' Me.Suche.Controls.Add(Me.Panel2) Me.Suche.Controls.Add(Me.Splitter3) Me.Suche.Controls.Add(Me.C1TrueDBGrid1) Me.Suche.Controls.Add(Me.Panel1) Me.Suche.Controls.Add(Me.Splitter1) Me.Suche.Controls.Add(Me.TreeView1) Me.Suche.Location = New System.Drawing.Point(4, 22) Me.Suche.Name = "Suche" Me.Suche.Size = New System.Drawing.Size(784, 479) Me.Suche.TabIndex = 0 Me.Suche.Text = "Suche" ' 'Panel2 ' Me.Panel2.Controls.Add(Me.btnSearch) Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top Me.Panel2.Location = New System.Drawing.Point(163, 235) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(621, 29) Me.Panel2.TabIndex = 7 ' 'btnSearch ' Me.btnSearch.Location = New System.Drawing.Point(0, 0) Me.btnSearch.Name = "btnSearch" Me.btnSearch.Size = New System.Drawing.Size(120, 24) Me.btnSearch.TabIndex = 5 Me.btnSearch.Text = "Suchen" ' 'Splitter3 ' Me.Splitter3.Dock = System.Windows.Forms.DockStyle.Top Me.Splitter3.Location = New System.Drawing.Point(163, 232) Me.Splitter3.Name = "Splitter3" Me.Splitter3.Size = New System.Drawing.Size(621, 3) Me.Splitter3.TabIndex = 6 Me.Splitter3.TabStop = False ' 'C1TrueDBGrid1 ' Me.C1TrueDBGrid1.AllowDelete = True Me.C1TrueDBGrid1.AllowSort = False Me.C1TrueDBGrid1.AllowUpdateOnBlur = False Me.C1TrueDBGrid1.AlternatingRows = True Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu1 Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Top Me.C1TrueDBGrid1.FetchRowStyles = True Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column" Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image)) Me.C1TrueDBGrid1.Location = New System.Drawing.Point(163, 32) Me.C1TrueDBGrid1.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.FloatingEditor Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1" Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75 Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.C1TrueDBGrid1.RowDivider.Color = System.Drawing.SystemColors.Control Me.C1TrueDBGrid1.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.[Single] Me.C1TrueDBGrid1.RowSubDividerColor = System.Drawing.Color.Transparent Me.C1TrueDBGrid1.Size = New System.Drawing.Size(621, 200) Me.C1TrueDBGrid1.SpringMode = True Me.C1TrueDBGrid1.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation Me.C1TrueDBGrid1.TabIndex = 3 Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1" Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag") ' 'ContextMenu1 ' Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDatenselektion, Me.MnuDelete, Me.MenuItem9}) ' 'MnuDatenselektion ' Me.MnuDatenselektion.Index = 0 Me.MnuDatenselektion.Text = "&Datenselektion" ' 'MnuDelete ' Me.MnuDelete.Index = 1 Me.MnuDelete.Text = "&Eintrag löschen" ' 'MenuItem9 ' Me.MenuItem9.Index = 2 Me.MenuItem9.Text = "Alle Einträge löschen" ' 'Panel1 ' Me.Panel1.Controls.Add(Me.Label1) Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Location = New System.Drawing.Point(163, 0) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(621, 32) Me.Panel1.TabIndex = 5 ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 8) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(608, 23) Me.Label1.TabIndex = 0 ' 'Splitter1 ' Me.Splitter1.Location = New System.Drawing.Point(160, 0) Me.Splitter1.Name = "Splitter1" Me.Splitter1.Size = New System.Drawing.Size(3, 479) Me.Splitter1.TabIndex = 2 Me.Splitter1.TabStop = False ' 'TreeView1 ' Me.TreeView1.ContextMenu = Me.ContextMenu4 Me.TreeView1.Dock = System.Windows.Forms.DockStyle.Left Me.TreeView1.FullRowSelect = True Me.TreeView1.ImageIndex = 0 Me.TreeView1.ImageList = Me.ImageList2 Me.TreeView1.Location = New System.Drawing.Point(0, 0) Me.TreeView1.Name = "TreeView1" TreeNode1.Name = "" TreeNode1.Text = "Daten" TreeNode2.Name = "" TreeNode2.Text = "Dokumentart" TreeNode3.Name = "" TreeNode3.Text = "Dokumentstatus" TreeNode4.Name = "" TreeNode4.Text = "Partner" TreeNode5.ImageIndex = 0 TreeNode5.Name = "" TreeNode5.SelectedImageIndex = 0 TreeNode5.Text = "Dokument" TreeNode6.Name = "" TreeNode6.Text = "Kostenstelle" TreeNode7.Name = "" TreeNode7.Text = "Marktbereich" TreeNode8.Name = "" TreeNode8.Text = "Mitarbeiter" TreeNode9.Name = "" TreeNode9.Text = "Niederlassung" TreeNode10.Name = "" TreeNode10.Text = "Team" TreeNode11.ImageIndex = 8 TreeNode11.Name = "" TreeNode11.SelectedImageIndex = 8 TreeNode11.Text = "Ersteller" TreeNode12.Name = "" TreeNode12.Text = "Kostenstelle" TreeNode13.Name = "" TreeNode13.Text = "Marktbereich" TreeNode14.Name = "" TreeNode14.Text = "Mitarbeiter" TreeNode15.Name = "" TreeNode15.Text = "Niederlassung" TreeNode16.Name = "" TreeNode16.Text = "Team" TreeNode17.ImageIndex = 9 TreeNode17.Name = "" TreeNode17.SelectedImageIndex = 9 TreeNode17.Text = "Mutierer" TreeNode18.Name = "" TreeNode18.Text = "Kostenstelle" TreeNode19.Name = "" TreeNode19.Text = "Marktbereich" TreeNode20.Name = "" TreeNode20.Text = "Mitarbeiter" TreeNode21.Name = "" TreeNode21.Text = "Niederlassung" TreeNode22.Name = "" TreeNode22.Text = "Team" TreeNode23.ImageIndex = 7 TreeNode23.Name = "" TreeNode23.SelectedImageIndex = 7 TreeNode23.Text = "Verantwortlich" Me.TreeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode5, TreeNode11, TreeNode17, TreeNode23}) Me.TreeView1.SelectedImageIndex = 0 Me.TreeView1.Size = New System.Drawing.Size(160, 479) Me.TreeView1.TabIndex = 1 ' 'ContextMenu4 ' Me.ContextMenu4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem8}) ' 'MenuItem8 ' Me.MenuItem8.Index = 0 Me.MenuItem8.Text = "Selektionskriterien löschen" ' '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, "") Me.ImageList2.Images.SetKeyName(4, "") Me.ImageList2.Images.SetKeyName(5, "") Me.ImageList2.Images.SetKeyName(6, "") Me.ImageList2.Images.SetKeyName(7, "") Me.ImageList2.Images.SetKeyName(8, "") Me.ImageList2.Images.SetKeyName(9, "") Me.ImageList2.Images.SetKeyName(10, "") Me.ImageList2.Images.SetKeyName(11, "") Me.ImageList2.Images.SetKeyName(12, "") Me.ImageList2.Images.SetKeyName(13, "") Me.ImageList2.Images.SetKeyName(14, "") ' 'Gruppierung ' Me.Gruppierung.Controls.Add(Me.DokList) Me.Gruppierung.Location = New System.Drawing.Point(4, 22) Me.Gruppierung.Name = "Gruppierung" Me.Gruppierung.Size = New System.Drawing.Size(784, 479) Me.Gruppierung.TabIndex = 1 Me.Gruppierung.Text = "Resultat" ' 'DokList ' Me.DokList.AlternatingRows = True Me.DokList.ContextMenu = Me.ContextMenu2 Me.DokList.Dock = System.Windows.Forms.DockStyle.Fill Me.DokList.FetchRowStyles = True Me.DokList.FilterBar = True Me.DokList.GroupByCaption = "Drag a column header here to group by that column" Me.DokList.Images.Add(CType(resources.GetObject("DokList.Images"), System.Drawing.Image)) Me.DokList.Location = New System.Drawing.Point(0, 0) Me.DokList.Name = "DokList" Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokList.PreviewInfo.ZoomFactor = 75 Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokList.ScrollTips = True Me.DokList.Size = New System.Drawing.Size(784, 479) Me.DokList.TabIndex = 10 Me.DokList.Text = "C1TrueDBGrid2" Me.DokList.PropBag = resources.GetString("DokList.PropBag") ' 'ContextMenu2 ' Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem10, Me.MenuItem1, Me.MenuItem3, Me.MenuItem4, Me.MenuItem5, Me.MenuItem6}) ' 'MenuItem2 ' Me.MenuItem2.Index = 0 Me.MenuItem2.Text = "&Dokument anzeigen" ' 'MenuItem10 ' Me.MenuItem10.Index = 1 Me.MenuItem10.Text = "&Dokument(e) drucken" ' 'MenuItem1 ' Me.MenuItem1.Index = 2 Me.MenuItem1.Text = "&Partnerdossier" ' 'MenuItem3 ' Me.MenuItem3.Index = 3 Me.MenuItem3.Text = "-" ' 'MenuItem4 ' Me.MenuItem4.Index = 4 Me.MenuItem4.Text = "Spalten-Selektion" ' 'MenuItem5 ' Me.MenuItem5.Index = 5 Me.MenuItem5.Text = "Spalten-Darstellung sichern" ' 'MenuItem6 ' Me.MenuItem6.Index = 6 Me.MenuItem6.Text = "Standard-Spalten-Darstellung" ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton4, Me.btndruck, Me.ToolBarButton3, Me.ToolBarButton2, Me.btnSave, Me.BTNDELETEPROFIL}) Me.ToolBar1.DropDownArrows = True Me.ToolBar1.ImageList = Me.ImageList1 Me.ToolBar1.Location = New System.Drawing.Point(0, 0) Me.ToolBar1.Name = "ToolBar1" Me.ToolBar1.ShowToolTips = True Me.ToolBar1.Size = New System.Drawing.Size(792, 28) Me.ToolBar1.TabIndex = 8 ' 'ToolBarButton1 ' Me.ToolBarButton1.ImageIndex = 0 Me.ToolBarButton1.Name = "ToolBarButton1" Me.ToolBarButton1.ToolTipText = "Schliessen" ' 'ToolBarButton4 ' Me.ToolBarButton4.ImageIndex = 21 Me.ToolBarButton4.Name = "ToolBarButton4" Me.ToolBarButton4.ToolTipText = "Neue Dokumentsuche" ' 'btndruck ' Me.btndruck.ImageIndex = 1 Me.btndruck.Name = "btndruck" Me.btndruck.ToolTipText = "Resultate drucken" ' 'ToolBarButton3 ' Me.ToolBarButton3.ImageIndex = 22 Me.ToolBarButton3.Name = "ToolBarButton3" ' 'ToolBarButton2 ' Me.ToolBarButton2.ImageIndex = 15 Me.ToolBarButton2.Name = "ToolBarButton2" Me.ToolBarButton2.ToolTipText = "Profil initialisieren" ' 'btnSave ' Me.btnSave.ImageIndex = 16 Me.btnSave.Name = "btnSave" Me.btnSave.ToolTipText = "Suchprofil speichern" ' 'BTNDELETEPROFIL ' Me.BTNDELETEPROFIL.ImageIndex = 18 Me.BTNDELETEPROFIL.Name = "BTNDELETEPROFIL" Me.BTNDELETEPROFIL.ToolTipText = "Aktuelles Suchprofil löschen" ' '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, "") Me.ImageList1.Images.SetKeyName(8, "") Me.ImageList1.Images.SetKeyName(9, "") Me.ImageList1.Images.SetKeyName(10, "") Me.ImageList1.Images.SetKeyName(11, "") Me.ImageList1.Images.SetKeyName(12, "") Me.ImageList1.Images.SetKeyName(13, "") Me.ImageList1.Images.SetKeyName(14, "") Me.ImageList1.Images.SetKeyName(15, "") Me.ImageList1.Images.SetKeyName(16, "") Me.ImageList1.Images.SetKeyName(17, "") Me.ImageList1.Images.SetKeyName(18, "") Me.ImageList1.Images.SetKeyName(19, "") Me.ImageList1.Images.SetKeyName(20, "") Me.ImageList1.Images.SetKeyName(21, "") Me.ImageList1.Images.SetKeyName(22, "") ' 'Splitter2 ' Me.Splitter2.Location = New System.Drawing.Point(0, 28) Me.Splitter2.Name = "Splitter2" Me.Splitter2.Size = New System.Drawing.Size(3, 505) Me.Splitter2.TabIndex = 9 Me.Splitter2.TabStop = False ' 'cbProfile ' Me.cbProfile.AllowDrop = True Me.cbProfile.ContextMenu = Me.ContextMenu3 Me.cbProfile.Location = New System.Drawing.Point(167, 5) Me.cbProfile.Name = "cbProfile" Me.cbProfile.Size = New System.Drawing.Size(172, 21) Me.cbProfile.TabIndex = 25 Me.cbProfile.Text = "ComboBox1" ' 'ContextMenu3 ' Me.ContextMenu3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7}) ' 'MenuItem7 ' Me.MenuItem7.Index = 0 Me.MenuItem7.Text = "&Dokumentsuche zurücksetzen" ' 'ImageList3 ' Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent Me.ImageList3.Images.SetKeyName(0, "") ' 'SaveFileDialog1 ' Me.SaveFileDialog1.FileName = "Resultate_Dokumentsuche" ' 'rbzv6monate ' Me.rbzv6monate.Location = New System.Drawing.Point(353, 3) Me.rbzv6monate.Name = "rbzv6monate" Me.rbzv6monate.Size = New System.Drawing.Size(224, 16) Me.rbzv6monate.TabIndex = 26 Me.rbzv6monate.Text = "Suche innerhalb der letzten 6 Monate" Me.ToolTip1.SetToolTip(Me.rbzv6monate, "Datenbestand mit Valutadatum innerhalb der letzen 6 Monate durchsuchen") ' 'rbzvvollständig ' Me.rbzvvollständig.Location = New System.Drawing.Point(353, 19) Me.rbzvvollständig.Name = "rbzvvollständig" Me.rbzvvollständig.Size = New System.Drawing.Size(144, 16) Me.rbzvvollständig.TabIndex = 27 Me.rbzvvollständig.Text = "Vollständige Suche" Me.ToolTip1.SetToolTip(Me.rbzvvollständig, "Vollständiger Datenbestand durchsuchen") ' 'BtnHelp ' Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image) Me.BtnHelp.Location = New System.Drawing.Point(704, 3) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 33 ' 'frmSuchFormular ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(792, 533) Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.rbzvvollständig) Me.Controls.Add(Me.rbzv6monate) Me.Controls.Add(Me.cbProfile) Me.Controls.Add(Me.Splitter2) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.ToolBar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmSuchFormular" Me.Text = "Dokumentsuche" Me.TabControl1.ResumeLayout(False) Me.Suche.ResumeLayout(False) Me.Panel2.ResumeLayout(False) CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.Panel1.ResumeLayout(False) Me.Gruppierung.ResumeLayout(False) CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim parameter As New DataTable() Dim intds As New DataSet() Dim intdt As New DataTable() Dim savenode As TreeNode Dim Daten As New DataTable() Dim AndOr As New DataTable() Dim Operatoren As New DataTable() Dim WithEvents Partnerdialog As New FrmPartnersuche() Dim DynNrEintrag As Integer = 0 Dim i As Integer Dim EDOKADaten As Boolean = False Dim UVMDaten As Boolean = False Dim ZVDaten As Boolean = False Dim HOSTDaten As Boolean = False Dim MitFreitext As Integer Dim On_Load As Boolean = True Dim profile As New DataTable() Dim m_showcheckmessage As Boolean Property show_checkmessage() As Boolean Get Return m_showcheckmessage End Get Set(ByVal Value As Boolean) m_showcheckmessage = Value End Set End Property Dim Datachanged As Boolean = False Dim m_NeueSuche As Boolean Dim m_updateprofildaten As Boolean = False Friend selectPoint As New System.Drawing.Point() Dim User_Hat_Berechtigung As Boolean = False #End Region #Region "Initialisierung" Public Sub New(ByVal NeueSuche As Boolean) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen Me.m_NeueSuche = NeueSuche If Not NeueSuche Then Me.show_checkmessage = True End Sub #End Region #Region "Formularhandling" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.On_Load = True Dim db As New EDOKA.DB_Connection() init_treeview() For i = 0 To 50 intds.Tables.Add(New DataTable()) Next Datentabelle_erstellen() AndOr_erstellen() Me.C1TrueDBGrid1.Splits(0).FetchRowStyles = True get_suchprofile() Me.TreeView1.Select() Me.TreeView1.Focus() check_cbprofile() End Sub Private Sub check_cbprofile() If Me.cbProfile.Items.Count > 0 Then Me.BTNDELETEPROFIL.Enabled = True Else Me.BTNDELETEPROFIL.Enabled = False End Sub Private Sub get_suchprofile() On_Load = True Me.cbProfile.DataSource = Nothing profile.Rows.Clear() profile = Me.get_profile Me.cbProfile.DataSource = profile Me.cbProfile.DisplayMember = "profilname" Me.cbProfile.ValueMember = "suchprofilnr" If Me.cbProfile.Items.Count > 0 Then Me.get_suchdaten(Me.cbProfile.SelectedValue) For i = 0 To Me.Daten.Rows.Count - 1 DivFnkt.Searchnode1(Me.TreeView1, Me.Daten.Rows(i).Item("nodenr"), 99) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red Next Me.cbProfile.Enabled = True Me.MenuItem4.Enabled = True Me.MenuItem5.Enabled = True Me.MenuItem6.Enabled = True Else Me.MenuItem4.Enabled = False Me.MenuItem5.Enabled = False Me.MenuItem6.Enabled = False Me.cbProfile.Text = "" Me.cbProfile.Enabled = False End If On_Load = False End Sub #End Region #Region "Treeview" Private Function init_treeview() Me.TreeView1.Nodes.Clear() Dim collNodeKeys As New Collection() Dim tnNew As TreeNode Dim tnParent As TreeNode Dim Oldparent As Integer = -1 Me.TreeView1.BeginUpdate() parameter = Generic_Select(0, "") For i = 0 To parameter.Rows.Count - 1 If parameter.Rows(i).Item("Parent") = 0 Then tnNew = TreeView1.Nodes.Add(parameter.Rows(i).Item("bezeichnung")) With tnNew .Tag() = parameter.Rows(i).Item("nodenr") .ImageIndex() = parameter.Rows(i).Item("ImageIndex") .SelectedImageIndex() = parameter.Rows(i).Item("ImageIndexOpen") End With Try collNodeKeys.Add(tnNew, CType(parameter.Rows(i).Item("nodenr"), String)) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try Else Try tnParent = CType(collNodeKeys.Item(CType(parameter.Rows(i).Item("Parent"), String)), TreeNode) tnNew = tnParent.Nodes.Add(CType(parameter.Rows(i).Item("bezeichnung"), String)) With tnNew .Tag() = CType(parameter.Rows(i).Item("NodeNr"), String) .ImageIndex() = parameter.Rows(i).Item("ImageIndex") .SelectedImageIndex() = parameter.Rows(i).Item("ImageIndexOpen") End With collNodeKeys.Add(tnNew, CType(parameter.Rows(i).Item("nodenr"), String)) Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End If Next Me.TreeView1.EndUpdate() End Function Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Dim i As Integer Dim x As Integer Dim Freitext_nicht_moeglich As Boolean = False Try If Me.TreeView1.SelectedNode.Text = "Freitext" Then Dim tnx As New TreeNode() tnx = Me.TreeView1.SelectedNode.Parent Dim tny As New TreeNode() For Each tny In tnx.Nodes Me.C1TrueDBGrid1.Columns("NodeNr").FilterText = tny.Tag If Me.C1TrueDBGrid1.Splits(0).Rows.Count > 1 Then If Me.C1TrueDBGrid1.Splits(0).Rows.Count > 2 Or Me.C1TrueDBGrid1.Columns("Daten1").CellValue(2) <> "" Then Freitext_nicht_moeglich = True End If End If Next End If Catch End Try Try If Me.TreeView1.SelectedNode.Tag = 8 Then Me.rbzv6monate.Visible = True Me.rbzvvollständig.Visible = True If Me.rbzv6monate.Checked <> True And Me.rbzvvollständig.Checked <> True Then Me.rbzv6monate.Checked = True Else Me.rbzv6monate.Visible = False Me.rbzvvollständig.Visible = False End If If Me.TreeView1.SelectedNode.Parent.Tag = 8 Then Me.rbzv6monate.Visible = True Me.rbzvvollständig.Visible = True If Me.rbzv6monate.Checked <> True And Me.rbzvvollständig.Checked <> True Then Me.rbzv6monate.Checked = True Else Me.rbzv6monate.Visible = False Me.rbzvvollständig.Visible = False End If Catch End Try Dim tn As TreeNode Dim dr As DataRow() If Me.TreeView1.SelectedNode.SelectedImageIndex < 6 Then Me.TreeView1.SelectedNode.SelectedImageIndex = 5 For i = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(i).Item("nodenr") = e.Node.Tag Then If Me.parameter.Rows(i).Item("select_stored_procedure") <> "" Then stammdaten_laden(Me.parameter.Rows(i).Item("interne_tabelle"), Me.parameter.Rows(i).Item("select_stored_procedure")) End If Exit For End If Next If Me.parameter.Rows(i).Item("datenrow") = True Then Me.Label1.Text = Me.parameter.Rows(i).Item("Beschreibung") Me.C1TrueDBGrid1.DataSource = Daten Me.C1TrueDBGrid1.DataMember = Daten.TableName Me.C1TrueDBGrid1.Columns("NodeNr").FilterText = e.Node.Tag Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Daten1").AutoDropDown = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Daten2").AutoDropDown = False Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Values.Clear() Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Values.Clear() Add_Operatoren(Me.parameter.Rows(i).Item("operatoren")) AddDaten(e.Node.Tag) Me.Format_grid() If Me.parameter.Rows(i).Item("interne_tabelle") > 0 Then Insert_valueitems(intds.Tables(Me.parameter.Rows(i).Item("interne_tabelle"))) Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Daten1").AutoDropDown = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Daten2").AutoDropDown = True End If Me.C1TrueDBGrid1.Columns("daten1").EditMaskUpdate = True Me.C1TrueDBGrid1.Columns("daten2").EditMaskUpdate = True Me.C1TrueDBGrid1.Columns("Daten1").EditMask = "" Me.C1TrueDBGrid1.Columns("Daten2").EditMask = "" If Me.parameter.Rows(i).Item("feldformat") <> "" Then Me.C1TrueDBGrid1.Columns("daten1").EditMaskUpdate = True Me.C1TrueDBGrid1.Columns("daten2").EditMaskUpdate = True Me.C1TrueDBGrid1.Columns("Daten1").EditMask = Me.parameter.Rows(i).Item("feldformat") Me.C1TrueDBGrid1.Columns("Daten2").EditMask = Me.parameter.Rows(i).Item("feldformat") End If If Freitext_nicht_moeglich Then Me.C1TrueDBGrid1.Splits(0).Locked = True Else Me.C1TrueDBGrid1.Splits(0).Locked = False Else Me.C1TrueDBGrid1.DataSource = Nothing End If End Sub Private Function Insert_valueitems(ByVal tbl As DataTable) Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Values.Clear() Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Values.Clear() Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Dim i As Integer For i = 0 To tbl.Rows.Count - 1 If tbl.Rows(i).Item(2) = True Or tbl.Columns.Count < 2 Then Dim v As New C1.Win.C1TrueDBGrid.ValueItem() v.DisplayValue = tbl.Rows(i).Item(1) v.Value = tbl.Rows(i).Item(0) Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Values.Add(v) Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Values.Add(v) End If Next Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Translate = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten1").FetchStyle = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten1").AutoComplete = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten1").AutoDropDown = True Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Translate = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").FetchStyle = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").AutoComplete = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").AutoDropDown = True End Function Private Sub TreeView1_BeforeSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeSelect Try setcolors() Me.C1TrueDBGrid1.UpdateData() If Me.TreeView1.SelectedNode.SelectedImageIndex < 6 Then Me.TreeView1.SelectedNode.SelectedImageIndex = 4 'If Me.MitFreitext = 0 Then ' If Me.C1TrueDBGrid1.Splits(0).Rows.Count > 1 Then ' Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red ' Else ' Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black ' End If 'Else ' If Me.C1TrueDBGrid1.Splits(0).Rows.Count = 1 And Me.C1TrueDBGrid1.Splits(0).colum Then ' End If Catch End Try End Sub Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand Me.savenode = e.Node End Sub Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand Try If Me.On_Load = True Then Exit Sub Me.TreeView1.BeginUpdate() If e.Node.Tag = 1 Or e.Node.Tag = 6 Or e.Node.Tag = 7 Or e.Node.Tag = 8 Then If Me.savenode.Tag <> e.Node.Tag Then If Me.Daten.Rows.Count > 0 And Me.show_checkmessage = True And Not Me.m_updateprofildaten Then If MyMsg.Show_MessageYesNo(800) = MsgBoxResult.Yes Then Dim i As Integer For i = 0 To Me.Daten.Rows.Count - 1 DivFnkt.Searchnode1(Me.TreeView1, Me.Daten.Rows(i).Item("nodenr"), 99) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Black Next Me.Daten.Rows.Clear() Me.savenode.Collapse() Else e.Cancel = True Exit Sub End If End If Me.show_checkmessage = True Try If Me.savenode.Tag = 2 Or Me.savenode.Tag = 3 Or Me.savenode.Tag = 4 Then Me.savenode.Parent.Collapse() Else Me.savenode.Collapse() End If 'Me.savenode.Collapse() 'e.Node.ExpandAll() Me.savenode = e.Node Catch Me.TreeView1.EndUpdate() End Try End If End If Me.TreeView1.EndUpdate() Catch Try Me.savenode = Me.TreeView1.SelectedNode Catch End Try Finally Me.TreeView1.EndUpdate() End Try End Sub #End Region #Region "Grid" Private Sub C1TrueDBGrid1_AfterColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1TrueDBGrid1.AfterColUpdate If Me.TreeView1.SelectedNode.Text = "Freitext" Then If Me.C1TrueDBGrid1.Columns("Daten1").Text <> "" Then Me.MitFreitext = 1 Else Me.MitFreitext = 0 End If End If If Me.C1TrueDBGrid1.Columns("op1").Text <> "zwischen" Then Me.C1TrueDBGrid1.Columns("op2").Text = "" Me.C1TrueDBGrid1.Columns("daten2").Text = "" Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Locked = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = True Else Me.C1TrueDBGrid1.Columns("op2").Text = "und" Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Locked = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = False End If Me.C1TrueDBGrid1.UpdateData() If Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked And Me.C1TrueDBGrid1.Col = 6 And Me.C1TrueDBGrid1.Columns("daten1").Text <> "" Then Me.AddDaten(Me.TreeView1.SelectedNode.Tag) Else If Me.C1TrueDBGrid1.Columns("daten1").Text <> "" And Me.C1TrueDBGrid1.Columns("daten2").Text <> "" Then Me.AddDaten(Me.TreeView1.SelectedNode.Tag) End If End If If Me.C1TrueDBGrid1.Col = 5 And Me.C1TrueDBGrid1.Columns("op1").Text = "wie" Or _ Me.C1TrueDBGrid1.Columns("op1").Text = "zwischen" Then Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Normal Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Normal Else Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox End If 'Rel 3.5 / BUD FeldWerteValidieren() 'Dim s As String 'Dim F As Double 'Dim i As Integer 'Select Case Me.C1TrueDBGrid1.Columns("daten1").EditMask ' Case "999999999" ' If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text ' If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text ' s = Trim(s) ' While Len(s) < 9 ' s = "0" + s ' End While ' If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s ' If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s ' Case "&&&&&&&&&&&&&&&" ' If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text ' If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text ' s = Trim(s) ' i = Len(s) ' F = InStr(s, ".") ' If F = 0 Then ' s = s + ".00" ' End If ' If i - F = 0 Then s = s + "00" ' If i - F = 1 Then s = s + "0" ' Try ' F = Microsoft.VisualBasic.Val(s) ' If F = 0 Then s = "0.00" ' If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s ' If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s ' Catch ' MyMsg.show_standardmessage(801, MsgBoxStyle.Exclamation) ' End Try ' Case "9999999999999999" ' If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text ' If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text ' s = Trim(s) ' 'Falls kein Wert vorhanden ist, keine Nuller anhängen ' If Len(s) = 0 Then Exit Select ' While Len(s) < 16 ' s = "0" + s ' End While ' If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s ' If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s 'End Select Me.C1TrueDBGrid1.Col = Me.C1TrueDBGrid1.Col + 1 End Sub Private Sub C1TrueDBGrid1_ComboSelect(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.ColEventArgs) Handles C1TrueDBGrid1.ComboSelect If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns("key1").Value = Me.C1TrueDBGrid1.Columns(Me.C1TrueDBGrid1.Col).Value End If Me.C1TrueDBGrid1.UpdateData() End Sub Private Sub Format_grid() Dim i As Integer Me.C1TrueDBGrid1.Columns("OP1").ValueItems.Values.Clear() Me.C1TrueDBGrid1.Columns("andor").ValueItems.Values.Clear() Me.C1TrueDBGrid1.Columns("daten1").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Normal Me.C1TrueDBGrid1.Columns("daten2").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.Normal Me.C1TrueDBGrid1.Columns("op1").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox For i = 0 To Operatoren.Rows.Count - 1 Dim v As New C1.Win.C1TrueDBGrid.ValueItem() v.DisplayValue = Operatoren.Rows(i).Item(0) v.Value = Operatoren.Rows(i).Item(0) Me.C1TrueDBGrid1.Columns("op1").ValueItems.Values.Add(v) Next Me.C1TrueDBGrid1.Columns("op1").ValueItems.MaxComboItems = 10 Me.C1TrueDBGrid1.Columns("op1").ValueItems.Translate = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op1").FetchStyle = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op1").AutoComplete = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op1").AutoDropDown = True Me.C1TrueDBGrid1.Columns("andor").Caption = "Und/Oder" Me.C1TrueDBGrid1.Columns("op1").Caption = "Operator" Me.C1TrueDBGrid1.Columns("daten1").Caption = "1. Kriterium" Me.C1TrueDBGrid1.Columns("op2").Caption = "Operator" Me.C1TrueDBGrid1.Columns("daten2").Caption = "2. Kriterium" Me.C1TrueDBGrid1.Columns("BTN1").Caption = "S" Me.C1TrueDBGrid1.Columns("BTN2").Caption = "S" Me.C1TrueDBGrid1.Columns("ANDOR").ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.ComboBox Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem() v1.DisplayValue = "und" v1.Value = "und" Me.C1TrueDBGrid1.Columns("andor").ValueItems.Values.Add(v1) Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem() v2.DisplayValue = "oder" v2.Value = "oder" Me.C1TrueDBGrid1.Columns("andor").ValueItems.Values.Add(v2) ' Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem() ' v3.DisplayValue = "> und" ' v3.Value = "> und" ' Me.C1TrueDBGrid1.Columns("andor").ValueItems.Values.Add(v3) ' Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem() ' v4.DisplayValue = "> oder" ' v4.Value = "> oder" ' Me.C1TrueDBGrid1.Columns("andor").ValueItems.Values.Add(v4) Me.C1TrueDBGrid1.Columns("andor").ValueItems.MaxComboItems = 10 Me.C1TrueDBGrid1.Columns("andor").ValueItems.Translate = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").FetchStyle = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").AutoComplete = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").AutoDropDown = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns(0).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(1).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(2).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(3).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(11).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(12).Visible = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Width = 70 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Width = 70 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(6).Width = 140 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(7).Width = 20 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Width = 70 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(9).Width = 140 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(10).Width = 20 Me.C1TrueDBGrid1.Splits(0).DisplayColumns(4).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center Me.C1TrueDBGrid1.Splits(0).DisplayColumns(5).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center Me.C1TrueDBGrid1.Splits(0).DisplayColumns(8).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center Me.C1TrueDBGrid1.Splits(0).DisplayColumns(7).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center Me.C1TrueDBGrid1.Splits(0).DisplayColumns(10).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").Style.ForeColor = System.Drawing.Color.Blue Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op1").Style.ForeColor = System.Drawing.Color.Blue Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Style.ForeColor = System.Drawing.Color.Blue End Sub Private Sub C1TrueDBGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Click If C1TrueDBGrid1.Splits.Count > 0 Then 'RST 2006-2006-10-04 If C1TrueDBGrid1.Splits(0).DisplayColumns.Count > 0 Then 'RST 2006-2006-10-04 If Me.C1TrueDBGrid1.Row = 0 Then Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").Locked = True Else Me.C1TrueDBGrid1.Splits(0).DisplayColumns("andor").Locked = False End If End If End If End Sub Private Sub C1TrueDBGrid1_AfterDelete(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.AfterDelete Try If Me.C1TrueDBGrid1.Bookmark = 0 Then Me.C1TrueDBGrid1.Columns("andor").Text = "" End If Catch End Try If Me.TreeView1.SelectedNode.Text = "Freitext" And Me.C1TrueDBGrid1.Splits(0).Rows.Count = 0 Then Me.MitFreitext = 0 If Me.C1TrueDBGrid1.Splits(0).Rows.Count = 0 Then Me.AddDaten(Me.TreeView1.SelectedNode.Tag) End Sub Private Sub C1TrueDBGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1TrueDBGrid1.MouseUp Me.C1TrueDBGrid1.Bookmark = Me.C1TrueDBGrid1.RowContaining(e.Y) End Sub Private Sub C1TrueDBGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.DoubleClick If C1TrueDBGrid1.Splits(0).DisplayColumns.Count > 0 Then Me.MnuDatenselektion_Click(sender, e) End If End Sub Private Sub C1TrueDBGrid1_FetchCellStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles C1TrueDBGrid1.FetchCellStyle If e.Col = 4 Then If Me.C1TrueDBGrid1.Columns(4).CellText(e.Row) = "und" Or Me.C1TrueDBGrid1.Columns(4).CellText(e.Row) = "oder" Then e.CellStyle.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Near Else e.CellStyle.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Far End If End If End Sub Private Sub FeldWerteValidieren() Dim s As String Dim F As Double Dim i As Integer Select Case Me.C1TrueDBGrid1.Columns("daten1").EditMask Case "999999999" If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text s = Trim(s) While Len(s) < 9 s = "0" + s End While If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s Case "&&&&&&&&&&&&&&&" If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text s = Trim(s) i = Len(s) F = InStr(s, ".") If F = 0 Then s = s + ".00" End If If i - F = 0 Then s = s + "00" If i - F = 1 Then s = s + "0" Try F = Microsoft.VisualBasic.Val(s) If F = 0 Then s = "0.00" If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s Catch MyMsg.show_standardmessage(801, MsgBoxStyle.Exclamation) End Try Case "9999999999999999" If Me.C1TrueDBGrid1.Col = 6 Then s = Me.C1TrueDBGrid1.Columns("Daten1").Text If Me.C1TrueDBGrid1.Col = 9 Then s = Me.C1TrueDBGrid1.Columns("Daten2").Text s = Trim(s) 'Falls kein Wert vorhanden ist, keine Nuller anhängen If Len(s) = 0 Then Exit Select While Len(s) < 16 s = "0" + s End While If Me.C1TrueDBGrid1.Col = 6 Then Me.C1TrueDBGrid1.Columns(6).Text = s If Me.C1TrueDBGrid1.Col = 9 Then Me.C1TrueDBGrid1.Columns(9).Text = s End Select End Sub Private Sub C1TrueDBGrid1_BeforeUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles C1TrueDBGrid1.BeforeUpdate 'Rel 3.5 / BUD FeldWerteValidieren() End Sub Private Sub C1TrueDBGrid1_BeforeColUpdate(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles C1TrueDBGrid1.BeforeColUpdate 'Rel 3.5 / BUD FeldWerteValidieren() End Sub Private Sub C1TrueDBGrid1_BeforeRowColChange(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.CancelEventArgs) Handles C1TrueDBGrid1.BeforeRowColChange 'Rel 3.5 / BUD FeldWerteValidieren() If Me.Datachanged = True Then Me.Datachanged = True Me.C1TrueDBGrid1.UpdateData() setcolors() End Sub Private Sub setcolors() Try Me.C1TrueDBGrid1.UpdateData() Dim c As Integer = 0 Dim i As Integer For i = 0 To Me.C1TrueDBGrid1.Splits(0).Rows.Count - 1 If Me.C1TrueDBGrid1.Columns(2).Value = Me.TreeView1.SelectedNode.Tag Then If Me.C1TrueDBGrid1.Columns("Daten1").CellText(i) <> "" Then c = 1 End If Next If c = 1 Then Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Red Else Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black End If Catch End Try End Sub #End Region #Region "Datenhandling" Private Function Datentabelle_erstellen() Me.Daten.Columns.Add("ID") Me.Daten.Columns.Add("Suchprofilnr") Me.Daten.Columns.Add("NodeNr") Me.Daten.Columns.Add("Mitarbeiternr") Me.Daten.Columns.Add("ANDOR") Me.Daten.Columns.Add("OP1") Me.Daten.Columns.Add("Daten1") Me.Daten.Columns.Add("Btn1") Me.Daten.Columns.Add("OP2") Me.Daten.Columns.Add("Daten2") Me.Daten.Columns.Add("btn2") Me.Daten.Columns.Add("Key1") Me.Daten.Columns.Add("Key2") End Function 'HUTTER Private Function AddDaten(ByVal NodeTag As Integer) If MitFreitext = 1 Then If Me.C1TrueDBGrid1.Splits(0).Rows.Count > 0 Then Exit Function End If Dim rowvals(10) As Object Dim rowcount As Integer rowcount = Me.C1TrueDBGrid1.Splits(0).Rows.Count If rowcount > 0 And (Me.C1TrueDBGrid1.Columns("OP1").CellText(rowcount - 1) = "" Or Me.C1TrueDBGrid1.Columns("daten1").CellText(rowcount - 1) = "") Then Exit Function rowvals(0) = DynNrEintrag DynNrEintrag = DynNrEintrag + 1 'hutter 20040928 rowvals(1) = 0 rowvals(1) = DynNrEintrag rowvals(2) = NodeTag rowvals(3) = Globals.MitarbeiterNr If Me.C1TrueDBGrid1.Splits(0).Rows.Count > 0 Then rowvals(4) = "oder" Else rowvals(4) = "" End If rowvals(5) = "=" rowvals(6) = "" rowvals(8) = "" rowvals(9) = "" rowvals(7) = "" rowvals(10) = "" For i = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(i).Item("nodenr") = Me.TreeView1.SelectedNode.Tag Then If Me.parameter.Rows(i).Item("suchdialog") > 0 Then rowvals(7) = 1 rowvals(10) = 1 End If Exit For End If Next Me.Daten.Rows.Add(rowvals) Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Locked = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = True End Function Private Sub Add_Operatoren(ByVal op As String) Me.Operatoren.Columns.Clear() Me.Operatoren.Rows.Clear() Me.Operatoren.Columns.Add("Operator") Dim x() As String x = op.Split(";") Dim objOperator As Object Dim j As Integer For j = 0 To x.GetUpperBound(0) - 1 objOperator = x(j) 'Me.Operatoren.Rows.Add(AddOperator(x(j))) Me.Operatoren.Rows.Add(objOperator) Next End Sub Private Sub AndOr_erstellen() Me.AndOr.Columns.Add("AndOr") Me.AndOr.Rows.Add(AddOperator("und")) Me.AndOr.Rows.Add(AddOperator("oder")) End Sub Private Function AddOperator(ByVal OP As String) As Object Dim rowvals(0) As Object rowvals(0) = OP Return rowvals rowvals = Nothing End Function Private Function stammdaten_laden(ByVal Nr As Integer, ByVal sp As String) Dim tmptbl As New DataTable() If Nr = 0 Then Exit Function If intds.Tables(Nr).Rows.Count < 1 Then tmptbl = Generic_Select(Nr, sp) intds.Tables(Nr).Rows.Clear() intds.Tables(Nr).Columns.Clear() For i = 0 To tmptbl.Columns.Count - 1 intds.Tables(Nr).Columns.Add(tmptbl.Columns(i).Caption) Next For i = 0 To tmptbl.Rows.Count - 1 intds.Tables(Nr).Rows.Add(tmptbl.Rows(i).ItemArray) Next End If End Function Private Function Generic_Select(ByVal typ As Integer, ByVal sp As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection Select Case typ Case 0 scmCmdToExecute.CommandText = "dbo.SP_Get_SuchParameter" Case Else scmCmdToExecute.CommandText = sp End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region #Region "Menu" Private Sub MnuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDelete.Click Me.C1TrueDBGrid1.Delete() Me.C1TrueDBGrid1.UpdateData() C1TrueDBGrid1_AfterDelete(sender, e) Try setcolors() Catch End Try End Sub Private Sub MnuDatenselektion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDatenselektion.Click If C1TrueDBGrid1.Splits(0).DisplayColumns.Count <= 0 Then Return End If Dim i1 As Integer For i = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(i).Item("nodenr") = Me.TreeView1.SelectedNode.Tag Then Select Case Me.parameter.Rows(i).Item("suchdialog") Case 2 If Me.parameter.Rows(i).Item("interne_tabelle") <> 0 Then Dim F As New frmDataselect() F.Left = Control.MousePosition.X F.Top = Control.MousePosition.Y stammdaten_laden(Me.parameter.Rows(i).Item("interne_tabelle"), Me.parameter.Rows(i).Item("select_stored_procedure")) f.C1TrueDBGrid1.DataSource = Me.intds.Tables(Me.parameter.Rows(i).Item("interne_tabelle")) f.C1TrueDBGrid1.DataMember = Me.intds.Tables(Me.parameter.Rows(i).Item("interne_tabelle")).TableName f.ShowDialog() If F.DialogResult = Windows.Forms.DialogResult.OK Then Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection colRows = F.C1TrueDBGrid1.SelectedRows If colRows.Count > 0 Then For i1 = 0 To colRows.Count - 1 Me.C1TrueDBGrid1.Columns("daten1").Text = F.C1TrueDBGrid1.Columns(0).CellText(colRows(i1)) Me.C1TrueDBGrid1.Columns("key1").Value = F.C1TrueDBGrid1.Columns(0).CellText(colRows(i1)) AddDaten(Me.TreeView1.SelectedNode.Tag) Me.C1TrueDBGrid1.Row = Me.C1TrueDBGrid1.Row + 1 Next Else Try Me.C1TrueDBGrid1.Columns("DATEN1").Text = F.C1TrueDBGrid1.Columns(0).Text Me.C1TrueDBGrid1.Columns("key1").Text = F.C1TrueDBGrid1.Columns(0).Text AddDaten(Me.TreeView1.SelectedNode.Tag) Me.C1TrueDBGrid1.Row = Me.C1TrueDBGrid1.Row + 1 Catch End Try End If End If If F.DialogResult = Windows.Forms.DialogResult.Yes Then Me.C1TrueDBGrid1.Columns("DATEN1").Text = F.C1TrueDBGrid1.Columns(0).Text Me.C1TrueDBGrid1.Columns("key1").Text = F.C1TrueDBGrid1.Columns(0).Text AddDaten(Me.TreeView1.SelectedNode.Tag) Me.C1TrueDBGrid1.Row = Me.C1TrueDBGrid1.Row + 1 End If f.Dispose() End If Case 1 Me.Partnerdialog.TopMost = True Me.Partnerdialog.Left = Control.MousePosition.X Me.Partnerdialog.Top = Control.MousePosition.Y Me.Partnerdialog.Left = Control.MousePosition.X + 50 Me.Partnerdialog.Top = Control.MousePosition.Y - 20 Me.Partnerdialog.Show() Me.Partnerdialog.NoClose = True Me.C1TrueDBGrid1.Col = Me.C1TrueDBGrid1.Col + 1 Case 3 'hutter If Me.C1TrueDBGrid1.Splits(0).DisplayColumns(9).Locked = True And (Me.C1TrueDBGrid1.Col = 9 Or Me.C1TrueDBGrid1.Col = 10) Then Exit Sub If Me.C1TrueDBGrid1.Col = 6 Or Me.C1TrueDBGrid1.Col = 9 Or Me.C1TrueDBGrid1.Col = 7 Or Me.C1TrueDBGrid1.Col = 10 Then Dim f As New frmCalendar_SP() f.Left = Control.MousePosition.X f.Top = Control.MousePosition.Y f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim d As DateTime Dim s As String d = f.MonthCalendar1.SelectionStart Select Case Me.C1TrueDBGrid1.Columns(6).EditMask Case "99999999" s = Format(d, "yyyyMMdd") Case "00000000" s = Format(d, "yyyyMMdd") Case "00.00.0000" s = Format(d, "dd.MM.yyyy") Case "99.99.9999" s = Format(d, "dd.MM.yyyy") End Select If Me.C1TrueDBGrid1.Col = 6 Or Me.C1TrueDBGrid1.Col = 7 Then Me.C1TrueDBGrid1.Columns(6).Text = s AddDaten(Me.TreeView1.SelectedNode.Tag) Me.C1TrueDBGrid1.Col = Me.C1TrueDBGrid1.Col + 1 End If If (Me.C1TrueDBGrid1.Col = 9 Or Me.C1TrueDBGrid1.Col = 10) And Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = False Then Me.C1TrueDBGrid1.Columns(9).Text = s AddDaten(Me.TreeView1.SelectedNode.Tag) Me.C1TrueDBGrid1.Col = Me.C1TrueDBGrid1.Col = 6 End If End If f.Dispose() End If End Select Exit For End If Next End Sub Dim dokumentid As String Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click If EDOKADaten = True Then Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable dokumentid = Me.DokList.Columns("dokumentid").Text t = Generic_Select(7) If t.Rows.Count > 0 Then Globals.profilnr = 0 Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00")) f.refresh_list() f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If Catch End Try End If If UVMDaten = True Then Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable dokumentid = "" t = Generic_Select(7) If t.Rows.Count > 0 Then Globals.profilnr = 0 Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00")) f.refresh_list() f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) For i = 0 To f.DokList.Splits(0).Rows.Count - 1 If Me.DokList.Columns(1).Text = f.DokList.Columns(1).CellValue(i) And _ Me.DokList.Columns(4).Text = f.DokList.Columns(4).CellValue(i) Then f.DokList.Bookmark = i End If Next Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try End If If ZVDaten = True Then Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable dokumentid = "" t = Generic_Select(7) If t.Rows.Count > 0 Then Globals.profilnr = 0 Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00")) f.refresh_list() f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) For i = 0 To f.DokList.Splits(0).Rows.Count - 1 If Me.DokList.Columns(2).Value = f.DokList.Columns(18).CellValue(i) And _ Me.DokList.Columns(1).Text = f.DokList.Columns(11).CellValue(i) Then f.DokList.Bookmark = i End If Next Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub End If Catch ex As Exception 'MsgBox(ex.Message) End Try End If If HOSTDaten = True Then Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable dokumentid = Me.DokList.Columns("dokumentid").Text t = Generic_Select(7) Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = Microsoft.VisualBasic.Right(Me.DokList.Columns("Partnernr_inhaber").Text, 7) f.refresh_list() f.Refresh_All(True) DivFnkt.Searchnode(f.tvstruktur, " " + f.txtnrpar00.Text + "-" + Str(998), 99) If DivFnkt.found Then f.tvstruktur.SelectedNode = DivFnkt.FoundNode f.Update_Partnerstruktur() f.tvstruktur.SelectedNode.ExpandAll() f.PosDok(dokumentid, t.Rows(0).Item("dokumentart")) End If Me.Cursor = System.Windows.Forms.Cursors.Default Exit Sub Catch ex As Exception 'MsgBox(ex.Message) End Try Else Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim f As New frmTrefferliste() f.MdiParent = Me.MdiParent f.Show() f.Partner_Eingegeben = True f.txtnrpar00.Text = Me.partnernr f.refresh_list() f.Refresh_All(True) Me.Cursor = System.Windows.Forms.Cursors.Default End If End Sub Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 7 scmCmdToExecute.CommandText = "dbo.sp_suchprofil_get_partner" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try Select Case typ Case 7 If EDOKADaten = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@doktyp", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "EDOKA")) scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) End If If UVMDaten = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@doktyp", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "UVM")) scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns(2).Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) End If If ZVDaten = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@doktyp", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "ZV")) scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns(3).Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns(9).Text)) End If If HOSTDaten = True Then scmCmdToExecute.Parameters.Add(New SqlParameter("@doktyp", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "HOST")) scmCmdToExecute.Parameters.Add(New SqlParameter("@partnernr", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("Partnernr_inhaber").Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, "")) End If scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case Else End Select If typ = 1 Then End If sdaAdapter.Fill(dtToReturn) Return 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 End Function 'Mehrere Dokumente anzeigen / SHU / 20060116 Dim gendokcold As Collection Private Sub Show_mittels_Coldviewer() 'Mehrere Dokumente gewählt Dim gendokcold As New Collection() Dim i As Integer Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection colRows = Me.DokList.SelectedRows For i = 0 To colRows.Count - 1 Try 'COLD-Dokumentanzeige der ZV-Belege If ZVDaten Then Try 'ZV Daten abfüllen gendokcold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns(1).CellValue(colRows(i)), _ Me.DokList.Columns(3).CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.ZV, False, _ Me.DokList.Columns(0).CellValue(colRows(i)), Me.DokList.Columns(2).CellValue(colRows(i)), _ "", Me.DokList.Columns(9).CellValue(colRows(i)))) Catch ex As Exception End Try Exit Try End If Catch End Try Next Try Dim f As New frmcoldviewer() f.dokdata = gendokcold f.MdiParent = Me.MdiParent f.Hide() f.Visible = False f.Show() f.Visible = True f.Refresh() Application.DoEvents() Catch ex As Exception End Try End Sub Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click 'Mehrere Dokumente anzeigen / SHU / 20060116 If ZVDaten And Me.DokList.SelectedRows.Count > 0 Then Me.Show_mittels_Coldviewer() Exit Sub End If Try If HOSTDaten Then DivFnkt.Erstellungsdatum = Me.DokList.Columns("valutadatum").Text DivFnkt.Belegart = "HOST" DivFnkt.ShowColdDocHost(Me.DokList.Columns("dokumentid").Text, Me.ParentForm, Me.DokList.Columns("dokumentid").Text, Me.DokList.Columns("partnernr_inhaber").Text, _ Me.DokList.Columns("partnername_inhaber").Text, Me.DokList.Columns("dokumenttypnr").Text) Me.Cursor = Cursors.Default Exit Sub End If If ZVDaten Then Try DivFnkt.Erstellungsdatum = Me.DokList.Columns(8).Text DivFnkt.Auftragnr = Me.DokList.Columns(2).Text DivFnkt.UVMZVDokumenttyp = Me.DokList.Columns(0).Text DivFnkt.Belegart = "ZV" DivFnkt.ShowColdDocHost(Me.DokList.Columns(1).Text, Me.ParentForm, Me.DokList.Columns(1).Text, Me.DokList.Columns(3).Text, "", Me.DokList.Columns(0).Text) Me.Cursor = Cursors.Default Exit Sub Catch ex As Exception End Try End If 'If UVMDaten Then ' DivFnkt.Erstellungsdatum = Me.DokList.Columns(5).Text ' DivFnkt.Belegart = "UVM" ' DivFnkt.UVMZVDokumenttyp = Me.DokList.Columns(7).Text ' DivFnkt.Auftragnr = Me.DokList.Columns(4).Text ' DivFnkt.ShowColdDocHost(Me.DokList.Columns(1).Text, Me.ParentForm, Me.DokList.Columns(1).Text, Me.DokList.Columns(2).Text, _ ' Me.DokList.Columns(2).Text, Me.DokList.Columns(7).Text) ' Me.Cursor = Cursors.Default ' Exit Sub 'End If If User_Hat_Berechtigung Then DivFnkt.Erstellungsdatum = "" DivFnkt.ShowDoc(Me.DokList.Columns("dokumentid").Value, Me.ParentForm) Me.Cursor = Cursors.Default Else MyMsg.show_standardmessage(809, MsgBoxStyle.Information) End If Catch End Try End Sub Private Sub PartnerSuchResultat() Handles Partnerdialog.partner_selected Dim s As String Select Case Me.C1TrueDBGrid1.Columns("daten1").EditMask Case "999999999" s = Trim(Me.Partnerdialog.PartnerNr.ToString) While Len(s) < 9 s = "0" + s End While Case Else s = Me.Partnerdialog.PartnerNr.ToString End Select Me.C1TrueDBGrid1.Columns("daten1").Text = s AddDaten(Me.TreeView1.SelectedNode.Tag) Me.Partnerdialog.Hide() End Sub Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click If Me.Datachanged And Me.cbProfile.Enabled = True Then If MyMsg.Show_MessageYesNo(802) = MsgBoxResult.Yes Then Me.Save_Suchprofil(Me.cbProfile.Text) End If End If If Me.MitFreitext Then Freitext_Suche() Exit Sub End If EDOKADaten = False UVMDaten = False ZVDaten = False HOSTDaten = False Try If Not BuildSQL() Then Exit Sub Me.DokList.Enabled = False Me.DokList.DataSource = Nothing Me.TabControl1.Width = 170 Me.TabControl1.SelectedIndex = 1 Me.Cursor = Cursors.WaitCursor Me.TabControl1.Enabled = False Run_Sql() Me.DokList.Enabled = True Me.Cursor = Cursors.Default '' BUD ************************** 'For i = 0 To Me.DokList.Columns.Count - 1 ' If Me.DokList.Columns("Statusbezeichnungnr").CellValue(e.Row) = -3 Then ' Dim FNT As Font = e.CellStyle.Font ' e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout) ' End If 'Next '' BUD ************************** Catch Finally Me.TabControl1.Enabled = True Me.DokList.Enabled = True Me.Cursor = Cursors.Default End Try End Sub Private Sub Freitext_Suche() Me.Cursor = Cursors.WaitCursor Dim suchdaten As New DataTable() Me.TabControl1.SelectedIndex = 1 Me.Refresh() suchdaten.Columns.Add("feld") suchdaten.Columns.Add("Wert1") suchdaten.Columns.Add("Wert2") suchdaten.Columns.Add("OP") Me.DokList.DataSource = Nothing Try Me.TabControl1.Enabled = False Dim rowvals(3) As Object For i = 0 To Me.Daten.Rows.Count - 1 If Me.Daten.Rows(i).Item("daten1") <> "" Then rowvals(0) = Me.Get_Freitextsuchfeld(Me.Daten.Rows(i).Item("nodenr")) rowvals(1) = Me.Daten.Rows(i).Item("daten1") rowvals(2) = Me.Daten.Rows(i).Item("daten2") rowvals(3) = Me.Daten.Rows(i).Item("op1") suchdaten.Rows.Add(rowvals) End If Next i Dim coldsuche As New frmcoldview() Dim t As New DataTable() Try If Me.TreeView1.SelectedNode.Parent.Tag = 7 Then t = coldsuche.frmSuchform_Freitextsuche(suchdaten, "", "UVM") Else t = coldsuche.frmSuchform_Freitextsuche(suchdaten, "", "ZV") End If Catch If Me.TreeView1.SelectedNode.Tag = 7 Then t = coldsuche.frmSuchform_Freitextsuche(suchdaten, "", "UVM") End If If Me.TreeView1.SelectedNode.Tag = 8 Then t = coldsuche.frmSuchform_Freitextsuche(suchdaten, "", "ZV") End If End Try Me.DokList.DataSource = t If t.Rows.Count < 1 Then MyMsg.show_standardmessage(806, MsgBoxStyle.Information) Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Enabled = True Me.Cursor = Cursors.Default Exit Sub End If Try 'Berechtigungsprüfung auf Ebene Mitarbeiter/VIP und sofern der angemeldete Benutze¨r 'keine Berechtigung hat, Record löschen For i = 0 To t.Rows.Count - 1 If Me.ZVDaten = True Then If check_Berechtigung(t.Rows(i).Item("partnernr"), t.Rows(i).Item("BEZEICHNUNG"), "ZV") = False Then t.Rows(i).Delete() i = i - 1 End If Else If check_Berechtigung(t.Rows(i).Item("partnernr"), t.Rows(i).Item("BEZEICHNUNG"), "UVM") = False Then t.Rows(i).Delete() i = i - 1 End If End If Next Catch End Try If t.Rows.Count < 1 Then MyMsg.show_standardmessage(806, MsgBoxStyle.Information) Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Enabled = True Me.Cursor = Cursors.Default Exit Sub End If DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, t, "trefferliste") For i = 0 To Me.DokList.Splits(0).DisplayColumns.Count - 1 If UCase(Me.DokList.Columns(i).DataField) = "PARTNERNR_INHABER" Then HOSTDaten = True If UCase(Me.DokList.Columns(i).DataField) = "NRAUF00" Then UVMDaten = True If UCase(Me.DokList.Columns(i).DataField) = "CDVAR00" Then ZVDaten = True If UCase(Me.DokList.Columns(i).DataField) = "GESCHAEFTSFALL" Then EDOKADaten = True Me.DokList.Splits(0).DisplayColumns(i).AutoSize() Next Try Me.DokList.Splits(0).DisplayColumns(8).Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Far Catch EX As Exception End Try Me.TabControl1.Enabled = True Me.TabControl1.SelectedIndex = 1 Me.Cursor = Cursors.Default Catch EX As Exception Me.TabControl1.Enabled = True Me.Cursor = Cursors.Default Finally End Try 'Me.DokList.DataMember = t.TableName End Sub Private Function check_Berechtigung(ByVal nrpar00 As Integer, ByVal dokumenttyp As String, ByVal doktyp As String) As Boolean Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_suchprofil_check_berechtigung" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttyp", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttyp)) scmCmdToExecute.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Connection.Open() Catch End Try Try scmCmdToExecute.ExecuteNonQuery() If scmCmdToExecute.Parameters("@berechtigt").Value = 1 Then Return True Else Return False End If Catch ex As Exception ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() Try scmCmdToExecute.Connection.Close() Catch End Try End Try End Function Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick Select Case ToolBar1.Buttons.IndexOf(e.Button) Case 0 'close button Me.Close() Case 1 ' Neue Dokumentesuche beginnen Me.m_NeueSuche = True Me.show_checkmessage = False Me.cbProfile.DataSource = Nothing Me.cbProfile.Items.Clear() get_suchprofile() Me.TreeView1.Select() Me.TreeView1.Focus() check_cbprofile() Me.TabControl1.SelectedIndex = 0 Me.C1TrueDBGrid1.DataSource = Nothing Me.DokList.DataSource = Nothing Me.TabControl1.SelectedIndex = 0 Case 2 Try Dim fontbold As New Font("Arial", 12, FontStyle.Bold) Dim fontregular As New Font("Arial", 12, FontStyle.Regular) With DokList.PrintInfo .PageHeaderStyle.Font = fontbold .PageSettings.Margins.Bottom = 20 .PageSettings.Margins.Top = 80 .PageSettings.Landscape = True .PageFooter = "Seite \p von \P" & vbLf & " Druckdatum " & Now() .ShowProgressForm = True .UseGridColors = True .RepeatColumnHeaders = True .VarRowHeight = DokList.PrintInfo.RowHeightEnum.StretchToFit .WrapText = C1.Win.C1TrueDBGrid.PrintInfo.WrapTextEnum.NoWrap .PageBreak = DokList.PrintInfo.PageBreaksEnum.OnColumn .FillAreaWidth = DokList.PrintInfo.FillEmptyEnum.ExtendLast '.ShowOptionsDialog = True .PrintPreview() End With Catch End Try Case 3 'CSV-Export If Me.DokList.Splits(0).Rows.Count > 0 Then Me.SaveFileDialog1.AddExtension = True Me.SaveFileDialog1.DefaultExt.Insert(0, "*.csv") Me.SaveFileDialog1.Filter = "CSV-Dateien|*.CSV" Me.SaveFileDialog1.ShowDialog() If Me.SaveFileDialog1.FileName <> "" Then Me.DokList.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";", "", "", False, System.Text.Encoding.Default.BodyName) '2006-10-17: RS Me.DokList.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows, ";") ' Me.DokList.ExportToDelimitedFile(Me.SaveFileDialog1.FileName, C1.Win.C1TrueDBGrid.RowSelectorEnum.AllRows) End If End If Case 4 Me.MitFreitext = 0 Me.init_treeview() Me.Daten.Rows.Clear() Me.TreeView1.CollapseAll() Me.DokList.DataSource = Nothing Me.TabControl1.SelectedIndex = 0 Case 5 Dim looper As Integer = 0 Me.DokList.DataSource = Nothing Me.TabControl1.SelectedIndex = 0 Dim s As String If Me.cbProfile.Enabled = True Then S = Me.cbProfile.Text While looper = 0 s = InputBox("Name der Dokumentsuche:", "Dokumentsuche speichern", S) If s = "" Then looper = 1 Exit Sub End If If s <> "" And s <> "" Then Save_Suchprofil(s) looper = 1 Else If s = "" Then MyMsg.show_standardmessage(808, MsgBoxStyle.Critical) End If End While get_suchprofile() Dim i As Integer For i = 0 To Me.profile.Rows.Count - 1 If UCase(Me.profile.Rows(i).Item("profilname")) = UCase(s) Then Me.cbProfile.SelectedValue = Me.profile.Rows(i).Item("suchprofilnr") End If Next Me.check_cbprofile() Case 6 Dim s As String If MyMsg.Show_MessageYesNo(803) = MsgBoxResult.Yes Then delete_profile() get_suchprofile() End If Me.check_cbprofile() Case Else End Select End Sub Private Sub delete_profile() Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_suchprofil_delete" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@suchprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbProfile.SelectedValue)) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Connection.Open() Catch End Try Try scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() Try scmCmdToExecute.Connection.Close() Catch End Try End Try End Sub Private Sub Save_Suchprofil(ByVal Profilname As String) Dim sp As New edokadb.clsSuchprofil() Dim da As New DataTable() Try sp.cpMainConnectionProvider = conn conn.OpenConnection() sp.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) sp.sProfilname = New SqlString(CType(Profilname, String)) da = sp.SelectOne() If da.Rows.Count > 0 Then save_data(True, da.Rows(0).Item(0)) Else sp.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) sp.sProfilname = New SqlString(CType(Profilname, String)) sp.Insert() sp.SelectOne() conn.CloseConnection(True) save_data(False, sp.iSuchprofilnr.Value) End If Catch ex As Exception MsgBox(ex.Message) conn.CloseConnection(True) Finally sp.Dispose() da.Dispose() End Try End Sub Private Sub save_data(ByVal Bestehende_Loeschen As Boolean, ByVal Suchprofilnr As Integer) If Bestehende_Loeschen Then delete_existing_data(Suchprofilnr) Dim data As New edokadb.clsSuchdaten() data.cpMainConnectionProvider = conn conn.OpenConnection() For i = 0 To Me.Daten.Rows.Count - 1 If CType(Me.Daten.Rows(i).Item("daten1"), String) <> "" Then data.iId = New SqlInt32(CType(Daten.Rows(i).Item("id"), Int32)) data.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) data.iNodenr = New SqlInt32(CType(Daten.Rows(i).Item("nodenr"), Int32)) data.iSuchprofilnr = New SqlInt32(CType(Suchprofilnr, Int32)) data.sAndor = New SqlString(CType(Daten.Rows(i).Item("andor"), String)) data.sOp1 = New SqlString(CType(Daten.Rows(i).Item("op1"), String)) data.sDaten1 = New SqlString(CType(Daten.Rows(i).Item("daten1"), String)) data.sOp2 = New SqlString(CType(Daten.Rows(i).Item("op2"), String)) data.sDaten2 = New SqlString(CType(Daten.Rows(i).Item("daten2"), String)) data.Insert() End If Next conn.CloseConnection(True) data.Dispose() End Sub Private Sub delete_existing_data(ByVal suchprofilnr As Integer) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_suchprofildaten_delete" scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Parameters.Add(New SqlParameter("@suchprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, suchprofilnr)) scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() Try scmCmdToExecute.Connection.Close() Catch End Try End Try End Sub Private Function get_profile() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_suchprofildaten_get_profile" scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) dtToReturn = profile_ergaenzen(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Function profile_ergaenzen(ByVal dat As DataTable) As DataTable If Me.m_NeueSuche = False Then Return dat Exit Function End If Dim datnew As New DataTable() Dim i As Integer For i = 0 To dat.Columns.Count - 1 datnew.Columns.Add(dat.Columns(i).Caption) Next Dim rowvals(1) As Object Dim rowcount As Integer rowcount = dat.Rows.Count rowvals(0) = -1 rowvals(1) = "" datnew.Rows.Add(rowvals) For i = 0 To dat.Rows.Count - 1 rowvals(0) = dat.Rows(i).Item(0) rowvals(1) = dat.Rows(i).Item(1) datnew.Rows.Add(rowvals) Next Return datnew datnew.Dispose() End Function Private Function get_suchdaten(ByVal suchprofilnr As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_suchprofildaten_get_daten" scmCmdToExecute.Parameters.Add(New SqlParameter("@suchprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, suchprofilnr)) scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception MsgBox(ex.Message) ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Load_Suchprofil(ByVal profilname As String) Dim Connection As New SqlConnection() Dim DA As New SqlDataAdapter("select * from suchprofil where mitarbeiternr=" + Trim(Str(Globals.MitarbeiterNr)) + " and Profilname='" + profilname + "'", Connection) Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA) Dim ds As New DataSet() Connection.ConnectionString = Globals.sConnectionString Connection.Open() DA.Fill(ds, "Profil") If ds.Tables(0).Rows.Count > 0 Then MyMsg.show_standardmessage(804, MsgBoxStyle.Exclamation) Connection.Close() Exit Sub End If Me.Daten = ds.Tables(0).Rows(0).Item(2) 'MsgBox(Me.Daten.Rows.Count) cb = Nothing ds = Nothing DA = Nothing Connection.Close() Connection = Nothing End Sub Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click If Me.TabControl1.SelectedIndex = 0 Then Me.TabControl1.Width = 608 Else Me.TabControl1.Width = 170 End Sub #End Region #Region "SQL-Builder" Dim sql() As String Dim sqlcount As Integer = 0 Dim oldnode As Integer = 0 Dim Pview As New DataView() Dim sqlwhere As String Dim sqldbfeldformat As String Dim sqlcollection As New Collection() Private Function BuildSQL() As Boolean ' Löschen der Temporären tabelle Me.TempSQLTabelle(1, 0, "") While sqlcollection.Count > 0 sqlcollection.Remove(1) End While Dim i As Integer Dim sqlwherevollstaendig As String Dim sqlstring As String ' Pview = Daten.DefaultView ' Pview.Sort = "NodeNr, ID" oldnode = -1 For i = 0 To Me.Daten.Rows.Count - 1 If Me.Daten.Rows(i).Item("daten1") <> "" Then If Me.oldnode <> -1 And Me.oldnode <> Me.Daten.Rows(i).Item("nodenr") Then sqlstring = sqlstring + "(" + sqlwherevollstaendig + ") " sqlwherevollstaendig = "" sqlwhere = "" If Me.rbzv6monate.Visible = True And Me.rbzv6monate.Checked = True Then sqlstring = Replace(sqlstring, "zvbelege.", "zvbelege6mte.") End If sqlcollection.Add(sqlstring) ' SQL_String in temporäre Tabelle schreiben Me.TempSQLTabelle(2, Me.oldnode, sqlstring) sqlstring = "" sqlcount = sqlcount + 1 Me.oldnode = Me.Daten.Rows(i).Item("nodenr") Else Me.oldnode = Me.Daten.Rows(i).Item("nodenr") End If Select Case Me.Daten.Rows(i).Item("andor") Case "und" sqlwherevollstaendig = sqlwherevollstaendig + " and " Case "oder" sqlwherevollstaendig = sqlwherevollstaendig + " or " End Select Get_Sql(Me.Daten.Rows(i).Item("nodenr")) Select Case sqldbfeldformat Case "varchar" sqlwhere = sqlwhere.Replace("#Wert", "'#Wert'") Case Else End Select Select Case Me.Daten.Rows(i).Item("op1") Case "=", "<>", "<=", ">=", ">", "<" sqlwhere = sqlwhere.Replace("#op1", Me.Daten.Rows(i).Item("op1")) If sqldbfeldformat = "datetime" Then Try Dim d As DateTime d = Me.Daten.Rows(i).Item("daten1") sqlwhere = sqlwhere.Replace("#Wert", Format(d, "yyyy-MM-dd")) Catch End Try Else sqlwhere = sqlwhere.Replace("#Wert", Me.Daten.Rows(i).Item("daten1")) End If Case "wie" sqlwhere = sqlwhere.Replace("#op1", " Like ") sqlwhere = sqlwhere.Replace("#Wert", "%" + Me.Daten.Rows(i).Item("daten1") + "%") Case "nicht wie" sqlwhere = sqlwhere.Replace("#op1", " Not Like ") sqlwhere = sqlwhere.Replace("#Wert", "%" + Me.Daten.Rows(i).Item("daten1") + "%") Case "zwischen" sqlwhere = Microsoft.VisualBasic.Left(sqlwhere, InStr(sqlwhere, "#op1") - 1) sqlwhere = sqlwhere + " between " Select Case sqldbfeldformat Case "varchar" sqlwhere = sqlwhere + "'" + Me.Daten.Rows(i).Item("daten1") + "' and '" + Me.Daten.Rows(i).Item("daten2") + "'" Case "datetime" Dim d As DateTime Dim d1 As DateTime d = Me.Daten.Rows(i).Item("daten1") d1 = Me.Daten.Rows(i).Item("daten2") sqlwhere = sqlwhere + "convert(datetime,'" + Format(d, "yyyy-MM-dd") + " 00:00:00',102) and convert(datetime,'" + Format(d1, "yyyy-MM-dd") + " 00:00:00',102)" Case Else sqlwhere = sqlwhere + "'" + Me.Daten.Rows(i).Item("daten1") + "' and '" + Me.Daten.Rows(i).Item("daten2") + "'" End Select Case Else End Select sqlwherevollstaendig = sqlwherevollstaendig + " " + sqlwhere sqlwhere = "" End If Next sqlstring = sqlstring + "(" + sqlwherevollstaendig + ")" If sqlstring = "()" Then MyMsg.show_standardmessage(805, MsgBoxStyle.Exclamation) Return False End If 'Rel 3.5 / BUD - Prüfen ob der Suchtext zu lang ist. If Len(sqlstring) > 1024 Then MyMsg.show_standardmessage(810, MsgBoxStyle.Exclamation) Return False End If If Me.rbzv6monate.Visible = True And Me.rbzv6monate.Checked = True Then sqlstring = Replace(sqlstring, "zvbelege.", "zvbelege6mte.") End If sqlcollection.Add(sqlstring) Me.TempSQLTabelle(2, Me.oldnode, sqlstring) ' Pview.Sort = "ID" Return True End Function Private Function Get_Sql(ByVal Nodenr As Integer) Dim i As Integer For i = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(i).Item("nodenr") = Nodenr Then sqlwhere = Me.parameter.Rows(i).Item("sqlwhere") sqldbfeldformat = Me.parameter.Rows(i).Item("dbfeldformat") Exit For End If Next End Function Private Function Get_Freitextsuchfeld(ByVal Nodenr As Integer) Dim i As Integer For i = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(i).Item("nodenr") = Nodenr Then Return Me.parameter.Rows(i).Item("Freitextsuchfeld") Exit For End If Next End Function Private Function Run_Sql() Dim i As Integer Dim resultdaten As New DataTable() Me.DokList.DataSource = resultdaten Me.DokList.DataMember = resultdaten.TableName If Me.rbzv6monate.Visible = True And Me.rbzv6monate.Checked = True Then resultdaten = Me.TempSQLTabelle(4, 0, "") Else resultdaten = Me.TempSQLTabelle(3, 0, "") End If If resultdaten.Rows.Count > 0 Then Me.btndruck.Enabled = True Me.ToolBarButton3.Enabled = True Me.DokList.DataSource = resultdaten Me.DokList.DataMember = resultdaten.TableName DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, resultdaten, "trefferliste") For i = 0 To Me.DokList.Splits(0).DisplayColumns.Count - 1 If UCase(Me.DokList.Columns(i).DataField) = "PARTNERNR_INHABER" Then HOSTDaten = True If UCase(Me.DokList.Columns(i).DataField) = "NRAUF00" Then UVMDaten = True If UCase(Me.DokList.Columns(i).DataField) = "CDVAR00" Then ZVDaten = True If UCase(Me.DokList.Columns(i).DataField) = "GESCHAEFTSFALL" Then EDOKADaten = True Me.DokList.Splits(0).DisplayColumns(i).AutoSize() Next If Me.cbProfile.Enabled = True Then If Not Load_Layout(Me.cbProfile.SelectedValue) Then For i = 0 To Me.DokList.Splits(0).DisplayColumns.Count - 1 Me.DokList.Splits(0).DisplayColumns(i).Visible = True Me.DokList.Splits(0).DisplayColumns(i).AutoSize() Next End If End If 'hutter 20041012 Try If ZVDaten = True Then Me.DokList.Splits(0).DisplayColumns("Betrag").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Far End If Catch End Try Try If ZVDaten = True Then Me.DokList.Splits(0).DisplayColumns("BTBET00").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Far End If Catch End Try Else MyMsg.show_standardmessage(806, MsgBoxStyle.Information) Me.TabControl1.SelectedIndex = 0 End If End Function Private Function TempSQLTabelle(ByVal Fnkt As Integer, ByVal nodenr As Integer, ByVal sqlstring As String) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.Connection = Globals.conn.scoDBConnection scmCmdToExecute.CommandText = "dbo.SP_Suche" scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@suchprofilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Fnkt)) scmCmdToExecute.Parameters.Add(New SqlParameter("@nodenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nodenr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@sqlstring", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, sqlstring)) scmCmdToExecute.Parameters.Add(New SqlParameter("@moredata", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) If scmCmdToExecute.Parameters("@moredata").Value > 0 Then Dim s As String s = Trim(Str(scmCmdToExecute.Parameters("@moredata").Value)) MyMsg.show_standardmessage_ReplaceText(807, MsgBoxStyle.Critical, s, s) End If Return dtToReturn Catch ex As Exception MyMsg.show_standardmessage(277, MsgBoxStyle.Critical) 'Catch ex As Exception ' MsgBox(ex.Message) 'Catch dbex As DataException ' Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function #End Region #Region "Doklist" Dim partnernr As String Private Sub DokList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DokList.MouseDown Try Me.DokList.Bookmark = Me.DokList.RowContaining(e.Y) Try Me.partnernr = Me.DokList.Columns("partnernr").Text Catch ex As Exception Try Me.partnernr = Me.DokList.Columns("partnernr_inhaber").Text Catch ex1 As Exception Try Me.partnernr = Me.DokList.Columns(20).Text Catch End Try End Try End Try Catch End Try End Sub Private Sub Doklist_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles DokList.FetchScrollTips Try Select Case e.ScrollBar Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Horizontal e.ScrollTip = Me.DokList.Columns(e.ColIndex).Caption Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical e.ScrollTip = CStr(e.Row + 1) & " of " & _ CStr(Me.DokList.Splits(0).Rows.Count) End Select e.TipStyle.ForeColor = Color.Blue Catch End Try End Sub #End Region Private Sub cbProfile_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cbProfile.SelectedValueChanged If On_Load Then Exit Sub Update_Profildaten() Me.On_Load = False End Sub Public Sub Update_Profildaten() Me.m_updateprofildaten = True Me.Daten.Rows.Clear() Me.Daten = Me.get_suchdaten(Me.cbProfile.SelectedValue) Me.init_treeview() Dim i As Integer Dim I1 As Integer For i = 0 To Me.Daten.Rows.Count - 1 DivFnkt.Searchnode1(Me.TreeView1, Me.Daten.Rows(i).Item("nodenr"), 99) If DivFnkt.found Then DivFnkt.FoundNode.ForeColor = System.Drawing.Color.Red If Me.Daten.Rows(i).Item("nodenr") = 100 Or Me.Daten.Rows(i).Item("nodenr") = 101 And DivFnkt.found Then Me.MitFreitext = 1 End If Me.Daten.Rows(i).Item("BTN1") = "" Me.Daten.Rows(i).Item("BTN2") = "" For I1 = 0 To Me.parameter.Rows.Count - 1 If Me.parameter.Rows(I1).Item("nodenr") = DivFnkt.FoundNode.Tag Then If Me.parameter.Rows(I1).Item("suchdialog") > 0 Then Me.Daten.Rows(i).Item("BTN1") = 1 Me.Daten.Rows(i).Item("BTN2") = 1 End If Exit For End If Next If DivFnkt.FoundNode.Parent.Tag = 2 Or DivFnkt.FoundNode.Parent.Tag = 3 Or DivFnkt.FoundNode.Parent.Tag = 4 Then Dim n As New TreeNode() n = DivFnkt.FoundNode.Parent n.Parent.ExpandAll() Else If DivFnkt.FoundNode.Parent.Tag = 8 Then Me.rbzv6monate.Visible = True Me.rbzvvollständig.Visible = True Me.rbzv6monate.Checked = True Else Me.rbzv6monate.Visible = False Me.rbzvvollständig.Visible = False Me.rbzv6monate.Checked = False End If DivFnkt.FoundNode.Parent.ExpandAll() Me.TreeView1.SelectedNode = DivFnkt.FoundNode.Parent() End If End If Next Me.m_updateprofildaten = False End Sub Private Function Load_Layout(ByVal suchprofilnr As Integer) As Boolean Dim docname As String Try docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "s.lyt", "") If HOSTDaten = True Then docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "HOSTs.lyt", "") If ZVDaten = True Then docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "ZVs.lyt", "") If UVMDaten = False Then Else docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "UVMs.lyt", "") End If Catch End Try If Dir(docname) = "" Then Dim p As New DocMgmt() '*********************************** 'Standardlayout laden entfernt '29.7.2004 / SHU '*********************************** Try If p.Get_suchlayout_from_DB(suchprofilnr, docname) <> "" Then Me.DokList.LoadLayout(docname) Return True End If Catch Finally p = Nothing Load_Layout = False End Try Else Me.DokList.LoadLayout(docname) Return True End If Dim i As Integer End Function Private Sub Save_Layout(ByVal suchprofilnr As Integer) Dim p As New DocMgmt() Try Dim docname As String Try '*********************************** 'Layoutfile für alle Dokumenttypen setzen '29.7.2004 / SHU '*********************************** docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "s.lyt", "") If HOSTDaten Then docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "HOSTs.lyt", "") If ZVDaten Then docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "ZVs.lyt", "") If UVMDaten = False Then Else docname = DivFnkt.Get_Filename(LTrim(Str(suchprofilnr)) + "UVMs.lyt", "") End If Catch End Try Me.DokList.SaveLayout(docname) If p.Save_SuchLayout_DB(Me.cbProfile.SelectedValue, docname) Then Me.DokList.LoadLayout(docname) End If Catch Finally p = Nothing End Try End Sub Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click Try If HOSTDaten Then File.Delete(DivFnkt.Get_Filename(Trim(Me.cbProfile.SelectedValue) + "Hosts.lyt", 0)) If ZVDaten Then File.Delete(DivFnkt.Get_Filename(Trim(Me.cbProfile.SelectedValue) + "ZVs.lyt", 0)) If UVMDaten Then File.Delete(DivFnkt.Get_Filename(Trim(Me.cbProfile.SelectedValue) + "UVMs.lyt", 0)) If EDOKADaten Then File.Delete(DivFnkt.Get_Filename(Trim(Me.cbProfile.SelectedValue) + "s.lyt", 0)) Catch End Try Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_suchprofillayout_delete" scmCmdToExecute.CommandType = CommandType.StoredProcedure Try scmCmdToExecute.Connection = conn.scoDBConnection scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbProfile.SelectedValue)) conn.OpenConnection() scmCmdToExecute.ExecuteNonQuery() Catch ex As Exception MsgBox(ex.Message) Finally conn.CloseConnection(True) scmCmdToExecute.Dispose() End Try Dim i As Integer For i = 0 To Me.DokList.Splits(0).DisplayColumns.Count - 1 Me.DokList.Splits(0).DisplayColumns(i).Visible = True Me.DokList.Splits(0).DisplayColumns(i).AutoSize() Next End Sub Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click Dim F As New frmSpaltenDarstellung() Dim i As Integer F.ListBox1.Items.Clear() F.ListBox2.Items.Clear() Try For i = 0 To Me.DokList.Columns.Count - 1 If Me.DokList.Splits(0).DisplayColumns(i).Visible = False Then F.ListBox1.Items.Add(Me.DokList.Splits(0).DisplayColumns(i).Name()) If Me.DokList.Splits(0).DisplayColumns(i).Visible = True Then F.ListBox2.Items.Add(Me.DokList.Splits(0).DisplayColumns(i).Name()) Next Catch End Try F.ShowDialog() For i = 0 To F.ListBox1.Items.Count - 1 Me.DokList.Splits(0).DisplayColumns(F.ListBox1.Items(i)).Visible = False Next For i = 0 To F.ListBox2.Items.Count - 1 Me.DokList.Splits(0).DisplayColumns(F.ListBox2.Items(i)).Visible = True Next F.Dispose() End Sub Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click Me.Save_Layout(Me.cbProfile.SelectedValue) End Sub Private Sub C1TrueDBGrid1_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles C1TrueDBGrid1.FetchRowStyle Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem() Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem() Dim bmp0 As New Bitmap(Me.ImageList3.Images(0)) Dim bmp1 As New Bitmap(Me.ImageList3.Images(0)) v0.DisplayValue = bmp0 v0.Value = 1 v1.DisplayValue = bmp1 v1.Value = 1 Me.C1TrueDBGrid1.Columns(7).ValueItems.Values.Add(v0) Me.C1TrueDBGrid1.Columns(10).ValueItems.Values.Add(v1) Me.C1TrueDBGrid1.Columns(7).ValueItems.Translate = True Me.C1TrueDBGrid1.Columns(10).ValueItems.Translate = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("btn1").Locked = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("btn2").Locked = True End Sub 'HUTTER Private Sub C1TrueDBGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles C1TrueDBGrid1.MouseUp Try If Me.C1TrueDBGrid1.Columns("op1").Text = "zwischen" Then Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Locked = False Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = False Else Me.C1TrueDBGrid1.Splits(0).DisplayColumns("op2").Locked = True Me.C1TrueDBGrid1.Splits(0).DisplayColumns("daten2").Locked = True End If If Me.C1TrueDBGrid1.ColContaining(e.X) = 7 And Me.C1TrueDBGrid1.Columns(7).Value = 1 Then Me.MnuDatenselektion_Click(sender, e) Exit Sub End If If Me.C1TrueDBGrid1.ColContaining(e.X) = 10 And Me.C1TrueDBGrid1.Columns(10).Value = 1 And Me.C1TrueDBGrid1.Splits(0).DisplayColumns("Daten2").Locked = False Then Me.MnuDatenselektion_Click(sender, e) Exit Sub End If Catch End Try End Sub Private Sub DokList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DokList.DoubleClick Try Me.MenuItem2.Enabled = False Me.MenuItem10.Enabled = False User_Hat_Berechtigung = False Dim d As DataTable d = DivFnkt.Berechtigte_Mitarbeiter(Me.DokList.Columns("dokumenttypnr").Value, Globals.MitarbeiterNr, Me.DokList.Columns("partnernr").Value, Me.DokList.Columns("dokumentid").Value, 0, 0, 0, Me.DokList.Columns("vertraulich").Value, "") Try If d.Rows(0).Item("anzeigen") = 1 Then Me.User_Hat_Berechtigung = True Me.MenuItem2.Enabled = True Me.MenuItem10.Enabled = True Else Me.MenuItem2.Enabled = False Me.User_Hat_Berechtigung = False Me.MenuItem10.Enabled = False End If Catch End Try Catch User_Hat_Berechtigung = True Me.MenuItem2.Enabled = True Me.MenuItem10.Enabled = True End Try Try Me.MenuItem2_Click(sender, e) Catch End Try End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged If Me.TabControl1.SelectedIndex = 0 Then Me.ToolBarButton3.Enabled = False Me.btndruck.Enabled = False Else If Me.DokList.Splits(0).Rows.Count > 0 Then Me.ToolBarButton3.Enabled = True Me.btndruck.Enabled = True End If End If End Sub Private Sub cbProfile_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cbProfile.KeyDown If e.KeyCode = Keys.Enter Then Update_Profildaten() End If End Sub Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click Update_Profildaten() End Sub Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click Dim i As Integer For i = 0 To Me.Daten.Rows.Count - 1 Try If Me.Daten.Rows(i).Item(2) = Me.TreeView1.SelectedNode.Tag Then Me.Daten.Rows(i).Delete() i = i - 1 End If Catch ex As Exception End Try Next Me.Daten.AcceptChanges() Me.C1TrueDBGrid1.UpdateData() Me.AddDaten(Me.TreeView1.SelectedNode.Tag) Me.TreeView1.SelectedNode.ForeColor = System.Drawing.Color.Black End Sub Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown Try Dim mouseEvents As MouseEventArgs mouseEvents = e selectPoint.Y = mouseEvents.Y selectPoint.X = mouseEvents.X Me.TreeView1.SelectedNode = Me.TreeView1.GetNodeAt(selectPoint) Catch ex As Exception TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmSucFormular.TreeView1_MouseDown: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Info) End Try End Sub Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click Me.MenuItem8_Click(sender, e) End Sub Private Sub ContextMenu4_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu4.Popup Dim i As Integer If Not IsNothing(TreeView1.SelectedNode) Then If Me.TreeView1.SelectedNode.GetNodeCount(True) > 0 Then Me.MenuItem8.Enabled = False Else Me.MenuItem8.Enabled = True End If Else Me.MenuItem8.Enabled = False End If End Sub Private Sub C1TrueDBGrid1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.Leave Try Me.C1TrueDBGrid1.UpdateData() setcolors() Catch End Try End Sub Private Sub frmSuchFormular_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Me.BtnHelp.Left = Me.ToolBar1.Width - Me.BtnHelp.Width End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("dokumentsuche") End Sub Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup Try Me.MenuItem2.Enabled = False Me.MenuItem10.Enabled = False User_Hat_Berechtigung = False Dim d As DataTable d = DivFnkt.Berechtigte_Mitarbeiter(Me.DokList.Columns("dokumenttypnr").Value, Globals.MitarbeiterNr, Me.DokList.Columns("partnernr").Value, Me.DokList.Columns("dokumentid").Value, 0, 0, 0, Me.DokList.Columns("vertraulich").Value, "") Try If d.Rows(0).Item("anzeigen") = 1 Then Me.User_Hat_Berechtigung = True Me.MenuItem2.Enabled = True Me.MenuItem10.Enabled = True Else Me.MenuItem2.Enabled = False Me.User_Hat_Berechtigung = False Me.MenuItem10.Enabled = False End If Catch End Try Catch User_Hat_Berechtigung = True Me.MenuItem2.Enabled = True Me.MenuItem10.Enabled = True End Try End Sub Private Sub C1TrueDBGrid1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles C1TrueDBGrid1.TextChanged setcolors() End Sub Private Sub DokList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DokList.Click End Sub Private Sub DokList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles DokList.FetchRowStyle '*********************** 'Release 3.3 / korrigiert Rel 3.5 '08.11.2004 / BUD '*********************** Try If Me.DokList.Columns("Statusbezeichnungnr").CellValue(e.Row) = -3 Then Dim FNT As Font = e.CellStyle.Font e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout) End If Catch End Try End Sub Private Sub rbzv6monate_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbzv6monate.CheckedChanged If Me.rbzv6monate.Checked = True Then Me.rbzv6monate.ForeColor = Color.Red Else Me.rbzv6monate.ForeColor = Color.Black End If End Sub Private Sub rbzvvollständig_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbzvvollständig.CheckedChanged If Me.rbzvvollständig.Checked = True Then Me.rbzvvollständig.ForeColor = Color.Red Else Me.rbzvvollständig.ForeColor = Color.Black End If End Sub Dim DruckThread As Thread Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click Dim show_Berechtigungsmeldung As Boolean = False Dim gendokCold As New Collection() Dim gendokOffice As New Collection() If Me.DokList.SelectedRows.Count = 0 Then Try Me.Cursor = Cursors.WaitCursor If HOSTDaten Then 'Host Daten abfüllen gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").Text, Me.DokList.Columns("partnernr_inhaber").Text, _ clsMehrfachdruck_Data.Enum_Typ.HOST, False, Me.DokList.Columns("dokumenttypnr").Text, "", Me.DokList.Columns("partnername_inhaber").Text, Me.DokList.Columns("valutadatum").Text)) fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice) Exit Sub End If If ZVDaten Then 'ZV Daten abfüllen gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns(1).Text, Me.DokList.Columns(3).Text, _ clsMehrfachdruck_Data.Enum_Typ.ZV, False, Me.DokList.Columns(0).Text, Me.DokList.Columns(2).Text, "", Me.DokList.Columns(8).Text)) fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice) Exit Sub End If If User_Hat_Berechtigung Then Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_check_dokument" 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("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@office", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@cold", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) 'Zuerst prüfen ob das Cold Bild vorhanden ist. If scmCmdToExecute.Parameters("@cold").Value > 0 Then 'DivFnkt.printcolddoc(Me.DokList.Columns("dokumentid").Value, Me, Me.DokList.Columns("dokumentid").Value) gendokCold.Add(New clsMehrfachdruck_Data(DivFnkt.get_colddokumentid(Me.DokList.Columns("dokumentid").Value, 0), DivFnkt.Nova_Partnernr, clsMehrfachdruck_Data.Enum_Typ.EDOKA, False, "", "", "", "")) fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice) Else If scmCmdToExecute.Parameters("@office").Value > 0 Then DivFnkt.print_office(Me.DokList.Columns("dokumentid").Value, Me) End If End If Catch End Try Else MyMsg.show_standardmessage(809, MsgBoxStyle.Information) End If Catch ex As Exception Finally Me.Cursor = Cursors.Default End Try Else 'Mehrere Dokumente gewählt Dim i As Integer Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection colRows = Me.DokList.SelectedRows If colRows.Count > 200 Then MsgBox("Sie können nicht mehr als 200 Dokumente auf einmal drucken. Sie haben " + LTrim(Str(colRows.Count)) + " Dokumente ausgewählt.", MsgBoxStyle.Exclamation) Exit Sub End If 'Wenn mehr als ein Dokument selektiert ist dann Meldung zum Fragen anzeigen If colRows.Count > 1 Then If MsgBox("Alle markierten Dokumente (" + LTrim(Str(colRows.Count)) + ") drucken?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub End If End If Me.Cursor = Cursors.WaitCursor 'Loop über die Selektierten Dokumente und die Werte je nach Typ in eine Collection abspeichern For i = 0 To colRows.Count - 1 Try If HOSTDaten Then 'Host Daten abfüllen gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _ Me.DokList.Columns("partnernr_inhaber").CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.HOST, False, _ Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), "", _ Me.DokList.Columns("partnername_inhaber").CellValue(colRows(i)), _ Me.DokList.Columns("valutadatum").CellValue(colRows(i)))) Exit Try End If If ZVDaten Then Try 'ZV Daten abfüllen gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns(1).CellValue(colRows(i)), _ Me.DokList.Columns(3).CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.ZV, False, _ Me.DokList.Columns(0).CellValue(colRows(i)), Me.DokList.Columns(2).CellValue(colRows(i)), _ "", Me.DokList.Columns(8).CellValue(colRows(i)))) Catch ex As Exception End Try Exit Try End If 'If UVMDaten Then ' DivFnkt.Erstellungsdatum = Me.DokList.Columns(5).CellValue(colRows(i)) ' DivFnkt.Belegart = "UVM" ' DivFnkt.UVMZVDokumenttyp = Me.DokList.Columns(7).CellValue(colRows(i)) ' DivFnkt.Auftragnr = Me.DokList.Columns(4).CellValue(colRows(i)) ' DivFnkt.printcolddocHost(Me.DokList.Columns(1).CellValue(colRows(i)), Me.ParentForm, _ ' Me.DokList.Columns(1).CellValue(colRows(i)), _ ' Me.DokList.Columns(2).CellValue(colRows(i)), _ ' Me.DokList.Columns(2).CellValue(colRows(i)), _ ' Me.DokList.Columns(7).CellValue(colRows(i)), False) ' Exit Try 'End If Dim d As DataTable Try d = DivFnkt.Berechtigte_Mitarbeiter(Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), Globals.MitarbeiterNr, Me.DokList.Columns("partnernr").CellValue(colRows(i)), Me.DokList.Columns("dokumentid").CellValue(colRows(i)), 0, 0, 0, Me.DokList.Columns("vertraulich").CellValue(colRows(i)), "") If d.Rows(0).Item("anzeigen") <> 1 Then show_Berechtigungsmeldung = True Exit Try Else User_Hat_Berechtigung = True End If d.Dispose() Catch User_Hat_Berechtigung = False show_Berechtigungsmeldung = True End Try If User_Hat_Berechtigung Then Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_check_dokument" 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("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").CellValue(colRows(i)))) scmCmdToExecute.Parameters.Add(New SqlParameter("@office", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@cold", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) 'Zuerst prüfen ob das Cold Dokument vorhanden ist. If scmCmdToExecute.Parameters("@cold").Value > 0 Then gendokCold.Add(New clsMehrfachdruck_Data(DivFnkt.get_colddokumentid(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), 0), DivFnkt.Nova_Partnernr, clsMehrfachdruck_Data.Enum_Typ.EDOKA, False, "", "", "", "")) Else If scmCmdToExecute.Parameters("@office").Value > 0 Then gendokOffice.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), DivFnkt.Nova_Partnernr, clsMehrfachdruck_Data.Enum_Typ.EDOKA, True, "", "", "", "")) End If End If Catch End Try End If Catch End Try Next Try fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice) Catch ex As Exception Finally Me.Cursor = Cursors.Default End Try End If End Sub Private Sub StartDruckJob() Dim show_Berechtigungsmeldung As Boolean = False Try Dim fp As New frmProgress() fp.Info.Text = "Dokumente drucken" fp.Text = "Dokumente Drucken" Try Dim i As Integer Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection colRows = Me.DokList.SelectedRows If MsgBox("Alle markierten Dokumente (" + LTrim(Str(colRows.Count)) + ") drucken?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then fp.Dispose() Exit Sub End If fp.Bar1.Maximum = colRows.Count fp.Bar1.Value = 0 fp.Show() Application.DoEvents() fp.Refresh() Application.DoEvents() For i = 0 To colRows.Count - 1 Try If HOSTDaten Then DivFnkt.Erstellungsdatum = Me.DokList.Columns("valutadatum").CellValue(colRows(i)) DivFnkt.Belegart = "HOST" DivFnkt.printcolddocHost(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _ Me.ParentForm, Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _ Me.DokList.Columns("partnernr_inhaber").CellValue(colRows(i)), _ Me.DokList.Columns("partnername_inhaber").CellValue(colRows(i)), _ Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), False) Exit Try End If If ZVDaten Then Try DivFnkt.Erstellungsdatum = Me.DokList.Columns(8).CellValue(colRows(i)) DivFnkt.Auftragnr = Me.DokList.Columns(2).CellValue(colRows(i)) DivFnkt.UVMZVDokumenttyp = Me.DokList.Columns(0).CellValue(colRows(i)) DivFnkt.Belegart = "ZV" DivFnkt.printcolddocHost(Me.DokList.Columns(1).CellValue(colRows(i)), _ Me.ParentForm, Me.DokList.Columns(1).CellValue(colRows(i)), _ Me.DokList.Columns(3).CellValue(colRows(i)), _ "", Me.DokList.Columns(0).CellValue(colRows(i)), False) Catch ex As Exception End Try Exit Try End If If UVMDaten Then DivFnkt.Erstellungsdatum = Me.DokList.Columns(5).CellValue(colRows(i)) DivFnkt.Belegart = "UVM" DivFnkt.UVMZVDokumenttyp = Me.DokList.Columns(7).CellValue(colRows(i)) DivFnkt.Auftragnr = Me.DokList.Columns(4).CellValue(colRows(i)) DivFnkt.printcolddocHost(Me.DokList.Columns(1).CellValue(colRows(i)), Me.ParentForm, _ Me.DokList.Columns(1).CellValue(colRows(i)), _ Me.DokList.Columns(2).CellValue(colRows(i)), _ Me.DokList.Columns(2).CellValue(colRows(i)), _ Me.DokList.Columns(7).CellValue(colRows(i)), False) Exit Try End If Dim d As DataTable Try d = DivFnkt.Berechtigte_Mitarbeiter(Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), Globals.MitarbeiterNr, Me.DokList.Columns("partnernr").CellValue(colRows(i)), Me.DokList.Columns("dokumentid").CellValue(colRows(i)), 0, 0, 0, Me.DokList.Columns("vertraulich").CellValue(colRows(i)), "") If d.Rows(0).Item("anzeigen") <> 1 Then show_Berechtigungsmeldung = True Exit Try Else User_Hat_Berechtigung = True End If d.Dispose() Catch User_Hat_Berechtigung = False show_Berechtigungsmeldung = True End Try If User_Hat_Berechtigung Then Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "dbo.sp_check_dokument" 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("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").CellValue(colRows(i)))) scmCmdToExecute.Parameters.Add(New SqlParameter("@office", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) scmCmdToExecute.Parameters.Add(New SqlParameter("@cold", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0)) sdaAdapter.Fill(dtToReturn) If scmCmdToExecute.Parameters("@office").Value > 0 Then DivFnkt.print_office(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), Me) Else If scmCmdToExecute.Parameters("@cold").Value > 0 Then '************************************************ 'UVM Migration / Erste Variante 'Start '************************************************ ''Rel 3.7 / BUD / Probleme mit Mehrfach Druck 'If InStr(Me.DokList.Columns("dokumentid").Value, "OFFEDK003") <> 0 Then ' DivFnkt.gen_PrintColdDocUVM(Me.DokList.Columns("Partner-Nr").Value, Me.DokList.Columns("geschaeftsfall").Text, Me.DokList.Columns("Erstellungsdatum").Value, False) 'Else ' DivFnkt.printcolddoc(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), Me, Me.DokList.Columns("dokumentid").CellValue(colRows(i)), False) 'End If '************************************************ 'ENDE '************************************************ DivFnkt.printcolddoc(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), Me, Me.DokList.Columns("dokumentid").CellValue(colRows(i)), False) End If End If Catch End Try End If Catch End Try fp.Bar1.Value = fp.Bar1.Value + 1 Application.DoEvents() fp.Refresh() Application.DoEvents() Next Catch Finally Try fp.Visible = False Catch End Try fp.Dispose() End Try If show_Berechtigungsmeldung Then MyMsg.show_standardmessage(276, MsgBoxStyle.Information) End If Catch DruckThread.Abort() Finally Try DruckThread.Abort() Catch End Try End Try End Sub Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup Try 'noch keine suchresultate Dim item As MenuItem If C1TrueDBGrid1.Splits(0).Rows.Count <= 0 Then For Each item In ContextMenu1.MenuItems item.Enabled = False Next Else For Each item In ContextMenu1.MenuItems item.Enabled = True Next End If Catch ex As Exception MessageBox.Show(EDOKALib.BusinessFacade.Meldungstext.GetInhaltById(300) + vbCrLf + vbCrLf + ex.Message + vbCrLf + ex.StackTrace, EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub End Class