Public Class frmImportVorlage

    Dim m_strukturnr As Integer
    Property Strukturnr As Integer
        Get
            Return m_strukturnr
        End Get
        Set(value As Integer)
            m_strukturnr = value
        End Set
    End Property

    Dim m_eintragnr As String
    Property eintragnr As String
        Get
            Return m_eintragnr
        End Get
        Set(value As String)
            m_eintragnr = value
        End Set
    End Property

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Me.TextBox2.Text = Me.OpenFileDialog1.FileName
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If Me.TextBox2.Visible = False Then
            change_Description
            Exit Sub

        End If
        If Trim(Me.TextBox1.Text) = "" Then
            MsgBox("Die Bezeichnung fehlt.", vbExclamation)
            Me.TextBox1.Select()
            Exit Sub
        End If
        If Trim(Me.TextBox2.Text) = "" Then
            MsgBox("Die Datei-Vorlage muss angegeben werden.", vbExclamation)
            Me.TextBox1.Select()
            Exit Sub
        End If
        If Not System.IO.File.Exists(Me.TextBox2.Text) Then
            MsgBox("Die ausgewählte Vorlage ist nicht vorhanden.", vbExclamation)
            Exit Sub
        End If
        Dim db As New clsDB
        db.Get_Tabledata("DMS", "", "Select top 1 * from dms_vorlage where nreintrag=-1")
        Dim dr As DataRow = db.dsDaten.Tables(0).NewRow
        dr.Item(1) = Me.Strukturnr
        dr.Item(2) = Me.TextBox1.Text
        dr.Item(3) = Me.TextBox2.Text
        dr.Item(4) = True
        dr.Item(5) = Now
        dr.Item(6) = Now
        dr.Item(7) = Globals.ActUser
        db.dsDaten.Tables(0).Rows.Add(dr)
        db.Update_Data()
        db.Get_Tabledata("DMS", "", "Select top 1 * from dms_vorlage order by nreintrag desc")
        Dim dok As New clsDok
        dok.Save_Vorlage(db.dsDaten.Tables(0).Rows(0).Item(0), Me.TextBox2.Text)
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Sub Change_Description()
        Dim s As String
        s = Me.eintragnr
        s = s.Replace("V:", "")
        Dim db As New clsDB
        db.Get_Tabledata("DMS", "", "Select * from dms_vorlage where nreintrag=" + s)
        db.dsDaten.Tables(0).Rows(0).Item(2) = Me.TextBox1.Text
        db.dsDaten.Tables(0).Rows(0).Item(6) = Now
        db.dsDaten.Tables(0).Rows(0).Item(7) = Globals.ActUser
        db.Update_Data()
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class