Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024

2024-10-30 23:19:43 +01:00
parent 29cfae0757 2f3dd2275e
commit c71292e5d6
3 changed files with 51 additions and 11 deletions
--- a/SDL/frmEssensbestellungen.vb
+++ b/SDL/frmEssensbestellungen.vb
@@ -277,6 +277,7 @@ Public Class frmEssensbestellungen
            If Not txtMenu_montag.Text.ToLower.StartsWith(urlaub) AndAlso Not txtMenu_montag.Text.ToLower.StartsWith(feiertag) Then
                rbMenuAlt_montag.Enabled = True
                rbMenu_montag.Enabled = True
+                cbxAlt_montag.Enabled = True
                If checkIfGroupBoxIsSetFirstTime(GroupBoxMontag) Then
                    rbMenu_montag.Checked = True
                End If
@@ -285,6 +286,7 @@ Public Class frmEssensbestellungen
        Else
            rbMenuAlt_montag.Enabled = False
            rbMenu_montag.Enabled = False
+            cbxAlt_montag.Enabled = False
            txtAlt_montag.Text = ""
        End If

@@ -293,6 +295,7 @@ Public Class frmEssensbestellungen
            If Not txtMenu_dienstag.Text.ToLower.StartsWith(urlaub) AndAlso Not txtMenu_dienstag.Text.ToLower.StartsWith(feiertag) Then
                rbMenuAlt_dienstag.Enabled = True
                rbMenu_dienstag.Enabled = True
+                cbxAlt_dienstag.Enabled = True
                If checkIfGroupBoxIsSetFirstTime(GroupBoxDienstag) Then
                    rbMenu_dienstag.Checked = True
                End If
@@ -301,12 +304,14 @@ Public Class frmEssensbestellungen
        Else
            rbMenu_dienstag.Enabled = False
            rbMenuAlt_dienstag.Enabled = False
+            cbxAlt_dienstag.Enabled = False
            txtAlt_dienstag.Text = ""
        End If

        If cb_mittwoch.Checked Then
            If Not txtMenu_mittwoch.Text.ToLower.StartsWith(urlaub) AndAlso Not txtMenu_mittwoch.Text.ToLower.StartsWith(feiertag) Then
                rbMenuAlt_mittwoch.Enabled = True
+                cbxAlt_mittwoch.Enabled = True
                rbMenu_mittwoch.Enabled = True
                If checkIfGroupBoxIsSetFirstTime(Mittwoch) Then
                    rbMenu_mittwoch.Checked = True
@@ -316,6 +321,7 @@ Public Class frmEssensbestellungen
        Else
            rbMenu_mittwoch.Enabled = False
            rbMenuAlt_mittwoch.Enabled = False
+            cbxAlt_mittwoch.Enabled = False
            txtAlt_mittwoch.Text = ""
        End If

@@ -323,6 +329,7 @@ Public Class frmEssensbestellungen
        If cbdonnerstag.Checked Then
            If Not txtMenu_donnerstag.Text.ToLower.StartsWith(urlaub) AndAlso Not txtMenu_donnerstag.Text.ToLower.StartsWith(feiertag) Then
                rbMenuAlt_donnerstag.Enabled = True
+                cbxAlt_donnerstag.Enabled = True
                rbMenu_donnerstag.Enabled = True
                If checkIfGroupBoxIsSetFirstTime(GroupBoxDonnerstag) Then
                    rbMenu_donnerstag.Checked = True
@@ -332,6 +339,7 @@ Public Class frmEssensbestellungen
        Else
            rbMenu_donnerstag.Enabled = False
            rbMenuAlt_donnerstag.Enabled = False
+            cbxAlt_donnerstag.Enabled = False
            txtAlt_donnerstag.Text = ""
        End If

@@ -339,6 +347,7 @@ Public Class frmEssensbestellungen
            If Not txtMenu_freitag.Text.ToLower.StartsWith(urlaub) AndAlso Not txtMenu_freitag.Text.ToLower.StartsWith(feiertag) Then
                rbMenuAlt_freitag.Enabled = True
                rbMenu__freitag.Enabled = True
+                cbxAlt_freitag.Enabled = True
                If checkIfGroupBoxIsSetFirstTime(GroupBoxFreitag) Then
                    rbMenu__freitag.Checked = True
                End If
@@ -347,6 +356,7 @@ Public Class frmEssensbestellungen
        Else
            rbMenu__freitag.Enabled = False
            rbMenuAlt_freitag.Enabled = False
+            cbxAlt_freitag.Enabled = False
            txtAlt_freitag.Text = ""
        End If
        countChecks()
@@ -460,12 +470,15 @@ Public Class frmEssensbestellungen

                    If TypeOf c Is VERAG_PROG_ALLGEMEIN.MyComboBox AndAlso (c.Enabled = True Or outdated = True And MyPanel1.Enabled = False) Then
                        Dim cbx As VERAG_PROG_ALLGEMEIN.MyComboBox = c
-                        If cbx.Visible = True AndAlso cbx.SelectedItem IsNot Nothing Then

+                        If cbx.Visible = True AndAlso cbx.SelectedItem IsNot Nothing Then
+                            'If gb.Enabled Then
                            countKebab = countKebab + 1
                            countlaCarte = countlaCarte - 1
                        End If
+                        'End If
                    End If
+
                Next
            End If
        Next
--- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
@@ -195,7 +195,10 @@ Public Class cMDMFunctionsAllgemein
                        sumChangedOK = False
                    End If

-                    If Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then
+                    If IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) Then
+                        sumChangedPLOSE = True
+                        sumChangedPLOSEOK = False
+                    ElseIf Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then
                        sumChangedPLOSE = True
                        sumChangedPLOSEOK = False
                    End If
@@ -218,7 +221,14 @@ Public Class cMDMFunctionsAllgemein
                    End If

                    If sumChangedPLOSE Then
-                        sumChangedPLOSEOK = sql.doSQL("Update tblKundenErweitert set  kde_UStV_SummeVorschaubetragEUR_PLOSE = " & curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".") & " WHERE kde_KundenNr = " & r.Item("KundenNr"), "FMZOLL")
+                        If IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) Then
+                            Dim kndErw As New cKundenErweitert(r.Item("KundenNr"))
+                            kndErw.kde_UStV_SummeVorschaubetragEUR_PLOSE = curUStV_SummeVorschaubetragEUR_PLOSE
+                            sumChangedPLOSEOK = kndErw.SAVE
+                        Else
+
+                            sumChangedPLOSEOK = sql.doSQL("Update tblKundenErweitert set  kde_UStV_SummeVorschaubetragEUR_PLOSE = " & curUStV_SummeVorschaubetragEUR_PLOSE.ToString.Replace(",", ".") & " WHERE kde_KundenNr = " & r.Item("KundenNr"), "FMZOLL")
+                        End If
                    End If

                Next
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
@@ -501,22 +501,39 @@ Public Class frmUeberstundenauszahlen



+
                Dim dtbereitsausgezahlteUE As DataTable
-                Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht,  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, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end as bit) ignoreAuszahlungsdatum
+                Dim bereitsgezahlteueberstunden = "select uest_deleted as geloescht,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, cast (case when isnull([uest_ignorePayoutDate],0) = 0 then 0 else 1 end as bit) as ignoreAuszahlungsdatum
                FROM [ADMIN].[dbo].[tblUeberstunden] 
                where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
                Order by uest_date"

-                dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
+
+
+
+                dgvUberstundenauszahlungen.SET_SQL(bereitsgezahlteueberstunden, "ADMIN")
+                dgvUberstundenauszahlungen.LOAD()
+
+                Dim cell As DataGridViewCell = New DataGridViewCheckBoxCell()

                With dgvUberstundenauszahlungen
-
-                    .DataSource = dtbereitsausgezahlteUE
-
-                    .Columns("geloescht").Visible = False
-                    .Columns("ignoreAuszahlungsdatum").Width = 50
-                    .Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
+                    '.AutoGenerateColumns = False
+                    '.Columns("ignoreAuszahlungsdatum").CellTemplate = cell
+                    .Columns("ignoreAuszahlungsdatum").Width = 70
+                    .Columns("ignoreAuszahlungsdatum").HeaderText = "zu spät eingetragen"
                    .Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+                    .Columns("geloescht").Width = 70
+                    .Columns("Datum").Width = 70
+                    .Columns("ÜS100").Width = 70
+                    .Columns("ÜS100").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("ÜS50").Width = 70
+                    .Columns("ÜS50").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("ÜS25").Width = 70
+                    .Columns("ÜS25").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("ÜS50_Saldo").Width = 70
+                    .Columns("ÜS50_Saldo").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+                    .Columns("ausbezahlt").Width = 70
+                    .Columns("ausbezahlt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight