timas, apieinstellungen, Mitarbeiterdetails

UID/Mitarbeiter/frmMitarbTimas.vb

@@ -41,67 +41,73 @@ Public Class frmMitarbTimas
 
     End Sub
     Private Sub initMitarbeiter(mid As Integer, Optional _isUpdate As Boolean = False)
-        timas = New cTimasAPI("timas")
-        emp = timas.getEmployee(mid)
-        avisoEmp = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(emp.externid)
+        Try
 
 
-        timas.getAllGroups(dtTimas)
-
-        initDGV(dtTimas)
-
-        isUpdate = _isUpdate
-        Label48.Text = emp.externid
-        txtUsername.Text = emp.login
-        txtVname.Text = emp.firstname
-        txtNname.Text = emp.lastname
-        'txtPwd.Text = emp.password
-        If emp.gender = "male" Then rbtnGeschlechtM.Checked = True
-        If emp.gender = "female" Then rbtnGeschlechtW.Checked = True
-
-        If emp.birthdayDate = "null" Then
-            cbxGebDat.Checked = False
-        Else
-            cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
-        End If
-        txtStrasse.Text = emp.street
-        txtLohn.Text = emp.pnr1
-        txtPlz.Text = emp.zipcode
-        txtCard.Text = emp.card
-        txtOrt.Text = emp.city
-        txtInfo.Text = emp.info
-        'cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
-        'cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
-        txtTelNr.Text = emp.phone1
-        txtEmail.Text = emp.email
-        txtMobiltel.Text = emp.phone2
-        txtMandantenNr.Text = emp.clientNumber
-
-        'txtPersonalNr.Text = emp.pnr1
-
-        cbxAccount.Checked = emp.loginActive
-
-        If emp.entryDate Is Nothing Then
-            cbxEinsteigsDat.Checked = False
-        Else
-            cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate
-        End If
+            timas = New cTimasAPI("timas")
+            emp = timas.getEmployee(mid)
+            avisoEmp = New VERAG_PROG_ALLGEMEIN.cMitarbeiter(emp.externid)
 
 
-        If emp.exitDate IsNot Nothing Then
-            cbxGekuendigt.Checked = True
-            datGekuendigtAm.Text = emp.exitDate
-        Else
-            cbxGekuendigt.Checked = False
-        End If
+            timas.getAllGroups(dtTimas)
 
-        If emp.birthdayDate Is Nothing Then
-            cbxGebDat.Checked = False
-        Else
-            cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
-        End If
+            initDGV(dtTimas)
 
-        initcheckedlistbox(timas.getEmployeecustomFields(mid))
+            isUpdate = _isUpdate
+            Label48.Text = emp.externid
+            txtUsername.Text = emp.login
+            txtVname.Text = emp.firstname
+            txtNname.Text = emp.lastname
+            'txtPwd.Text = emp.password
+            If emp.gender = "male" Then rbtnGeschlechtM.Checked = True
+            If emp.gender = "female" Then rbtnGeschlechtW.Checked = True
+
+            If emp.birthdayDate = "null" Then
+                cbxGebDat.Checked = False
+            Else
+                cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
+            End If
+            txtStrasse.Text = emp.street
+            txtLohn.Text = emp.pnr1
+            txtPlz.Text = emp.zipcode
+            txtCard.Text = emp.card
+            txtOrt.Text = emp.city
+            txtInfo.Text = emp.info
+            'cboNiederlassung.changeItem(mitarbeiter.mit_niederlassung)
+            'cboAbteilung.changeItem(mitarbeiter.mit_abteilung)
+            txtTelNr.Text = emp.phone1
+            txtEmail.Text = emp.email
+            txtMobiltel.Text = emp.phone2
+            txtMandantenNr.Text = emp.clientNumber
+
+            'txtPersonalNr.Text = emp.pnr1
+
+            cbxAccount.Checked = emp.loginActive
+
+            If emp.entryDate Is Nothing Then
+                cbxEinsteigsDat.Checked = False
+            Else
+                cbxEinsteigsDat.Checked = True : datEinstiegsdatum.Text = emp.entryDate
+            End If
+
+
+            If emp.exitDate IsNot Nothing Then
+                cbxGekuendigt.Checked = True
+                datGekuendigtAm.Text = emp.exitDate
+            Else
+                cbxGekuendigt.Checked = False
+            End If
+
+            If emp.birthdayDate Is Nothing Then
+                cbxGebDat.Checked = False
+            Else
+                cbxGebDat.Checked = True : txtGebDat.Text = emp.birthdayDate
+            End If
+
+            initcheckedlistbox(timas.getEmployeecustomFields(mid))
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
 
     End Sub
 
@@ -164,6 +170,7 @@ Public Class frmMitarbTimas
 
 
 
+
     End Sub