ToolCollection/ToolCollection/frmMORE_Verwaltung.vb

Public Class frmMORE_Verwaltung
    Private Sub frmMORE_Verwaltung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.TBMO_RE_DOKART". Sie können sie bei Bedarf verschieben oder entfernen.
        Try
            'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.WHMO_RE_KUNDEN". Sie können sie bei Bedarf verschieben oder entfernen.
            Me.WHMO_RE_KUNDENTableAdapter.Fill(Me.DS_More.WHMO_RE_KUNDEN)
            Me.WHMO_RE_DOKARTTableAdapter.Fill(Me.DS_More.WHMO_RE_DOKART)
            'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.WH_DOKUMENTART". Sie können sie bei Bedarf verschieben oder entfernen.
            Me.TBMO_RE_DOKARTTableAdapter.Fill(Me.DS_More.TBMO_RE_DOKART)
            'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.TBMO_RE_DOKART_KUNDE". Sie können sie bei Bedarf verschieben oder entfernen.
            Me.TBMO_RE_DOKART_KUNDETableAdapter.Fill(Me.DS_More.TBMO_RE_DOKART_KUNDE)
            'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.TBMO_RE_KUNDEN". Sie können sie bei Bedarf verschieben oder entfernen.
            Me.TBMO_RE_KUNDENTableAdapter.Fill(Me.DS_More.TBMO_RE_KUNDEN)
            'TODO: Diese Codezeile lädt Daten in die Tabelle "DS_More.TBDMS_DOKUMENTART". Sie können sie bei Bedarf verschieben oder entfernen.
            VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.Fill(Me.DS_More.VWMO_RE_DOKUMENTARTZUORDNUNG)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler Form load:")
        End Try

    End Sub

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

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Me.FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.txtZielPfad.Text = Me.FolderBrowserDialog1.SelectedPath
        End If
    End Sub

    Private Sub btnInsert_Click(sender As Object, e As EventArgs) Handles btnInsert.Click
        If cmbDokumentart.SelectedIndex <> -1 And cmbKunde.SelectedIndex <> -1 Then
            Try
                TBMO_RE_DOKART_KUNDETableAdapter.Insert(cmbKunde.SelectedValue, cmbDokumentart.SelectedValue, txtZielPfad.Text, Environment.UserName, txtIDX_UO1.Text, txtIDX_UO2.Text, txtIDX_UO3.Text, "", "")
                VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.Fill(Me.DS_More.VWMO_RE_DOKUMENTARTZUORDNUNG)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Insert Kunde-Dokart Zuordnung:")
            End Try
        End If
    End Sub

    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
        save_Dokart()
    End Sub

    Private Sub ToolStripButton8_Click(sender As Object, e As EventArgs) Handles ToolStripButton8.Click
        Save_kunden()
    End Sub
    Sub Save_Dokart()
        Try
            Me.TBMO_RE_DOKARTBindingSource.EndEdit()
            If DS_More.TBMO_RE_DOKART.GetChanges Is Nothing = False Then
                GEAENDERTWERTextBox1.Text = Environment.UserName
                Me.TBMO_RE_DOKARTBindingSource.EndEdit()
                TBMO_RE_DOKARTTableAdapter.Update(DS_More.TBMO_RE_DOKART)
                MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Save Dokart:")
        End Try
    End Sub
    Sub Save_kunden()
        Try
            Me.TBMO_RE_KUNDENBindingSource.EndEdit()
            If DS_More.TBMO_RE_KUNDEN.GetChanges Is Nothing = False Then
                GEAENDERTWERTextBox.Text = Environment.UserName
                Me.TBMO_RE_KUNDENBindingSource.EndEdit()
                TBMO_RE_KUNDENTableAdapter.Update(DS_More.TBMO_RE_KUNDEN)
                MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Save Kunden:")
        End Try
    End Sub

    Private Sub btnRefresh_WH_Click(sender As Object, e As EventArgs) Handles btnRefresh_WH.Click
        Try
            Me.WHMO_RE_DOKARTTableAdapter.Fill(Me.DS_More.WHMO_RE_DOKART)
            Me.TBMO_RE_DOKART_KUNDETableAdapter.Fill(Me.DS_More.TBMO_RE_DOKART_KUNDE)
            Me.cmbDokumentart.SelectedIndex = -1
            Me.cmbKunde.SelectedIndex = -1
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh Wertehilfen:")
        End Try
    End Sub

    Private Sub TBMO_RE_DOKARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBMO_RE_DOKARTBindingSource.AddingNew
        DS_More.TBMO_RE_DOKART.ERFASSTWERColumn.DefaultValue = Environment.UserName
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            Dim GUID As String = VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.Item("GUID", VWMO_RE_DOKUMENTARTZUORDNUNGDataGridView.CurrentRow.Index).Value
            If IsNumeric(GUID) Then
                VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.cmdDeleteEntry(GUID)
                VWMO_RE_DOKUMENTARTZUORDNUNGTableAdapter.Fill(Me.DS_More.VWMO_RE_DOKUMENTARTZUORDNUNG)
            End If
        Catch ex As Exception

        End Try
    End Sub
End Class