Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
--- a/EDOKA_Toolset/Plugin_EMailUpdate/Form/Form1.vb
+++ b/EDOKA_Toolset/Plugin_EMailUpdate/Form/Form1.vb
@@ -0,0 +1,93 @@
+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