Imports System.Data Imports System.Data.SqlTypes Imports System.Data.SqlClient Imports System.IO Imports System.Runtime.Serialization.Formatters.Binary 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_sik 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 btnaktualisieren As System.Windows.Forms.Button Friend WithEvents ImageList3 As ImageList 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_sik = 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) Me.btnaktualisieren = New System.Windows.Forms.Button() Me.ImageList3 = New System.Windows.Forms.ImageList(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 Me.txtPartnerZusteller.Visible = False ' '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" Me.Label2.Visible = False ' '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_sik 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_sik ' Me.ImageList3_sik.ImageStream = CType(resources.GetObject("ImageList3_sik.ImageStream"), System.Windows.Forms.ImageListStreamer) Me.ImageList3_sik.TransparentColor = System.Drawing.Color.Transparent Me.ImageList3_sik.Images.SetKeyName(0, "") Me.ImageList3_sik.Images.SetKeyName(1, "") Me.ImageList3_sik.Images.SetKeyName(2, "") Me.ImageList3_sik.Images.SetKeyName(3, "") Me.ImageList3_sik.Images.SetKeyName(4, "") Me.ImageList3_sik.Images.SetKeyName(5, "") Me.ImageList3_sik.Images.SetKeyName(6, "") Me.ImageList3_sik.Images.SetKeyName(7, "") Me.ImageList3_sik.Images.SetKeyName(8, "") Me.ImageList3_sik.Images.SetKeyName(9, "") Me.ImageList3_sik.Images.SetKeyName(10, "") Me.ImageList3_sik.Images.SetKeyName(11, "") Me.ImageList3_sik.Images.SetKeyName(12, "") Me.ImageList3_sik.Images.SetKeyName(13, "") Me.ImageList3_sik.Images.SetKeyName(14, "") Me.ImageList3_sik.Images.SetKeyName(15, "") Me.ImageList3_sik.Images.SetKeyName(16, "") Me.ImageList3_sik.Images.SetKeyName(17, "") Me.ImageList3_sik.Images.SetKeyName(18, "") Me.ImageList3_sik.Images.SetKeyName(19, "") Me.ImageList3_sik.Images.SetKeyName(20, "") Me.ImageList3_sik.Images.SetKeyName(21, "") Me.ImageList3_sik.Images.SetKeyName(22, "") Me.ImageList3_sik.Images.SetKeyName(23, "") Me.ImageList3_sik.Images.SetKeyName(24, "") Me.ImageList3_sik.Images.SetKeyName(25, "") Me.ImageList3_sik.Images.SetKeyName(26, "") Me.ImageList3_sik.Images.SetKeyName(27, "") Me.ImageList3_sik.Images.SetKeyName(28, "") Me.ImageList3_sik.Images.SetKeyName(29, "") Me.ImageList3_sik.Images.SetKeyName(30, "") Me.ImageList3_sik.Images.SetKeyName(31, "") Me.ImageList3_sik.Images.SetKeyName(32, "") Me.ImageList3_sik.Images.SetKeyName(33, "") Me.ImageList3_sik.Images.SetKeyName(34, "") Me.ImageList3_sik.Images.SetKeyName(35, "") Me.ImageList3_sik.Images.SetKeyName(36, "") Me.ImageList3_sik.Images.SetKeyName(37, "") Me.ImageList3_sik.Images.SetKeyName(38, "") Me.ImageList3_sik.Images.SetKeyName(39, "") Me.ImageList3_sik.Images.SetKeyName(40, "") Me.ImageList3_sik.Images.SetKeyName(41, "") Me.ImageList3_sik.Images.SetKeyName(42, "") Me.ImageList3_sik.Images.SetKeyName(43, "") Me.ImageList3_sik.Images.SetKeyName(44, "") Me.ImageList3_sik.Images.SetKeyName(45, "") Me.ImageList3_sik.Images.SetKeyName(46, "") Me.ImageList3_sik.Images.SetKeyName(47, "") Me.ImageList3_sik.Images.SetKeyName(48, "") Me.ImageList3_sik.Images.SetKeyName(49, "") Me.ImageList3_sik.Images.SetKeyName(50, "") Me.ImageList3_sik.Images.SetKeyName(51, "") Me.ImageList3_sik.Images.SetKeyName(52, "") Me.ImageList3_sik.Images.SetKeyName(53, "") Me.ImageList3_sik.Images.SetKeyName(54, "") Me.ImageList3_sik.Images.SetKeyName(55, "") Me.ImageList3_sik.Images.SetKeyName(56, "") Me.ImageList3_sik.Images.SetKeyName(57, "") Me.ImageList3_sik.Images.SetKeyName(58, "") Me.ImageList3_sik.Images.SetKeyName(59, "") Me.ImageList3_sik.Images.SetKeyName(60, "") Me.ImageList3_sik.Images.SetKeyName(61, "") Me.ImageList3_sik.Images.SetKeyName(62, "") Me.ImageList3_sik.Images.SetKeyName(63, "") Me.ImageList3_sik.Images.SetKeyName(64, "") Me.ImageList3_sik.Images.SetKeyName(65, "") Me.ImageList3_sik.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.0R 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(461, 18) 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(429, 58) 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 ' 'btnaktualisieren ' Me.btnaktualisieren.Location = New System.Drawing.Point(473, 91) Me.btnaktualisieren.Name = "btnaktualisieren" Me.btnaktualisieren.Size = New System.Drawing.Size(90, 23) Me.btnaktualisieren.TabIndex = 69 Me.btnaktualisieren.Text = "Aktualisieren" Me.btnaktualisieren.Visible = False ' '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, "") Me.ImageList3.Images.SetKeyName(67, "sbo.ico") Me.ImageList3.Images.SetKeyName(68, "pdf.png") Me.ImageList3.Images.SetKeyName(69, "Person1.png") Me.ImageList3.Images.SetKeyName(70, "Partner.png") Me.ImageList3.Images.SetKeyName(71, "pdfform.png") Me.ImageList3.Images.SetKeyName(72, "pdf.png") ' 'frmDokumentpaket ' Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(568, 389) Me.Controls.Add(Me.btnaktualisieren) 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 Dim PartnerPersonGewechselt As Boolean = False Dim IsPdf As Boolean = False 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 'objperson Dim m_avqwerte As AvaloqDokumentWerte Property avqwerte As AvaloqDokumentWerte Get Return m_avqwerte End Get Set(value As AvaloqDokumentWerte) m_avqwerte = value 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 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 If edex_dpinstanznr <> 0 Then get_avq_dokwerte(Me.avqwerte, dp_instanznr) 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 If DivFnkt.Check_Dokumenterstellung(2, Me.Dokumentpaketnr, Me.NrPar00) = 1 Then Me.Close() End If 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 'If DokList.Enabled Then ' If DivFnkt.Check_Dokumenterstellung(2, Me.Dokumentpaketnr, Me.NrPar00) = 1 Then ' Me.Close() ' End If 'End If 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 Try 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 Catch 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 If DivFnkt.Check_Dokumenterstellung(2, Me.Dokumentpaketnr, Me.NrPar00) = 1 Then Me.Close() End If 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 DivFnkt.PartnerTyp(Me.NrPar00) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then '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 Try 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 Catch dd.Rows(i).Item("erstellung") = 1 End Try 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 If Not (IsNothing(Me.avqwerte)) Then 'avqwerte.clearAvaloqDokumentWerte() End If 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 Me.Timer1.Enabled = False Me.Timer2.Enabled = False If Trim(Me.txtPartnerInhaber.Text) = "" Or Me.txtPartnerInhaber.Text.ToString = "NULL" Then MyMsg.show_standardmessage(900003, MsgBoxStyle.Information) Exit Sub End If 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 Public Function save_avq_dokwerte(ByVal What As Object, dpinstanz As Integer) Dim MemStream As New MemoryStream Dim BinWriter As New BinaryWriter(MemStream) Dim BinFormatter As New BinaryFormatter Try BinFormatter.Serialize(BinWriter.BaseStream, What) Catch ex As Exception MsgBox("save_avq_dokwerte " + ex.Message) End Try Dim filename As String filename = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + dpinstanz.ToString + ".aw" Dim s As New FileStream(filename, FileMode.Create, System.IO.FileAccess.Write) MemStream.WriteTo(s) s.Flush() s.Close() BinWriter.Close() Dim dms As New DocMgmt dms.save_avq_werte_to_db(filename, dpinstanz) dms = Nothing End Function Public Function get_avq_dokwerte(ByVal What As Object, dpinstanz As Integer) As Byte() Dim filename As String Dim dms As New DocMgmt filename = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "\" + dpinstanz.ToString + ".aw" dms.Get_avq_werte_from_db(filename, dpinstanz) dms = Nothing Try Dim FS As New System.IO.FileStream(filename, IO.FileMode.OpenOrCreate) Dim BinFormatter As New BinaryFormatter avqwerte = CType(BinFormatter.Deserialize(FS), AvaloqDokumentWerte) Catch End Try End Function 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 paket_loeschen 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() If Not Me.avqwerte Is Nothing Then save_avq_dokwerte(Me.avqwerte, Me.dp_instanznr) End If conn.CloseConnection(True) Catch ex As Exception MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten. " + ex.Message) 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) If Not Me.avqwerte Is Nothing Then save_avq_dokwerte(Me.avqwerte, dpi.iNreintrag.Value) End If Catch ex As Exception MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten." + ex.Message) End Try End If End Select End If End Sub Sub paket_loeschen() Exit Sub Try delete_gespeicherte_dpinstanz(Me.dp_instanznr) Catch End Try End Sub Sub save_paket() Exit Sub 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 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() If Not Me.avqwerte Is Nothing Then save_avq_dokwerte(Me.avqwerte, Me.dp_instanznr) End If conn.CloseConnection(True) Catch ex As Exception MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten. " + ex.Message) 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() Me.dp_instanznr = dpi.iNreintrag.Value conn.CloseConnection(True) If Not Me.avqwerte Is Nothing Then save_avq_dokwerte(Me.avqwerte, dpi.iNreintrag.Value) End If Catch ex As Exception MsgBox("Beim Speichern der Dokumentpaketinstanz ist ein Fehler aufgetreten." + ex.Message) End Try End If 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_sik 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 Me.Timer1.Enabled = False System.Threading.Thread.Sleep(1000) Dim isok As Boolean = False Dim isokcounter As Integer = 0 While isokcounter < 3 'FileOpen(1, "h:\edoka_work\dpdebug.txt", OpenMode.Append) 'WriteLine(1, Now.ToString + ": " + isokcounter.ToString) 'FileClose(1) Try 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 Timer1.Enabled = True Exit Sub End If Next Catch s = "" End Try If Me.dokumentid = "" Then Timer1.Enabled = True Exit Sub End If 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 Try Me.Refresh_data() Catch End Try 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) isokcounter = 10 Exit Sub Catch ex As Exception isokcounter = isokcounter + 1 System.Threading.Thread.Sleep(400) 'FileOpen(1, "h:\edoka_work\dpdebug.txt", OpenMode.Append) 'WriteLine(1, Now.ToString + ": " + ex.Message) 'FileClose(1) End Try Me.btnaktualisieren.Visible = True End While 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 'objperson Private Sub Dokumente_Abarbeiten(ByVal check_bearbeitungsende As Boolean) Dim i As Integer Dim showbc As Boolean Dim dtbezeichnung As String save_paket() ' Me.savedata = Me.DokList.DataSource '20210208 - in den Loop verschoben '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 '20210208 - Jedes Mal eine neue Klasse Dim dt As New edokaDB.clsDokumenttyp() dt.cpMainConnectionProvider = conn dt.iDokumenttypnr = New SqlInt32(CType(Me.DokList.Columns("dokumenttypnr").CellValue(i), Int32)) dt.cpMainConnectionProvider = conn dt.SelectOne() If Not PartnerPersonGewechselt Then Dim f1 As New frmBPPerson Dim res As Integer res = f1.Check_Partner_Doktyp(Me.NrPar00, dt.iDokumenttypnr.Value) If res <> 0 Then f1.nrpar00 = Me.NrPar00 f1.Partnertext = Me.txtPartnerInhaber.Text f1.ShowDialog() If f1.DialogResult = DialogResult.OK Then If f1.nrpar00 <> Me.NrPar00 Then Me.txtPartnerInhaber.Text = Str(f1.nrpar00).ToString + " " + f1.Partnertext Me.txtPartnerZusteller.Text = Me.get_partnerzusteller(f1.nrpar00) Me.PartnerPersonGewechselt = True Me.NrPar00 = f1.nrpar00 'Me.Refresh_data() Else Me.PartnerPersonGewechselt = True End If End If Exit Sub Else f1.Dispose() End If End If Me.PartnerPersonGewechselt = False dtbezeichnung = dt.sBeschreibung.ToString 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 '20190316-CLM-Anpassung Übersteuerung BC-Question If DivFnkt.BC_Uebersteuerung(dt.iDokumenttypnr.Value) = False Then Dim f As New frmbcquestion() f.ShowDialog() If f.DialogResult = DialogResult.Abort Then showbc = True If f.DialogResult = DialogResult.OK Then showbc = False f.Dispose() Else showbc = True End If End If If showbc Then Dim f As New frmBarcodeKleber() f.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() '20210208 - nach unten verschoben 'dt.Dispose() 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 If Me.IsPdf Then Me.DokList.Columns(2).Value = 1 Me.InBearbeitung = False Me.dokumentid = "Timer2HandleED" Me.Timer2.Enabled = True Else Me.DokList.Columns(2).Value = 3 Me.InBearbeitung = True Me.Timer1.Enabled = True End If End If End If Exit For End If dt.Dispose() Else MsgBox("Der ausgewählte Dokumenttyp '" + dtbezeichnung + "' ist nicht mehr aktiv.", MsgBoxStyle.Information) End If Try dt.Dispose() Catch ex As Exception End Try End If Next 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.MdiParent = Me.MdiParent 'fI.Show() 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.avqwerte = Me.avqwerte fI.Dokumenttypnr = Me.DokList.Columns("dokumenttypnr").Text fI.CreateDocument = True Me.Cursor = Cursors.Default 'fI.MdiParent = Me.MdiParent 'fI.Show() 'fI.DoNoEdit() fI.ShowDialog() fI.Dispose() Return True End Function Private Function normaldokument_erstellen(ByVal colrow As Integer) As Boolean Me.IsPdf = False 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 'ObjPerson fI.avqwerte = Me.avqwerte Me.Cursor = Cursors.Default 'fI.MdiParent = Me.MdiParent 'fI.shoq() fI.ShowDialog() If fI.IsPdf = True Then Me.IsPdf = True fI.Dispose() Return True Exit Function End If 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 Private Sub btnWeiter_EnabledChanged(sender As Object, e As EventArgs) Handles btnWeiter.EnabledChanged If btnWeiter.Enabled = True Then btnaktualisieren.Visible = False Else btnaktualisieren.Visible = True End Sub Private Sub btnaktualisieren_Click(sender As Object, e As EventArgs) Handles btnaktualisieren.Click frmDokumentpaket_Load(sender, e) Me.DokList.Enabled = True Me.btnAbbruch.Enabled = True Me.btnWeiter.Enabled = True Me.btnPartnerInhaber.Enabled = True Me.ToolBar1.Enabled = True End Sub End Class