Imports System.Text.RegularExpressions
Imports System.Windows.Forms
Imports C1.Win.C1TrueDBGrid

Public Class Form1
    Dim db As New clsdb
    Private Sub tsbtnSearchPartner_Click(sender As Object, e As EventArgs) Handles tsbtnSearchPartner.Click
        Try
            Me.tstxtDokumentid.Text = ""
            db.get_dokumente_from_parter(Me.tstxtParnternr.Text, Me.C1Daten)
            If db.dsdaten.Tables(0).Rows.Count < 1 Then Me.Panel1.Enabled = False Else Me.Panel1.Enabled = True
        Catch
        End Try
    End Sub

    Private Sub tsbtnSearchDokument_Click(sender As Object, e As EventArgs) Handles tsbtnSearchDokument.Click
        Try
            Me.tstxtParnternr.Text = ""
            db.get_dokumente_from_dokumentid(Me.tstxtDokumentid.Text, Me.C1Daten)
            If db.dsdaten.Tables(0).Rows.Count < 1 Then Me.Panel1.Enabled = False Else Me.Panel1.Enabled = True
        Catch
        End Try

    End Sub


    Private Sub tstxtDokumentid_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtDokumentid.KeyDown
        If e.KeyCode = Keys.Enter Then
            tsbtnSearchDokument_Click(sender, e)
        End If
    End Sub

    Private Sub tstxtParnternr_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtParnternr.KeyDown
        If e.KeyCode = Keys.Enter Then
            tsbtnSearchPartner_Click(sender, e)
        End If
    End Sub


    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
        Try
            Me.txtEmail.Text = Me.C1Daten.Columns("Email").Value
        Catch
            Me.txtEmail.Text = ""
        End Try

    End Sub

    Private Sub tsbtnsave_Click(sender As Object, e As EventArgs) Handles tsbtnsave.Click
        Try
            If C1Daten.Columns("DINR").Value = 0 Then
                db.Insert_Email(C1Daten.Columns("Dokumentid").Value, C1Daten.Columns("DINR").Value, Globals.Mitarbeiternr, Me.txtEmail.Text)
            Else
                db.Update_Email(C1Daten.Columns("Dokumentid").Value, C1Daten.Columns("DINR").Value, Globals.Mitarbeiternr, Me.txtEmail.Text)
            End If
            If Me.tstxtParnternr.Text <> "" Then
                Dim sdokid As String = C1Daten.Columns("Dokumentid").Value
                Me.tsbtnSearchPartner_Click(sender, e)
                Dim i As Integer
                For i = 0 To db.dsdaten.Tables(0).Rows.Count - 1
                    If db.dsdaten.Tables(0).Rows(i).Item("Dokumentid") = sdokid Then Me.C1Daten.Bookmark = i
                Next
            Else
                Me.tsbtnSearchDokument_Click(sender, e)


            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = db.Get_Dokumenttyp

    End Sub

    Private Sub txtEmail_Leave(sender As Object, e As EventArgs) Handles txtEmail.Leave
        Me.txtEmail.Text = Trim(Me.txtEmail.Text)
        Dim pattern As New Regex("\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\Z")
        If pattern.IsMatch(Me.txtEmail.Text) Then
            Me.tsbtnsave.Enabled = True
        Else
            Me.tsbtnsave.Enabled = False
            MsgBox("Die eingegenbene E-Mail-Adresse ist ungültig" + vbCrLf + "Es darf nur eine gültige E-Mail-Adresse erfast werden.", vbExclamation)
        End If
    End Sub

    Private Sub txtEmail_TextChanged(sender As Object, e As EventArgs) Handles txtEmail.TextChanged

    End Sub
End Class