Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/SW/Dokumente_sik/Dokumente.vb
+++ b/SW/Dokumente_sik/Dokumente.vb
@@ -0,0 +1,445 @@
+Imports System.ComponentModel
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports C1.Win.C1TrueDBGrid
+
+Public Class Dokumente
+
+#Region "Deklarationen"
+
+    Dim SpaltenTitel As New Utils.Tabellenspalte
+    Dim dokumente As New DataTable
+    Dim Dokument As New DMS.clsDok
+#End Region
+
+#Region "Properties"
+    Dim m_ConnectionString As String
+    <DefaultValue("data source=shu00;initial catalog=TIM;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"), Description("ConnectionString"), Category("Options")> _
+    Public Property ConnectionString() As String
+        Get
+            ConnectionString = m_ConnectionString
+        End Get
+        Set(ByVal Value As String)
+            If m_ConnectionString <> Value Then
+                m_ConnectionString = Value
+                Globals.conn.sConnectionString = Value
+                Globals.sConnectionString = Value
+            End If
+        End Set
+    End Property
+
+    Dim m_Themanr As Integer
+    <DefaultValue(1), Description("ThemaNr"), Category("Options")> _
+    Public Property ThemaNr As Integer
+        Get
+            ThemaNr = m_Themanr
+        End Get
+        Set(value As Integer)
+            If m_Themanr <> value Then
+                m_Themanr = value
+                Try
+                    Refresh_Dokumente()
+                Catch
+                End Try
+            End If
+        End Set
+    End Property
+
+    Dim m_Doktype As Integer
+    <DefaultValue(1), Description("Dokumenttype"), Category("Options")> _
+    Public Property Doktype As Integer
+        Get
+            Doktype = m_Doktype
+        End Get
+        Set(value As Integer)
+            If m_Doktype <> value Then
+                m_Doktype = value
+
+            End If
+        End Set
+    End Property
+
+    Dim m_Mitarbeiternr As Integer
+    <DefaultValue(1), Description("Mitarbeiternr"), Category("Options")> _
+    Public Property Mitarbeiternr As Integer
+        Get
+            Mitarbeiternr = m_Mitarbeiternr
+        End Get
+        Set(value As Integer)
+            If m_Mitarbeiternr <> value Then
+                m_Mitarbeiternr = value
+                Globals.Mitarbeiternr = value
+            End If
+        End Set
+    End Property
+
+    Dim m_TempFilePath As String
+    <DefaultValue("h:\tssettings\themenmgmt"), Description("Temp Filepath"), Category("Options")> _
+    Public Property TempFilePath As String
+        Get
+            TempFilePath = m_TempFilePath
+        End Get
+        Set(value As String)
+            If m_TempFilePath <> value Then
+                m_TempFilePath = value
+                Globals.TmpFilepath = value
+            End If
+        End Set
+    End Property
+
+    Dim m_Show_Toolbar As Boolean = True
+    <DefaultValue(True), Description("Dateimenu anzeigen"), Category("Options")> _
+    Public Property Show_Toolbar() As Boolean
+        Get
+            Show_Toolbar = m_Show_Toolbar
+        End Get
+        Set(ByVal Value As Boolean)
+            If m_Show_Toolbar <> Value Then
+                m_Show_Toolbar = Value
+                Set_ShowToolbar()
+            End If
+
+        End Set
+    End Property
+    Dim m_Show_Editfunctions As Boolean = True
+    <DefaultValue(True), Description("Editfunktionen anzeigen"), Category("Options")> _
+    Public Property Show_Editfunctions() As Boolean
+        Get
+            Show_Editfunctions = m_Show_Editfunctions
+        End Get
+        Set(ByVal Value As Boolean)
+            If m_Show_Editfunctions <> Value Then
+                m_Show_Editfunctions = Value
+                Set_EditFunctions()
+            End If
+
+        End Set
+    End Property
+#End Region
+
+    Sub Set_ShowToolbar()
+        If Me.Show_Toolbar = True Then Me.ToolStrip1.Visible = True Else Me.ToolStrip1.Visible = False
+    End Sub
+
+    Sub Set_Editfunctions()
+        If Me.Show_Editfunctions = True Then
+            Me.ToolStripButton1.Visible = True
+            Me.ToolStripButton2.Visible = True
+            Me.ToolStripButton4.Visible = True
+            Me.NeuesDokumentToolStripMenuItem.Visible = True
+            Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = True
+            Me.DokumentLöschenToolStripMenuItem.Visible = True
+        Else
+            Me.ToolStripButton1.Visible = False
+            Me.ToolStripButton2.Visible = False
+            Me.ToolStripButton4.Visible = False
+            Me.NeuesDokumentToolStripMenuItem.Visible = False
+            Me.DokumentInformationenBearbeitenToolStripMenuItem.Visible = False
+            Me.DokumentLöschenToolStripMenuItem.Visible = False
+
+        End If
+    End Sub
+    Sub New()
+        InitializeComponent()
+        'Me.ConnectionString = "data source=shu00;initial catalog=ThemenManagement;persist security info=False;workstation id=SHU;packet size=4096;user id=sa;password=*shu29"
+        'Me.Mitarbeiternr = 1
+        'Me.Doktype = 1
+        'Me.ThemaNr = 1
+        'Me.TempFilePath = "h:\tssettings\themenmgmt"
+        Globals.conn.sConnectionString = Me.ConnectionString
+        Globals.sConnectionString = Me.ConnectionString
+        Globals.Mitarbeiternr = Mitarbeiternr
+        Globals.TmpFilepath = TempFilePath
+        Set_ShowToolbar()
+        Set_Editfunctions()
+    End Sub
+
+
+    Private Sub Refresh_Dokumente()
+        Try
+            Dim filtertext As String = "none"
+            Try
+                filtertext = Me.C1Dokumente.Columns("Aktiv").FilterText
+            Catch ex As Exception
+            End Try
+
+            Dim bm As Integer = 0
+            bm = Me.C1Dokumente.Bookmark
+
+            Me.C1Dokumente.Enabled = False
+            Get_Dokumente(Me.C1Dokumente, Me.ImageListeDocIcon, Me.Doktype)
+
+            Me.SpaltenTitel.Spaltentitel_aktualisieren(Me.C1Dokumente, "Dokument", Me.dokumente)
+            If filtertext <> "none" Then Me.C1Dokumente.Columns("Aktiv").FilterText = filtertext
+
+            Try
+                Me.C1Dokumente.Bookmark = bm
+            Catch ex As Exception
+            End Try
+            Me.C1Dokumente.Enabled = True
+        Catch ex As Exception
+            'MsgBox(ex.Message)
+
+        End Try
+    End Sub
+
+
+
+#Region "Dokumente"
+
+    ''' <summary>
+    ''' Dokumente lesen und dem Grid übergeben
+    ''' </summary>
+    ''' <param name="c1data">C1TrueDBGrid mit Dokumente</param>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, Optional ByVal ImgList As ImageList = Nothing, Optional Doktype As Integer = 0)
+        Try
+            dokumente.Dispose()
+            dokumente = Nothing
+        Catch ex As Exception
+
+        End Try
+        'dokumente = Dokument.get
+        dokumente = Dokument.Get_Dokumente(Me.ThemaNr, Doktype)
+        c1data.DataSource = dokumente
+        c1data.DataMember = dokumente.TableName
+        If Not ImgList Is Nothing Then
+            Set_Imagevalues(c1data, ImgList)
+        End If
+
+    End Function
+
+    Private Sub Set_Imagevalues(ByRef c1data As C1TrueDBGrid, ByRef imglist As ImageList)
+
+        Dim i As Integer
+        Dim s As String
+        For i = 0 To dokumente.Rows.Count - 1
+            s = dokumente.Rows(i).Item("Filename")
+            If s = "" Then s = dokumente.Rows(i).Item("Bezeichnung")
+            If Len(s) < 4 Then s = ".div"
+            Select Case UCase(s.Substring(Len(s) - 4, 4))
+                Case ".PDF"
+                    dokumente.Rows(i).Item("DokIcon") = 0
+                Case ".DOC", "DOCX", ".DOT", "DOTX"
+                    dokumente.Rows(i).Item("DokIcon") = 1
+                Case ".XLS", ".XLT", "XLSX", "XLTX"
+                    dokumente.Rows(i).Item("DokIcon") = 2
+                Case ".PPT", "PPTX"
+                    dokumente.Rows(i).Item("DokIcon") = 3
+                Case ".HTM", "TML", "XML"
+                    dokumente.Rows(i).Item("DokIcon") = 4
+                Case ".MSG"
+                    dokumente.Rows(i).Item("DokIcon") = 5
+                Case ".JPG", ".TIF"
+                    dokumente.Rows(i).Item("DokIcon") = 7
+                Case Else
+                    If InStr(UCase(s), "WWW") > 0 Or InStr(UCase(s), "HTTP") Then
+                        dokumente.Rows(i).Item("DokIcon") = 4
+                    Else
+                        dokumente.Rows(i).Item("DokIcon") = 6
+                    End If
+            End Select
+        Next
+
+        Dim bmp0 As New Bitmap(imglist.Images(0))
+        Dim bmp1 As New Bitmap(imglist.Images(1))
+        Dim bmp2 As New Bitmap(imglist.Images(2))
+        Dim bmp3 As New Bitmap(imglist.Images(3))
+        Dim bmp4 As New Bitmap(imglist.Images(4))
+        Dim bmp5 As New Bitmap(imglist.Images(5))
+        Dim bmp6 As New Bitmap(imglist.Images(6))
+        Dim bmp7 As New Bitmap(imglist.Images(7))
+        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()
+        Dim v4 As New C1.Win.C1TrueDBGrid.ValueItem()
+        Dim v5 As New C1.Win.C1TrueDBGrid.ValueItem()
+        Dim v6 As New C1.Win.C1TrueDBGrid.ValueItem()
+        Dim v7 As New C1.Win.C1TrueDBGrid.ValueItem()
+
+        v0.DisplayValue = bmp0
+        v0.Value = 0
+
+        v1.DisplayValue = bmp1
+        v1.Value = 1
+
+        v2.DisplayValue = bmp2
+        v2.Value = 2
+
+        v3.DisplayValue = bmp3
+        v3.Value = 3
+
+        v4.DisplayValue = bmp4
+        v4.Value = 4
+
+        v5.DisplayValue = bmp5
+        v5.Value = 5
+
+        v6.DisplayValue = bmp6
+        v6.Value = 6
+
+        v7.DisplayValue = bmp7
+        v7.Value = 7
+        Try
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v0)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v1)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v2)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v3)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v4)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v5)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v6)
+            c1data.Columns("DokIcon").ValueItems.Values.Add(v7)
+            c1data.Columns("DokIcon").ValueItems.Translate = True
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+
+
+    End Sub
+    ''' <summary>
+    ''' Kontakte auslesen und dem Truedbgrid übergeben
+    ''' </summary>
+    ''' <param name="c1data">TruedbGrid</param>
+    ''' <param name="Vertragselementnr">Vertragselement, für welches die Dokumente ausgelesen werden</param>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Public Function Get_Dokumente(ByRef c1data As C1TrueDBGrid, ByVal Vertragselementnr As Integer, Optional ByVal ImgList As ImageList = Nothing)
+        'Me.Get_Vertragselement(Vertragselementnr)
+        dokumente = Dokument.Get_Dokumente(Me.ThemaNr, 1)
+
+        c1data.DataSource = dokumente
+        c1data.DataMember = dokumente.TableName
+        If Not ImgList Is Nothing Then
+            Me.Set_Imagevalues(c1data, ImgList)
+        End If
+    End Function
+
+    Public Function Get_Dokumente(ByVal Themanr As Integer) As DataTable
+
+        Return Dokument.Get_Dokumente(Themanr, Me.Doktype)
+    End Function
+
+#End Region
+
+    Private Sub Dokumente_DragDrop(sender As Object, e As DragEventArgs)
+        Dim s() As String = e.Data.GetData("FileDrop", False)
+        Dim i As Integer
+        For i = 0 To s.Length - 1
+            Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True, s(i))
+            f.ShowDialog()
+        Next i
+        Me.Refresh_Dokumente()
+    End Sub
+
+    Private Sub Dokumente_DragEnter(sender As Object, e As DragEventArgs) Handles Me.DragEnter
+        If (e.Data.GetDataPresent(DataFormats.FileDrop)) Then
+            e.Effect = DragDropEffects.All
+        Else
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
+
+    Private Sub Dokumente_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Me.Refresh_Dokumente()
+    End Sub
+
+    Private Sub C1Dokumente_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
+        Try
+            Me.DokumentanzeigenToolStripMenuItem_Click(sender, e)
+        Catch ex As Exception
+
+        End Try
+    End Sub
+
+    Private Sub C1Dokumente_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Dokumente.MouseDown
+        Me.C1Dokumente.Bookmark = Me.C1Dokumente.RowContaining(e.Y)
+    End Sub
+
+    Private Sub NeuesDokumentToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentToolStripMenuItem.Click
+        Try
+            Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True)
+            f.ShowDialog()
+            Me.Refresh_Dokumente()
+        Catch ex As Exception
+        End Try
+
+    End Sub
+
+    Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
+        Try
+            If MsgBox("Dokument wirklich löschen?", vbYesNoCancel + vbQuestion) = MsgBoxResult.Yes Then
+                Dokument.Delete_Dokument(Me.C1Dokumente.Columns("Dokumentnr").Value)
+                Me.Refresh_Dokumente()
+            End If
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub DokumentanzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentanzeigenToolStripMenuItem.Click
+        Try
+            Dokument.Show_Doc(Me.C1Dokumente.Columns("Dokumentnr").Value)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub DokumentInformationenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentInformationenBearbeitenToolStripMenuItem.Click
+        Try
+            Dim f As New frmDokument(Me.C1Dokumente.Columns("Dokumentnr").Value, Me.Doktype, Me.ThemaNr, False, False)
+            'f.MdiParent = Me
+            f.ShowDialog()
+            Me.Refresh_Dokumente()
+        Catch ex As Exception
+        End Try
+
+    End Sub
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        NeuesDokumentToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
+        DokumentInformationenBearbeitenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+        DokumentLöschenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
+        DokumentanzeigenToolStripMenuItem_Click(sender, e)
+    End Sub
+
+    Private Sub C1Dokumente_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub C1Dokumente_DragEnter(sender As Object, e As DragEventArgs) Handles C1Dokumente.DragEnter
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            e.Effect = DragDropEffects.All
+        End If
+
+    End Sub
+
+    Private Sub C1Dokumente_DragDrop(sender As Object, e As DragEventArgs) 'Handles C1Dokumente.DragDrop
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            Dim MyFiles() As String
+            ' Assign the files to an array.
+            MyFiles = e.Data.GetData(DataFormats.FileDrop)
+            ' Display the file Name
+            'TextBoxDrop.Text = MyFiles(0)
+            ' Display the file contents
+            Dim f As New frmDokument(0, Me.Doktype, Me.ThemaNr, False, True, MyFiles(0))
+            f.ShowDialog()
+            Me.Refresh_Dokumente()
+        End If
+
+    End Sub
+
+    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
+
+    End Sub
+End Class