Initial commit

2020-10-21 10:49:38 +02:00
commit abc7a01a22
1062 changed files with 411526 additions and 0 deletions
--- a/KommAuspraegung/Kommunikationsauspraegung.vb
+++ b/KommAuspraegung/Kommunikationsauspraegung.vb
@@ -0,0 +1,261 @@
+Imports System.ComponentModel
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Public Class Kommunikationsauspraegung
+#Region "Properties"
+    Dim m_ConnectionString As String
+    <DefaultValue("data source=shu00;initial catalog=ThemenManagement;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_Daten()
+                Catch
+                End Try
+            End If
+        End Set
+    End Property
+
+    Dim m_Kommunkationnr As Integer
+    <DefaultValue(1), Description("Kommunkationnr"), Category("Options")> _
+    Public Property Kommunkationnr As Integer
+        Get
+            Kommunkationnr = m_Kommunkationnr
+        End Get
+        Set(value As Integer)
+            If m_Kommunkationnr <> value Then
+                m_Kommunkationnr = value
+                Try
+                    Refresh_Daten()
+                Catch
+                End Try
+            End If
+        End Set
+    End Property
+
+    Dim m_KommunikationAuspraegungnr As Integer
+    <DefaultValue(1), Description("KommunikationAuspraegungnr"), Category("Options")> _
+    Public Property KommunikationAuspraegungnr As Integer
+        Get
+            KommunikationAuspraegungnr = m_KommunikationAuspraegungnr
+        End Get
+        Set(value As Integer)
+            If m_KommunikationAuspraegungnr <> value Then
+                m_KommunikationAuspraegungnr = value
+                Try
+                    Refresh_Daten()
+                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
+#End Region
+
+#Region "Deklarationen"
+    Dim Kommauspraegung As New DB.KommunikationAuspraegung
+    Dim Zielgrp As New DataTable
+    Dim Zielgruppen As New DB.clsZielgruppe
+    Dim KommunikationAuspraegungZielgruppe As New DB.clsKommunikationAuspraegung_Zielgruppe
+    Public Kommunikationstext_Changed As Boolean = False
+
+#End Region
+
+
+    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 = 2
+        'Me.ThemaNr = 1
+        'Me.Kommunkationnr = 1
+        'Me.m_KommunikationAuspraegungnr = 2
+        'Me.TempFilePath = "h:\tssettings\themenmgmt"
+        Try
+            Globals.conn.sConnectionString = Me.ConnectionString
+            Globals.sConnectionString = Me.ConnectionString
+        Catch
+        End Try
+
+        Globals.Mitarbeiternr = Mitarbeiternr
+        Globals.TmpFilepath = TempFilePath
+    End Sub
+
+    Sub Refresh_Daten()
+        Me.Dokumente1.ConnectionString = Me.ConnectionString
+        Me.Dokumente1.Doktype = Me.Doktype
+        Me.Dokumente1.ThemaNr = Me.KommunikationAuspraegungnr
+        Me.Dokumente1.Mitarbeiternr = Me.Mitarbeiternr
+        Me.Dokumente1.TempFilePath = Me.TempFilePath
+
+        get_data()
+
+    End Sub
+#Region "Daten"
+    Dim rtffilename As String
+    Sub get_data()
+        Kommauspraegung.Get_Auspraegung(Me.KommunikationAuspraegungnr)
+        Me.txtBeschreibung.Text = Kommauspraegung.sBeschreibung.Value
+        Me.Zielgruppen.cpMainConnectionProvider = Globals.conn
+        Me.Zielgrp = Me.Zielgruppen.SelectAll
+        Me.chklistboxZielgruppe.Items.Clear()
+
+        Dim ischecked As Boolean = False
+        For Each dr As DataRow In Zielgrp.Rows
+            ischecked = False
+            If dr.Item("aktiv") = True Then
+                For Each x As DataRow In Me.Kommauspraegung.KommunikationAuspraegung_Zielgruppen.Rows
+                    If dr.Item("Zielgruppenr") = x.Item("Zielgruppenr") Then
+                        ischecked = True
+                    End If
+                Next
+                chklistboxZielgruppe.Items.Add(dr.Item("Bezeichnung"), ischecked)
+
+
+
+            End If
+        Next
+
+        rtffilename = Globals.TmpFilepath + "\RTF_" + System.IO.Path.GetRandomFileName + ".rtf"
+        Me.Kommauspraegung.Get_Dokument(rtffilename)
+        Me.ShurtfEditor1.Document = rtffilename
+        Me.ShurtfEditor1.set_Dokument()
+        Me.Kommunikationstext_Changed = False
+    End Sub
+#End Region
+
+
+    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
+        save_data()
+    End Sub
+
+    Sub Save_Data()
+        Me.Kommauspraegung.sBeschreibung = New SqlString(CType(Me.txtBeschreibung.Text, String))
+        Me.Kommauspraegung.Save_Data()
+        Me.Kommauspraegung.save_zuteilung(Me.chklistboxZielgruppe)
+        Me.Kommunikationstext_Changed = False
+    End Sub
+
+
+    Private Sub ShurtfEditor1_RTFText_Changed() Handles ShurtfEditor1.RTFText_Changed
+        Me.Kommunikationstext_Changed = True
+    End Sub
+
+    Private Sub ShurtfEditor1_SaveExtended_Clicked(filename As String, ByVal rtftext As String) Handles ShurtfEditor1.SaveExtended_Clicked
+        Me.Kommauspraegung.sRTFText = Me.ShurtfEditor1.Document
+        Me.Kommauspraegung.Save_Dokument(filename)
+        Dim komm As New DB.clsKommunikation
+        komm.cpMainConnectionProvider = Globals.conn
+        komm.iKommunikationNr = New SqlInt32(CType(Me.Kommauspraegung.iKommunikationNr.Value, Int32))
+        komm.SelectOne()
+
+        Me.Kommauspraegung.Save_freitext(Me.Kommauspraegung.iKommunikationAuspraegungNr.Value, rtftext, 2, komm.iThemaNr.Value)
+        komm.Dispose()
+        Me.Kommunikationstext_Changed = False
+    End Sub
+
+    Public Sub Delete()
+        Me.Kommauspraegung.Delete_Kommunikationsauspraegung(Me.KommunikationAuspraegungnr)
+    End Sub
+
+    Public Function Change_Description() As String
+        Dim s As String
+        s = InputBox("Neue Bezeichnung", "Neue Bezeichnung")
+        If s <> "" Then
+            Me.Kommauspraegung.sBezeichnung = New SqlString(CType(s, String))
+            Me.Kommauspraegung.Save_Data()
+            Return s
+        Else
+            Return ""
+        End If
+    End Function
+
+    Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
+
+    End Sub
+
+
+    Private Sub tsbtnEintragAlles_Click(sender As Object, e As EventArgs) Handles tsbtnEintragAlles.Click
+        Dim f As New frmAuspraegungstexte(Me.Kommunkationnr)
+        Try
+            f.Show()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+
+
+    Public Sub Save_rtfdata()
+        Me.ShurtfEditor1.Save_Extended()
+        Me.Kommunikationstext_Changed = False
+    End Sub
+
+    Public Sub Discard_Changes()
+        Me.ShurtfEditor1.set_modified_false()
+        Me.Kommunikationstext_Changed = False
+    End Sub
+
+
+End Class
+