Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel

Public Class frmMeldungen
    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 meldunglist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton5 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton6 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton7 As System.Windows.Forms.ToolBarButton
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents LabelVon As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents LabelDatum As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents LabelBetreff As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents LabelAn As System.Windows.Forms.Label
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents cbstellvertreter As System.Windows.Forms.ComboBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents BtnHelp As System.Windows.Forms.Button
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents LblDatumDokInfo As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMeldungen))
        Me.ToolBar1 = New System.Windows.Forms.ToolBar
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton5 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton6 = New System.Windows.Forms.ToolBarButton
        Me.ToolBarButton7 = New System.Windows.Forms.ToolBarButton
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.meldunglist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.MenuItem6 = New System.Windows.Forms.MenuItem
        Me.MenuItem5 = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.Splitter1 = New System.Windows.Forms.Splitter
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Panel2 = New System.Windows.Forms.Panel
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.LblDatumDokInfo = New System.Windows.Forms.Label
        Me.Label6 = New System.Windows.Forms.Label
        Me.Label4 = New System.Windows.Forms.Label
        Me.Button3 = New System.Windows.Forms.Button
        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker
        Me.Button2 = New System.Windows.Forms.Button
        Me.LabelAn = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.LabelDatum = New System.Windows.Forms.Label
        Me.Label5 = New System.Windows.Forms.Label
        Me.LabelBetreff = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.LabelVon = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.Button1 = New System.Windows.Forms.Button
        Me.cbstellvertreter = New System.Windows.Forms.ComboBox
        Me.BtnHelp = New System.Windows.Forms.Button
        CType(Me.meldunglist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.SuspendLayout()
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7})
        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(800, 28)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Name = "ToolBarButton1"
        Me.ToolBarButton1.ToolTipText = "Fenster schliessen"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Name = "ToolBarButton2"
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 5
        Me.ToolBarButton3.Name = "ToolBarButton3"
        Me.ToolBarButton3.ToolTipText = "Alle Meldungen anzeigen"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 1
        Me.ToolBarButton4.Name = "ToolBarButton4"
        Me.ToolBarButton4.ToolTipText = "Nicht gelesene Meldungen"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 2
        Me.ToolBarButton5.Name = "ToolBarButton5"
        Me.ToolBarButton5.ToolTipText = "gelesene Meldungen"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 3
        Me.ToolBarButton6.Name = "ToolBarButton6"
        Me.ToolBarButton6.ToolTipText = "gelöschte Meldungen"
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 4
        Me.ToolBarButton7.Name = "ToolBarButton7"
        Me.ToolBarButton7.ToolTipText = "gesendete Meldungen"
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "")
        Me.ImageList1.Images.SetKeyName(1, "")
        Me.ImageList1.Images.SetKeyName(2, "")
        Me.ImageList1.Images.SetKeyName(3, "")
        Me.ImageList1.Images.SetKeyName(4, "")
        Me.ImageList1.Images.SetKeyName(5, "")
        '
        'meldunglist
        '
        Me.meldunglist.AlternatingRows = True
        Me.meldunglist.ContextMenu = Me.ContextMenu1
        Me.meldunglist.Dock = System.Windows.Forms.DockStyle.Top
        Me.meldunglist.FilterBar = True
        Me.meldunglist.GroupByCaption = "Drag a column header here to group by that column"
        Me.meldunglist.Images.Add(CType(resources.GetObject("meldunglist.Images"), System.Drawing.Image))
        Me.meldunglist.Location = New System.Drawing.Point(0, 28)
        Me.meldunglist.Name = "meldunglist"
        Me.meldunglist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.meldunglist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.meldunglist.PreviewInfo.ZoomFactor = 75
        Me.meldunglist.PrintInfo.PageSettings = CType(resources.GetObject("meldunglist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.meldunglist.Size = New System.Drawing.Size(800, 201)
        Me.meldunglist.TabIndex = 1
        Me.meldunglist.Text = "C1TrueDBGrid1"
        Me.meldunglist.PropBag = resources.GetString("meldunglist.PropBag")
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4, Me.MenuItem6, Me.MenuItem5, Me.MenuItem7})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "&Als ungelesen markieren"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "&Als gelesen markieren"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "&Meldung löschen"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 4
        Me.MenuItem6.Text = "-"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 5
        Me.MenuItem5.Text = "&Weiterleiten"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 6
        Me.MenuItem7.Text = "&Neue Meldung erstellen"
        '
        'Splitter1
        '
        Me.Splitter1.Dock = System.Windows.Forms.DockStyle.Top
        Me.Splitter1.Location = New System.Drawing.Point(0, 229)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(800, 3)
        Me.Splitter1.TabIndex = 2
        Me.Splitter1.TabStop = False
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.TextBox1)
        Me.Panel1.Controls.Add(Me.Panel2)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.Panel1.Location = New System.Drawing.Point(0, 232)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(800, 325)
        Me.Panel1.TabIndex = 3
        '
        'TextBox1
        '
        Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.TextBox1.Location = New System.Drawing.Point(0, 80)
        Me.TextBox1.Multiline = True
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(800, 245)
        Me.TextBox1.TabIndex = 2
        '
        'Panel2
        '
        Me.Panel2.Controls.Add(Me.GroupBox1)
        Me.Panel2.Controls.Add(Me.Button2)
        Me.Panel2.Controls.Add(Me.LabelAn)
        Me.Panel2.Controls.Add(Me.Label1)
        Me.Panel2.Controls.Add(Me.LabelDatum)
        Me.Panel2.Controls.Add(Me.Label5)
        Me.Panel2.Controls.Add(Me.LabelBetreff)
        Me.Panel2.Controls.Add(Me.Label3)
        Me.Panel2.Controls.Add(Me.LabelVon)
        Me.Panel2.Controls.Add(Me.Label2)
        Me.Panel2.Controls.Add(Me.Button1)
        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
        Me.Panel2.Location = New System.Drawing.Point(0, 0)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(800, 80)
        Me.Panel2.TabIndex = 1
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.LblDatumDokInfo)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Button3)
        Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
        Me.GroupBox1.Location = New System.Drawing.Point(496, 4)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(304, 72)
        Me.GroupBox1.TabIndex = 25
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Überfällig-Meldung"
        Me.GroupBox1.Visible = False
        '
        'LblDatumDokInfo
        '
        Me.LblDatumDokInfo.Location = New System.Drawing.Point(128, 48)
        Me.LblDatumDokInfo.Name = "LblDatumDokInfo"
        Me.LblDatumDokInfo.Size = New System.Drawing.Size(112, 16)
        Me.LblDatumDokInfo.TabIndex = 28
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(8, 24)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(96, 16)
        Me.Label6.TabIndex = 27
        Me.Label6.Text = "nächste Meldung:"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(8, 48)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(136, 16)
        Me.Label4.TabIndex = 26
        Me.Label4.Text = "in Dok.info. gespeichert:"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(224, 16)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(72, 24)
        Me.Button3.TabIndex = 25
        Me.Button3.Text = "Speichern"
        '
        'DateTimePicker1
        '
        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
        Me.DateTimePicker1.Location = New System.Drawing.Point(128, 20)
        Me.DateTimePicker1.Name = "DateTimePicker1"
        Me.DateTimePicker1.Size = New System.Drawing.Size(88, 20)
        Me.DateTimePicker1.TabIndex = 23
        '
        'Button2
        '
        Me.Button2.Enabled = False
        Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
        Me.Button2.Location = New System.Drawing.Point(0, 53)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(24, 23)
        Me.Button2.TabIndex = 21
        '
        'LabelAn
        '
        Me.LabelAn.Location = New System.Drawing.Point(56, 24)
        Me.LabelAn.Name = "LabelAn"
        Me.LabelAn.Size = New System.Drawing.Size(200, 16)
        Me.LabelAn.TabIndex = 20
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 24)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(48, 16)
        Me.Label1.TabIndex = 19
        Me.Label1.Text = "An:"
        '
        'LabelDatum
        '
        Me.LabelDatum.Location = New System.Drawing.Point(312, 8)
        Me.LabelDatum.Name = "LabelDatum"
        Me.LabelDatum.Size = New System.Drawing.Size(112, 16)
        Me.LabelDatum.TabIndex = 18
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(256, 8)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(48, 16)
        Me.Label5.TabIndex = 17
        Me.Label5.Text = "Datum:"
        '
        'LabelBetreff
        '
        Me.LabelBetreff.Location = New System.Drawing.Point(104, 56)
        Me.LabelBetreff.Name = "LabelBetreff"
        Me.LabelBetreff.Size = New System.Drawing.Size(384, 16)
        Me.LabelBetreff.TabIndex = 16
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(56, 56)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(40, 16)
        Me.Label3.TabIndex = 15
        Me.Label3.Text = "Betreff"
        '
        'LabelVon
        '
        Me.LabelVon.Location = New System.Drawing.Point(56, 8)
        Me.LabelVon.Name = "LabelVon"
        Me.LabelVon.Size = New System.Drawing.Size(200, 16)
        Me.LabelVon.TabIndex = 14
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(8, 8)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(48, 16)
        Me.Label2.TabIndex = 12
        Me.Label2.Text = "Von:"
        '
        'Button1
        '
        Me.Button1.Enabled = False
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.Location = New System.Drawing.Point(24, 53)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(24, 23)
        Me.Button1.TabIndex = 10
        '
        'cbstellvertreter
        '
        Me.cbstellvertreter.Location = New System.Drawing.Point(150, 2)
        Me.cbstellvertreter.Name = "cbstellvertreter"
        Me.cbstellvertreter.Size = New System.Drawing.Size(179, 21)
        Me.cbstellvertreter.TabIndex = 22
        Me.cbstellvertreter.Text = "ComboBox1"
        '
        'BtnHelp
        '
        Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
        Me.BtnHelp.Location = New System.Drawing.Point(776, 2)
        Me.BtnHelp.Name = "BtnHelp"
        Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
        Me.BtnHelp.TabIndex = 36
        '
        'frmMeldungen
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(800, 557)
        Me.Controls.Add(Me.BtnHelp)
        Me.Controls.Add(Me.cbstellvertreter)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.meldunglist)
        Me.Controls.Add(Me.ToolBar1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmMeldungen"
        Me.Text = "EDOKA-Meldungen"
        CType(Me.meldunglist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.Panel1.PerformLayout()
        Me.Panel2.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

#Region "Deklarationen"
    Dim meldungen As New DataTable()
    Dim datentyp As Integer
    Dim WithEvents MCBSTV As MultiComboBox
    Dim On_Load As Boolean = True

    Dim empfaenger As Integer
    Dim meldungstext As String
    Dim betreff As String
    Dim dokumentid As String
    Dim bWithDokID As Boolean
    Public Event NeueMeldung()
    Dim Meldungsnr As Integer
    Dim WithEvents MyTimer As New System.Timers.Timer(700000)
#End Region

#Region " Eigenschaften"
    WriteOnly Property propDokID() As String
        Set(ByVal Value As String)
            dokumentid = Value
        End Set
    End Property

    WriteOnly Property propMeldungText() As String
        Set(ByVal Value As String)
            meldungstext = Value
        End Set
    End Property

    WriteOnly Property propEmpfaenger() As Integer
        Set(ByVal Value As Integer)
            empfaenger = Value
        End Set
    End Property

    WriteOnly Property propBetreff() As String
        Set(ByVal Value As String)
            betreff = Value
        End Set
    End Property

    WriteOnly Property propWithDokID() As Boolean
        Set(ByVal Value As Boolean)
            bWithDokID = Value
        End Set
    End Property

#End Region

#Region "Datenzugriffe"
    Public Function Generic_Select(ByVal typ As Integer) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Select Case typ
            Case 1
                scmCmdToExecute.CommandText = "dbo.SP_message_getmessage"
            Case 2
                scmCmdToExecute.CommandText = "dbo.SP_message_setgelesen"
            Case 3
                scmCmdToExecute.CommandText = "dbo.SP_message_setungelesen"
            Case 4
                scmCmdToExecute.CommandText = "dbo.SP_message_setgeloescht"
            Case 5
                scmCmdToExecute.CommandText = "dbo.SP_message_insert"
            Case 6
                scmCmdToExecute.CommandText = "dbo.SP_message_insert"
            Case 7
                scmCmdToExecute.CommandText = "dbo.SP_message_getPartner_Profil"
            Case 8
                scmCmdToExecute.CommandText = "dbo.SP_message_getstellvertreter"
            Case Else
        End Select
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            Select Case typ
                Case 1
                    If Me.MCBSTV.SelectedValue Is System.DBNull.Value Or Me.MCBSTV.SelectedValue = Nothing Then
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    Else
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.MCBSTV.SelectedValue))
                    End If
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.datentyp))
                Case 2
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@messagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Meldungsnr))
                Case 3
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@messagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Meldungsnr))
                Case 4
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@messagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Meldungsnr))
                Case 5
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@absender", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldungstext))
                    If Me.Button1.Enabled = True Or bWithDokID = True Then
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                    Else
                        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    End If
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@weiterleiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Case 6
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@absender", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, empfaenger))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldungstext))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@weiterleiten", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Case 7
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case 8
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case Else
            End Select
            If typ = 1 Then
            End If
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try

    End Function

#End Region

#Region "Formularhandling"
    Private Sub frmMeldungen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim stv As New DataTable()
        stv = Generic_Select(8)
        Me.MCBSTV = New MultiComboBox(Me.cbstellvertreter)
        Me.MCBSTV.CheckNullValue = True
        Me.MCBSTV.NullValueMessage = MyTxt.gettext(18)
        Me.MCBSTV.DisplayColumnName = "Mitarbeiter"
        Me.MCBSTV.ValueColumnName = "mitarbeiternr"
        Me.MCBSTV.Fill_Data(stv, False)
        Dim ii As Integer
        Dim i As Integer
        ii = Globals.MitarbeiterNr
        Me.MCBSTV.SelectedValue = ii
        Me.MCBSTV.BringToFront()
        Me.cbstellvertreter.SelectedValue = ii
        If stv.Rows.Count > 1 Then
            Me.cbstellvertreter.Visible = True
            Me.MCBSTV.Visible = True
        Else
            Me.cbstellvertreter.Visible = False
            Me.MCBSTV.Visible = False
        End If
        Daten_Aktualisieren(1)
        Dim ttip As New ToolTip()
        ttip.SetToolTip(Me.MCBSTV, Globals.MyTxt.gettext(22008))
        AddHandler MyTimer.Elapsed, AddressOf TimerFired
        On_Load = False
        'MyTimer.Start()
    End Sub
#End Region

#Region "Diverses"
    Private Sub Daten_Aktualisieren(ByVal typ As Integer)
        Me.datentyp = typ
        Me.meldunglist.DataSource = Nothing
        Me.meldungen.Rows.Clear()
        Me.meldungen = Generic_Select(1)
        Me.meldunglist.DataSource = Me.meldungen
        DivFnkt.SpaltenTitel_Aktualisieren(Me.meldunglist, Me.meldungen, "message")

        Dim bmp0 As New Bitmap(Me.ImageList1.Images(1))
        Dim bmp1 As New Bitmap(Me.ImageList1.Images(2))
        Dim bmp2 As New Bitmap(Me.ImageList1.Images(3))
        Dim bmp3 As New Bitmap(Me.ImageList1.Images(4))

        Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
        Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
        v0.DisplayValue = bmp0
        v0.Value = 1

        v1.DisplayValue = bmp1
        v1.Value = 2

        v2.DisplayValue = bmp2
        v2.Value = 3
        v3.DisplayValue = bmp3
        v3.Value = 4
        Me.meldunglist.Columns(0).ValueItems.Values.Add(v0)
        Me.meldunglist.Columns(0).ValueItems.Values.Add(v1)
        Me.meldunglist.Columns(0).ValueItems.Values.Add(v2)
        Me.meldunglist.Columns(0).ValueItems.Values.Add(v3)
        Me.meldunglist.Columns(0).ValueItems.Translate = True
        Me.meldunglist.Enabled = True
    End Sub
#End Region

    Private Sub meldunglist_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles meldunglist.MouseUp
        Try
            Me.TextBox1.Text = Me.meldunglist.Columns("meldung").Text
            Me.LabelVon.Text = Me.meldunglist.Columns("absender").Text
            Me.LabelAn.Text = Me.meldunglist.Columns("empfaenger").Text
            Me.LabelDatum.Text = Me.meldunglist.Columns("erstellt_am").Text
            Me.LabelBetreff.Text = Me.meldunglist.Columns("titel").Text
            Me.GroupBox1.Visible = False

            If Me.meldunglist.Columns("status").Value = 1 Then
                Me.meldunglist.Columns("status").Value = 2
                Me.Meldungsnr = Me.meldunglist.Columns("messagenr").Value
                Generic_Select(2)
            End If
            If Me.meldunglist.Columns("dokumentid").Text <> "" Then
                Me.dokumentid = Me.meldunglist.Columns("dokumentid").Text
                Me.Button1.Enabled = True
                Me.Button2.Enabled = True
                Me.LblDatumDokInfo.Text = ""
                If InStr(Me.LabelBetreff.Text, "Terminerreichung") > 0 Or InStr(Me.LabelBetreff.Text, "überfällig") > 0 Or InStr(Me.LabelBetreff.Text, "Erinnerung") > 0 Then
                    Dim d As New edokadb.clsDokument()
                    d.cpMainConnectionProvider = conn
                    d.sDokumentid = New SqlString(CType(Me.dokumentid, String))
                    d.SelectOne()
                    Dim da As DateTime
                    da = DateAdd(DateInterval.Day, 3, Now)
                    'Rel 3.3
                    '15.11.2004 / BUD
                    Try
                        'Prüfen ob bereits ein Datum in den Dokumentinformationen erfasst ist.
                        If IsDate(d.daErinnerungam.Value) = True And (d.daErinnerungam.Value.ToString) <> "01.01.1900 00:00:00" Then
                            Me.LblDatumDokInfo.Text = d.daErinnerungam.Value.ToShortDateString
                            'Falls das Dokinfo Datum älter oder gleich Heute ist, Vorschlag anzeigen
                            If CDate(d.daErinnerungam.Value.ToShortDateString) <= CDate(Now.ToShortDateString) Then
                                Me.DateTimePicker1.Value = da
                            Else
                                Me.DateTimePicker1.Value = d.daErinnerungam.Value
                            End If

                        Else
                            Me.DateTimePicker1.Value = da
                        End If
                    Catch
                        Me.DateTimePicker1.Value = da
                    End Try
                    Me.GroupBox1.Visible = True
                    d.Dispose()
                End If
            Else
                Me.Button1.Enabled = False
                Me.Button2.Enabled = False
            End If
        Catch
        End Try
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
        Dim I As Integer
        Dim a As Integer
        colRows = Me.meldunglist.SelectedRows
        Dim savebookmark As Integer = Me.meldunglist.Bookmark
        If colRows.Count > 0 Then
            For I = 0 To colRows.Count - 1
                Me.Meldungsnr = Me.meldunglist.Columns("Messagenr").CellValue(colRows(I))
                For a = 0 To Me.meldunglist.Splits(0).Rows.Count - 1
                    If Me.meldunglist.Columns("messagenr").CellValue(a) = Me.Meldungsnr Then
                        Me.meldunglist.Bookmark = a
                        Me.meldunglist.Columns("Status").Value = 2
                        Generic_Select(2)
                    End If
                Next
            Next I
            Me.meldunglist.Bookmark = savebookmark
        Else
            Try
                Me.meldunglist.Columns("status").Value = 2
                Me.Meldungsnr = Me.meldunglist.Columns("messagenr").Value
                Generic_Select(2)
            Catch
            End Try

        End If
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
        Dim I As Integer
        Dim a As Integer
        Dim savebookmark As Integer = Me.meldunglist.Bookmark
        colRows = Me.meldunglist.SelectedRows
        If colRows.Count > 0 Then
            For I = 0 To colRows.Count - 1
                Me.Meldungsnr = Me.meldunglist.Columns("Messagenr").CellValue(colRows(I))
                For a = 0 To Me.meldunglist.Splits(0).Rows.Count - 1
                    If Me.meldunglist.Columns("messagenr").CellValue(a) = Me.Meldungsnr Then
                        Me.meldunglist.Bookmark = a
                        Me.meldunglist.Columns("Status").Value = 1
                        Generic_Select(3)
                    End If
                Next
            Next I
            Me.meldunglist.Bookmark = savebookmark
        Else
            Try
                Me.meldunglist.Columns("status").Value = 1
                Me.Meldungsnr = Me.meldunglist.Columns("messagenr").Value
                Generic_Select(3)
            Catch
            End Try
        End If
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection
        Dim I As Integer
        Dim a As Integer
        Dim savebookmark As Integer = Me.meldunglist.Bookmark
        colRows = Me.meldunglist.SelectedRows
        If colRows.Count > 0 Then
            For I = 0 To colRows.Count - 1
                Me.Meldungsnr = Me.meldunglist.Columns("Messagenr").CellValue(colRows(I))
                For a = 0 To Me.meldunglist.Splits(0).Rows.Count - 1
                    If Me.meldunglist.Columns("messagenr").CellValue(a) = Me.Meldungsnr Then
                        Me.meldunglist.Bookmark = a
                        Me.meldunglist.Columns("Status").Value = 3
                        Generic_Select(4)
                    End If
                Next
            Next I
            Me.meldunglist.Bookmark = savebookmark
        Else
            Try
                Me.meldunglist.Columns("status").Value = 3
                Me.Meldungsnr = Me.meldunglist.Columns("messagenr").Value
                Generic_Select(4)
            Catch
            End Try
        End If
    End Sub

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Dim i As Integer
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0
                Me.Close()
            Case 2
                Me.Daten_Aktualisieren(99)
            Case 3
                Me.Daten_Aktualisieren(1)
            Case 4
                Me.Daten_Aktualisieren(2)
            Case 5
                Me.Daten_Aktualisieren(3)
            Case 6
                Me.Daten_Aktualisieren(4)
            Case Else
        End Select
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim f As New frmMessageWeiterleitung()
        f.TextBox1.Text = ""
        f.TextBox2.Text = "WG:" & Me.meldunglist.Columns("titel").Text
        f.TextBox2.Enabled = False
        f.ShowDialog()
        If f.Empfaenger > 0 Then
            Me.meldungstext = f.Meldungstext + vbCrLf + vbCrLf + vbCrLf + _
                              "---------- Ursprüngliche Nachricht ----------" + vbCrLf + _
                              "Gesendet von: " + Me.meldunglist.Columns("absender").Text + vbCrLf + _
                              "Gesendet am:  " + Me.meldunglist.Columns("erstellt_am").Text + vbCrLf + vbCrLf + vbCrLf + _
                              Me.meldunglist.Columns("meldung").Text
            Me.empfaenger = f.Empfaenger
            Me.betreff = f.TextBox2.Text
            Generic_Select(5)
            f.Dispose()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As DataTable
        t = DivFnkt.Berechtigte_Mitarbeiter(0, Globals.MitarbeiterNr, 0, Me.meldunglist.Columns("dokumentid").Value, 1, 0, 0, 0, "")
        If t.Rows.Count = 0 Then
            MyMsg.show_standardmessage(41, MsgBoxStyle.Critical)
            Exit Sub
        End If
        DivFnkt.ShowDoc(Me.meldunglist.Columns("dokumentid").Value, Me)
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        'Neue Meldung erstellen
        Dim f As New frmMessageWeiterleitung()
        Me.dokumentid = ""
        f.TextBox1.Text = ""
        f.TextBox2.Enabled = True
        f.ShowDialog()
        If f.Empfaenger > 0 Then
            Me.meldungstext = f.Meldungstext
            Me.empfaenger = f.Empfaenger
            Me.betreff = f.TextBox2.Text
            Generic_Select(5)
        End If
    End Sub

    Public Sub TimerFired(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
        Check_NewMessage()
    End Sub

    Private Sub Check_NewMessage()
        Dim t As DataTable
        Me.datentyp = 1
        t = Generic_Select(1)
        If t.Rows.Count > 0 Then
            'RaiseEvent NeueMeldung()

            'Me.WindowState = FormWindowState.Normal
            MyTimer.Stop()
            If MyMsg.Show_MessageYesNo(40) = MsgBoxResult.Yes Then
                Daten_Aktualisieren(1)
                Me.WindowState = FormWindowState.Normal
                MyTimer.Start()
            End If
        End If
        t.Dispose()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
            Dim t As DataTable
            t = Generic_Select(7)
            If t.Rows.Count > 0 Then
                Globals.profilnr = 0
                Dim f As New frmTrefferliste()
                f.MdiParent = Me.MdiParent
                f.Show()
                f.Partner_Eingegeben = True
                f.txtnrpar00.Text = LTrim(t.Rows(0).Item("NRPAR00"))
                f.refresh_list()
                f.PosDok(dokumentid, t.Rows(0).Item("dokumentart"))
                Me.Cursor = System.Windows.Forms.Cursors.Default
            End If
        Catch
        End Try
    End Sub

    Private Sub frmMeldungen_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        '        e.Cancel = True
        '       Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub MCBSTV_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MCBSTV.SelectedValueChanged
        If Not On_Load Then Me.Daten_Aktualisieren(1)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim D As New edokadb.clsDokument()
        Try
            D.cpMainConnectionProvider = conn
            D.sDokumentid = New SqlString(CType(Me.dokumentid, String))
            D.SelectOne()
            D.daErinnerungam = New SqlDateTime(CType(Me.DateTimePicker1.Value, DateTime))
            conn.OpenConnection()
            D.Update()
            conn.CloseConnection(True)
            'Rel 3.3
            '06.12.2004 / BUD
            Dim daDatum As DateTime
            daDatum = CType(Me.DateTimePicker1.Value, DateTime)
            Me.LblDatumDokInfo.Text = daDatum.ToShortDateString ' D.daArchivierungsdatum.ToString
            D.Dispose()
            Me.Button3.Enabled = False
        Catch
        Finally
            D.Dispose()
        End Try

    End Sub

    Private Sub DateTimePicker1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DateTimePicker1.TextChanged
        Me.Button3.Enabled = True
    End Sub

    Private Sub meldunglist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles meldunglist.Click

    End Sub

    Private Sub frmMitarbeitereinstellungen_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.BtnHelp.Left = Me.ToolBar1.Width - Me.BtnHelp.Width
    End Sub

    Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
        Globals.HTMLHelp.ShowHelpToc("edokameldungen")
    End Sub

    Private Sub meldunglist_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles meldunglist.KeyUp
        Try
            Me.TextBox1.Text = Me.meldunglist.Columns("meldung").Text
            Me.LabelVon.Text = Me.meldunglist.Columns("absender").Text
            Me.LabelAn.Text = Me.meldunglist.Columns("empfaenger").Text
            Me.LabelDatum.Text = Me.meldunglist.Columns("erstellt_am").Text
            Me.LabelBetreff.Text = Me.meldunglist.Columns("titel").Text
            Me.GroupBox1.Visible = False

            If Me.meldunglist.Columns("status").Value = 1 Then
                Me.meldunglist.Columns("status").Value = 2
                Me.Meldungsnr = Me.meldunglist.Columns("messagenr").Value
                Generic_Select(2)
            End If
            If Me.meldunglist.Columns("dokumentid").Text <> "" Then
                Me.dokumentid = Me.meldunglist.Columns("dokumentid").Text
                Me.Button1.Enabled = True
                Me.Button2.Enabled = True
                Me.LblDatumDokInfo.Text = ""
                If InStr(Me.LabelBetreff.Text, "Terminerreichung") > 0 Or InStr(Me.LabelBetreff.Text, "überfällig") > 0 Or InStr(Me.LabelBetreff.Text, "Erinnerung") > 0 Then
                    Dim d As New edokadb.clsDokument()
                    d.cpMainConnectionProvider = conn
                    d.sDokumentid = New SqlString(CType(Me.dokumentid, String))
                    d.SelectOne()
                    Dim da As DateTime
                    da = DateAdd(DateInterval.Day, 3, Now)
                    'Rel 3.3
                    '15.11.2004 / BUD
                    Try
                        'Prüfen ob bereits ein Datum in den Dokumentinformationen erfasst ist.
                        If IsDate(d.daErinnerungam.Value) = True And (d.daErinnerungam.Value.ToString) <> "01.01.1900 00:00:00" Then
                            Me.LblDatumDokInfo.Text = d.daErinnerungam.Value.ToShortDateString
                            'Falls das Dokinfo Datum älter oder gleich Heute ist, Vorschlag anzeigen
                            If CDate(d.daErinnerungam.Value.ToShortDateString) <= CDate(Now.ToShortDateString) Then
                                Me.DateTimePicker1.Value = da
                            Else
                                Me.DateTimePicker1.Value = d.daErinnerungam.Value
                            End If

                        Else
                            Me.DateTimePicker1.Value = da
                        End If
                    Catch
                        Me.DateTimePicker1.Value = da
                    End Try
                    Me.GroupBox1.Visible = True
                    d.Dispose()
                End If
            Else
                Me.Button1.Enabled = False
                Me.Button2.Enabled = False
            End If
        Catch
        End Try
    End Sub
End Class