Initial commit

EDOKA/EDEX/Dokumentpakete/frmDokumentpaketInfo.vb

@@ -0,0 +1,366 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.IO
+
+Public Class frmDokumentpaketInfo
+    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 lblBezeichnung As System.Windows.Forms.Label
+    Friend WithEvents txtBezeichnung As System.Windows.Forms.TextBox
+    Friend WithEvents GrpDokumentvorlagen As System.Windows.Forms.GroupBox
+    Friend WithEvents lblOwner As System.Windows.Forms.Label
+    Friend WithEvents txtOwner As System.Windows.Forms.TextBox
+    Friend WithEvents GrpBeschreibung As System.Windows.Forms.GroupBox
+    Friend WithEvents RichTextBoxHS1 As EDOKAApp.RichTextBoxHS
+    Friend WithEvents GrpAllgemein As System.Windows.Forms.GroupBox
+    Friend WithEvents GrpHinweis As System.Windows.Forms.GroupBox
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents ImageList3 As System.Windows.Forms.ImageList
+    Friend WithEvents TreeVorlagen As System.Windows.Forms.TreeView
+    Friend WithEvents PicHinweis As System.Windows.Forms.PictureBox
+    Friend WithEvents txtHinweis As System.Windows.Forms.Label
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmDokumentpaketInfo))
+        Me.lblBezeichnung = New System.Windows.Forms.Label()
+        Me.txtBezeichnung = New System.Windows.Forms.TextBox()
+        Me.GrpDokumentvorlagen = New System.Windows.Forms.GroupBox()
+        Me.TreeVorlagen = New System.Windows.Forms.TreeView()
+        Me.ImageList3 = New System.Windows.Forms.ImageList(Me.components)
+        Me.lblOwner = New System.Windows.Forms.Label()
+        Me.txtOwner = New System.Windows.Forms.TextBox()
+        Me.GrpBeschreibung = New System.Windows.Forms.GroupBox()
+        Me.RichTextBoxHS1 = New EDOKAApp.RichTextBoxHS()
+        Me.GrpAllgemein = New System.Windows.Forms.GroupBox()
+        Me.GrpHinweis = New System.Windows.Forms.GroupBox()
+        Me.txtHinweis = New System.Windows.Forms.Label()
+        Me.PicHinweis = New System.Windows.Forms.PictureBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.GrpDokumentvorlagen.SuspendLayout()
+        Me.GrpBeschreibung.SuspendLayout()
+        Me.GrpAllgemein.SuspendLayout()
+        Me.GrpHinweis.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'lblBezeichnung
+        '
+        Me.lblBezeichnung.Location = New System.Drawing.Point(16, 16)
+        Me.lblBezeichnung.Name = "lblBezeichnung"
+        Me.lblBezeichnung.Size = New System.Drawing.Size(88, 24)
+        Me.lblBezeichnung.TabIndex = 1
+        Me.lblBezeichnung.Text = "Dokumentpaket"
+        '
+        'txtBezeichnung
+        '
+        Me.txtBezeichnung.BackColor = System.Drawing.Color.White
+        Me.txtBezeichnung.Location = New System.Drawing.Point(104, 16)
+        Me.txtBezeichnung.Name = "txtBezeichnung"
+        Me.txtBezeichnung.ReadOnly = True
+        Me.txtBezeichnung.Size = New System.Drawing.Size(368, 20)
+        Me.txtBezeichnung.TabIndex = 2
+        Me.txtBezeichnung.Text = "TextBox1"
+        '
+        'GrpDokumentvorlagen
+        '
+        Me.GrpDokumentvorlagen.Controls.AddRange(New System.Windows.Forms.Control() {Me.TreeVorlagen})
+        Me.GrpDokumentvorlagen.Location = New System.Drawing.Point(8, 160)
+        Me.GrpDokumentvorlagen.Name = "GrpDokumentvorlagen"
+        Me.GrpDokumentvorlagen.Size = New System.Drawing.Size(240, 360)
+        Me.GrpDokumentvorlagen.TabIndex = 3
+        Me.GrpDokumentvorlagen.TabStop = False
+        Me.GrpDokumentvorlagen.Text = "Dokumentvorlagen"
+        '
+        'TreeVorlagen
+        '
+        Me.TreeVorlagen.CheckBoxes = True
+        Me.TreeVorlagen.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TreeVorlagen.ImageList = Me.ImageList3
+        Me.TreeVorlagen.Location = New System.Drawing.Point(3, 16)
+        Me.TreeVorlagen.Name = "TreeVorlagen"
+        Me.TreeVorlagen.Size = New System.Drawing.Size(234, 341)
+        Me.TreeVorlagen.TabIndex = 0
+        '
+        'ImageList3
+        '
+        Me.ImageList3.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
+        Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
+        Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
+        '
+        'lblOwner
+        '
+        Me.lblOwner.Location = New System.Drawing.Point(488, 16)
+        Me.lblOwner.Name = "lblOwner"
+        Me.lblOwner.Size = New System.Drawing.Size(80, 24)
+        Me.lblOwner.TabIndex = 4
+        Me.lblOwner.Text = "Verantwortlich:"
+        '
+        'txtOwner
+        '
+        Me.txtOwner.BackColor = System.Drawing.Color.White
+        Me.txtOwner.Location = New System.Drawing.Point(576, 16)
+        Me.txtOwner.Name = "txtOwner"
+        Me.txtOwner.ReadOnly = True
+        Me.txtOwner.Size = New System.Drawing.Size(208, 20)
+        Me.txtOwner.TabIndex = 5
+        Me.txtOwner.Text = "TextBox1"
+        '
+        'GrpBeschreibung
+        '
+        Me.GrpBeschreibung.Controls.AddRange(New System.Windows.Forms.Control() {Me.RichTextBoxHS1})
+        Me.GrpBeschreibung.Location = New System.Drawing.Point(256, 160)
+        Me.GrpBeschreibung.Name = "GrpBeschreibung"
+        Me.GrpBeschreibung.Size = New System.Drawing.Size(544, 360)
+        Me.GrpBeschreibung.TabIndex = 6
+        Me.GrpBeschreibung.TabStop = False
+        Me.GrpBeschreibung.Text = "Beschreibung"
+        '
+        'RichTextBoxHS1
+        '
+        Me.RichTextBoxHS1.AcceptsTab = True
+        Me.RichTextBoxHS1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.RichTextBoxHS1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.RichTextBoxHS1.Location = New System.Drawing.Point(3, 16)
+        Me.RichTextBoxHS1.Name = "RichTextBoxHS1"
+        Me.RichTextBoxHS1.ReadOnly = True
+        Me.RichTextBoxHS1.Size = New System.Drawing.Size(538, 341)
+        Me.RichTextBoxHS1.TabIndex = 4
+        Me.RichTextBoxHS1.Text = ""
+        '
+        'GrpAllgemein
+        '
+        Me.GrpAllgemein.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtBezeichnung, Me.lblBezeichnung, Me.txtOwner, Me.lblOwner})
+        Me.GrpAllgemein.Location = New System.Drawing.Point(8, 8)
+        Me.GrpAllgemein.Name = "GrpAllgemein"
+        Me.GrpAllgemein.Size = New System.Drawing.Size(800, 48)
+        Me.GrpAllgemein.TabIndex = 7
+        Me.GrpAllgemein.TabStop = False
+        Me.GrpAllgemein.Text = "Allgemeines"
+        '
+        'GrpHinweis
+        '
+        Me.GrpHinweis.Controls.AddRange(New System.Windows.Forms.Control() {Me.txtHinweis, Me.PicHinweis})
+        Me.GrpHinweis.Location = New System.Drawing.Point(8, 64)
+        Me.GrpHinweis.Name = "GrpHinweis"
+        Me.GrpHinweis.Size = New System.Drawing.Size(800, 88)
+        Me.GrpHinweis.TabIndex = 8
+        Me.GrpHinweis.TabStop = False
+        Me.GrpHinweis.Text = "Wichtiger Hinweis"
+        '
+        'txtHinweis
+        '
+        Me.txtHinweis.Location = New System.Drawing.Point(72, 24)
+        Me.txtHinweis.Name = "txtHinweis"
+        Me.txtHinweis.Size = New System.Drawing.Size(720, 56)
+        Me.txtHinweis.TabIndex = 60
+        Me.txtHinweis.Text = "Label1"
+        '
+        'PicHinweis
+        '
+        Me.PicHinweis.Image = CType(resources.GetObject("PicHinweis.Image"), System.Drawing.Bitmap)
+        Me.PicHinweis.Location = New System.Drawing.Point(16, 24)
+        Me.PicHinweis.Name = "PicHinweis"
+        Me.PicHinweis.Size = New System.Drawing.Size(40, 46)
+        Me.PicHinweis.TabIndex = 59
+        Me.PicHinweis.TabStop = False
+        Me.PicHinweis.Visible = False
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(720, 528)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.TabIndex = 9
+        Me.btnOK.Text = "OK"
+        '
+        'frmDokumentpaketInfo
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(802, 557)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnOK, Me.GrpHinweis, Me.GrpAllgemein, Me.GrpBeschreibung, Me.GrpDokumentvorlagen})
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmDokumentpaketInfo"
+        Me.Text = "Informationen zum Dokumentpaket:"
+        Me.GrpDokumentvorlagen.ResumeLayout(False)
+        Me.GrpBeschreibung.ResumeLayout(False)
+        Me.GrpAllgemein.ResumeLayout(False)
+        Me.GrpHinweis.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+#Region "Deklarationen"
+    Dim m_key As Integer
+    Property Key() As Integer
+        Get
+            Return m_key
+        End Get
+        Set(ByVal Value As Integer)
+            m_key = Value
+        End Set
+    End Property
+
+    Dim m_title As String
+    Property Titel() As String
+        Get
+            Return m_title
+        End Get
+        Set(ByVal Value As String)
+            m_title = Value
+
+        End Set
+    End Property
+    Dim on_Load As Boolean = True
+#End Region
+
+#Region "Init_Load"
+    Private Sub frmDokumentpaketInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Dim i As Integer
+        Dim tn As TreeNode
+
+        Me.Text = Me.Text + " " + Me.Titel
+
+        Dim tb As DataTable = Generic_Select(1)
+        If tb.Rows.Count > 0 Then
+            Me.txtBezeichnung.Text = tb.Rows(0).Item("bezeichnung")
+            Me.txtOwner.Text = tb.Rows(0).Item("owner")
+            Me.txtHinweis.Text = tb.Rows(0).Item("wichtigehinweise")
+
+            For i = 0 To tb.Rows.Count - 1
+                tn = Me.TreeVorlagen.Nodes.Add(tb.Rows(i).Item("DTBezeichnung"))
+                tn.Tag = i
+                tn.ImageIndex = tb.Rows(i).Item("imageindex")
+                tn.SelectedImageIndex = tb.Rows(i).Item("imageindex")
+                tn.Checked = tb.Rows(i).Item("zwingend") = 1
+            Next
+
+            Load_Beschreibung()
+
+
+        End If
+        If Me.txtHinweis.Text.Length > 0 Then Me.PicHinweis.Visible = True Else Me.PicHinweis.Visible = False
+        Me.on_Load = False
+    End Sub
+
+
+    Private Sub Load_Beschreibung()
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("Select * From EDEX_dokumentpaket where dokumentpaketnr=" + Str(Me.Key), connection)
+        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+        Dim ds As New DataSet()
+        Dim dokname As String
+        dokname = Globals.Applikationsdaten.Rows(Globals.AppldataRow).Item("pfad_temporaer_dokumente") + "tmp.rtf"
+        Try
+            connection.ConnectionString = Globals.sConnectionString
+            connection.Open()
+            da.Fill(ds, "docbeschreibung")
+            Dim myRow As DataRow
+            myRow = ds.Tables(0).Rows(0)
+            Dim MyData() As Byte
+            MyData = myRow.Item(5)
+            Dim K As Long
+            K = UBound(MyData)
+
+            Dim fs As New FileStream(dokname, FileMode.OpenOrCreate, FileAccess.Write)
+            fs.Write(MyData, 0, K)
+            fs.Close()
+            fs = Nothing
+            Me.RichTextBoxHS1.LoadFile(dokname)
+        Catch ex As Exception
+
+        Finally
+            CB = Nothing
+            ds = Nothing
+            da = Nothing
+            connection.Close()
+            connection = Nothing
+        End Try
+    End Sub
+
+
+
+#End Region
+
+#Region "Datenbank"
+    Private Function Generic_Select(ByVal typ As Integer) As DataTable
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Select Case typ
+            Case 1
+                scmCmdToExecute.CommandText = "edex_sp_dokumentpaketinfo"
+            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("@dpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Key))
+        End Select
+
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+            Throw New Exception("Dokumentpaket::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+#End Region
+
+
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        Me.Close()
+    End Sub
+
+    Dim CheckValue As Boolean
+
+    Private Sub TreeVorlagen_BeforeCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeVorlagen.BeforeCheck
+        If Me.on_Load Then Exit Sub
+        Try
+            e.Cancel = True
+        Catch
+        End Try
+    End Sub
+
+
+    Private Sub TreeVorlagen_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeVorlagen.AfterCheck
+
+    End Sub
+End Class