ToolCollection/ToolCollection/frmDIProfilHinzufuegen.vb

Public Class frmDIProfilHinzufuegen

    Public oSession
    Protected _windream As New ClassWindream_allgemein(CURR_LogConfig)
    ' Private _parentClass As ClassDateiimport = ClassDateiimport.GetInstance

    Private Sub frmProfilHinzufügen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Try
            ' Verbindung mit windream herstellen
            Me._windream.Init()
            ClassDIProfile.Init()
        Catch ex As Exception
            MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
        End Try

        Try
            Me.oSession = Me._windream.oWMSession
        Catch ex As Exception
            MsgBox("Es konnte keine Verbindung zum windream-Server aufgebaut werden, da er nicht erreichbar war." & vbNewLine & "Bitte wenden Sie sich an ihren windream-Administrator.", MsgBoxStyle.Critical, "windream-Server nicht erreichbar")
        End Try

        Me.txtProfilname.Text = ""
        Me.cmbObjekttyp.SelectedIndex = -1
        Me.txtQuellordner.Text = ""
        Me.txtZielordner.Text = ""
        Me.chkImportoptionenBackup.Checked = False
        Me.txtBackupordner.Text = ""
        Me.chkDateienÜberschreiben.Checked = True
        Me.chkDateienLoeschen.Checked = False
        Me.chkQuellverzeichnisLoeschen.Checked = False

        Me.ObjekttypenEintragen()
        Label6.Visible = False
    End Sub
    Private Sub btnQuellordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellordner.Click
        Me.dlgQuellordner.SelectedPath = Me.txtQuellordner.Text

        If Me.dlgQuellordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtQuellordner.Text = Me.dlgQuellordner.SelectedPath
        End If
    End Sub

    Private Sub btnZielordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZielordner.Click
        Me.dlgZielordner.SelectedPath = Me.txtZielordner.Text

        If Me.dlgZielordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim ZielTemp = Me.dlgZielordner.SelectedPath

            If ZielTemp.Substring(0, 3) = My.Settings.vWLaufwerk & ":" & "\" Then 'Me._windream.GetWindreamDriveLetter()
                Me.txtZielordner.Text = ZielTemp
            Else
                MsgBox("Das Zielverzeichnis muss sich auf dem windream-Laufwerk befinden.", MsgBoxStyle.Exclamation, "Ungültiges Zielverzeichnis")
            End If
        End If
    End Sub

    Private Sub btnBackupordner_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackupordner.Click
        Me.dlgBackupordner.SelectedPath = Me.txtBackupordner.Text

        If Me.dlgBackupordner.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtBackupordner.Text = Me.dlgBackupordner.SelectedPath
        End If
    End Sub

    Private Sub chkImportoptionenBackup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkImportoptionenBackup.CheckedChanged
        Me.lblImportoptionenBackupOrdner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.txtBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.btnBackupordner.Enabled = Me.chkImportoptionenBackup.Checked
        Me.chkDateienÜberschreiben.Enabled = Me.chkImportoptionenBackup.Checked
    End Sub

    Private Sub chkDateienLoeschen_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkDateienLoeschen.CheckedChanged
        Me.chkQuellverzeichnisLoeschen.Enabled = Me.chkDateienLoeschen.Checked
    End Sub

    Private Sub btnQuellverzeichnisLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuellverzeichnisLöschen.Click
        Me.txtQuellordner.Text = ""
    End Sub

    Private Sub btnZielverzeichnisLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZielverzeichnisLöschen.Click
        Me.txtZielordner.Text = ""
    End Sub

    Private Sub btnBackupverzeichnisLöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBackupverzeichnisLöschen.Click
        Me.txtBackupordner.Text = ""
    End Sub
    Private Sub btnAnlegen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        If Me.txtProfilname.Text.Length > 0 And Me.cmbObjekttyp.SelectedIndex <> -1 Then
            If Not ClassDIProfile.Profilname_Exists(Me.txtProfilname.Text) Then
                ClassDIProfile.Add(Me.txtProfilname.Text, Me.cmbObjekttyp.SelectedItem, Me.txtQuellordner.Text, Me.chkb_Subdirectories.Checked,
                                             Me.txtZielordner.Text, Me.chkImportoptionenBackup.Checked, Me.txtBackupordner.Text,
                                             Me.chkDateienÜberschreiben.Checked, Me.chkDateienLoeschen.Checked,
                                             Me.chkb_DateUV.Checked,
                                             Me.chkQuellverzeichnisLoeschen.Checked, 0, False, "", "", chkUVloeschen.Checked)
                Me.Close()
            Else
                MsgBox("Der angegebene Profilname existiert bereits.", MsgBoxStyle.Information, "Ungültige Eingabe")
            End If
        Else
            MsgBox("Es wurden nicht für alle Pflichtfelder ein Wert angegeben. Bitte überprüfen Sie nochmals Ihre Angaben.", MsgBoxStyle.Information, "Fehlende Angabe zum Erstellen eines Profils")
        End If
    End Sub

    Private Sub btnAbbrechen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbrechen.Click
        Me.Close()
    End Sub
    Private Sub ObjekttypenEintragen()
        Me.cmbObjekttyp.Items.Clear()
        Try
            Dim oDokumentTypen As WINDREAMLib.WMObjects = Me._windream.GetObjecttypesAsObjects()
            If oDokumentTypen Is Nothing Then Exit Sub

            For Each aType In oDokumentTypen
                Me.cmbObjekttyp.Items.Add(aType.aName)
            Next

        Catch ex As Exception
            MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
        End Try

    End Sub


    Public Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub frmDIProfilHinzufuegen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        Me.BringToFront()
    End Sub

    Private Sub chkb_Subdirectories_CheckedChanged(sender As Object, e As EventArgs) Handles chkb_Subdirectories.CheckedChanged
        If Me.chkb_Subdirectories.Checked Then
            Me.chkUVloeschen.Visible = True
        Else
            Me.chkUVloeschen.Visible = False
        End If
    End Sub

    Private Sub chkUVloeschen_CheckedChanged(sender As Object, e As EventArgs) Handles chkUVloeschen.CheckedChanged
        If chkUVloeschen.Checked Then
            If chkDateienLoeschen.Checked = False Then
                chkDateienLoeschen.Checked = True
            End If
        End If
    End Sub

    Private Sub chkb_DateUV_CheckedChanged(sender As Object, e As EventArgs) Handles chkb_DateUV.CheckedChanged
        Label6.Visible = True
    End Sub

    Private Sub rbUV_Date2_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub rbUV_Date3_CheckedChanged(sender As Object, e As EventArgs)

    End Sub
End Class