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

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

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,8 +221,15 @@ Public Class cMDMFunctionsAllgemein
                     End If
 
                     If sumChangedPLOSE Then
+                        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
             End If

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
-
+                    '.AutoGenerateColumns = False
-                    .DataSource = dtbereitsausgezahlteUE
+                    '.Columns("ignoreAuszahlungsdatum").CellTemplate = cell
-
+                    .Columns("ignoreAuszahlungsdatum").Width = 70
-                    .Columns("geloescht").Visible = False
+                    .Columns("ignoreAuszahlungsdatum").HeaderText = "zu spät eingetragen"
-                    .Columns("ignoreAuszahlungsdatum").Width = 50
-                    .Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
                     .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