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

3425 lines
159 KiB
Raw Blame History

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
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Imports FlexCel.Report
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 MenuItem11 As MenuItem
Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
<System.Diagnostics.DebuggerStepThrough()> 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.MenuItem11 = 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.0R
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.0R
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, Me.MenuItem11})
'
'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"
'
'MenuItem11
'
Me.MenuItem11.Index = 7
Me.MenuItem11.Text = "Notiz anzeigen"
'
'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.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00"))
f.Partnernr = f.txtnrpar00.Text
f.donotrefresh = True
f.Show()
f.Partner_Eingegeben = True
f.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00"))
f.DoKeyenter()
'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.donotrefresh = True
f.Show()
f.Partner_Eingegeben = True
Dim inrpar00 As Integer = LTrim(t.Rows(0).Item("NRPAR00"))
f.txtnrpar00.Text = inrpar00.ToString
f.DoKeyenter()
'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.donotrefresh = True
f.Show()
f.Partner_Eingegeben = True
'Rel 5.2
'f.txtnrpar00.Text = Microsoft.VisualBasic.Right(Me.DokList.Columns("Partnernr_inhaber").Text, 7)
'f.txtnrpar00.Text = Trim(Me.DokList.Columns("Partnernr_inhaber").Text)
Dim inrpar00 As Integer = LTrim(t.Rows(0).Item("NRPAR00"))
f.txtnrpar00.Text = inrpar00.ToString
f.DoKeyenter()
'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
'20121021 - ZVAnzeige über normale Anzeige
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.ShowColdDocHost(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)))
Me.Cursor = Cursors.Default
''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
If Me.DokList.Columns("Notiz").Value <> "" Then
Dim f As New frmHostNotiz
Try
f.lblPartner.Text = Me.DokList.Columns("Inhaber").Value
f.lblDokumentID.Text = Me.DokList.Columns("Dokumentid").Value
f.txtNotiz.Text = Me.DokList.Columns("Notiz").Value
f.Show_Abbruch_Weiter = True
If f.ShowDialog() = DialogResult.Abort Then Exit Sub
Catch
End Try
End If
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
DivFnkt.Journal_Dokumentzugriff("", "Print aus Doksuche", 1, 0, "Anzahl Datensätze: " + Me.DokList.Splits(0).Rows.Count.ToString, "")
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
'Rel. Office-Migration
Dim xls As New XLSLib.clsXLSLib
If Me.DokList.Splits(0).Rows.Count > 0 Then
DivFnkt.Journal_Dokumentzugriff("", "Excel-Export aus Doksuche", 1, 0, "Anzahl Datensätze: " + Me.DokList.Splits(0).Rows.Count.ToString, "")
xls.Write_Excel(Me.DokList.DataSource)
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 <> "<Neue Dokumentsuche>" Then
Save_Suchprofil(s)
looper = 1
Else
If s = "<Neue Dokumentsuche>" 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) = "<Neue Dokumentsuche>"
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)
If HOSTDaten = True Then Notiz_Column()
Return True
End If
Catch
Finally
p = Nothing
Load_Layout = False
End Try
Else
Me.DokList.LoadLayout(docname)
If HOSTDaten = True Then Notiz_Column()
Return True
End If
Dim i As Integer
End Function
Private Sub Notiz_Column()
Dim notitz_vorhanden As Integer = 0
For i2 As Integer = 0 To Me.DokList.Columns.Count - 1
If Me.DokList.Columns(i2).Caption = "Notiz" Then
notitz_vorhanden = 1
End If
Next
If notitz_vorhanden = 0 Then
Dim col As New C1.Win.C1TrueDBGrid.C1DataColumn
Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
DokList.Columns.Insert(0, col)
col.Caption = "Notiz"
col.DataField = "Notiz"
dc = Me.DokList.Splits(0).DisplayColumns("Notiz")
DokList.Splits(0).DisplayColumns.RemoveAt(DokList.Splits(0).DisplayColumns.IndexOf(dc))
DokList.Splits(0).DisplayColumns.Insert(0, dc)
dc.Visible = False
End If
End Sub
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
If Me.DokList.Columns("Notiz").Value <> "" Then Me.MenuItem11.Visible = True Else Me.MenuItem11.Visible = False
Catch
End Try
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
Try
If Me.DokList.Columns("Notiz").CellValue(e.Row) <> "" Then
e.CellStyle.ForeColor = Color.RoyalBlue
End If
Catch ex As Exception
End Try
'***********************
'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
Try
If Me.DokList.Columns("AKTIV").CellValue(e.Row) = False 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
If Me.DokList.Columns("Notiz").Value <> "" Then
Dim f As New frmHostNotiz
Try
f.lblPartner.Text = Me.DokList.Columns("Inhaber").Value
f.lblDokumentID.Text = Me.DokList.Columns("Dokumentid").Value
f.txtNotiz.Text = Me.DokList.Columns("Notiz").Value
f.Show_Abbruch_Weiter = True
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then Exit Sub
Catch
End Try
End If
'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
If Me.DokList.Columns("Notiz").CellValue(colRows(i)) <> "" Then
Dim f As New frmHostNotiz
Try
f.lblPartner.Text = Me.DokList.Columns("Inhaber").CellValue(colRows(i))
f.lblDokumentID.Text = Me.DokList.Columns("Dokumentid").CellValue(colRows(i))
f.txtNotiz.Text = Me.DokList.Columns("Notiz").CellValue(colRows(i))
f.Show_Abbruch_Weiter = True
f.ShowDialog()
If f.DialogResult = DialogResult.Abort Then Exit Sub
Catch
End Try
End If
'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.Bar1a.Maximum = colRows.Count
fp.Bar1a.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.Bar1a.Value = fp.Bar1a.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
Private Sub MenuItem11_Click(sender As Object, e As EventArgs) Handles MenuItem11.Click
Dim f As New frmHostNotiz
Try
f.lblPartner.Text = Me.DokList.Columns("Inhaber").Value
f.lblDokumentID.Text = Me.DokList.Columns("Dokumentid").Value
f.txtNotiz.Text = Me.DokList.Columns("Notiz").Value
f.Show_Abbruch_Weiter = False
f.ShowDialog()
Catch
End Try
End Sub
End Class
Reference in new issue View Git Blame Copy Permalink