MDM, div.

2024-08-30 16:55:58 +02:00
parent 3a6ba31756
commit ad7fa10999
13 changed files with 2355 additions and 2029 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb
@@ -79,7 +79,8 @@ Public Class cKundenErweitert
    Property kde_abweichendesZZVL As Object = Nothing
    Property kde_HRNr As Object = Nothing
    Property kde_Kapital As Object = Nothing
-    Property dke_KapitalWaehrung As Object = Nothing
+    Property kde_KapitalWaehrung As Object = Nothing
+    Property kde_GruendungsDatum As Object = Nothing

    Dim SQL As New SQL

@@ -160,7 +161,8 @@ Public Class cKundenErweitert
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_abweichendesZZVL", kde_abweichendesZZVL))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_HRNr", kde_HRNr))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Kapital", kde_Kapital))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dke_KapitalWaehrung", dke_KapitalWaehrung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_KapitalWaehrung", kde_KapitalWaehrung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_GruendungsDatum", kde_GruendungsDatum))

        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb
@@ -22,7 +22,6 @@ Partial Class frmUeberstundenauszahlen
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
-        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUeberstundenauszahlen))
        Me.dtpMonat = New System.Windows.Forms.DateTimePicker()
        Me.lblMonat = New System.Windows.Forms.Label()
@@ -53,6 +52,7 @@ Partial Class frmUeberstundenauszahlen
        Me.txtAusz50vonSaldo = New System.Windows.Forms.TextBox()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.Label12 = New System.Windows.Forms.Label()
+        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
        Me.txtBruttoSum = New System.Windows.Forms.TextBox()
        Me.txtNettoSum = New System.Windows.Forms.TextBox()
        Me.Label11 = New System.Windows.Forms.Label()
@@ -71,7 +71,7 @@ Partial Class frmUeberstundenauszahlen
        Me.cbx100 = New System.Windows.Forms.CheckBox()
        Me.txtberAusz25 = New System.Windows.Forms.TextBox()
        Me.cbxoverwrite = New System.Windows.Forms.CheckBox()
-        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.txt50x1 = New System.Windows.Forms.TextBox()
        Me.cbxTeilzeit = New System.Windows.Forms.CheckBox()
@@ -79,12 +79,11 @@ Partial Class frmUeberstundenauszahlen
        Me.lblWarning = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.PictureBox5 = New System.Windows.Forms.PictureBox()
-        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
        Me.cbxalle = New System.Windows.Forms.CheckBox()
-        Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
        Me.Label69 = New System.Windows.Forms.Label()
        CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
@@ -403,6 +402,17 @@ Partial Class frmUeberstundenauszahlen
        Me.Label12.TabIndex = 54
        Me.Label12.Text = "Summe"
        '
+        'LinkLabel1
+        '
+        Me.LinkLabel1.AutoSize = True
+        Me.LinkLabel1.Location = New System.Drawing.Point(447, 258)
+        Me.LinkLabel1.Name = "LinkLabel1"
+        Me.LinkLabel1.Size = New System.Drawing.Size(161, 13)
+        Me.LinkLabel1.TabIndex = 131
+        Me.LinkLabel1.TabStop = True
+        Me.LinkLabel1.Text = "zu unterschreibende Dokumente"
+        Me.LinkLabel1.Visible = False
+        '
        'txtBruttoSum
        '
        Me.txtBruttoSum.Location = New System.Drawing.Point(316, 147)
@@ -650,17 +660,6 @@ Partial Class frmUeberstundenauszahlen
        Me.PictureBox5.TabIndex = 130
        Me.PictureBox5.TabStop = False
        '
-        'LinkLabel1
-        '
-        Me.LinkLabel1.AutoSize = True
-        Me.LinkLabel1.Location = New System.Drawing.Point(447, 258)
-        Me.LinkLabel1.Name = "LinkLabel1"
-        Me.LinkLabel1.Size = New System.Drawing.Size(161, 13)
-        Me.LinkLabel1.TabIndex = 131
-        Me.LinkLabel1.TabStop = True
-        Me.LinkLabel1.Text = "zu unterschreibende Dokumente"
-        Me.LinkLabel1.Visible = False
-        '
        'TabControl1
        '
        Me.TabControl1.Controls.Add(Me.TabPage1)
@@ -724,8 +723,6 @@ Partial Class frmUeberstundenauszahlen
        Me.dgvUberstundenauszahlungen.AKTUALISIERUNGS_INTERVALL = -1
        Me.dgvUberstundenauszahlungen.AllowUserToAddRows = False
        Me.dgvUberstundenauszahlungen.AllowUserToDeleteRows = False
-        Me.dgvUberstundenauszahlungen.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.ColumnHeader
-        Me.dgvUberstundenauszahlungen.AutoSizeRowsMode = System.Windows.Forms.DataGridViewAutoSizeRowsMode.AllHeaders
        Me.dgvUberstundenauszahlungen.BackgroundColor = System.Drawing.Color.White
        Me.dgvUberstundenauszahlungen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.dgvUberstundenauszahlungen.Location = New System.Drawing.Point(8, 20)
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
+++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
@@ -1,6 +1,7 @@

 Imports System.Drawing
 Imports System.Globalization
+Imports System.Reflection
 Imports System.Text
 Imports System.Threading
 Imports System.Windows.Forms
@@ -501,8 +502,10 @@ Public Class frmUeberstundenauszahlen
        If TabControl1.SelectedIndex = 1 Then
            Try

+
+
                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 as 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) ignoreAuszahlungsdatum
                FROM [ADMIN].[dbo].[tblUeberstunden] 
                where uest_timasId = " & MA.mit_timasId & IIf(Not cbxalle.Checked, " and uest_deleted = 0", "") & "
                Order by uest_date"
@@ -512,10 +515,14 @@ Public Class frmUeberstundenauszahlen
                With dgvUberstundenauszahlungen

                    .DataSource = dtbereitsausgezahlteUE
+
                    .Columns("geloescht").Visible = False
+                    .Columns("ignoreAuszahlungsdatum").Width = 50
                    .Columns("ignoreAuszahlungsdatum").HeaderText = "Auszdat. irgnoriert"
                    .Columns("ignoreAuszahlungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

+
+
                    For Each row As DataGridViewRow In .Rows

                        If Not IsDBNull(row.Cells("geloescht").Value) Then
@@ -593,6 +600,7 @@ Public Class frmUeberstundenauszahlen
        End If
    End Sub

+
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim checkauszahlungsdatum As Boolean = False