From 16abe58defa380f03fa2009327d975745a534bc9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 29 Oct 2024 10:47:40 +0100 Subject: [PATCH 1/3] Uebrstunden, MDMFunctions --- SDL/My Project/AssemblyInfo.vb | 4 +-- .../Classes/cMDMFunctionsAllgemein.vb | 2 +- .../frmUeberstundenauszahlen.vb | 33 ++++++++++++++----- 3 files changed, 28 insertions(+), 11 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index 5b44b6ab..3457f493 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index f0606694..064a353f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -195,7 +195,7 @@ Public Class cMDMFunctionsAllgemein sumChangedOK = False End If - If Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then + If Not IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) AndAlso Not Math.Round(CDbl(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")), 2) = curUStV_SummeVorschaubetragEUR_PLOSE Then sumChangedPLOSE = True sumChangedPLOSEOK = False End If diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index 3fbaf5b5..e6564242 100644 --- 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 From 7c5d04b007f02f91910cd48c6cddcda54307125a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 29 Oct 2024 10:49:24 +0100 Subject: [PATCH 2/3] MDMFunctions --- .../Classes/cMDMFunctionsAllgemein.vb | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 064a353f..079e5737 100644 --- 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 IsDBNull(r.Item("UStV_SummeVorschaubetragEUR_PLOSE")) AndAlso 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.ToString.Replace(",", ".") + 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 From 2f3dd2275e54db488005bfd70d941795bead4f72 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 29 Oct 2024 11:39:01 +0100 Subject: [PATCH 3/3] Bugfix essensbestellungen --- SDL/frmEssensbestellungen.vb | 15 ++++++++++++++- .../Classes/cMDMFunctionsAllgemein.vb | 2 +- 2 files changed, 15 insertions(+), 2 deletions(-) diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index caa7f3d9..6f3a41b5 100644 --- 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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 079e5737..27149f0d 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb @@ -223,7 +223,7 @@ Public Class cMDMFunctionsAllgemein 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.ToString.Replace(",", ".") + kndErw.kde_UStV_SummeVorschaubetragEUR_PLOSE = curUStV_SummeVorschaubetragEUR_PLOSE sumChangedPLOSEOK = kndErw.SAVE Else