Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Public Class frmDokumentpaket 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 txtPartnerZusteller As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Label16 As System.Windows.Forms.Label Friend WithEvents cbdokumentstatus As System.Windows.Forms.ComboBox Friend WithEvents btnPartnerInhaber As System.Windows.Forms.Button Friend WithEvents txtPartnerInhaber As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents btnExit As System.Windows.Forms.ToolBarButton Friend WithEvents BtnHelp As System.Windows.Forms.Button Friend WithEvents btnAbbruch As System.Windows.Forms.Button Friend WithEvents btnWeiter As System.Windows.Forms.Button Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents TreeVorlagen As System.Windows.Forms.TreeView Friend WithEvents ImageList3 As System.Windows.Forms.ImageList Friend WithEvents DokList As C1.Win.C1TrueDBGrid.C1TrueDBGrid Friend WithEvents ImageList2 As System.Windows.Forms.ImageList Friend WithEvents ContextMenuDokTyp As System.Windows.Forms.ContextMenu Friend WithEvents ContextMenuDokument As System.Windows.Forms.ContextMenu Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem Friend WithEvents MnuMark As System.Windows.Forms.MenuItem Friend WithEvents MnuUnmark As System.Windows.Forms.MenuItem Friend WithEvents MnuAddDok As System.Windows.Forms.MenuItem Friend WithEvents MnuShowDoc As System.Windows.Forms.MenuItem Friend WithEvents MnuTrefferliste As System.Windows.Forms.MenuItem Friend WithEvents PicHinweis As System.Windows.Forms.PictureBox Friend WithEvents lblhinweis As System.Windows.Forms.Label Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem Friend WithEvents btnDPSave As System.Windows.Forms.ToolBarButton Friend WithEvents btnDPCopy As System.Windows.Forms.ToolBarButton Friend WithEvents btnDPInfo As System.Windows.Forms.ToolBarButton Friend WithEvents Timer1 As System.Windows.Forms.Timer Friend WithEvents ImageList4 As System.Windows.Forms.ImageList Friend WithEvents mnuDPKopieren As System.Windows.Forms.MenuItem Friend WithEvents MnuSaveAs As System.Windows.Forms.MenuItem Friend WithEvents MnuVerwaltung As System.Windows.Forms.MenuItem Friend WithEvents mnusaveStandard As System.Windows.Forms.MenuItem Friend WithEvents lblabgeschlossen As System.Windows.Forms.Label Friend WithEvents Timer2 As System.Windows.Forms.Timer Friend WithEvents mnuDPMAKopieren As System.Windows.Forms.MenuItem Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentpaket)) Me.ToolBar1 = New System.Windows.Forms.ToolBar Me.btnExit = New System.Windows.Forms.ToolBarButton Me.btnDPSave = New System.Windows.Forms.ToolBarButton Me.btnDPCopy = New System.Windows.Forms.ToolBarButton Me.btnDPInfo = New System.Windows.Forms.ToolBarButton Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.txtPartnerZusteller = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Label16 = New System.Windows.Forms.Label Me.cbdokumentstatus = New System.Windows.Forms.ComboBox Me.btnPartnerInhaber = New System.Windows.Forms.Button Me.txtPartnerInhaber = New System.Windows.Forms.TextBox Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.BtnHelp = New System.Windows.Forms.Button Me.TreeVorlagen = New System.Windows.Forms.TreeView Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components) Me.btnAbbruch = New System.Windows.Forms.Button Me.btnWeiter = New System.Windows.Forms.Button Me.DokList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components) Me.ContextMenuDokTyp = New System.Windows.Forms.ContextMenu Me.MenuItem1 = New System.Windows.Forms.MenuItem Me.MnuAddDok = New System.Windows.Forms.MenuItem Me.MenuItem2 = New System.Windows.Forms.MenuItem Me.MnuVerwaltung = New System.Windows.Forms.MenuItem Me.mnuDPKopieren = New System.Windows.Forms.MenuItem Me.MnuSaveAs = New System.Windows.Forms.MenuItem Me.mnuDPMAKopieren = New System.Windows.Forms.MenuItem Me.mnusaveStandard = New System.Windows.Forms.MenuItem Me.MenuItem5 = New System.Windows.Forms.MenuItem Me.MnuMark = New System.Windows.Forms.MenuItem Me.MnuUnmark = New System.Windows.Forms.MenuItem Me.ContextMenuDokument = New System.Windows.Forms.ContextMenu Me.MnuShowDoc = New System.Windows.Forms.MenuItem Me.MnuTrefferliste = New System.Windows.Forms.MenuItem Me.PicHinweis = New System.Windows.Forms.PictureBox Me.lblhinweis = New System.Windows.Forms.Label Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.ImageList4 = New System.Windows.Forms.ImageList(Me.components) Me.lblabgeschlossen = New System.Windows.Forms.Label Me.Timer2 = New System.Windows.Forms.Timer(Me.components) CType(Me.DokList, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PicHinweis, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'ToolBar1 ' Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnExit, Me.btnDPSave, Me.btnDPCopy, Me.btnDPInfo}) 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(568, 28) Me.ToolBar1.TabIndex = 0 ' 'btnExit ' Me.btnExit.ImageIndex = 0 Me.btnExit.Name = "btnExit" ' 'btnDPSave ' Me.btnDPSave.ImageIndex = 1 Me.btnDPSave.Name = "btnDPSave" Me.btnDPSave.Visible = False ' 'btnDPCopy ' Me.btnDPCopy.ImageIndex = 3 Me.btnDPCopy.Name = "btnDPCopy" Me.btnDPCopy.Visible = False ' 'btnDPInfo ' Me.btnDPInfo.ImageIndex = 2 Me.btnDPInfo.Name = "btnDPInfo" ' '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, "") ' 'txtPartnerZusteller ' Me.txtPartnerZusteller.Location = New System.Drawing.Point(112, 64) Me.txtPartnerZusteller.Name = "txtPartnerZusteller" Me.txtPartnerZusteller.ReadOnly = True Me.txtPartnerZusteller.Size = New System.Drawing.Size(240, 20) Me.txtPartnerZusteller.TabIndex = 45 ' 'Button1 ' Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image) Me.Button1.Location = New System.Drawing.Point(376, 40) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(24, 24) Me.Button1.TabIndex = 47 ' 'Label16 ' Me.Label16.Location = New System.Drawing.Point(8, 88) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(96, 23) Me.Label16.TabIndex = 51 Me.Label16.Text = "Dokumentstatus" ' 'cbdokumentstatus ' Me.cbdokumentstatus.ItemHeight = 13 Me.cbdokumentstatus.Items.AddRange(New Object() {"In Bearbeitung", "Zweiter Status der Sequenz"}) Me.cbdokumentstatus.Location = New System.Drawing.Point(112, 88) Me.cbdokumentstatus.Name = "cbdokumentstatus" Me.cbdokumentstatus.Size = New System.Drawing.Size(240, 21) Me.cbdokumentstatus.TabIndex = 48 ' 'btnPartnerInhaber ' Me.btnPartnerInhaber.Image = CType(resources.GetObject("btnPartnerInhaber.Image"), System.Drawing.Image) Me.btnPartnerInhaber.Location = New System.Drawing.Point(352, 40) Me.btnPartnerInhaber.Name = "btnPartnerInhaber" Me.btnPartnerInhaber.Size = New System.Drawing.Size(24, 24) Me.btnPartnerInhaber.TabIndex = 46 ' 'txtPartnerInhaber ' Me.txtPartnerInhaber.Location = New System.Drawing.Point(112, 40) Me.txtPartnerInhaber.Name = "txtPartnerInhaber" Me.txtPartnerInhaber.ReadOnly = True Me.txtPartnerInhaber.Size = New System.Drawing.Size(240, 20) Me.txtPartnerInhaber.TabIndex = 44 ' 'Label2 ' Me.Label2.Location = New System.Drawing.Point(8, 64) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(100, 23) Me.Label2.TabIndex = 50 Me.Label2.Text = "Partner-Zusteller" ' 'Label1 ' Me.Label1.Location = New System.Drawing.Point(8, 40) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(100, 23) Me.Label1.TabIndex = 49 Me.Label1.Text = "Partner-Inhaber" ' '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(544, 6) Me.BtnHelp.Name = "BtnHelp" Me.BtnHelp.Size = New System.Drawing.Size(24, 23) Me.BtnHelp.TabIndex = 61 ' 'TreeVorlagen ' Me.TreeVorlagen.CheckBoxes = True Me.TreeVorlagen.ImageIndex = 0 Me.TreeVorlagen.ImageList = Me.ImageList3 Me.TreeVorlagen.Location = New System.Drawing.Point(8, 120) Me.TreeVorlagen.Name = "TreeVorlagen" Me.TreeVorlagen.SelectedImageIndex = 0 Me.TreeVorlagen.Size = New System.Drawing.Size(520, 232) Me.TreeVorlagen.TabIndex = 62 ' '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, "") Me.ImageList3.Images.SetKeyName(1, "") Me.ImageList3.Images.SetKeyName(2, "") Me.ImageList3.Images.SetKeyName(3, "") Me.ImageList3.Images.SetKeyName(4, "") Me.ImageList3.Images.SetKeyName(5, "") Me.ImageList3.Images.SetKeyName(6, "") Me.ImageList3.Images.SetKeyName(7, "") Me.ImageList3.Images.SetKeyName(8, "") Me.ImageList3.Images.SetKeyName(9, "") Me.ImageList3.Images.SetKeyName(10, "") Me.ImageList3.Images.SetKeyName(11, "") Me.ImageList3.Images.SetKeyName(12, "") Me.ImageList3.Images.SetKeyName(13, "") Me.ImageList3.Images.SetKeyName(14, "") Me.ImageList3.Images.SetKeyName(15, "") Me.ImageList3.Images.SetKeyName(16, "") Me.ImageList3.Images.SetKeyName(17, "") Me.ImageList3.Images.SetKeyName(18, "") Me.ImageList3.Images.SetKeyName(19, "") Me.ImageList3.Images.SetKeyName(20, "") Me.ImageList3.Images.SetKeyName(21, "") Me.ImageList3.Images.SetKeyName(22, "") Me.ImageList3.Images.SetKeyName(23, "") Me.ImageList3.Images.SetKeyName(24, "") Me.ImageList3.Images.SetKeyName(25, "") Me.ImageList3.Images.SetKeyName(26, "") Me.ImageList3.Images.SetKeyName(27, "") Me.ImageList3.Images.SetKeyName(28, "") Me.ImageList3.Images.SetKeyName(29, "") Me.ImageList3.Images.SetKeyName(30, "") Me.ImageList3.Images.SetKeyName(31, "") Me.ImageList3.Images.SetKeyName(32, "") Me.ImageList3.Images.SetKeyName(33, "") Me.ImageList3.Images.SetKeyName(34, "") Me.ImageList3.Images.SetKeyName(35, "") Me.ImageList3.Images.SetKeyName(36, "") Me.ImageList3.Images.SetKeyName(37, "") Me.ImageList3.Images.SetKeyName(38, "") Me.ImageList3.Images.SetKeyName(39, "") Me.ImageList3.Images.SetKeyName(40, "") Me.ImageList3.Images.SetKeyName(41, "") Me.ImageList3.Images.SetKeyName(42, "") Me.ImageList3.Images.SetKeyName(43, "") Me.ImageList3.Images.SetKeyName(44, "") Me.ImageList3.Images.SetKeyName(45, "") Me.ImageList3.Images.SetKeyName(46, "") Me.ImageList3.Images.SetKeyName(47, "") Me.ImageList3.Images.SetKeyName(48, "") Me.ImageList3.Images.SetKeyName(49, "") Me.ImageList3.Images.SetKeyName(50, "") Me.ImageList3.Images.SetKeyName(51, "") Me.ImageList3.Images.SetKeyName(52, "") Me.ImageList3.Images.SetKeyName(53, "") Me.ImageList3.Images.SetKeyName(54, "") Me.ImageList3.Images.SetKeyName(55, "") Me.ImageList3.Images.SetKeyName(56, "") Me.ImageList3.Images.SetKeyName(57, "") Me.ImageList3.Images.SetKeyName(58, "") Me.ImageList3.Images.SetKeyName(59, "") Me.ImageList3.Images.SetKeyName(60, "") Me.ImageList3.Images.SetKeyName(61, "") Me.ImageList3.Images.SetKeyName(62, "") Me.ImageList3.Images.SetKeyName(63, "") Me.ImageList3.Images.SetKeyName(64, "") Me.ImageList3.Images.SetKeyName(65, "") Me.ImageList3.Images.SetKeyName(66, "") ' 'btnAbbruch ' Me.btnAbbruch.Location = New System.Drawing.Point(8, 360) Me.btnAbbruch.Name = "btnAbbruch" Me.btnAbbruch.Size = New System.Drawing.Size(75, 23) Me.btnAbbruch.TabIndex = 63 Me.btnAbbruch.Text = "Schliessen" ' 'btnWeiter ' Me.btnWeiter.Location = New System.Drawing.Point(488, 360) Me.btnWeiter.Name = "btnWeiter" Me.btnWeiter.Size = New System.Drawing.Size(75, 23) Me.btnWeiter.TabIndex = 64 Me.btnWeiter.Text = "Weiter >" ' 'DokList ' Me.DokList.AllowArrows = False Me.DokList.AllowColMove = False Me.DokList.AllowColSelect = False Me.DokList.AllowFilter = False Me.DokList.AllowRowSelect = False Me.DokList.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.IndividualRows Me.DokList.AllowSort = False Me.DokList.AllowUpdate = False Me.DokList.AllowUpdateOnBlur = False Me.DokList.AlternatingRows = True Me.DokList.ColumnHeaders = False Me.DokList.Cursor = System.Windows.Forms.Cursors.Default Me.DokList.ExposeCellMode = C1.Win.C1TrueDBGrid.ExposeCellModeEnum.ScrollNever Me.DokList.FetchRowStyles = 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(8, 120) Me.DokList.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.NoMarquee Me.DokList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None Me.DokList.Name = "DokList" Me.DokList.PreviewInfo.Location = New System.Drawing.Point(0, 0) Me.DokList.PreviewInfo.Size = New System.Drawing.Size(0, 0) Me.DokList.PreviewInfo.ZoomFactor = 75 Me.DokList.PrintInfo.PageSettings = CType(resources.GetObject("DokList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings) Me.DokList.RecordSelectorWidth = 20 Me.DokList.RowDivider.Color = System.Drawing.Color.White Me.DokList.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.None Me.DokList.RowSubDividerColor = System.Drawing.Color.Transparent Me.DokList.Size = New System.Drawing.Size(552, 232) Me.DokList.TabIndex = 65 Me.DokList.Text = "C1TrueDBGrid1" Me.DokList.Visible = False Me.DokList.PropBag = resources.GetString("DokList.PropBag") ' '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, "") ' 'ContextMenuDokTyp ' Me.ContextMenuDokTyp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MnuAddDok, Me.MenuItem2, Me.MnuVerwaltung, Me.mnusaveStandard, Me.MenuItem5, Me.MnuMark, Me.MnuUnmark}) ' 'MenuItem1 ' Me.MenuItem1.Index = 0 Me.MenuItem1.Text = "Informationen zur Dokument&vorlage" ' 'MnuAddDok ' Me.MnuAddDok.Index = 1 Me.MnuAddDok.Text = "&Dokumentvorlage hinzufügen" ' 'MenuItem2 ' Me.MenuItem2.Index = 2 Me.MenuItem2.Text = "-" ' 'MnuVerwaltung ' Me.MnuVerwaltung.Index = 3 Me.MnuVerwaltung.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuDPKopieren, Me.MnuSaveAs, Me.mnuDPMAKopieren}) Me.MnuVerwaltung.Text = "Dokumentpakete verwalten" ' 'mnuDPKopieren ' Me.mnuDPKopieren.Index = 0 Me.mnuDPKopieren.Text = "&Dokumentpaket kopieren" ' 'MnuSaveAs ' Me.MnuSaveAs.Index = 1 Me.MnuSaveAs.Text = "Dokumentpaket speichern" ' 'mnuDPMAKopieren ' Me.mnuDPMAKopieren.Index = 2 Me.mnuDPMAKopieren.Text = "Dokumentpaket für ... kopieren" ' 'mnusaveStandard ' Me.mnusaveStandard.Index = 4 Me.mnusaveStandard.Text = "Als individuelles Dokumentpaket speichern" ' 'MenuItem5 ' Me.MenuItem5.Index = 5 Me.MenuItem5.Text = "-" Me.MenuItem5.Visible = False ' 'MnuMark ' Me.MnuMark.Index = 6 Me.MnuMark.Text = "&Zum Erstellen markieren" Me.MnuMark.Visible = False ' 'MnuUnmark ' Me.MnuUnmark.Index = 7 Me.MnuUnmark.Text = "&Markierung aufheben" Me.MnuUnmark.Visible = False ' 'ContextMenuDokument ' Me.ContextMenuDokument.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MnuShowDoc, Me.MnuTrefferliste}) ' 'MnuShowDoc ' Me.MnuShowDoc.Index = 0 Me.MnuShowDoc.Text = "&Dokument anzeigen" ' 'MnuTrefferliste ' Me.MnuTrefferliste.Index = 1 Me.MnuTrefferliste.Text = "&Partnerdossier anzeigen" ' 'PicHinweis ' Me.PicHinweis.Image = CType(resources.GetObject("PicHinweis.Image"), System.Drawing.Image) Me.PicHinweis.Location = New System.Drawing.Point(456, 48) Me.PicHinweis.Name = "PicHinweis" Me.PicHinweis.Size = New System.Drawing.Size(40, 46) Me.PicHinweis.TabIndex = 66 Me.PicHinweis.TabStop = False Me.PicHinweis.Visible = False ' 'lblhinweis ' Me.lblhinweis.Location = New System.Drawing.Point(424, 88) Me.lblhinweis.Name = "lblhinweis" Me.lblhinweis.Size = New System.Drawing.Size(104, 24) Me.lblhinweis.TabIndex = 67 Me.lblhinweis.Text = "Wichtiger Hinweis vorhanden" Me.lblhinweis.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'Timer1 ' Me.Timer1.Interval = 4000 ' 'ImageList4 ' Me.ImageList4.ImageStream = CType(resources.GetObject("ImageList4.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList4.TransparentColor = System.Drawing.Color.Transparent Me.ImageList4.Images.SetKeyName(0, "") Me.ImageList4.Images.SetKeyName(1, "") ' 'lblabgeschlossen ' Me.lblabgeschlossen.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblabgeschlossen.ForeColor = System.Drawing.Color.Blue Me.lblabgeschlossen.Location = New System.Drawing.Point(96, 360) Me.lblabgeschlossen.Name = "lblabgeschlossen" Me.lblabgeschlossen.Size = New System.Drawing.Size(392, 24) Me.lblabgeschlossen.TabIndex = 68 Me.lblabgeschlossen.Text = "Das Dokumentpaket wurde abgeschlossen" Me.lblabgeschlossen.TextAlign = System.Drawing.ContentAlignment.MiddleCenter Me.lblabgeschlossen.Visible = False ' 'Timer2 ' Me.Timer2.Interval = 1000 ' 'frmDokumentpaket ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(568, 389) Me.Controls.Add(Me.lblabgeschlossen) Me.Controls.Add(Me.lblhinweis) Me.Controls.Add(Me.PicHinweis) Me.Controls.Add(Me.DokList) Me.Controls.Add(Me.btnWeiter) Me.Controls.Add(Me.btnAbbruch) Me.Controls.Add(Me.TreeVorlagen) Me.Controls.Add(Me.BtnHelp) Me.Controls.Add(Me.txtPartnerZusteller) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.cbdokumentstatus) Me.Controls.Add(Me.btnPartnerInhaber) Me.Controls.Add(Me.txtPartnerInhaber) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.ToolBar1) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Name = "frmDokumentpaket" Me.Text = "Dokumentpaket" CType(Me.DokList, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PicHinweis, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub #End Region #Region "Deklarationen" Dim Dokumentpaketnr As Integer Dim IndividuellesDP As Boolean Dim NrPar00 As Integer Dim DP_Instanz As Boolean = False Dim dp_instanznr As Integer = 0 Dim dokumentid As String Dim saveasidvDP As Boolean = False Dim Dokumenttypnummern As String = "" Dim Dokumenttyphacken As String = "" Dim DokumenttypInBearbeitung As String Dim ColDokumenttypNr As New Collection() Dim savedata As DataTable Dim Wichtigerhinweis As String = "" Dim m_profile As DataTable Dim CurrentRow As Integer = 0 Dim m_InBearbeitung As Boolean = False Dim barcodeid As String Property Profile() As DataTable Get Return m_profile End Get Set(ByVal Value As DataTable) m_profile = Value End Set End Property 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 Property InBearbeitung() As Boolean Get Return m_InBearbeitung End Get Set(ByVal Value As Boolean) m_InBearbeitung = Value If Value = False Then Me.DokList.Enabled = True Me.btnAbbruch.Enabled = True Me.btnWeiter.Enabled = True Me.btnPartnerInhaber.Enabled = True Me.ToolBar1.Enabled = True Else Me.DokList.Enabled = False Me.btnAbbruch.Enabled = False Me.btnWeiter.Enabled = False Me.btnPartnerInhaber.Enabled = False Me.ToolBar1.Enabled = False End If End Set End Property Dim MarkierteDT As New Collection() Dim dd As DataTable #End Region #Region "Init_Load" Public Sub New(ByVal dpvorlagenr As Integer, ByVal indivDP As Boolean, ByVal Partnernr As Integer) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() Me.Dokumentpaketnr = dpvorlagenr Me.IndividuellesDP = indivDP Me.NrPar00 = Partnernr ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen Me.cbdokumentstatus.SelectedIndex = 0 End Sub Public Sub New(ByVal dpvorlagenr As Integer, ByVal Partnernr As Integer) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() Me.Dokumentpaketnr = dpvorlagenr Me.NrPar00 = Partnernr Try 'Dim dp As New edokadb.clsEdex_dpinstanz() 'dp.cpMainConnectionProvider = conn 'dp.iNreintrag = dpvorlagenr 'dp.SelectByDPNr(dpvorlagenr) 'Me.Dokumenttypnummern = dp.sDokumentpaketnummern.Value 'Me.Dokumenttyphacken = dp.sHacken.Value 'Me.NrPar00 = dp.iNrpar00.Value 'Me.Dokumentpaketnr = dpvorl 'Me.IndividuellesDP = dp.bIndividuellesDP.Value 'Me.Profilnr = dp.iProfilnr.Value 'Me.Profile = Generic_Select(5) 'Dim ProfilFound As Boolean = False 'Dim I1 As Integer = 0 'For I1 = 0 To Me.Profile.Rows.Count - 1 ' If Me.Profile.Rows(I1).Item("profilnr") = Me.Profilnr Then ' ProfilFound = True ' End If 'Next 'If Not ProfilFound Then ' For I1 = 0 To Me.Profile.Rows.Count - 1 ' If Me.Profile.Rows(I1).Item("Standard") = True Then ' Me.Profilnr = Me.Profile.Rows(I1).Item("profilnr") ' End If ' Next 'End If 'dp.Dispose() Dim splitter Dim i As Integer = 0 Try splitter = Me.Dokumenttypnummern.Split(";") Do Until splitter(i) Is Nothing If splitter(i) <> "" Then Me.ColDokumenttypNr.Add(splitter(i)) End If i = i + 1 Loop Catch End Try Catch ex As Exception MsgBox("Das Dokumentpaket konnte nicht geladen werden.") End Try Me.cbdokumentstatus.SelectedIndex = 0 End Sub Public Sub New(ByVal edex_dpinstanznr As Integer) MyBase.New() ' Dieser Aufruf ist für den Windows Form-Designer erforderlich. InitializeComponent() Me.DP_Instanz = True Me.dp_instanznr = edex_dpinstanznr Try Dim dp As New edokadb.clsEdex_dpinstanz() dp.cpMainConnectionProvider = conn dp.iNreintrag = New SqlInt32(CType(edex_dpinstanznr, Int32)) dp.SelectOne() Me.Dokumenttypnummern = dp.sDokumentpaketnummern.Value Me.Dokumenttyphacken = dp.sHacken.Value Me.NrPar00 = dp.iNrpar00.Value Me.Dokumentpaketnr = dp.iDokumentpaketnr.Value Me.IndividuellesDP = dp.bIndividuellesDP.Value Me.Profilnr = dp.iProfilnr.Value Me.Profile = Generic_Select(5) Dim ProfilFound As Boolean = False Dim I1 As Integer = 0 For I1 = 0 To Me.Profile.Rows.Count - 1 If Me.Profile.Rows(I1).Item("profilnr") = Me.Profilnr Then ProfilFound = True End If Next If Not ProfilFound Then For I1 = 0 To Me.Profile.Rows.Count - 1 If Me.Profile.Rows(I1).Item("Standard") = True Then Me.Profilnr = Me.Profile.Rows(I1).Item("profilnr") End If Next End If dp.Dispose() Dim splitter Dim i As Integer = 0 Try splitter = Me.Dokumenttypnummern.Split(";") Do Until splitter(i) Is Nothing If splitter(i) <> "" Then Me.ColDokumenttypNr.Add(splitter(i)) End If i = i + 1 Loop Catch End Try Catch MsgBox("Das Dokumentpaket konnte nicht geladen werden.") End Try Me.cbdokumentstatus.SelectedIndex = 0 End Sub Private Sub frmDokumentpaket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.DokList.Visible = True Load_Dokumentpaket() If Me.NrPar00 <> 0 Then Dim f As New FrmPartnersuche() f.Partner_Suche(Me.NrPar00) Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung If Me.txtPartnerInhaber.Text = " 0 " Then Me.txtPartnerInhaber.Text = "" Me.txtPartnerZusteller.Text = get_partnerzusteller(Me.NrPar00) Me.Refresh_data() Me.DokList.Enabled = True Else Me.txtPartnerInhaber.Text = "" btnPartnerInhaber_Click(sender, e) Me.Refresh_data() If Me.NrPar00 = 0 Then Me.DokList.Enabled = False Else Me.DokList.Enabled = True End If If Me.IndividuellesDP = True Then Dim bmp As New Bitmap(Me.ImageList4.Images(1)) Dim ico As Icon = Icon.FromHandle(bmp.GetHicon()) Me.Icon = ico Else Dim bmp As New Bitmap(Me.ImageList4.Images(0)) Dim ico As Icon = Icon.FromHandle(bmp.GetHicon()) Me.Icon = ico End If If Me.DP_Instanz = True Then Dim splitter Dim splitter1 Dim i As Integer = 0 Dim i1 As Integer splitter = Me.Dokumenttyphacken.Split(";") splitter1 = Me.Dokumenttypnummern.Split(";") For i = 0 To Me.DokList.Splits(0).Rows.Count - 1 Me.DokList.Bookmark = i If Me.DokList.Columns("Dokumentid").Value = "0" Then Try i1 = 0 Do Until splitter(i1) Is Nothing If splitter1(i1) = Me.DokList.Columns("Dokumenttypnr").Value Then If splitter(i1) = 2 Then Me.DokList.Columns("Haken").Value = 2 Else Me.DokList.Columns("Haken").Value = 1 End If Exit Do End If i1 = i1 + 1 Loop Catch End Try End If Next End If End Sub #End Region #Region "Datenhandling" Private Function Generic_Select(ByVal typ As Integer) As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Select Case typ Case 1 scmCmdToExecute.CommandText = "edex_sp_dokumentpaketvorlagen_select" Case 2, 3 scmCmdToExecute.CommandText = "edex_sp_dokumentpaket_dokumente_select" Case 4 scmCmdToExecute.CommandText = "dbo.SP_message_getPartner_Profil" Case 5 scmCmdToExecute.CommandText = "dbo.pv_profil_select" Case Else End Select scmCmdToExecute.CommandType = CommandType.StoredProcedure Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) Select Case typ Case 1 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentpaketnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentpaketnr)) Case 2 scmCmdToExecute.Parameters.Add(New SqlParameter("@doktypen", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokumenttypInBearbeitung)) 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("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0)) Case 3 scmCmdToExecute.Parameters.Add(New SqlParameter("@doktypen", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumenttypnummern)) 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("@dpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Dokumentpaketnr)) Case 4 scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Text)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) Case 5 scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@mandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MandantNr)) End Select scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Load_Dokumentpaket() 'Dokumentpaket Dim dp As New edokadb.clsEdex_dokumentpaket() dp.cpMainConnectionProvider = conn dp.iDokumentpaketnr = New SqlInt32(CType(Me.Dokumentpaketnr, Int32)) dp.SelectOne() Me.Text = "Dokumentpaket: " + dp.sBezeichnung.Value If dp.sWichtigehinweise.Value <> "" Then Me.lblhinweis.Visible = True Me.PicHinweis.Visible = True Me.Wichtigerhinweis = dp.sWichtigehinweise.Value Else Me.lblhinweis.Visible = False Me.PicHinweis.Visible = False Me.Wichtigerhinweis = "" End If dp.Dispose() 'Dokumentpaketvorlagen Dim dpv As DataTable dpv = Generic_Select(1) Dim i As Integer For i = 0 To dpv.Rows.Count - 1 If dpv.Rows(i).Item("dtaktiv") = True Or (Me.DP_Instanz = True Or Me.IndividuellesDP = True) Then Me.ColDokumenttypNr.Add(dpv.Rows(i).Item("Dokumenttypnr")) End If Next End Sub #End Region #Region "Partner" Private Sub btnPartnerInhaber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerInhaber.Click Me.lblabgeschlossen.Visible = False Dim f As New FrmPartnersuche() f.NurAbfrage = False f.ShowDialog() If f.PartnerNr <> 0 Then Me.txtPartnerInhaber.Text = Str(f.PartnerNr) + " " + f.PartnerKurzbezeichnnung Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f.PartnerNr) Me.NrPar00 = f.PartnerNr Me.Refresh_data() Me.DokList.Enabled = True End If End Sub Private Function get_partnerzusteller(ByVal nrpar00 As Integer) As String Dim p As New edokadb.clsPartner() Dim p1 As New edokadb.clsPartner() Dim s As String s = "" p.cpMainConnectionProvider = conn p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32)) p.SelectOne() If p.iNRPAR00.ToString <> p.sNRPARAD.ToString Then Try p1.cpMainConnectionProvider = conn p1.iNRPAR00 = New SqlInt32(CType(p.sNRPARAD.Value, Int32)) p1.SelectOne() s = p1.sNRPARAD.ToString + " " + p1.sBKPAR00.Value Catch s = "" End Try End If p.Dispose() p1.Dispose() get_partnerzusteller = s End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try If Me.NrPar00 > 91000000 Then Dim f As New frmInteressent() f.Partnernr = Me.NrPar00 f.Display = True f.ShowDialog() f.Dispose() Else Dim f As New frmPartnerDetails() f.Partnernr = Me.NrPar00 f.ShowDialog() f.Dispose() End If Catch Finally End Try End Sub #End Region #Region "Dokumentliste" Private Sub Refresh_data() Dim vertraulich As Integer Dim i As Integer Dim ii As Integer Me.Dokumenttypnummern = "" For Each i In Me.ColDokumenttypNr If Me.Dokumenttypnummern <> "" Then Me.Dokumenttypnummern = Me.Dokumenttypnummern + ";" Me.Dokumenttypnummern = Me.Dokumenttypnummern + LTrim(Str(i)) Next dd = Generic_Select(3) Me.DokList.DataSource = Nothing Me.DokList.DataMember = Nothing Me.DokList.DataSource = dd Me.DokList.DataMember = dd.TableName Me.DokList.Splits(0).DisplayColumns(0).Width = 0 Me.DokList.Splits(0).DisplayColumns(1).Width = 0 Me.DokList.Splits(0).DisplayColumns(2).Width = 20 Me.DokList.Splits(0).DisplayColumns(3).Width = 20 Me.DokList.Splits(0).DisplayColumns(4).Width = Me.DokList.Width - 60 For i = 0 To dd.Rows.Count - 1 If dd.Rows(i).Item("dokumentid") <> "0" Then dd.Rows(i - 1).Item("haken") = 1 End If If dd.Rows(i).Item("dokumentid") = "0" Then If dd.Rows(i).Item("erstellung") = -1 Then dd.Rows(i).Item("erstellung") = 0 dd.Rows(i).Item("Haken") = 1 Else If dd.Rows(i).Item("vertraulich") = 1 Then vertraulich = 1 Else vertraulich = 0 If DivFnkt.Ist_Berechtigt(dd.Rows(i).Item("Dokumenttypnr"), Globals.MitarbeiterNr, Me.NrPar00, "", 2, 0, 0, vertraulich) = True Then dd.Rows(i).Item("erstellung") = 1 Else dd.Rows(i).Item("erstellung") = 0 dd.Rows(i).Item("Haken") = 1 End If End If Dim set2 As Boolean = False If Me.MarkierteDT.Count > 0 Then Try For ii = 1 To Me.MarkierteDT.Count If Me.MarkierteDT.Item(ii) = dd.Rows(i).Item("dokumenttypnr") Then set2 = True End If Next If set2 = True And Me.lblabgeschlossen.Visible = False Then dd.Rows(i).Item("Haken") = 2 Me.DokList.Bookmark = i Me.DokList.Columns(2).Value = 2 Me.DokList.Columns("erstellung").Value = 1 dd.Rows(i).Item("erstellung") = 1 Else dd.Rows(i).Item("Haken") = 1 End If Catch ex As Exception dd.Rows(i).Item("haken") = 1 End Try End If If dd.Rows(i).Item("Erstellung") = 0 Then dd.Rows(i).Item("haken") = 1 End If Next For i = 5 To Me.DokList.Columns.Count - 1 Me.DokList.Splits(0).DisplayColumns(i).Width = 0 Next Dim xbmp As Integer For i = 0 To dd.Rows.Count - 1 xbmp = dd.Rows(i).Item("imageindex") Dim bm As New Bitmap(Me.ImageList3.Images(xbmp)) Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem(xbmp, bm) Me.DokList.Columns(3).ValueItems.Values.Add(v0) Me.DokList.Columns(3).ValueItems.Translate = True Next Dim bmp1 As New Bitmap(Me.ImageList2.Images(0)) Dim bmp2 As New Bitmap(Me.ImageList2.Images(1)) Dim bmp3 As New Bitmap(Me.ImageList2.Images(2)) Dim bmp4 As New Bitmap(Me.ImageList2.Images(3)) Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem() Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem() Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem() Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem() v1.DisplayValue = bmp1 v1.Value = 0 v2.DisplayValue = bmp2 v2.Value = 1 v3.DisplayValue = bmp3 v3.Value = 2 v4.DisplayValue = bmp4 v4.Value = 3 Me.DokList.Columns(2).ValueItems.Values.Add(v1) Me.DokList.Columns(2).ValueItems.Values.Add(v2) Me.DokList.Columns(2).ValueItems.Values.Add(v3) Me.DokList.Columns(2).ValueItems.Values.Add(v4) Me.DokList.Columns(2).ValueItems.Translate = True 'Me.DokList.RowHeight = 20 Me.DokList.CollapseColor = Color.White Me.DokList.AllowHorizontalSplit = False Me.DokList.AllowColMove = False For i = 0 To Me.DokList.Columns.Count - 1 Me.DokList.Splits(0).DisplayColumns(i).Style.Borders.BorderType = C1.Win.C1TrueDBGrid.BorderTypeEnum.None Me.DokList.Splits(0).DisplayColumns(i).Style.Borders.Bottom = 0 Me.DokList.Splits(0).DisplayColumns(i).Style.Borders.Left = 0 Me.DokList.Splits(0).DisplayColumns(i).Style.Borders.Right = 0 Me.DokList.Splits(0).DisplayColumns(i).Style.Borders.Top = 0 Me.DokList.Splits(0).DisplayColumns(i).AllowSizing = False Me.DokList.Splits(0).DisplayColumns(i).ColumnDivider.Color = System.Drawing.Color.White Next End Sub Private Function TagArt(ByVal tag As String) As String Dim Art As String Art = tag Return Art.Substring(0, 3) End Function Private Function TagValue(ByVal tag As String) As String Dim Keyvalue As String Keyvalue = tag Return Keyvalue.Substring(3, Len(Keyvalue) - 3) End Function Private Sub DokList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles DokList.FetchRowStyle If Me.DokList.Columns(2).CellValue(e.Row) <> 0 Then Dim fnt As Font Else Dim fnt As Font fnt = New Font("Courier New", 8) e.CellStyle.Font = fnt End If If Me.DokList.Columns("aktiv").CellValue(e.Row) = 0 And Me.DokList.Columns("dokumentid").CellValue(e.Row) = "0" Then Dim FNT As Font = e.CellStyle.Font e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout) End If If Me.DokList.Columns("dokumentid").CellValue(e.Row) = "0" And Me.DokList.Columns("Erstellung").CellValue(e.Row) = 0 Then e.CellStyle.ForeColor = Color.Gray End If Me.DokList.RecordSelectorStyle.Borders.BorderType = C1.Win.C1TrueDBGrid.BorderTypeEnum.None End Sub Private Sub C1TrueDBGrid1_FetchCellStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchCellStyleEventArgs) Handles DokList.FetchCellStyle If Me.DokList.Columns(3).CellValue(e.Row) <> 59 Then e.CellStyle.BackColor = Color.LightGray End If e.CellStyle.Borders.BorderType = C1.Win.C1TrueDBGrid.BorderTypeEnum.Flat e.CellStyle.Borders.Color = System.Drawing.Color.White 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) Try If Me.DokList.Columns("dOKUMENTID").Text = "0" Then Me.DokList.ContextMenu = Me.ContextMenuDokTyp Else Me.DokList.ContextMenu = Me.ContextMenuDokument End If Catch End Try If Me.DokList.ColContaining(e.X) <> 2 Then Exit Sub 'Beim Klick der rechten Maustaste die Funktion verlassen 'sonst ändern des Wertes in der Spalte "Haken" If e.Button = MouseButtons.Right Then Exit Sub Try If Me.DokList.Columns(2).Value = 0 Then Exit Sub If Me.DokList.Columns(2).Value = 1 Then If Me.DokList.Columns("Erstellung").Value = 1 And Me.DokList.Columns("aktiv").Value = 1 Then Me.DokList.Columns(2).Value = 2 End If Else If Me.DokList.Columns("Erstellung").Value = 1 And Me.DokList.Columns("aktiv").Value = 1 Then Me.DokList.Columns(2).Value = 1 End If End If Try Me.DokList.Bookmark = Me.DokList.Bookmark - 1 Catch End Try Try Me.DokList.Bookmark = Me.DokList.Bookmark + 1 Catch End Try Me.DokList.Bookmark = Me.DokList.RowContaining(e.Y) Catch End Try Me.lblabgeschlossen.Visible = False End Sub #End Region #Region "Formular" Private Sub PicHinweis_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PicHinweis.Click, lblhinweis.Click MsgBox(Me.Wichtigerhinweis, MsgBoxStyle.Exclamation) End Sub Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click Me.Close() 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 ' Close Me.Close() Case 1 Case 2 Case 3 Dim f As New frmDokumentpaketInfo() f.Key = Me.Dokumentpaketnr f.ShowDialog() f.Dispose() End Select End Sub Private Sub btnWeiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWeiter.Click Dim i As Integer Try While Me.MarkierteDT.Count > 0 Me.MarkierteDT.Remove(1) End While Catch End Try For i = 0 To Me.DokList.Splits(0).Rows.Count - 1 If Me.DokList.Columns(2).CellValue(i) = 2 Then Me.MarkierteDT.Add(Me.DokList.Columns("dokumenttypnr").CellValue(i)) End If Next Me.CurrentRow = 0 Dokumente_Abarbeiten(False) End Sub Private Sub frmDokumentpaket_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing If Me.DokList.Enabled = False Then Exit Sub Dim dp_unfertig As Boolean = False Dim i As Integer Dim shaken As String = "" For i = 0 To Me.DokList.Splits(0).Rows.Count - 1 Me.DokList.Bookmark = i If Me.DokList.Columns("Haken").Value > 1 Then dp_unfertig = True If Me.DokList.Columns("Haken").Value > 0 Then If shaken <> "" Then shaken = shaken + ";" shaken = shaken + LTrim(Str(Me.DokList.Columns("Haken").Value)) End If Next If dp_unfertig Then Dim msgresult As Integer msgresult = MyMsg.Show_MessageYesNoCancel(411) Select Case msgresult Case MsgBoxResult.No Exit Sub Case MsgBoxResult.Cancel e.Cancel = True Exit Sub Case MsgBoxResult.Yes Me.Dokumenttypnummern = "" For Each i In Me.ColDokumenttypNr If Me.Dokumenttypnummern <> "" Then Me.Dokumenttypnummern = Me.Dokumenttypnummern + ";" Me.Dokumenttypnummern = Me.Dokumenttypnummern + LTrim(Str(i)) Next Dim dpi As New edokadb.clsEdex_dpinstanz() dpi.cpMainConnectionProvider = conn If Me.dp_instanznr <> 0 Then Try dpi.iNreintrag = New SqlInt32(CType(Me.dp_instanznr, Int32)) dpi.SelectOne() dpi.sDokumentpaketnummern = New SqlString(CType(Me.Dokumenttypnummern, String)) dpi.sHacken = New SqlString(CType(shaken, String)) dpi.iProfilnr = New SqlInt32(CType(Me.Profilnr, Int32)) conn.OpenConnection() dpi.Update() conn.CloseConnection(True) Catch MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten.") End Try Else Try dpi.sDokumentpaketnummern = New SqlString(CType(Me.Dokumenttypnummern, String)) dpi.sHacken = New SqlString(CType(shaken, String)) dpi.bIndividuellesDP = New SqlBoolean(CType(Me.IndividuellesDP, Boolean)) dpi.daErstellt_am = New SqlDateTime(CType(Now(), DateTime)) dpi.iDokumentpaketnr = New SqlInt32(CType(Me.Dokumentpaketnr, Int32)) dpi.iMitarbeiternr = New SqlInt32(CType(Globals.MitarbeiterNr, Int32)) dpi.iNrpar00 = New SqlInt32(CType(Me.NrPar00, Int32)) dpi.iProfilnr = New SqlInt32(CType(Me.Profilnr, Int32)) conn.OpenConnection() dpi.Insert() conn.CloseConnection(True) Catch ex As Exception MsgBox(ex.Message) MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten.") End Try End If End Select End If End Sub #End Region #Region "Contextmenu" Private Sub MnuMark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuMark.Click If Me.DokList.Columns("Erstellung").Value = 1 And Me.DokList.Columns("Aktiv").Value = 1 Then Dim i i = Me.DokList.Bookmark Me.DokList.Columns("Haken").Value = 2 Try Me.DokList.Bookmark = Me.DokList.Bookmark - 1 Catch End Try Try Me.DokList.Bookmark = Me.DokList.Bookmark + 1 Catch End Try Me.DokList.Bookmark = i End If End Sub Private Sub MnuUnmark_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuUnmark.Click If Me.DokList.Columns("Erstellung").Value = 1 And Me.DokList.Columns("Aktiv").Value = 1 Then Dim i i = Me.DokList.Bookmark Me.DokList.Columns("Haken").Value = 1 Try Me.DokList.Bookmark = Me.DokList.Bookmark - 1 Catch End Try Try Me.DokList.Bookmark = Me.DokList.Bookmark + 1 Catch End Try Me.DokList.Bookmark = i End If End Sub Private Sub MnuShowDoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuShowDoc.Click If Microsoft.VisualBasic.Left(Me.DokList.Columns("Dokumentid").Value, 3) = "OFF" Then Dim t As DataTable t = DivFnkt.Berechtigte_Mitarbeiter(0, Globals.MitarbeiterNr, 0, Me.DokList.Columns("dokumentid").Value, 1, 0, 0, 0, "") If t.Rows.Count = 0 Then MyMsg.show_standardmessage(43, MsgBoxStyle.Critical) Exit Sub End If DivFnkt.ShowDoc(Me.DokList.Columns("dokumentid").Value, Me) Else Dim dt As DataTable Dim t As DataTable dt = get_uvmdaten() t = DivFnkt.Berechtigte_Mitarbeiter(0, Globals.MitarbeiterNr, 0, Me.DokList.Columns("dokumentid").Value, 1, 0, 0, 0, "") If t.Rows.Count = 0 Then MyMsg.show_standardmessage(43, MsgBoxStyle.Critical) Exit Sub End If DivFnkt.Erstellungsdatum = dt.Rows(0).Item("dmers00") DivFnkt.Belegart = "UVM" DivFnkt.UVMZVDokumenttyp = dt.Rows(0).Item("nrdot00") DivFnkt.ShowColdDocHost(dt.Rows(0).Item("nrdoc00"), Me.ParentForm, dt.Rows(0).Item("nrdoc00"), _ dt.Rows(0).Item("nrpar00"), "", dt.Rows(0).Item("doktyp")) End If End Sub Public Function get_uvmdaten() As DataTable Dim scmCmdToExecute As SqlCommand = New SqlCommand() Dim dtToReturn As DataTable = New DataTable() Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute) scmCmdToExecute.CommandText = "dbo.edex_sp_get_uvmdata" scmCmdToExecute.CommandType = CommandType.StoredProcedure scmCmdToExecute.Connection = conn.scoDBConnection Try scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumenttypnr").Value)) scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentit", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DokList.Columns("dokumentid").Value)) sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception ' // some error occured. Bubble it to caller and encapsulate Exception object Throw New Exception("Dokument_Information_Wert::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub MnuTrefferliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuTrefferliste.Click Try Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Dim t As DataTable t = Generic_Select(4) 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(Me.DokList.Columns("Dokumentid").Text, t.Rows(0).Item("dokumentart")) Me.Cursor = System.Windows.Forms.Cursors.Default End If Catch End Try End Sub Private Sub MnuAddDok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuAddDok.Click Dim f As New frmVorlagenauswahl() f.ToolBar1.Buttons(2).Pushed = True 'Me.savedata = Me.DokList.DataSource f.TVStruktur.ImageList = Me.ImageList3 f.edex_vorlagenauswahl = True f.ShowDialog() If f.Dokumentvorlage = 0 Then Exit Sub Dim d As DataTable Dim i As Integer d = Me.DokList.DataSource For i = 0 To d.Rows.Count - 1 If d.Rows(i).Item("dokumenttypnr") = f.Dokumentvorlage Then MsgBox("Diese Dokumentvorlage ist im Paket bereits vorhanden.", MsgBoxStyle.Information) Exit Sub End If Next Me.ColDokumenttypNr.Add(f.Dokumentvorlage) Dim rowvals(4) As Object rowvals(0) = "0" rowvals(1) = Str(f.Dokumentvorlage) rowvals(2) = 1 rowvals(3) = f.TVStruktur.SelectedNode.ImageIndex rowvals(4) = f.TVStruktur.SelectedNode.Text If Me.IndividuellesDP = False Then Me.saveasidvDP = True d.Rows.Add(rowvals) Me.DokList.DataSource = Nothing Me.DokList.DataMember = Nothing Me.DokList.DataSource = d Me.DokList.DataMember = d.TableName Me.Refresh_data() End Sub Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click Dim f As New frmDokumenttypInfo() Try f.Key = Me.DokList.Columns("Dokumenttypnr").Text f.Text = f.Text + " " + Me.DokList.Columns("stext").Text f.ShowDialog() Catch Finally f.Dispose() End Try End Sub Private Sub mnuDPKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDPKopieren.Click Dim f As frmDokumentpaketdefinition If Me.IndividuellesDP Then f = New frmDokumentpaketdefinition(False, Me.Dokumentpaketnr, True) Else f = New frmDokumentpaketdefinition(False, Me.Dokumentpaketnr, True) End If f.Kopie = True f.ShowDialog() f.Dispose() End Sub Private Sub ContextMenuDokTyp_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenuDokTyp.Popup If Me.IndividuellesDP = True Then Me.MnuVerwaltung.Visible = True Me.mnusaveStandard.Visible = False Else Me.mnusaveStandard.Visible = True Me.MnuVerwaltung.Visible = False End If If Me.DokList.Columns("Erstellung").Value = 1 Then Me.MnuMark.Enabled = True Me.MnuUnmark.Enabled = True Else Me.MnuMark.Enabled = False Me.MnuUnmark.Enabled = False End If End Sub Private Sub MnuSaveAs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuSaveAs.Click, mnusaveStandard.Click Dim i As Integer Me.Dokumenttypnummern = "" For Each i In Me.ColDokumenttypNr If Me.Dokumenttypnummern <> "" Then Me.Dokumenttypnummern = Me.Dokumenttypnummern + ";" Me.Dokumenttypnummern = Me.Dokumenttypnummern + LTrim(Str(i)) Next If Me.IndividuellesDP = False Then Dim f As New frmDokumentpaketdefinition(True, Me.Dokumentpaketnr, True, Me.Dokumenttypnummern) Cursor = Cursors.WaitCursor f.ShowDialog() Cursor = Cursors.Default Else Cursor = Cursors.WaitCursor Application.DoEvents() Dim f As New frmDokumentpaketdefinition(False, Me.Dokumentpaketnr, True, Me.Dokumenttypnummern) f.Visible = False f.Width = 1 f.Height = 1 Cursor = Cursors.WaitCursor Application.DoEvents() f.Show() Cursor = Cursors.WaitCursor Application.DoEvents() f.Hide() Cursor = Cursors.WaitCursor Application.DoEvents() If f.FormValidator(False) = False Then Cursor = Cursors.Default f.Visible = True f.Refresh() Exit Sub Else Cursor = Cursors.WaitCursor Application.DoEvents() f.Save_Dokumentpaket() Cursor = Cursors.Default MyMsg.show_standardmessage(412, MsgBoxStyle.Information) f.Dispose() End If End If End Sub #End Region #Region "Dokumentbearbeitung" Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick, Timer2.Tick Me.Timer2.Enabled = False Dim s As String Try Dim i2 As Integer For i2 = 1 To Globals.DP_Collection.Count If Globals.DP_Collection.Item(i2) = Me.dokumentid Then Exit Sub Next Catch s = "" End Try If Me.dokumentid = "" Then Exit Sub Me.Timer1.Enabled = False Dim EndeBearbeitung As Boolean = False If Me.dokumentid = "Timer2HandleED" Then EndeBearbeitung = True Me.dokumentid = "" Me.InBearbeitung = False Dim i As Integer Dim i1 As Integer Dim bm As Boolean bm = Me.DokList.Bookmark For i = 1 To Me.MarkierteDT.Count Try If Me.MarkierteDT.Item(i) = Me.DokumenttypInBearbeitung Then Me.MarkierteDT.Remove(i) If Me.MarkierteDT.Count < 1 Then Me.MarkierteDT.Add("999999") i = i - 1 End If Catch End Try Next Me.Refresh_data() Me.DokList.Bookmark = bm Dim gg As DataTable = Me.DokList.DataSource For Each i In Me.MarkierteDT For i1 = 0 To gg.Rows.Count - 1 If gg.Rows(i1).Item("Dokumentid") = "0" And gg.Rows(i1).Item("dokumenttypnr") = i Then gg.Rows(i1).Item("haken") = 2 End If Next Next Me.DokList.DataSource = gg If EndeBearbeitung = True Then If Me.MarkierteDT.Count = 1 And Me.MarkierteDT.Item(1) = 999999 Then Me.lblabgeschlossen.Visible = True If Me.DP_Instanz = True Then delete_gespeicherte_dpinstanz(Me.dp_instanznr) End If End If Exit Sub End If Me.Dokumente_Abarbeiten(True) End Sub Public Function delete_gespeicherte_dpinstanz(ByVal dp_instanznr As Integer) Dim scmCmdToExecute As SqlCommand = New SqlCommand() scmCmdToExecute.CommandText = "edex_sp_dpinstanz" 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("@dpinstanznr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dp_instanznr)) scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2)) scmCmdToExecute.Connection = conn.scoDBConnection Try sdaAdapter.Fill(dtToReturn) Return dtToReturn Catch ex As Exception Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex) Finally scmCmdToExecute.Dispose() sdaAdapter.Dispose() End Try End Function Private Sub Dokumente_Abarbeiten(ByVal check_bearbeitungsende As Boolean) Dim i As Integer Dim showbc As Boolean ' Me.savedata = Me.DokList.DataSource Dim dt As New edokadb.clsDokumenttyp() dt.cpMainConnectionProvider = conn Globals.bckdokument = False For i = 0 To Me.DokList.Splits(0).Rows.Count - 1 If Me.DokList.Columns(2).CellValue(i) = 2 Then dt.iDokumenttypnr = New SqlInt32(CType(Me.DokList.Columns("dokumenttypnr").CellValue(i), Int32)) dt.cpMainConnectionProvider = conn dt.SelectOne() If dt.bAktiv.Value = True Then If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = False Then showbc = True If dt.bDokument_wird_retourniert.Value = True And dt.bDokument_wird_erstellt.Value = True Then Dim f As New frmbcquestion() f.ShowDialog() If f.DialogResult = DialogResult.Abort Then showbc = True If f.DialogResult = DialogResult.OK Then showbc = False f.Dispose() End If If showbc Then Dim f As New frmBarcodeKleber() f.TopMost = True f.ShowDialog() If f.DialogResult = DialogResult.Abort Then Exit Sub Else If f.DialogResult = DialogResult.OK Then Me.barcodeid = f.BarcodeID Globals.bckdokument = True Else End If End If End If Me.DokList.Bookmark = i Me.DokumenttypInBearbeitung = dt.iDokumenttypnr.Value dt.SelectOne() If Globals.bckdokument = True Then If barcodedokument_erstellen(Me.barcodeid) = True Then Me.DokList.Bookmark = i Me.DokList.Columns(2).Value = 1 Me.InBearbeitung = False showbc = False Globals.bckdokument = False Me.dokumentid = "Timer2HandleBC" Me.Timer2.Enabled = True Exit Sub End If Else If dt.bNurnative.Value = True Then If einzeldokument_erstellen() = True Then Me.DokList.Bookmark = i Me.DokList.Columns(2).Value = 1 Me.InBearbeitung = False MyMsg.show_standardmessage(413, MsgBoxStyle.Information) Me.dokumentid = "Timer2HandleED" Me.Timer2.Enabled = True Exit Sub End If Else If normaldokument_erstellen(i) = True Then Me.DokList.Bookmark = i Me.DokList.Columns(2).Value = 3 Me.InBearbeitung = True Me.Timer1.Enabled = True End If End If Exit For End If Else MsgBox("Der ausgewählte Dokumenttyp '" + dt.sBezeichnung.Value + "' ist nicht mehr aktiv.", MsgBoxStyle.Information) End If End If Next dt.Dispose() Me.CurrentRow = i Try If Me.MarkierteDT.Count = 1 And Me.MarkierteDT.Item(1) = 999999 And Me.InBearbeitung = False Then Me.lblabgeschlossen.Visible = True If Me.DP_Instanz = True Then delete_gespeicherte_dpinstanz(Me.dp_instanznr) End If Else Me.lblabgeschlossen.Visible = False End If Catch Me.lblabgeschlossen.Visible = False End Try End Sub Private Function barcodedokument_erstellen(ByVal barcodeid As String) As Boolean Cursor = Cursors.WaitCursor Dim fI As New frmDokumentbearbeitungBC() fI.Edex_Folgestatus = Me.cbdokumentstatus.SelectedIndex fI.Profile = Me.Profile fI.Profilnr = Me.Profilnr fI.Partnernr = Me.NrPar00 fI.BarcodeID = barcodeid fI.Dokumenttypnr = Me.DokList.Columns("dokumenttypnr").Text fI.CreateDocument = True Me.Cursor = Cursors.Default fI.ShowDialog() fI.Dispose() Return True End Function Private Function einzeldokument_erstellen() As Boolean Cursor = Cursors.WaitCursor Dim fI As New frmDokumentbearbeitungED() fI.Profile = Me.Profile fI.Profilnr = Me.Profilnr fI.Partnernr = Me.NrPar00 fI.Dokumenttypnr = Me.DokList.Columns("dokumenttypnr").Text fI.CreateDocument = True Me.Cursor = Cursors.Default fI.ShowDialog() fI.Dispose() Return True End Function Private Function normaldokument_erstellen(ByVal colrow As Integer) As Boolean Cursor = Cursors.WaitCursor() Dim fI As New frmDokumentbearbeitung() fI.Edex_Folgestatus = Me.cbdokumentstatus.SelectedIndex fI.Profile = Me.Profile fI.Profilnr = Me.Profilnr fI.Partnernr = Me.NrPar00 fI.Dokumenttypnr = Me.DokList.Columns("dokumenttypnr").CellValue(colrow) fI.CreateDocument = True Me.Cursor = Cursors.Default fI.ShowDialog() If fI.w.DokumentID <> "" Then Me.dokumentid = fI.w.DokumentID Globals.DP_Collection.Add(Me.dokumentid) fI.Dispose() Return True Else fI.Dispose() Return False End If End Function #End Region Private Sub mnuDPMAKopieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDPMAKopieren.Click Dim ma As New frmMitarbeiterSelektion() Dim i As Integer i = ma.ShowDialog() If Not i = DialogResult.OK Then Exit Sub End If i = ma.Mitarbeiternr ma.Dispose() Dim f As frmDokumentpaketdefinition f = New frmDokumentpaketdefinition(Me.Dokumentpaketnr, i) f.Show() f.Dispose() MyMsg.show_standardmessage(415, MsgBoxStyle.Information) End Sub Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click Globals.HTMLHelp.ShowHelpToc("dokumentpaketdialog") End Sub End Class