timas, apieinstellungen, Mitarbeiterdetails
This commit is contained in:
@@ -1,20 +1,5 @@
|
||||
|
||||
Imports System.DirectoryServices
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports System.Net
|
||||
Imports System.Net.Http
|
||||
Imports System.Net.WebRequestMethods
|
||||
Imports System.Security.Policy
|
||||
Imports System.Text
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Windows
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.StartPanel
|
||||
Imports DAKOSY_Worker.DEERRE
|
||||
Imports GrapeCity.ActiveReports.ReportsCore.Tools
|
||||
Imports itextsharp.text.pdf.codec.wmf
|
||||
Imports Microsoft.VisualBasic.ApplicationServices
|
||||
Imports Newtonsoft.Json
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class frmMitarbDetails
|
||||
@@ -210,6 +195,7 @@ Public Class frmMitarbDetails
|
||||
datGekuendigtAm.CustomFormat = "dd.MM.yyyy"
|
||||
datEinstiegsdatum.Format = DateTimePickerFormat.Custom
|
||||
datEinstiegsdatum.CustomFormat = "dd.MM.yyyy"
|
||||
|
||||
If mid >= 0 Then
|
||||
'mid = frmMitarbeiter.mid
|
||||
mitarbeiter = UID.getMitarbeiterById(mid)
|
||||
@@ -228,6 +214,11 @@ Public Class frmMitarbDetails
|
||||
txtPwd.Text = "0000"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
lblEintrittsdatum.Text = IIf(cbxEinsteigsDat.Checked, datEinstiegsdatum.Value.ToShortDateString, "--") & IIf(cbxGekuendigt.Checked, " bis " & datGekuendigtAm.Value.ToShortDateString, "")
|
||||
|
||||
If False Then
|
||||
|
||||
For Each ber As cUserBerechtigungen In usrBerechtigungNEU
|
||||
@@ -907,25 +898,25 @@ Public Class frmMitarbDetails
|
||||
End If
|
||||
|
||||
ZOLLDATENBEARB = True
|
||||
ElseIf tbcntr.SelectedIndex = 3 Then
|
||||
timas = New VERAG_PROG_ALLGEMEIN.cTimasAPI("timas")
|
||||
'ElseIf tbcntr.SelectedIndex = 3 Then
|
||||
' timas = New VERAG_PROG_ALLGEMEIN.cTimasAPI("timas")
|
||||
|
||||
If IsNothing(mitarbeiter.mit_timasId) Then
|
||||
cbxTimasAngelegt.Checked = False
|
||||
timas.getAllGroups(dtTimas)
|
||||
initDGV(dtTimas)
|
||||
Else
|
||||
cbxTimasAngelegt.Checked = True
|
||||
End If
|
||||
' If IsNothing(mitarbeiter.mit_timasId) Then
|
||||
' cbxTimasAngelegt.Checked = False
|
||||
' timas.getAllGroups(dtTimas)
|
||||
' initDGV(dtTimas)
|
||||
' Else
|
||||
' cbxTimasAngelegt.Checked = True
|
||||
' End If
|
||||
|
||||
|
||||
btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
|
||||
txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
txtClientNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
dgvData.Visible = Not cbxTimasAngelegt.Checked
|
||||
TabControl1.Visible = Not cbxTimasAngelegt.Checked
|
||||
rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
|
||||
btngetInfo.Visible = cbxTimasAngelegt.Checked
|
||||
' btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
|
||||
' txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
' txtClientNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
' dgvData.Visible = Not cbxTimasAngelegt.Checked
|
||||
' TabControl1.Visible = Not cbxTimasAngelegt.Checked
|
||||
' rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
|
||||
' btngetInfo.Visible = cbxTimasAngelegt.Checked
|
||||
End If
|
||||
|
||||
End Sub
|
||||
@@ -1216,6 +1207,7 @@ Public Class frmMitarbDetails
|
||||
rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
|
||||
btngetInfo.Visible = cbxTimasAngelegt.Checked
|
||||
btnDelete.Visible = cbxTimasAngelegt.Checked
|
||||
Button7.Visible = cbxTimasAngelegt.Checked
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -1260,7 +1252,7 @@ Public Class frmMitarbDetails
|
||||
|
||||
End If
|
||||
|
||||
Return True
|
||||
Return True
|
||||
|
||||
End Function
|
||||
|
||||
@@ -1268,13 +1260,13 @@ Public Class frmMitarbDetails
|
||||
|
||||
If dtTimas.Columns.Count > 0 Then
|
||||
|
||||
If TabControl1.TabCount = 0 Then
|
||||
If TabControl3.TabCount = 0 Then
|
||||
For Each row As DataRow In dt.DefaultView.ToTable(True, "groupType").Rows
|
||||
Dim TabIndex As Integer 'Anzahl der erstellten Tabs, bei keinem Tab ist der Index 0
|
||||
TabIndex = TabControl1.TabCount
|
||||
TabControl1.TabPages.Add(row("groupType"))
|
||||
TabIndex = TabControl3.TabCount
|
||||
TabControl3.TabPages.Add(row("groupType"))
|
||||
If TabIndex = 0 Then
|
||||
Dim tab As TabPage = Me.TabControl1.SelectedTab
|
||||
Dim tab As TabPage = Me.TabControl3.SelectedTab
|
||||
Dim dv = New DataView(dt)
|
||||
dv.RowFilter = "groupType = '" & tab.Text & "'"
|
||||
dgvData.DataSource = dv
|
||||
@@ -1286,7 +1278,7 @@ Public Class frmMitarbDetails
|
||||
.Columns("id").Visible = False
|
||||
.Columns("name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
.Columns("groupType").Visible = False
|
||||
.Columns("info").Width = 250
|
||||
.Columns("info").Width = 350
|
||||
.Columns("set").Width = 20
|
||||
.Columns("set").HeaderText = "X"
|
||||
.Dock = DockStyle.Fill
|
||||
@@ -1304,9 +1296,9 @@ Public Class frmMitarbDetails
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
|
||||
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged
|
||||
If dgvData Is Nothing And dgvData.Rows.Count < 1 Then Exit Sub
|
||||
Dim tab As TabPage = Me.TabControl1.SelectedTab
|
||||
Dim tab As TabPage = Me.TabControl3.SelectedTab
|
||||
If ((Not tab Is Nothing) AndAlso (Not tab.Controls.Contains(Me.dgvData))) Then
|
||||
Dim dv = New DataView(dtTimas)
|
||||
dv.RowFilter = "groupType = '" & tab.Text & "'"
|
||||
@@ -1362,39 +1354,33 @@ Public Class frmMitarbDetails
|
||||
End If
|
||||
|
||||
Dim days As Double = span.TotalDays
|
||||
Dim uansp As Double = 0
|
||||
Dim aliquU As Double = 0
|
||||
|
||||
calcUrlaubsabspruch(cbUrlaubInStund.Checked, uansp)
|
||||
|
||||
If days > 0 AndAlso uansp > 0 Then
|
||||
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
|
||||
If Not cbUrlaubInStund.Checked Then
|
||||
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
|
||||
txtaliquUA.Text = aliquU
|
||||
lblHoursOrDays2.Text = "D"
|
||||
Else
|
||||
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
|
||||
txtaliquUA.Text = aliquU
|
||||
lblHoursOrDays2.Text = "H"
|
||||
End If
|
||||
Dim uansp As Double = 0
|
||||
Dim aliquU As Double = 0
|
||||
|
||||
calcUrlaubsabspruch(cbUrlaubInStund.Checked, uansp)
|
||||
|
||||
If days > 0 AndAlso uansp > 0 Then
|
||||
If IsNumeric(txtUrlaubsabsp.Text) Then uansp = txtUrlaubsabsp.Text
|
||||
If Not cbUrlaubInStund.Checked Then
|
||||
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
|
||||
txtaliquUA.Text = aliquU
|
||||
lblHoursOrDays2.Text = "D"
|
||||
Else
|
||||
aliquU = Math.Round((uansp / 365) * span.TotalDays, 2, MidpointRounding.AwayFromZero)
|
||||
txtaliquUA.Text = aliquU
|
||||
lblHoursOrDays2.Text = "H"
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub cboDaysPerWeek_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboDaysPerWeek.SelectedIndexChanged
|
||||
|
||||
' calcUrlaubsabspruch(cbUrlaubInStund.Checked)
|
||||
|
||||
'End Sub
|
||||
|
||||
Private Sub calcUrlaubsabspruch(UrlaubInStunden As Boolean, ByRef urlaubsabspruch As Double)
|
||||
If Not UrlaubInStunden Then
|
||||
If cboDaysPerWeek.SelectedItem <> "" Then
|
||||
@@ -1414,6 +1400,58 @@ Public Class frmMitarbDetails
|
||||
txtUrlaubsabsp.Text = urlaubsabspruch
|
||||
End Sub
|
||||
|
||||
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
|
||||
If TabControl2.SelectedIndex = 2 Then
|
||||
Try
|
||||
|
||||
timas = New VERAG_PROG_ALLGEMEIN.cTimasAPI("timas")
|
||||
|
||||
If IsNothing(mitarbeiter.mit_timasId) Then
|
||||
cbxTimasAngelegt.Checked = False
|
||||
timas.getAllGroups(dtTimas)
|
||||
initDGV(dtTimas)
|
||||
Else
|
||||
cbxTimasAngelegt.Checked = True
|
||||
End If
|
||||
|
||||
|
||||
btnMAanlegen.Visible = Not cbxTimasAngelegt.Checked
|
||||
txtLohnNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
txtClientNr.Enabled = Not cbxTimasAngelegt.Checked
|
||||
dgvData.Visible = Not cbxTimasAngelegt.Checked
|
||||
TabControl3.Visible = Not cbxTimasAngelegt.Checked
|
||||
rtfInfoTimas.Visible = cbxTimasAngelegt.Checked
|
||||
btngetInfo.Visible = cbxTimasAngelegt.Checked
|
||||
|
||||
|
||||
|
||||
Dim dtbereitsausgezahlteUE As DataTable
|
||||
Dim bereitsgezahlteueberstunden = "select uest_date as Datum ,isnull(uest_100,0) as ÜS100 , isnull(uest_50,0) as ÜS50, isnull(uest_25,0) as ÜS25, isnull(uest_0,0) as ÜS50_Saldo, isnull(uest_paidout_sum,0) as ausbezahlt, uest_systemuser as eingetragen_von ,uest_created as eingetragen_am
|
||||
FROM [ADMIN].[dbo].[tblUeberstunden]
|
||||
where uest_deleted = 0 and uest_maId = " & mitarbeiter.mit_id & "
|
||||
Order by uest_date"
|
||||
|
||||
dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
|
||||
|
||||
dgvUberstundenauszahlungen.DataSource = dtbereitsausgezahlteUE
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click_1(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
'neue GUI für Änderungen im Timas
|
||||
Dim frmMitarbDetails As New frmMitarbTimas()
|
||||
frmMitarbDetails.mid = mitarbeiter.mit_timasId
|
||||
Me.Cursor = Cursors.Default
|
||||
frmMitarbDetails.ShowDialog()
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user