Themenmanagement/KommAuspraegung/Kommunikationsauspraegung.vb

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