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.
1514 lines
68 KiB
1514 lines
68 KiB
Option Strict Off
|
|
Imports System.Data
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports EDOKALib
|
|
|
|
Public Class frmBLDossier
|
|
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents btnexit As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents btnDruck As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuShow As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPartnerdossier As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuIndexInfo As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuPrint As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuZuweisung As System.Windows.Forms.MenuItem
|
|
Friend WithEvents btnblkparameter As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnblvzuweisung As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnrefresh As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents pnlleft As System.Windows.Forms.Panel
|
|
Friend WithEvents pnltree As System.Windows.Forms.Panel
|
|
Friend WithEvents TDokart As System.Windows.Forms.TreeView
|
|
Friend WithEvents GrpDossier As System.Windows.Forms.GroupBox
|
|
Friend WithEvents tvdossier As System.Windows.Forms.TreeView
|
|
Friend WithEvents ctmenuTVDossier As System.Windows.Forms.ContextMenu
|
|
Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuDruckAbbruch As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuAgain As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuAuslieferungen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuShowDoc As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuEdit As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuDelete As System.Windows.Forms.MenuItem
|
|
Friend WithEvents mnuDruckArchiv As System.Windows.Forms.MenuItem
|
|
Friend WithEvents ImgListSteuerung As System.Windows.Forms.ImageList
|
|
Friend WithEvents BtnHelp As System.Windows.Forms.Button
|
|
Friend WithEvents MNUStatuszurueck As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuDruck As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPrintAll As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPrintAQ As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPrintBestaetigen As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPrintOK As System.Windows.Forms.MenuItem
|
|
Friend WithEvents MnuPrintNOK As System.Windows.Forms.MenuItem
|
|
Friend WithEvents btnfilter As System.Windows.Forms.Button
|
|
Friend WithEvents mnu_mfDruck 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(frmBLDossier))
|
|
Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumente ohne Aushändigung", 0, 4)
|
|
Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Dokumente mit Aushändigung", 0, 4)
|
|
Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Vollständiges Dossier", 0, 4, New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2})
|
|
Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("EDOKA-Verträge", 0, 4)
|
|
Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("EDOKA-BCK-Dokumente", 0, 4)
|
|
Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("EDOKA-Korrespondenz", 0, 4)
|
|
Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("HOST-Dokumente", 0, 4)
|
|
Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Banklagernd-Dossier", 0, 4, New System.Windows.Forms.TreeNode() {TreeNode4, TreeNode5, TreeNode6, TreeNode7})
|
|
Me.ToolBar1 = New System.Windows.Forms.ToolBar()
|
|
Me.btnexit = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnDruck = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnblkparameter = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnblvzuweisung = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnrefresh = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuShow = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPartnerdossier = New System.Windows.Forms.MenuItem()
|
|
Me.MnuIndexInfo = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem4 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuPrint = New System.Windows.Forms.MenuItem()
|
|
Me.MnuZuweisung = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem7 = New System.Windows.Forms.MenuItem()
|
|
Me.mnu_mfDruck = New System.Windows.Forms.MenuItem()
|
|
Me.pnlleft = New System.Windows.Forms.Panel()
|
|
Me.GrpDossier = New System.Windows.Forms.GroupBox()
|
|
Me.tvdossier = New System.Windows.Forms.TreeView()
|
|
Me.ctmenuTVDossier = New System.Windows.Forms.ContextMenu()
|
|
Me.MnuDruck = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPrintAll = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPrintAQ = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPrintBestaetigen = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPrintOK = New System.Windows.Forms.MenuItem()
|
|
Me.MnuPrintNOK = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem3 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuAgain = New System.Windows.Forms.MenuItem()
|
|
Me.mnuDruckAbbruch = New System.Windows.Forms.MenuItem()
|
|
Me.MNUStatuszurueck = New System.Windows.Forms.MenuItem()
|
|
Me.MenuItem9 = New System.Windows.Forms.MenuItem()
|
|
Me.mnuAuslieferungen = New System.Windows.Forms.MenuItem()
|
|
Me.mnuShowDoc = New System.Windows.Forms.MenuItem()
|
|
Me.mnuEdit = New System.Windows.Forms.MenuItem()
|
|
Me.mnuDruckArchiv = New System.Windows.Forms.MenuItem()
|
|
Me.mnuDelete = New System.Windows.Forms.MenuItem()
|
|
Me.ImgListSteuerung = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.pnltree = New System.Windows.Forms.Panel()
|
|
Me.TDokart = New System.Windows.Forms.TreeView()
|
|
Me.BtnHelp = New System.Windows.Forms.Button()
|
|
Me.btnfilter = New System.Windows.Forms.Button()
|
|
CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.pnlleft.SuspendLayout()
|
|
Me.GrpDossier.SuspendLayout()
|
|
Me.pnltree.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'ToolBar1
|
|
'
|
|
Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnexit, Me.btnDruck, Me.btnblkparameter, Me.btnblvzuweisung, Me.btnrefresh})
|
|
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(960, 28)
|
|
Me.ToolBar1.TabIndex = 0
|
|
'
|
|
'btnexit
|
|
'
|
|
Me.btnexit.ImageIndex = 0
|
|
Me.btnexit.Name = "btnexit"
|
|
'
|
|
'btnDruck
|
|
'
|
|
Me.btnDruck.ImageIndex = 11
|
|
Me.btnDruck.Name = "btnDruck"
|
|
Me.btnDruck.ToolTipText = "Aushändigung erstellen"
|
|
'
|
|
'btnblkparameter
|
|
'
|
|
Me.btnblkparameter.ImageIndex = 12
|
|
Me.btnblkparameter.Name = "btnblkparameter"
|
|
Me.btnblkparameter.ToolTipText = "Periodische Aushändigung verwalten"
|
|
'
|
|
'btnblvzuweisung
|
|
'
|
|
Me.btnblvzuweisung.ImageIndex = 1
|
|
Me.btnblvzuweisung.Name = "btnblvzuweisung"
|
|
'
|
|
'btnrefresh
|
|
'
|
|
Me.btnrefresh.ImageIndex = 10
|
|
Me.btnrefresh.Name = "btnrefresh"
|
|
'
|
|
'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, "")
|
|
'
|
|
'DokList
|
|
'
|
|
Me.DokList.AllowUpdateOnBlur = False
|
|
Me.DokList.AlternatingRows = True
|
|
Me.DokList.ContextMenu = Me.ContextMenu1
|
|
Me.DokList.Cursor = System.Windows.Forms.Cursors.Default
|
|
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(230, 28)
|
|
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(730, 481)
|
|
Me.DokList.TabIndex = 26
|
|
Me.DokList.Text = "C1TrueDBGrid1"
|
|
Me.DokList.PropBag = resources.GetString("DokList.PropBag")
|
|
'
|
|
'ContextMenu1
|
|
'
|
|
Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuShow, Me.MnuPartnerdossier, Me.MnuIndexInfo, Me.MenuItem4, Me.mnuPrint, Me.MnuZuweisung, Me.MenuItem7, Me.mnu_mfDruck})
|
|
'
|
|
'MnuShow
|
|
'
|
|
Me.MnuShow.Index = 0
|
|
Me.MnuShow.Text = "&Dokument aus Partnerdossier anzeigen"
|
|
'
|
|
'MnuPartnerdossier
|
|
'
|
|
Me.MnuPartnerdossier.Index = 1
|
|
Me.MnuPartnerdossier.Text = "&Partnerdossier öffnen"
|
|
'
|
|
'MnuIndexInfo
|
|
'
|
|
Me.MnuIndexInfo.Index = 2
|
|
Me.MnuIndexInfo.Text = "Dokumentinformationen anzeigen"
|
|
'
|
|
'MenuItem4
|
|
'
|
|
Me.MenuItem4.Index = 3
|
|
Me.MenuItem4.Text = "-"
|
|
'
|
|
'mnuPrint
|
|
'
|
|
Me.mnuPrint.Index = 4
|
|
Me.mnuPrint.Text = "&Banklagernd-Dossier ausdrucken"
|
|
'
|
|
'MnuZuweisung
|
|
'
|
|
Me.MnuZuweisung.Index = 5
|
|
Me.MnuZuweisung.Text = "Dossier an BLV &zusweisen"
|
|
Me.MnuZuweisung.Visible = False
|
|
'
|
|
'MenuItem7
|
|
'
|
|
Me.MenuItem7.Index = 6
|
|
Me.MenuItem7.Text = "&Aushändigung löschen"
|
|
Me.MenuItem7.Visible = False
|
|
'
|
|
'mnu_mfDruck
|
|
'
|
|
Me.mnu_mfDruck.Index = 7
|
|
Me.mnu_mfDruck.Text = "&Dokument(e) drucken"
|
|
'
|
|
'pnlleft
|
|
'
|
|
Me.pnlleft.Controls.Add(Me.GrpDossier)
|
|
Me.pnlleft.Controls.Add(Me.pnltree)
|
|
Me.pnlleft.Dock = System.Windows.Forms.DockStyle.Left
|
|
Me.pnlleft.Location = New System.Drawing.Point(0, 28)
|
|
Me.pnlleft.Name = "pnlleft"
|
|
Me.pnlleft.Size = New System.Drawing.Size(230, 481)
|
|
Me.pnlleft.TabIndex = 27
|
|
'
|
|
'GrpDossier
|
|
'
|
|
Me.GrpDossier.Controls.Add(Me.tvdossier)
|
|
Me.GrpDossier.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.GrpDossier.Location = New System.Drawing.Point(0, 216)
|
|
Me.GrpDossier.Name = "GrpDossier"
|
|
Me.GrpDossier.Size = New System.Drawing.Size(230, 265)
|
|
Me.GrpDossier.TabIndex = 1
|
|
Me.GrpDossier.TabStop = False
|
|
Me.GrpDossier.Text = "Aushändigungen"
|
|
'
|
|
'tvdossier
|
|
'
|
|
Me.tvdossier.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
Me.tvdossier.ContextMenu = Me.ctmenuTVDossier
|
|
Me.tvdossier.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.tvdossier.ImageIndex = 0
|
|
Me.tvdossier.ImageList = Me.ImgListSteuerung
|
|
Me.tvdossier.Location = New System.Drawing.Point(3, 16)
|
|
Me.tvdossier.Name = "tvdossier"
|
|
TreeNode1.ImageIndex = 0
|
|
TreeNode1.Name = ""
|
|
TreeNode1.SelectedImageIndex = 4
|
|
TreeNode1.Text = "Dokumente ohne Aushändigung"
|
|
TreeNode2.ImageIndex = 0
|
|
TreeNode2.Name = ""
|
|
TreeNode2.SelectedImageIndex = 4
|
|
TreeNode2.Text = "Dokumente mit Aushändigung"
|
|
TreeNode3.ImageIndex = 0
|
|
TreeNode3.Name = ""
|
|
TreeNode3.SelectedImageIndex = 4
|
|
TreeNode3.Text = "Vollständiges Dossier"
|
|
Me.tvdossier.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode3})
|
|
Me.tvdossier.SelectedImageIndex = 0
|
|
Me.tvdossier.Size = New System.Drawing.Size(224, 246)
|
|
Me.tvdossier.TabIndex = 0
|
|
'
|
|
'ctmenuTVDossier
|
|
'
|
|
Me.ctmenuTVDossier.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuDruck, Me.MnuPrintBestaetigen, Me.MenuItem3, Me.mnuAgain, Me.mnuDruckAbbruch, Me.MNUStatuszurueck, Me.MenuItem9, Me.mnuAuslieferungen, Me.mnuDelete})
|
|
'
|
|
'MnuDruck
|
|
'
|
|
Me.MnuDruck.Index = 0
|
|
Me.MnuDruck.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuPrintAll, Me.MnuPrintAQ})
|
|
Me.MnuDruck.Text = "Dokumente ausdrucken"
|
|
'
|
|
'MnuPrintAll
|
|
'
|
|
Me.MnuPrintAll.Index = 0
|
|
Me.MnuPrintAll.Text = "Aushändigungs-Quittung und Dokumente"
|
|
'
|
|
'MnuPrintAQ
|
|
'
|
|
Me.MnuPrintAQ.Index = 1
|
|
Me.MnuPrintAQ.Text = "Nur Aushändigungs-Quittung"
|
|
Me.MnuPrintAQ.Visible = False
|
|
'
|
|
'MnuPrintBestaetigen
|
|
'
|
|
Me.MnuPrintBestaetigen.Index = 1
|
|
Me.MnuPrintBestaetigen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuPrintOK, Me.MnuPrintNOK})
|
|
Me.MnuPrintBestaetigen.Text = "Ausdruck bestätigen"
|
|
'
|
|
'MnuPrintOK
|
|
'
|
|
Me.MnuPrintOK.Index = 0
|
|
Me.MnuPrintOK.Text = "Erfolgreich"
|
|
'
|
|
'MnuPrintNOK
|
|
'
|
|
Me.MnuPrintNOK.Index = 1
|
|
Me.MnuPrintNOK.Text = "Nicht erfolgreich"
|
|
'
|
|
'MenuItem3
|
|
'
|
|
Me.MenuItem3.Index = 2
|
|
Me.MenuItem3.Text = "-"
|
|
'
|
|
'mnuAgain
|
|
'
|
|
Me.mnuAgain.Index = 3
|
|
Me.mnuAgain.Text = "Dokumente neu aufbereiten"
|
|
'
|
|
'mnuDruckAbbruch
|
|
'
|
|
Me.mnuDruckAbbruch.Index = 4
|
|
Me.mnuDruckAbbruch.Text = "Druck&auftrag abbrechen"
|
|
'
|
|
'MNUStatuszurueck
|
|
'
|
|
Me.MNUStatuszurueck.Index = 5
|
|
Me.MNUStatuszurueck.Text = "Aushändigungsstatus zurücksetzen"
|
|
'
|
|
'MenuItem9
|
|
'
|
|
Me.MenuItem9.Index = 6
|
|
Me.MenuItem9.Text = "-"
|
|
'
|
|
'mnuAuslieferungen
|
|
'
|
|
Me.mnuAuslieferungen.Index = 7
|
|
Me.mnuAuslieferungen.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuShowDoc, Me.mnuEdit, Me.mnuDruckArchiv})
|
|
Me.mnuAuslieferungen.Text = "Aushändigungs-Quittung"
|
|
'
|
|
'mnuShowDoc
|
|
'
|
|
Me.mnuShowDoc.Index = 0
|
|
Me.mnuShowDoc.Text = "Anzeigen"
|
|
'
|
|
'mnuEdit
|
|
'
|
|
Me.mnuEdit.Index = 1
|
|
Me.mnuEdit.Text = "Bearbeiten"
|
|
'
|
|
'mnuDruckArchiv
|
|
'
|
|
Me.mnuDruckArchiv.Index = 2
|
|
Me.mnuDruckArchiv.Text = "Drucken"
|
|
Me.mnuDruckArchiv.Visible = False
|
|
'
|
|
'mnuDelete
|
|
'
|
|
Me.mnuDelete.Index = 8
|
|
Me.mnuDelete.Text = "Aushändigung löschen"
|
|
'
|
|
'ImgListSteuerung
|
|
'
|
|
Me.ImgListSteuerung.ImageStream = CType(resources.GetObject("ImgListSteuerung.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImgListSteuerung.TransparentColor = System.Drawing.Color.Transparent
|
|
Me.ImgListSteuerung.Images.SetKeyName(0, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(1, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(2, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(3, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(4, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(5, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(6, "")
|
|
Me.ImgListSteuerung.Images.SetKeyName(7, "")
|
|
'
|
|
'pnltree
|
|
'
|
|
Me.pnltree.Controls.Add(Me.TDokart)
|
|
Me.pnltree.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.pnltree.Location = New System.Drawing.Point(0, 0)
|
|
Me.pnltree.Name = "pnltree"
|
|
Me.pnltree.Size = New System.Drawing.Size(230, 216)
|
|
Me.pnltree.TabIndex = 0
|
|
'
|
|
'TDokart
|
|
'
|
|
Me.TDokart.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
|
|
Me.TDokart.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.TDokart.ImageIndex = 0
|
|
Me.TDokart.ImageList = Me.ImgListSteuerung
|
|
Me.TDokart.Location = New System.Drawing.Point(0, 0)
|
|
Me.TDokart.Name = "TDokart"
|
|
TreeNode4.ImageIndex = 0
|
|
TreeNode4.Name = ""
|
|
TreeNode4.SelectedImageIndex = 4
|
|
TreeNode4.Text = "EDOKA-Verträge"
|
|
TreeNode5.ImageIndex = 0
|
|
TreeNode5.Name = ""
|
|
TreeNode5.SelectedImageIndex = 4
|
|
TreeNode5.Text = "EDOKA-BCK-Dokumente"
|
|
TreeNode6.ImageIndex = 0
|
|
TreeNode6.Name = ""
|
|
TreeNode6.SelectedImageIndex = 4
|
|
TreeNode6.Text = "EDOKA-Korrespondenz"
|
|
TreeNode7.ImageIndex = 0
|
|
TreeNode7.Name = ""
|
|
TreeNode7.SelectedImageIndex = 4
|
|
TreeNode7.Text = "HOST-Dokumente"
|
|
TreeNode8.ImageIndex = 0
|
|
TreeNode8.Name = ""
|
|
TreeNode8.SelectedImageIndex = 4
|
|
TreeNode8.Text = "Banklagernd-Dossier"
|
|
Me.TDokart.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode8})
|
|
Me.TDokart.SelectedImageIndex = 0
|
|
Me.TDokart.Size = New System.Drawing.Size(230, 216)
|
|
Me.TDokart.TabIndex = 2
|
|
'
|
|
'BtnHelp
|
|
'
|
|
Me.BtnHelp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
|
Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
|
|
Me.BtnHelp.Location = New System.Drawing.Point(936, 2)
|
|
Me.BtnHelp.Name = "BtnHelp"
|
|
Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
|
|
Me.BtnHelp.TabIndex = 68
|
|
'
|
|
'btnfilter
|
|
'
|
|
Me.btnfilter.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
|
Me.btnfilter.ForeColor = System.Drawing.SystemColors.Control
|
|
Me.btnfilter.Image = CType(resources.GetObject("btnfilter.Image"), System.Drawing.Image)
|
|
Me.btnfilter.Location = New System.Drawing.Point(908, 2)
|
|
Me.btnfilter.Name = "btnfilter"
|
|
Me.btnfilter.Size = New System.Drawing.Size(24, 23)
|
|
Me.btnfilter.TabIndex = 69
|
|
'
|
|
'frmBLDossier
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(960, 509)
|
|
Me.Controls.Add(Me.btnfilter)
|
|
Me.Controls.Add(Me.BtnHelp)
|
|
Me.Controls.Add(Me.DokList)
|
|
Me.Controls.Add(Me.pnlleft)
|
|
Me.Controls.Add(Me.ToolBar1)
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmBLDossier"
|
|
Me.Text = "Banklagernd-Dossier: "
|
|
CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.pnlleft.ResumeLayout(False)
|
|
Me.GrpDossier.ResumeLayout(False)
|
|
Me.pnltree.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Deklarationen"
|
|
Dim m_auslieferungnr As Integer = 0
|
|
Property Auslieferungnr() As Integer
|
|
Get
|
|
Return m_auslieferungnr
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_auslieferungnr = Value
|
|
End Set
|
|
End Property
|
|
'''<summary>Variable für das Property NRPAR00</summary>
|
|
Dim M_Nrpar00 As Integer
|
|
'''<summary>Property NRPAR00 - enthält die Partnernr</summary>
|
|
Property NRPar00() As Integer
|
|
Get
|
|
Return M_Nrpar00
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
M_Nrpar00 = Value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_Partnerkurzbezeichnung As String
|
|
Property Partnerkurzbezeichnung() As String
|
|
Get
|
|
Return m_Partnerkurzbezeichnung
|
|
End Get
|
|
Set(ByVal Value As String)
|
|
m_Partnerkurzbezeichnung = Value
|
|
End Set
|
|
End Property
|
|
|
|
'''<summary>Interne Datatable</summary>
|
|
Dim IntDT As New DataTable()
|
|
|
|
Dim m_Profilnr As Integer
|
|
Property Profilnr() As Integer
|
|
Get
|
|
Return m_Profilnr
|
|
End Get
|
|
Set(ByVal Value As Integer)
|
|
m_Profilnr = Value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "Formularhandling"
|
|
|
|
Private Sub BLDossier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
If Me.Profilnr = 0 Then
|
|
Me.Profilnr = get_standardprofil()
|
|
End If
|
|
Me.Text = Me.Text + Me.get_partnerkurzebezeichnung
|
|
Me.TDokart.ExpandAll()
|
|
Load_Data()
|
|
Dim x As New TreeNode()
|
|
If Me.Auslieferungnr <> 0 Then
|
|
Dim tn As New TreeNode()
|
|
Dim tn1 As New TreeNode()
|
|
Me.Searchnode1(Me.tvdossier, Me.Auslieferungnr, 0)
|
|
If Me.found = True Then Me.tvdossier.SelectedNode = Me.foundnode
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Load_Data()
|
|
Me.DokList.Enabled = False
|
|
IntDT = get_Dokumente()
|
|
Me.DokList.DataSource = IntDT
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
|
|
'Check, ob der angemeldete Benutzer Banklagernd-Verantwortlicher ist und den Kunden bearbeiten darf
|
|
Select Case check_blv()
|
|
Case 0
|
|
Me.ToolBar1.Buttons(1).Visible = False
|
|
Me.ToolBar1.Buttons(2).Visible = False
|
|
Me.ToolBar1.Buttons(3).Visible = False
|
|
Case 1
|
|
Me.ToolBar1.Buttons(1).Visible = True
|
|
Me.ToolBar1.Buttons(2).Visible = True
|
|
Me.ToolBar1.Buttons(3).Visible = False
|
|
Case 2
|
|
Me.ToolBar1.Buttons(1).Visible = False
|
|
Me.ToolBar1.Buttons(2).Visible = False
|
|
Me.ToolBar1.Buttons(3).Visible = True
|
|
End Select
|
|
Me.TDokart.SelectedNode = Me.TDokart.Nodes(0)
|
|
|
|
Me.tvdossier.BeginUpdate()
|
|
Me.tvdossier.Nodes.Clear()
|
|
|
|
'Auslieferungen des Kunden auslesen
|
|
Dim al As New DataTable()
|
|
Dim tn As New TreeNode()
|
|
Dim tn1 As New TreeNode()
|
|
tn = Me.tvdossier.Nodes.Add("Vollständiges Dossier")
|
|
tn.Tag = "System : -1"
|
|
tn.SelectedImageIndex = 4
|
|
tn.ImageIndex = 0
|
|
tn1 = tn.Nodes.Add("nicht ausgehändigt")
|
|
tn1.Tag = "System : -2"
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 0
|
|
tn1 = tn.Nodes.Add("Aushändigungen")
|
|
tn1.Tag = "System : -3"
|
|
tn1.SelectedImageIndex = 4
|
|
tn1.ImageIndex = 0
|
|
al = get_auslieferungen_des_partners()
|
|
Dim dt As New DateTime()
|
|
Dim i As Integer
|
|
Dim s As String
|
|
For i = 0 To al.Rows.Count - 1
|
|
dt = al.Rows(i).Item("mutiert_am")
|
|
tn = tn1.Nodes.Add(Format(dt, "dd.MM.yy") + " " + al.Rows(i).Item("Statusbezeichnung") + " (" + al.Rows(i).Item("blv") + ")")
|
|
' tn = tn1.Nodes.Add(dt.ToShortDateString + " " + al.Rows(i).Item("Statusbezeichnung"))
|
|
tn.Tag = LTrim(Str(al.Rows(i).Item("AUSLIEFERUNGNR"))) + ":" + LTrim(Str(al.Rows(i).Item("status")) + ":" + al.Rows(i).Item("dokumentid_quittung"))
|
|
tn.ImageIndex = 0
|
|
tn.SelectedImageIndex = 4
|
|
Next
|
|
Try
|
|
Me.tvdossier.SelectedNode = Me.tvdossier.Nodes(0)
|
|
Catch
|
|
End Try
|
|
Me.tvdossier.ExpandAll()
|
|
DivFnkt.Searchnode(Me.tvdossier, Me.savetag, 4)
|
|
If DivFnkt.found Then
|
|
Try
|
|
Me.tvdossier.SelectedNode = DivFnkt.FoundNode
|
|
Me.tvdossier.SelectedNode.ExpandAll()
|
|
Catch
|
|
End Try
|
|
|
|
End If
|
|
Me.DokList.Enabled = True
|
|
Me.tvdossier.EndUpdate()
|
|
End Sub
|
|
|
|
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 'Exit
|
|
Me.Close()
|
|
Case 1
|
|
Me.mnuPrint_Click(sender, e)
|
|
Case 2
|
|
Dim f As New frmblkundenparameter()
|
|
f.txtPartner.Text = Me.Partnerkurzbezeichnung
|
|
f.NRPar00 = Me.NRPar00
|
|
f.ShowDialog()
|
|
Case 3
|
|
Dim f As New frmBLDossierzuweisen()
|
|
f.ShowDialog()
|
|
f.Dispose()
|
|
Case 4
|
|
Load_Data()
|
|
End Select
|
|
End Sub
|
|
|
|
Dim doupdate As Boolean = True
|
|
Dim doupdate1 As Boolean = True
|
|
Private Sub TDokart_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TDokart.AfterSelect
|
|
Try
|
|
Select Case Me.TDokart.SelectedNode.Text
|
|
Case "Banklagernd-Dossier"
|
|
Me.DokList.Columns("dokumentart").FilterText = ""
|
|
Case "EDOKA-Verträge"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-Verträge"
|
|
Case "EDOKA-BCK-Dokumente"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-BCK-Dokumente"
|
|
Case "EDOKA-Korrespondenz"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-Korrespondenz"
|
|
Case "HOST-Dokumente"
|
|
Me.DokList.Columns("dokumentart").FilterText = "HOST-Dokumente"
|
|
End Select
|
|
doupdate = False
|
|
If Me.doupdate1 = True Then Me.tvdossier.SelectedNode = Me.tvdossier.Nodes(0)
|
|
doupdate = True
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Datenzugriffe"
|
|
|
|
|
|
Private Function get_auslieferungen_des_partners() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_auslieferungen_des_partners"
|
|
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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPar00))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Function get_standardprofil() As Integer
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_standardprofil"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@profilnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return scmCmdToExecute.Parameters("@profilnr").Value
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
Private Function get_Dokumente() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_dossier"
|
|
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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPar00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@filter", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@filter").Value = 0 Then
|
|
Me.btnfilter.Visible = False
|
|
Else
|
|
Me.btnfilter.Visible = True
|
|
End If
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function get_partnerkurzebezeichnung() As String
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_get_bkpar00"
|
|
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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPar00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@bkpar00", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Me.Partnerkurzbezeichnung = scmCmdToExecute.Parameters("@bkpar00").Value
|
|
Return Me.Partnerkurzbezeichnung
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Function check_blv() As Integer
|
|
'BLV-Funktion: 125
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_edex_bl_check_blv"
|
|
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("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.NRPar00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@istblv", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@istkube", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@istblv").Value = 0 And scmCmdToExecute.Parameters("@istkube").Value = 0 Then Return 0
|
|
If scmCmdToExecute.Parameters("@istblv").Value = 1 Then Return 1
|
|
If scmCmdToExecute.Parameters("@istkube").Value = 1 Then Return 2
|
|
Catch ex As Exception
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
End Function
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
Private Sub MnuShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShow.Click
|
|
If UCase(Microsoft.VisualBasic.Left(Me.DokList.Columns("dokumentid").Value, 6)) = "OFFEDK" Then
|
|
DivFnkt.ShowDoc(Me.DokList.Columns("dokumentid").Value, Me)
|
|
Else
|
|
Dim s As String
|
|
s = Me.DokList.Columns("nrpar00").Text
|
|
While Len(s) < 9
|
|
s = "0" + s
|
|
End While
|
|
DivFnkt.Erstellungsdatum = Me.DokList.Columns("Erstelltam").Text
|
|
DivFnkt.Belegart = "HOST"
|
|
DivFnkt.ShowColdDocHost(Me.DokList.Columns("dokumentid").Text, Me.ParentForm, Me.DokList.Columns("dokumentid").Text, s, _
|
|
s, Me.DokList.Columns("dokumenttyp").Text)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MnuPartnerdossier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuPartnerdossier.Click
|
|
Try
|
|
Dim ityp As Integer
|
|
If Me.DokList.Columns("dokumentid").Text.Substring(0, 6) = "OFFEDK" Then
|
|
ityp = 1
|
|
Else
|
|
ityp = 2
|
|
End If
|
|
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
|
|
Dim dokumentid As String = ""
|
|
Dim t As DataTable
|
|
dokumentid = Me.DokList.Columns("dokumentid").Text
|
|
t = Generic_Select(ityp)
|
|
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 = (t.Rows(0).Item("NRPAR00"))
|
|
f.refresh_list()
|
|
If ityp = 2 Then
|
|
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()
|
|
End If
|
|
End If
|
|
f.PosDok(dokumentid, t.Rows(0).Item("dokumentart"))
|
|
Me.Cursor = System.Windows.Forms.Cursors.Default
|
|
Exit Sub
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Das Anzeigen des Partnerdossiers ist fehlgeschlagen.")
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_suchprofil_get_partner"
|
|
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 1
|
|
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, ""))
|
|
|
|
Case 2
|
|
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("NRPAR00").Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@valdat", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
|
|
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
|
|
|
|
|
|
Private Sub mnuPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuPrint.Click
|
|
Try
|
|
Dim formbldruck = New frmBLDruck()
|
|
formbldruck = New frmBLDruck()
|
|
formbldruck.NRPAR00 = Me.NRPar00
|
|
formbldruck.BKPAR00 = Me.Partnerkurzbezeichnung
|
|
formbldruck.Profilnr = Me.Profilnr
|
|
formbldruck.BLDossier = Me.IntDT
|
|
formbldruck.ShowDialog()
|
|
Load_Data()
|
|
Catch ex As Exception
|
|
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmBLDossier.mnuPrint_Click: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Error)
|
|
MessageBox.Show(BusinessFacade.Meldungstext.GetInhaltById(304), EDOKALib.Common.Consts.FEHLER, MessageBoxButtons.OK, MessageBoxIcon.Error)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MnuZuweisung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuZuweisung.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("auslieferungnr").CellValue(e.Row) > 0 Then
|
|
e.CellStyle.ForeColor = System.Drawing.Color.Blue
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
'Private Sub FormAuslieferungen_Refresh() Handles fauslieferungen.evDossierAenderungen_Erfolgt
|
|
' Me.Load_Data()
|
|
'End Sub
|
|
|
|
Dim tnstatus As Integer = -1
|
|
Dim tndokid As String
|
|
Dim tnalnr As Integer
|
|
|
|
Private Sub ctmenuTVDossier_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ctmenuTVDossier.Popup
|
|
Try
|
|
Dim s As String
|
|
Try
|
|
Me.savetag = Me.tvdossier.SelectedNode.Tag
|
|
Catch ex As Exception
|
|
Throw ex
|
|
Finally
|
|
'2006-10-23 rs: wörkli sorry, aber es god nöd andersch ><
|
|
Dim i As Integer
|
|
For i = 0 To Me.ctmenuTVDossier.MenuItems.Count - 1
|
|
Me.ctmenuTVDossier.MenuItems(i).Enabled = False
|
|
Next
|
|
End Try
|
|
|
|
get_nodedata()
|
|
|
|
Dim tmpdata As New DataTable()
|
|
|
|
Dim m As MenuItem
|
|
|
|
If Me.MNUStatuszurueck.Enabled = True Then Exit Sub
|
|
If frmbla.get_parts(Me.tnalnr) > 0 Then
|
|
'Druckmenu
|
|
Me.MnuPrintAll.MenuItems.Clear()
|
|
Me.MnuPrintOK.MenuItems.Clear()
|
|
Me.MnuPrintNOK.MenuItems.Clear()
|
|
Dim i As Integer
|
|
Dim a As Integer = 0
|
|
Dim b As Integer = 0
|
|
Dim c As Integer = 0
|
|
tmpdata = get_druckjob_parts()
|
|
For i = 0 To tmpdata.Rows.Count - 1
|
|
Select Case tmpdata.Rows(i).Item("status")
|
|
Case 2
|
|
a = 1
|
|
Case 3
|
|
b = 1
|
|
Case 4
|
|
c = 1
|
|
End Select
|
|
Next
|
|
If b = 0 And c = 0 And Me.MnuPrintBestaetigen.Enabled = True Then Exit Sub
|
|
If a = 1 Then
|
|
Me.MnuDruck.Enabled = True
|
|
End If
|
|
If b = 1 Then
|
|
Me.MnuPrintBestaetigen.Enabled = True
|
|
End If
|
|
|
|
|
|
If tmpdata.Rows.Count > 1 Then
|
|
|
|
For i = 0 To tmpdata.Rows.Count - 1
|
|
s = "Teil " + LTrim(Str(i + 1)) + " von " + LTrim(Str(tmpdata.Rows(i).Item("totalparts")))
|
|
If i = 0 Then s = s + " inkl. Quittung"
|
|
If tmpdata.Rows(i).Item("status") = 2 Then s = s + " (nicht gedruckt)"
|
|
If tmpdata.Rows(i).Item("status") = 3 Then s = s + " (gedruckt nicht bestätigt)"
|
|
If tmpdata.Rows(i).Item("status") = 4 Then s = s + " (erfolgreich gedruckt)"
|
|
m = Me.MnuPrintAll.MenuItems.Add(s, New EventHandler(AddressOf handlemenu))
|
|
If tmpdata.Rows(i).Item("status") = 4 Or tmpdata.Rows(i).Item("status") = 3 Then m.Enabled = False
|
|
If a > 0 Or c > 0 Then
|
|
m = Me.MnuPrintOK.MenuItems.Add(s, New EventHandler(AddressOf handlemenuok))
|
|
If tmpdata.Rows(i).Item("status") = 2 Or tmpdata.Rows(i).Item("status") = 4 Then m.Enabled = False
|
|
|
|
m = Me.MnuPrintNOK.MenuItems.Add(s, New EventHandler(AddressOf handlemenunok))
|
|
If tmpdata.Rows(i).Item("status") = 4 Or tmpdata.Rows(i).Item("status") = 2 Then m.Enabled = False
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.EdokaApp.frmBLDossier.ctmenuTVDossier_Popup", ex.Message + " " + ex.StackTrace, TraceLevel.Info)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Function get_druckjob_parts() As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.SP_edex_bl_get_druckjobparts"
|
|
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("@alnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.tnalnr))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.EdokaApp.frmBLDossier.get_druckjob_parts", ex.Message + " " + ex.StackTrace, TraceLevel.Info)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
Private Sub handlemenu(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim m As New MenuItem()
|
|
m = sender
|
|
Dim s As String
|
|
s = Mid(m.Text, 6, 2)
|
|
Dim part = Val(s) - 1
|
|
frmbla.PrintDocs(tndokid, Me, Me.tnalnr, part)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub handlemenuok(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim m As New MenuItem()
|
|
m = sender
|
|
Dim s As String
|
|
s = Mid(m.Text, 6, 2)
|
|
Dim part = Val(s) - 1
|
|
frmbla.set_PrintOK(Me.tnalnr, part)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub handlemenunok(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
|
Dim m As New MenuItem()
|
|
m = sender
|
|
Dim s As String
|
|
s = Mid(m.Text, 6, 2)
|
|
Dim part = Val(s) - 1
|
|
frmbla.set_PrintNOK(Me.tnalnr, part)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
|
|
|
|
Dim savetag As String
|
|
Private Sub get_nodedata()
|
|
Try
|
|
Me.DokList.Enabled = False
|
|
Dim i As Integer
|
|
Dim tn As New TreeNode()
|
|
Dim tntag As String
|
|
Dim split() As String
|
|
Dim s As String
|
|
For i = 0 To Me.ctmenuTVDossier.MenuItems.Count - 1
|
|
Me.ctmenuTVDossier.MenuItems(i).Enabled = False
|
|
Next
|
|
|
|
|
|
s = Me.tvdossier.SelectedNode.Tag.ToString
|
|
|
|
Me.tnalnr = 0
|
|
Select Case s
|
|
Case "System : -1"
|
|
Me.DokList.Columns("auslieferungnr").FilterText = ""
|
|
Me.DokList.DataSource = Nothing
|
|
Me.DokList.DataSource = Me.IntDT
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
Case "System : -2"
|
|
Dim dview As New DataView(Me.IntDT, "auslieferungnr is null", "", DataViewRowState.CurrentRows)
|
|
Me.DokList.DataSource = Nothing
|
|
Me.DokList.DataSource = dview
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
Case "System : -3"
|
|
Dim dview As New DataView(Me.IntDT, "auslieferungnr>0", "", DataViewRowState.CurrentRows)
|
|
Me.DokList.DataSource = Nothing
|
|
Me.DokList.DataSource = dview
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
Case Else
|
|
Me.MnuPrintAll.Enabled = True
|
|
Me.MnuPrintAQ.Enabled = True
|
|
Me.MnuPrintOK.Enabled = True
|
|
Me.MnuPrintNOK.Enabled = True
|
|
Me.mnuAuslieferungen.Enabled = True
|
|
Me.mnuDelete.Enabled = True
|
|
|
|
Me.DokList.DataSource = Nothing
|
|
Me.DokList.DataSource = Me.IntDT
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
If Microsoft.VisualBasic.InStr(s, ":") > 0 Then
|
|
If Microsoft.VisualBasic.Left(s, 6) <> "System" Then
|
|
tn = Me.tvdossier.SelectedNode
|
|
s = tn.Tag
|
|
split = s.Split(":")
|
|
'split = s.Split(":", 3)
|
|
tnalnr = split(0)
|
|
tnstatus = split(1)
|
|
tndokid = split(2)
|
|
End If
|
|
tn = Nothing
|
|
Dim dview As New DataView(Me.IntDT, "auslieferungnr=" + LTrim(Str(Me.tnalnr)), "", DataViewRowState.CurrentRows)
|
|
Me.DokList.DataSource = Nothing
|
|
Me.DokList.DataSource = dview
|
|
DivFnkt.SpaltenTitel_Aktualisieren(Me.DokList, IntDT, "bldossier")
|
|
Else
|
|
Me.DokList.Enabled = True
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
If frmbla.Mutationsberechtigung(Me.NRPar00, Me.tndokid) = False Then
|
|
Me.mnuEdit.Enabled = False
|
|
Me.mnuDruckArchiv.Enabled = False
|
|
Me.mnuAgain.Enabled = False
|
|
Me.mnuDelete.Enabled = False
|
|
|
|
End If
|
|
Catch
|
|
Me.MnuPrintAll.Enabled = False
|
|
Me.MnuPrintAQ.Enabled = False
|
|
Me.MnuPrintOK.Enabled = False
|
|
Me.MnuPrintNOK.Enabled = False
|
|
Me.mnuAuslieferungen.Enabled = False
|
|
Me.mnuDelete.Enabled = False
|
|
End Try
|
|
|
|
If Me.btnDruck.Visible = False Then
|
|
Me.DokList.Enabled = True
|
|
Exit Sub
|
|
End If
|
|
|
|
Select Case tnstatus
|
|
Case 0
|
|
Me.mnuAgain.Enabled = True
|
|
Case 1
|
|
Me.mnuDruckAbbruch.Enabled = True
|
|
Case 2
|
|
Me.MnuDruck.Enabled = True
|
|
Case 3
|
|
Me.MnuPrintBestaetigen.Enabled = True
|
|
Case 4
|
|
If frmbla.get_druckjobstatus(Me.tnalnr) < 4 Then
|
|
Me.MNUStatuszurueck.Enabled = True
|
|
End If
|
|
Case 5
|
|
Me.mnuDelete.Enabled = False
|
|
Case Else
|
|
End Select
|
|
End Select
|
|
Me.DokList.Enabled = True
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmBLDossier.get_nodedata: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Info)
|
|
End Try
|
|
End Sub
|
|
|
|
Friend selectPoint As New System.Drawing.Point()
|
|
Private Sub tvdossier_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvdossier.MouseDown
|
|
Try
|
|
'RS 2006-10-05: replce whole code cauze it wasn't really nice
|
|
'If Not IsNothing(tvdossier.SelectedNode) Then
|
|
'If tvdossier.SelectedNode.GetNodeCount(True) > 0 Then
|
|
'savetag = tvdossier.SelectedNode.Tag
|
|
'End If
|
|
'End If
|
|
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
tvdossier.SelectedNode = tvdossier.GetNodeAt(selectPoint)
|
|
If Not IsNothing(tvdossier.SelectedNode) Then
|
|
Me.savetag = tvdossier.SelectedNode.Tag
|
|
End If
|
|
Catch ex As Exception
|
|
TKBLib.Errorhandling.TraceHelper.Msg("EDOKAApp.frmBLDossier.tvdossier_MouseDown: ", ex.Message & " StackTrance: " & ex.StackTrace, TraceLevel.Info)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub tvdossier_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvdossier.AfterSelect
|
|
Me.Cursor = Cursors.WaitCursor
|
|
' Me.TDokart.Enabled = False
|
|
' Me.tvdossier.Enabled = False
|
|
' Me.DokList.Enabled = False
|
|
If Me.doupdate Then
|
|
Me.doupdate1 = False
|
|
Me.TDokart.SelectedNode = Me.TDokart.Nodes(0)
|
|
Me.doupdate1 = True
|
|
get_nodedata()
|
|
End If
|
|
' If Me.tnalnr <> 0 Then
|
|
' Me.DokList.Columns(0).FilterText = Me.tnalnr
|
|
' End If
|
|
' Me.TDokart.Enabled = True
|
|
' Me.tvdossier.Enabled = True
|
|
' Me.DokList.Enabled = True
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
#Region "Functionen des Formulars BLAuslieferungen"
|
|
Dim frmbla As New frmBLAuslieferungen()
|
|
|
|
Private Sub mnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuShowDoc.Click
|
|
frmbla.ShowDoc(Me.tndokid, Me)
|
|
End Sub
|
|
|
|
Private Sub mnuEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuEdit.Click
|
|
frmbla.EditDok(Me.tnalnr)
|
|
End Sub
|
|
|
|
Private Sub mnuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelete.Click
|
|
If frmbla.Delete_Aushaendigung(Me.tnalnr) = True Then
|
|
Me.Load_Data()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub mnuDruckArchiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDruckArchiv.Click
|
|
frmbla.Print_And_Arch(Me.tndokid, Me, Me.tnalnr)
|
|
End Sub
|
|
|
|
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuDruck.Click
|
|
' frmbla.PrintDocs(Me.tndokid, Me, Me.tnalnr)
|
|
End Sub
|
|
|
|
Private Sub mnuPrintOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuPrintOK.Click
|
|
frmbla.set_PrintOK(Me.tnalnr, 0)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub mnuDruckAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDruckAbbruch.Click
|
|
frmbla.stop_druckauftrag(Me.tnalnr)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub mnuAgain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuAgain.Click
|
|
frmbla.neuer_druckauftrag(Me.tnalnr)
|
|
Me.Load_Data()
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuPrintAll.Click
|
|
frmbla.PrintDocs(Me.tndokid, Me, Me.tnalnr, 0)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuPrintAQ.Click
|
|
frmbla.PrintQuittung(Me.tndokid, Me, Me.tnalnr)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
|
|
Try
|
|
If Me.btnDruck.Visible = False Then
|
|
mnuPrint.Enabled = False
|
|
MenuItem7.Enabled = False
|
|
Else
|
|
mnuPrint.Enabled = True
|
|
MenuItem7.Enabled = True
|
|
End If
|
|
If Me.DokList.Splits(0).Rows.Count = 0 Then
|
|
Me.MnuShow.Enabled = False
|
|
Me.MnuPartnerdossier.Enabled = False
|
|
Me.MnuIndexInfo.Enabled = False
|
|
Else
|
|
Me.MnuShow.Enabled = True
|
|
Me.MnuPartnerdossier.Enabled = True
|
|
Me.MnuIndexInfo.Enabled = True
|
|
End If
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub MnuPrintNOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuPrintNOK.Click
|
|
Me.frmbla.set_PrintNOK(Me.tnalnr, 0)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub MNUStatuszurueck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUStatuszurueck.Click
|
|
frmbla.Aushaendigungsstatus_zuruecksetzen(Me.tnalnr)
|
|
Me.Load_Data()
|
|
End Sub
|
|
|
|
Private Sub MnuIndexInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuIndexInfo.Click
|
|
If Microsoft.VisualBasic.Left(Me.DokList.Columns("dokumentid").Value, 6) = "OFFEDK" Then
|
|
Dim f As New frmDokumentinformationen(Me.DokList.Columns("dokumentid").Value, 0)
|
|
f.ShowDialog()
|
|
Else
|
|
Dim f As New frmDokumentinformationen(Me.DokList.Columns("dokumentid").Value, 1)
|
|
f.ShowDialog()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DokList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DokList.MouseDown
|
|
Me.DokList.Bookmark = Me.DokList.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
Private Sub TDokart_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TDokart.MouseUp
|
|
Try
|
|
Select Case Me.TDokart.SelectedNode.Text
|
|
Case "Banklagernd-Dossier"
|
|
Me.DokList.Columns("dokumentart").FilterText = ""
|
|
Case "EDOKA-Verträge"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-Verträge"
|
|
Case "EDOKA-BCK-Dokumente"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-BCK-Dokumente"
|
|
Case "EDOKA-Korrespondenz"
|
|
Me.DokList.Columns("dokumentart").FilterText = "EDOKA-Korrespondenz"
|
|
Case "HOST-Dokumente"
|
|
Me.DokList.Columns("dokumentart").FilterText = "HOST-Dokumente"
|
|
End Select
|
|
doupdate = False
|
|
If Me.doupdate1 = True Then Me.tvdossier.SelectedNode = Me.tvdossier.Nodes(0)
|
|
doupdate = True
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub tvdossier_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvdossier.MouseUp
|
|
Me.Cursor = Cursors.WaitCursor
|
|
' Me.TDokart.Enabled = False
|
|
' Me.tvdossier.Enabled = False
|
|
' Me.DokList.Enabled = False
|
|
If Me.doupdate Then
|
|
Me.doupdate1 = False
|
|
Me.TDokart.SelectedNode = Me.TDokart.Nodes(0)
|
|
Me.doupdate1 = True
|
|
get_nodedata()
|
|
End If
|
|
' If Me.tnalnr <> 0 Then
|
|
' Me.DokList.Columns(0).FilterText = Me.tnalnr
|
|
' End If
|
|
' Me.TDokart.Enabled = True
|
|
' Me.tvdossier.Enabled = True
|
|
' Me.DokList.Enabled = True
|
|
Me.Cursor = Cursors.Default
|
|
|
|
End Sub
|
|
|
|
Private Sub frmBLDossier_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
|
|
Me.btnfilter.Left = Me.BtnHelp.Left - Me.btnfilter.Width
|
|
End Sub
|
|
|
|
Dim found As Boolean
|
|
Dim foundnode As TreeNode
|
|
Public Function Searchnode1(ByVal tv As TreeView, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
Searchnode1 = False
|
|
found = False
|
|
Dim nodeX As TreeNode
|
|
For Each nodeX In tv.Nodes
|
|
If TranverseNodes1(tv, nodeX, SearchObject, imageindex) Then
|
|
Exit Function
|
|
End If
|
|
Next
|
|
End Function
|
|
|
|
Private Function TranverseNodes1(ByVal tv As TreeView, ByVal selectedNode As TreeNode, ByVal SearchObject As Object, ByVal imageindex As Integer) As Boolean
|
|
Dim nodeX As TreeNode
|
|
Dim s As String
|
|
For Each nodeX In selectedNode.Nodes
|
|
Try
|
|
If Microsoft.VisualBasic.Left(nodeX.Tag, Len(SearchObject.ToString)) = SearchObject Then
|
|
nodeX.Expand()
|
|
Me.foundnode = nodeX
|
|
found = True
|
|
TranverseNodes1 = True
|
|
Exit Function
|
|
Else
|
|
TranverseNodes1(tv, nodeX, SearchObject, imageindex)
|
|
End If
|
|
Catch
|
|
If nodeX.Text = Trim(Str(SearchObject)) Then
|
|
nodeX.Expand()
|
|
Me.foundnode = nodeX
|
|
found = True
|
|
TranverseNodes1 = True
|
|
Exit Function
|
|
Else
|
|
TranverseNodes1(tv, nodeX, SearchObject, imageindex)
|
|
End If
|
|
End Try
|
|
Next
|
|
End Function
|
|
|
|
Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
|
|
Globals.HTMLHelp.ShowHelpToc("banklagernddossier")
|
|
End Sub
|
|
|
|
#Region "Mehrfachdruck"
|
|
|
|
Private Sub mnu_mfDruck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnu_mfDruck.Click
|
|
|
|
'Dim tmpDokumente As New Collection()
|
|
Dim gendokCold As New Collection()
|
|
Dim gendokOffice As New Collection()
|
|
|
|
If Me.DokList.SelectedRows.Count = 0 Then
|
|
Try
|
|
If Microsoft.VisualBasic.Left(Me.DokList.Columns("dokumentid").Value, 6) = "OFFEDK" Then
|
|
'Office
|
|
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
|
|
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
|
|
'HOST
|
|
'Host Daten abfüllen
|
|
gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").Text, Me.DokList.Columns("partnernr").Text, _
|
|
clsMehrfachdruck_Data.Enum_Typ.HOST, False, Me.DokList.Columns("dokumenttypnr").Text, "", Me.get_partnerkurzebezeichnung, Me.DokList.Columns("erstelltam").Text))
|
|
fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
|
|
Exit Sub
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
Else
|
|
'Mehrere Dokumente gewählt
|
|
Dim i As Integer
|
|
Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
|
|
colRows = Me.DokList.SelectedRows
|
|
|
|
'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 Microsoft.VisualBasic.Left(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), 6) = "OFFEDK" Then
|
|
'Office
|
|
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
|
|
Else
|
|
'HOST
|
|
'Host Daten abfüllen
|
|
gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _
|
|
Me.DokList.Columns("partnernr").CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.HOST, False, _
|
|
Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), "", _
|
|
Me.get_partnerkurzebezeichnung, _
|
|
Me.DokList.Columns("erstelltam").CellValue(colRows(i))))
|
|
Exit 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
|
|
|
|
#End Region
|
|
|
|
End Class
|