edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Maut, QU-Kontrolle, MAhnlauf, Kundebearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-09-06 15:40:58 +02:00
parent ad7fa10999
commit a9228921e0
32 changed files with 6225 additions and 1100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
SDL/frmMain.vb
View File

@@ -154,7 +154,7 @@ Public Class frmMain
Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in")
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "in", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
MsgBox(info)
End If
End If
@@ -562,7 +562,7 @@ Public Class frmMain
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Try
If False Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI("timas")
@@ -574,7 +574,7 @@ Public Class frmMain
Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out", IIf(cAllgemein.MITARBEITER.mit_homeoffice, 3, 0))
MsgBox(info)
Else
@@ -1112,6 +1112,11 @@ Public Class frmMain
Dim f As New SDL.frmFormulare
f.Show()
End Sub
Private Sub MailvorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailvorlagenToolStripMenuItem.Click
Dim f As New SDL.frmdynMailvorlagen(VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MAILVORLAGEN_ALLE", "SDL"))
f.ShowDialog(Me)
End Sub
End Class
Public Class MyRenderer