Timas, Fakt -> Leihgeldkasse, etc.

2026-01-09 17:08:34 +01:00
parent 4da7d188d1
commit dc62abfd64
16 changed files with 154 additions and 53 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
@@ -501,6 +501,9 @@ Class TrdInvoice_FUNCTIONS
                        If Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen von") Then
                            Buchungstext = Buchungstext.Replace("Zahlungen von", "Zinsen")
                            ' Buchungstext &= " / nicht verzinsen"
+                        ElseIf Buchungstext <> "" AndAlso Buchungstext.Contains("Zahlungen") Then
+                            Buchungstext = Buchungstext.Replace("Zahlungen", "Zinsen")
+
                        End If

                        If TRD_INVOICE.SAVE Then
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.Designer.vb
@@ -35,6 +35,7 @@ Partial Class frmMitarbeitersuche
        Me.lblStatusZE = New System.Windows.Forms.Label()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.pnlZeiten = New System.Windows.Forms.Panel()
+        Me.cbxLaengergearbeitet = New System.Windows.Forms.CheckBox()
        Me.btnAkten = New System.Windows.Forms.Button()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
        Me.Button2 = New System.Windows.Forms.Button()
@@ -264,6 +265,7 @@ Partial Class frmMitarbeitersuche
        Me.pnlZeiten.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.pnlZeiten.BackColor = System.Drawing.Color.Cornsilk
        Me.pnlZeiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.pnlZeiten.Controls.Add(Me.cbxLaengergearbeitet)
        Me.pnlZeiten.Controls.Add(Me.btnAkten)
        Me.pnlZeiten.Controls.Add(Me.PictureBox5)
        Me.pnlZeiten.Controls.Add(Me.Button2)
@@ -280,6 +282,18 @@ Partial Class frmMitarbeitersuche
        Me.pnlZeiten.TabIndex = 22
        Me.pnlZeiten.Visible = False
        '
+        'cbxLaengergearbeitet
+        '
+        Me.cbxLaengergearbeitet.AutoSize = True
+        Me.cbxLaengergearbeitet.ForeColor = System.Drawing.Color.Black
+        Me.cbxLaengergearbeitet.Location = New System.Drawing.Point(367, -1)
+        Me.cbxLaengergearbeitet.Name = "cbxLaengergearbeitet"
+        Me.cbxLaengergearbeitet.Size = New System.Drawing.Size(109, 17)
+        Me.cbxLaengergearbeitet.TabIndex = 131
+        Me.cbxLaengergearbeitet.Text = "Länger gearbeitet"
+        Me.cbxLaengergearbeitet.UseVisualStyleBackColor = True
+        Me.cbxLaengergearbeitet.Visible = False
+        '
        'btnAkten
        '
        Me.btnAkten.BackColor = System.Drawing.Color.White
@@ -991,4 +1005,5 @@ Partial Class frmMitarbeitersuche
    Friend WithEvents Label17 As Windows.Forms.Label
    Friend WithEvents lblNotfall_Handy As Windows.Forms.Label
    Friend WithEvents lblNotfall_Name As Windows.Forms.Label
+    Friend WithEvents cbxLaengergearbeitet As Windows.Forms.CheckBox
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
@@ -107,7 +107,7 @@ Public Class frmMitarbeitersuche
            lblHandyNr.Visible = MA.mit_MAVerzeichnis_allowHandynummer
            lblHandyNr.Text = If(MA.mit_mobiltel, "")

-            cbxHomeoffice.Checked = MA.mit_homeoffice
+            cbxHomeoffice.Checked = IIf(MA.mit_homeoffice AndAlso Not MA.mit_timasMehrereFirmen, True, False)


            Select Case If(MA.mit_abteilung, "")
@@ -203,6 +203,15 @@ Public Class frmMitarbeitersuche

            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_AKTENGANG", "SDL") Then btnAkten.Visible = True

+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_LÄNGER_ARBEITEN", "SDL") Then cbxLaengergearbeitet.Visible = True
+
+            'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZE_HOMEOFFICE", "SDL") Then cbxHomeoffice.Visible = True
+
+            If MA.mit_timasMehrereFirmen Then
+                cbxHomeoffice.Visible = False
+            End If
+
+
            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Überstunden_auszahlen", "SDL") Then
                If MA.getFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then 'MA derselben Firma bearbeiten
                    Button3.Visible = True
@@ -442,9 +451,14 @@ Public Class frmMitarbeitersuche


                'normales kommen/gehen
-                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked, "Homeoffice", "Büro") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
+                Dim a As MsgBoxResult = MsgBox(IIf(cbxHomeoffice.Checked AndAlso Not MA.mit_timasMehrereFirmen, "Homeoffice", "Büro") & IIf(cbxLaengergearbeitet.Checked, " (Länger gearbeitet)", "") & vbNewLine & sender.text & " für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & vbNewLine & Now.ToString(), vbYesNo)
                If a = vbYes Then
                    Dim info As String = ""
+
+                    If art = "out" AndAlso cbxLaengergearbeitet.Checked Then
+                        resultCode = 15 'länger arbeiten
+                    End If
+
                    timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, art, resultCode)
                    MsgBox(info)
                    Thread.Sleep(2000) 'warten bis Eintrag in Timas-DB
@@ -484,12 +498,14 @@ Public Class frmMitarbeitersuche
                        btnZEGehen.Enabled = True
                        btnZEKommen.Enabled = False
                        btnAkten.Enabled = False
+                        cbxLaengergearbeitet.Enabled = True
                    Else
                        lblStatusZE.Text = "OFFLINE"
                        lblStatusZE.BackColor = Color.Firebrick
                        btnZEGehen.Enabled = False
                        btnZEKommen.Enabled = True
                        btnAkten.Enabled = True
+                        cbxLaengergearbeitet.Enabled = False
                    End If
                Else

@@ -503,7 +519,7 @@ Public Class frmMitarbeitersuche
                    btnZEKommen.Enabled = False
                    Button2.Enabled = False
                    btnAkten.Enabled = False
-
+                    cbxLaengergearbeitet.Enabled = False

                End If

--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
@@ -934,10 +934,10 @@ Public Class cTimasAPI

        Select Case inout
            Case "in"
-                entryType = "KOMMT" & IIf(art = 0, "(Büro)", "") & IIf(art = 3, "(Homeoffice)", "")
+                entryType = "KOMMT" & IIf(art = 0, " (Büro)", "") & IIf(art = 3, " (Homeoffice)", "")

            Case "out"
-                entryType = "GEHT"
+                entryType = "GEHT" & IIf(art = 15, " (Länger gearbeitet)", "")

            Case Else
                entryType = "falscher ErfassgsTyp: " & inout
--- a/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb
+++ b/VERAG_PROG_ALLGEMEIN/frmTimasabfrage.vb
@@ -1,5 +1,6 @@
 Public Class frmTimasabfrage
    Dim mit As VERAG_PROG_ALLGEMEIN.cMitarbeiter
+    Dim nurBuero As Boolean = False
    Public Datum As Date = CDate(Now.ToShortDateString)
    Public typ As Integer = -1
    Public Schalter As Integer = -1
@@ -15,11 +16,25 @@
        mit = mit_
    End Sub

+    Sub New(mit_ As cMitarbeiter, nurBuero_ As Boolean)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        mit = mit_
+        nurBuero = nurBuero_
+    End Sub
+
    Private Sub frmTimasabfrage(sender As Object, e As EventArgs) Handles Me.Load

        cboTyp.Items.Clear()
        cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Büro", "0"))
-        cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+        If Not nurBuero Then
+            cboTyp.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Homeoffice", "3"))
+            rbHO.Enabled = True
+        Else
+            rbHO.Enabled = False
+        End If
+
+

        cbxSchalterID.Items.Clear()
        cbxSchalterID.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -29,7 +44,7 @@

        If mit IsNot Nothing Then
            Label1.Text = "Zeit erfassen für: " & mit.mit_nname & " " & mit.mit_vname
-            If mit.mit_homeoffice Then
+            If mit.mit_homeoffice AndAlso Not nurBuero Then
                rbHO.Checked = True
                cboTyp.changeItem("Homeoffice")
            Else