Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

2026-01-13 10:02:14 +01:00
parent 0ebe4cf198 df97e245b8
commit 84e9e86a4d
27 changed files with 355 additions and 123 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb
@@ -173,7 +173,18 @@ Public Class cAufschubKonten
        Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
    End Function

-    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing) As String
+    Public Function CalcSaldo(Optional dtDate As DataTable = Nothing, Optional Stichtag As Date? = Nothing) As String
+
+
+        Dim StichtagSQLGesamtsicherheit = ""
+        Dim StichtagSQLGesamtsicherheitsPositionen = ""
+        If Stichtag.HasValue Then
+            StichtagSQLGesamtsicherheitsPositionen = " And cast(gsp_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
+            StichtagSQLGesamtsicherheit = " AND cast(gs_datum as Date) <= '" & Stichtag.Value.ToShortDateString & "'"
+
+        End If
+
+

        Dim SaldoString As String =
            "select
@@ -184,24 +195,35 @@ Public Class cAufschubKonten
    	                when gs_art = 'Close' then gs_sicherheitsbetrag
                    end) 
 					
-					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+
+					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & ")+

                    (select SUM( 
                    case  
    	                when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
    	                when gsp_art = 'Close' then gsp_sicherheitsbetrag
                    end) 
-					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' And ISNULL(gs_ReferenzAenderung,0) = 0 ))"
+					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " And ISNULL(gs_ReferenzAenderung,0) = 0 )" & StichtagSQLGesamtsicherheitsPositionen & ")"

        Dim dt As New DataTable
-            Dim mrn As Double = 0
-            dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
-            If dt.Rows(0).Item(0).ToString.Length > 0 Then
-                mrn = dt.Rows(0).Item(0)
-            End If
+        Dim mrn As Double = 0
+        dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
+        If dt.Rows(0).Item(0).ToString.Length > 0 Then
+            mrn = dt.Rows(0).Item(0)
+        End If
+
+        If Stichtag.HasValue Then
+            brgakto_gs_aktSaldo = getReferenzbetrag(Stichtag.Value) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge zum Stichtag!!! -> nicht updaten, nur INFO!!!!
+            brgakto_gs_aktSaldo += mrn
+            MsgBox("Saldo zum Stichtag " & Stichtag.Value & ":" & vbNewLine & brgakto_gs_aktSaldo.ToString("N2"))
+        Else
+            brgakto_gs_aktSaldo = getReferenzbetrag(Today) 'aktueller Referenzbetrag + Verwahrungsausgänge - Verwahrungseingänge....
+            brgakto_gs_aktSaldo += mrn
+            updateSaldo()
+        End If
+
+
+

-        brgakto_gs_aktSaldo = getReferenzbetrag(Today) + mrn
-        updateSaldo()


        Return brgakto_gs_aktSaldo
@@ -211,7 +233,7 @@ Public Class cAufschubKonten

        Try

-            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And [brgarefb_gueltig_ab] <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)
+            Return SQL.getValueTxtBySql("select TOP (1) brgarefb_refbetrag from [tblBrgAufschubReferenzberaege] where [brgarefb_gsid]='" & brgakto_id & "' and brgarefb_gs_aktiv = 1 And cast([brgarefb_gueltig_ab] as Date) <= '" & nowDate & "' order by [brgarefb_gueltig_ab] desc", "ADMIN",,,,)

        Catch ex As Exception
            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
--- a/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
@@ -3,6 +3,7 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Net
 Imports System.Reflection
+Imports DocumentFormat.OpenXml.Office2016.Drawing.ChartDrawing

 Public Class cIDS

@@ -632,6 +633,10 @@ Public Class cIDS

    End Function

+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblIDSInvoicesNewSplittedByCountry] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
        Try
            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
@@ -278,6 +278,10 @@ Public Class cRMC

    End Function

+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblRMCImport] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
    Public Class Paramter

        Shared apiSettingsloaded As Boolean = False
--- 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/Classes/cUTA.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
@@ -41,6 +41,10 @@ Public Class cUTA

    End Function

+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblUTAImportNew] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+
    Public Class UTAHeader

        Property Übertragungsnummer As Integer
--- 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/MSE/cMSEAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
@@ -67,6 +67,10 @@ Public Class cMSEAPI

    End Function

+    Public Shared Function countBackToCustomerNotSet(SQL As SQL) As Integer
+        Return SQL.getValueTxtBySql("SELECT count(InvToCustomer) FROM [tblMSEInvoices] where InvToCustomer Is null ", "FMZOLL",,, -1)
+    End Function
+



--- 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