"
+ TextHTMLtable &= "| Programm | Info | User | Passwort |
"
+
+
+
+ If mitarbeiter.mit_AliasAD_Username IsNot Nothing AndAlso mitarbeiter.mit_AliasAD_Username <> "" Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "Windows" & " | "
+ TextHTMLtable &= "" & "PC-Zugangsdaten" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_AliasAD_Username & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_pwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+ If mitarbeiter.mit_username <> "" AndAlso mitarbeiter.mit_pwd <> "" Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "AVISO/SDL" & " | "
+ TextHTMLtable &= "" & "ERP-System" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_username & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_pwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+ If mitarbeiter.mit_timasId IsNot Nothing AndAlso IsNumeric(mitarbeiter.mit_timasId) Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "TIMAS" & " | "
+ TextHTMLtable &= "" & "Zeiterfassung" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_username & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_pwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+ If mitarbeiter.mit_DAKOSY_SB IsNot Nothing AndAlso mitarbeiter.mit_DAKOSY_SB <> "" Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "DAKOSY" & " | "
+ TextHTMLtable &= "" & "ZOLL-DE" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_DAKOSY_SB & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_pwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+ If mitarbeiter.mit_EZOLL_SB IsNot Nothing AndAlso mitarbeiter.mit_EZOLL_SB > 0 Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "EZOLL" & " | "
+ TextHTMLtable &= "" & "ZOLL-AT" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_EZOLL_SB & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_pwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+ If mitarbeiter.mit_CSuser IsNot Nothing AndAlso mitarbeiter.mit_CSuser <> "" Then
+ TextHTMLtable &= ""
+ TextHTMLtable &= "| " & "Creditsafe" & " | "
+ TextHTMLtable &= "" & "Bonitätsprüfungstool" & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_CSuser & " | "
+ TextHTMLtable &= "" & mitarbeiter.mit_CSpwd & " | "
+ TextHTMLtable &= "
"
+ End If
+
+
+ TextHTMLtable &= "
"
+
+ VERAG_PROG_ALLGEMEIN.cProgramFunctions.createMail("", betreff, TextHTMLtable)
+
+ End If
+
+
+
End Sub
End Class
diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
index ba8b2c2..779f2f6 100644
--- a/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.Designer.vb
@@ -48,6 +48,7 @@ Partial Class usrCntlMitarbeiter
Me.TabPage9 = New System.Windows.Forms.TabPage()
Me.dgvDURMAZ = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.TabPage8 = New System.Windows.Forms.TabPage()
+ Me.lbl_Mitarbeiter_export = New System.Windows.Forms.Label()
Me.pbMitarbeiter_export = New System.Windows.Forms.ProgressBar()
Me.cbxTimasAktiv = New System.Windows.Forms.CheckBox()
Me.lblTimasMandant = New System.Windows.Forms.Label()
@@ -67,7 +68,6 @@ Partial Class usrCntlMitarbeiter
Me.UserKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BerechtigungenSetzenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
- Me.lbl_Mitarbeiter_export = New System.Windows.Forms.Label()
Me.Panel2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@@ -371,6 +371,15 @@ Partial Class usrCntlMitarbeiter
Me.TabPage8.Text = "Zeiterfassung"
Me.TabPage8.UseVisualStyleBackColor = True
'
+ 'lbl_Mitarbeiter_export
+ '
+ Me.lbl_Mitarbeiter_export.AutoSize = True
+ Me.lbl_Mitarbeiter_export.Location = New System.Drawing.Point(679, 8)
+ Me.lbl_Mitarbeiter_export.Name = "lbl_Mitarbeiter_export"
+ Me.lbl_Mitarbeiter_export.Size = New System.Drawing.Size(30, 13)
+ Me.lbl_Mitarbeiter_export.TabIndex = 54
+ Me.lbl_Mitarbeiter_export.Text = "0 / 0"
+ '
'pbMitarbeiter_export
'
Me.pbMitarbeiter_export.Location = New System.Drawing.Point(556, 3)
@@ -532,7 +541,7 @@ Partial Class usrCntlMitarbeiter
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.UserKopierenToolStripMenuItem, Me.BerechtigungenSetzenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
- Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 48)
+ Me.ContextMenuStrip1.Size = New System.Drawing.Size(195, 70)
'
'UserKopierenToolStripMenuItem
'
@@ -551,15 +560,6 @@ Partial Class usrCntlMitarbeiter
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
'
- 'lbl_Mitarbeiter_export
- '
- Me.lbl_Mitarbeiter_export.AutoSize = True
- Me.lbl_Mitarbeiter_export.Location = New System.Drawing.Point(679, 8)
- Me.lbl_Mitarbeiter_export.Name = "lbl_Mitarbeiter_export"
- Me.lbl_Mitarbeiter_export.Size = New System.Drawing.Size(30, 13)
- Me.lbl_Mitarbeiter_export.TabIndex = 54
- Me.lbl_Mitarbeiter_export.Text = "0 / 0"
- '
'usrCntlMitarbeiter
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
diff --git a/UID/Mitarbeiter/usrCntlMitarbeiter.vb b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
index 6dfc846..b8d4ac4 100644
--- a/UID/Mitarbeiter/usrCntlMitarbeiter.vb
+++ b/UID/Mitarbeiter/usrCntlMitarbeiter.vb
@@ -1435,5 +1435,7 @@ Public Class usrCntlMitarbeiter
End Sub
+ Private Sub MailMitZugangsdatenToolStripMenuItem_Click(sender As Object, e As EventArgs)
+ End Sub
End Class
diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb
index caf7c5e..162bb15 100644
--- a/UID/My Project/AssemblyInfo.vb
+++ b/UID/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
'