TimasAPI, Uberstunden, Mailvorlagen, etc,

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb

@@ -22,6 +22,7 @@ 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()
@@ -39,7 +40,6 @@ Partial Class frmUeberstundenauszahlen
         Me.txt50x15 = New System.Windows.Forms.TextBox()
         Me.txtAusz100 = New System.Windows.Forms.TextBox()
         Me.txtAusz50 = New System.Windows.Forms.TextBox()
-        Me.CheckVatTestService1 = New VERAG_PROG_ALLGEMEIN.eu.europa.ec.checkVatTestService()
         Me.cbxabwDatum = New System.Windows.Forms.CheckBox()
         Me.lblBis = New System.Windows.Forms.Label()
         Me.dtpBis = New System.Windows.Forms.DateTimePicker()
@@ -71,6 +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.Label8 = New System.Windows.Forms.Label()
         Me.txt50x1 = New System.Windows.Forms.TextBox()
         Me.cbxTeilzeit = New System.Windows.Forms.CheckBox()
@@ -79,20 +80,28 @@ Partial Class frmUeberstundenauszahlen
         Me.Label5 = New System.Windows.Forms.Label()
         Me.PictureBox5 = New System.Windows.Forms.PictureBox()
         Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
-        Me.dgvUeberstunden = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.TabControl1 = New System.Windows.Forms.TabControl()
+        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.dgvUberstundenauszahlungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.Label69 = New System.Windows.Forms.Label()
         CType(Me.picDel, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel1.SuspendLayout()
         CType(Me.picShow, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabControl1.SuspendLayout()
+        Me.TabPage1.SuspendLayout()
+        Me.TabPage2.SuspendLayout()
+        CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'dtpMonat
         '
         Me.dtpMonat.CustomFormat = "yyyy/MM"
         Me.dtpMonat.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.dtpMonat.Location = New System.Drawing.Point(15, 41)
+        Me.dtpMonat.Location = New System.Drawing.Point(6, 42)
         Me.dtpMonat.Name = "dtpMonat"
         Me.dtpMonat.Size = New System.Drawing.Size(81, 20)
         Me.dtpMonat.TabIndex = 0
@@ -100,7 +109,7 @@ Partial Class frmUeberstundenauszahlen
         'lblMonat
         '
         Me.lblMonat.AutoSize = True
-        Me.lblMonat.Location = New System.Drawing.Point(12, 25)
+        Me.lblMonat.Location = New System.Drawing.Point(3, 26)
         Me.lblMonat.Name = "lblMonat"
         Me.lblMonat.Size = New System.Drawing.Size(37, 13)
         Me.lblMonat.TabIndex = 1
@@ -170,7 +179,7 @@ Partial Class frmUeberstundenauszahlen
         'lblMA
         '
         Me.lblMA.AutoSize = True
-        Me.lblMA.Location = New System.Drawing.Point(236, 25)
+        Me.lblMA.Location = New System.Drawing.Point(227, 26)
         Me.lblMA.Name = "lblMA"
         Me.lblMA.Size = New System.Drawing.Size(56, 13)
         Me.lblMA.TabIndex = 10
@@ -179,7 +188,7 @@ Partial Class frmUeberstundenauszahlen
         'Label7
         '
         Me.Label7.AutoSize = True
-        Me.Label7.Location = New System.Drawing.Point(236, 45)
+        Me.Label7.Location = New System.Drawing.Point(227, 46)
         Me.Label7.Name = "Label7"
         Me.Label7.Size = New System.Drawing.Size(65, 13)
         Me.Label7.TabIndex = 11
@@ -231,16 +240,10 @@ Partial Class frmUeberstundenauszahlen
         Me.txtAusz50.TabIndex = 17
         Me.txtAusz50.Text = "0"
         '
-        'CheckVatTestService1
-        '
-        Me.CheckVatTestService1.Credentials = Nothing
-        Me.CheckVatTestService1.Url = "http://ec.europa.eu/taxation_customs/vies/services/checkVatTestService"
-        Me.CheckVatTestService1.UseDefaultCredentials = False
-        '
         'cbxabwDatum
         '
         Me.cbxabwDatum.AutoSize = True
-        Me.cbxabwDatum.Location = New System.Drawing.Point(15, 5)
+        Me.cbxabwDatum.Location = New System.Drawing.Point(6, 6)
         Me.cbxabwDatum.Name = "cbxabwDatum"
         Me.cbxabwDatum.Size = New System.Drawing.Size(129, 17)
         Me.cbxabwDatum.TabIndex = 18
@@ -250,7 +253,7 @@ Partial Class frmUeberstundenauszahlen
         'lblBis
         '
         Me.lblBis.AutoSize = True
-        Me.lblBis.Location = New System.Drawing.Point(134, 25)
+        Me.lblBis.Location = New System.Drawing.Point(125, 26)
         Me.lblBis.Name = "lblBis"
         Me.lblBis.Size = New System.Drawing.Size(20, 13)
         Me.lblBis.TabIndex = 20
@@ -261,7 +264,7 @@ Partial Class frmUeberstundenauszahlen
         '
         Me.dtpBis.CustomFormat = "yyyy/MM/dd"
         Me.dtpBis.Format = System.Windows.Forms.DateTimePickerFormat.Custom
-        Me.dtpBis.Location = New System.Drawing.Point(137, 41)
+        Me.dtpBis.Location = New System.Drawing.Point(128, 42)
         Me.dtpBis.Name = "dtpBis"
         Me.dtpBis.Size = New System.Drawing.Size(81, 20)
         Me.dtpBis.TabIndex = 19
@@ -384,7 +387,7 @@ Partial Class frmUeberstundenauszahlen
         Me.Panel1.Controls.Add(Me.txt50x15)
         Me.Panel1.Controls.Add(Me.txtAusz100)
         Me.Panel1.Controls.Add(Me.txtAusz50)
-        Me.Panel1.Location = New System.Drawing.Point(15, 67)
+        Me.Panel1.Location = New System.Drawing.Point(6, 68)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(619, 258)
         Me.Panel1.TabIndex = 30
@@ -565,6 +568,20 @@ Partial Class frmUeberstundenauszahlen
         Me.cbxoverwrite.Text = "max. auszahlbar"
         Me.cbxoverwrite.UseVisualStyleBackColor = True
         '
+        'dgvUeberstunden
+        '
+        Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvUeberstunden.AllowUserToAddRows = False
+        Me.dgvUeberstunden.AllowUserToDeleteRows = False
+        Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White
+        Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvUeberstunden.Location = New System.Drawing.Point(538, 11)
+        Me.dgvUeberstunden.Name = "dgvUeberstunden"
+        Me.dgvUeberstunden.ReadOnly = True
+        Me.dgvUeberstunden.Size = New System.Drawing.Size(70, 117)
+        Me.dgvUeberstunden.TabIndex = 13
+        Me.dgvUeberstunden.Visible = False
+        '
         'Label8
         '
         Me.Label8.AutoSize = True
@@ -586,7 +603,7 @@ Partial Class frmUeberstundenauszahlen
         'cbxTeilzeit
         '
         Me.cbxTeilzeit.AutoSize = True
-        Me.cbxTeilzeit.Location = New System.Drawing.Point(239, 5)
+        Me.cbxTeilzeit.Location = New System.Drawing.Point(230, 6)
         Me.cbxTeilzeit.Name = "cbxTeilzeit"
         Me.cbxTeilzeit.Size = New System.Drawing.Size(59, 17)
         Me.cbxTeilzeit.TabIndex = 31
@@ -597,7 +614,7 @@ Partial Class frmUeberstundenauszahlen
         '
         Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image)
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(189, 5)
+        Me.PictureBox1.Location = New System.Drawing.Point(180, 6)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(29, 26)
         Me.PictureBox1.TabIndex = 38
@@ -607,7 +624,7 @@ Partial Class frmUeberstundenauszahlen
         '
         Me.lblWarning.AutoSize = True
         Me.lblWarning.ForeColor = System.Drawing.Color.Red
-        Me.lblWarning.Location = New System.Drawing.Point(304, 5)
+        Me.lblWarning.Location = New System.Drawing.Point(295, 6)
         Me.lblWarning.Name = "lblWarning"
         Me.lblWarning.Size = New System.Drawing.Size(0, 13)
         Me.lblWarning.TabIndex = 39
@@ -616,7 +633,7 @@ Partial Class frmUeberstundenauszahlen
         '
         Me.Label5.AutoSize = True
         Me.Label5.ForeColor = System.Drawing.Color.Red
-        Me.Label5.Location = New System.Drawing.Point(378, 45)
+        Me.Label5.Location = New System.Drawing.Point(369, 46)
         Me.Label5.Name = "Label5"
         Me.Label5.Size = New System.Drawing.Size(0, 13)
         Me.Label5.TabIndex = 40
@@ -625,7 +642,7 @@ Partial Class frmUeberstundenauszahlen
         '
         Me.PictureBox5.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.blue_question_mark_hi
         Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox5.Location = New System.Drawing.Point(596, 5)
+        Me.PictureBox5.Location = New System.Drawing.Point(587, 6)
         Me.PictureBox5.Name = "PictureBox5"
         Me.PictureBox5.Size = New System.Drawing.Size(38, 36)
         Me.PictureBox5.TabIndex = 130
@@ -634,7 +651,7 @@ Partial Class frmUeberstundenauszahlen
         'LinkLabel1
         '
         Me.LinkLabel1.AutoSize = True
-        Me.LinkLabel1.Location = New System.Drawing.Point(473, 47)
+        Me.LinkLabel1.Location = New System.Drawing.Point(464, 48)
         Me.LinkLabel1.Name = "LinkLabel1"
         Me.LinkLabel1.Size = New System.Drawing.Size(161, 13)
         Me.LinkLabel1.TabIndex = 131
@@ -642,39 +659,85 @@ Partial Class frmUeberstundenauszahlen
         Me.LinkLabel1.Text = "zu unterschreibende Dokumente"
         Me.LinkLabel1.Visible = False
         '
-        'dgvUeberstunden
+        'TabControl1
         '
-        Me.dgvUeberstunden.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvUeberstunden.AllowUserToAddRows = False
-        Me.dgvUeberstunden.AllowUserToDeleteRows = False
-        Me.dgvUeberstunden.BackgroundColor = System.Drawing.Color.White
-        Me.dgvUeberstunden.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvUeberstunden.Location = New System.Drawing.Point(538, 11)
-        Me.dgvUeberstunden.Name = "dgvUeberstunden"
-        Me.dgvUeberstunden.ReadOnly = True
-        Me.dgvUeberstunden.Size = New System.Drawing.Size(70, 117)
-        Me.dgvUeberstunden.TabIndex = 13
-        Me.dgvUeberstunden.Visible = False
+        Me.TabControl1.Controls.Add(Me.TabPage1)
+        Me.TabControl1.Controls.Add(Me.TabPage2)
+        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Left
+        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
+        Me.TabControl1.Name = "TabControl1"
+        Me.TabControl1.SelectedIndex = 0
+        Me.TabControl1.Size = New System.Drawing.Size(699, 397)
+        Me.TabControl1.TabIndex = 132
+        '
+        'TabPage1
+        '
+        Me.TabPage1.Controls.Add(Me.cbxabwDatum)
+        Me.TabPage1.Controls.Add(Me.LinkLabel1)
+        Me.TabPage1.Controls.Add(Me.dtpMonat)
+        Me.TabPage1.Controls.Add(Me.PictureBox5)
+        Me.TabPage1.Controls.Add(Me.lblMonat)
+        Me.TabPage1.Controls.Add(Me.Label5)
+        Me.TabPage1.Controls.Add(Me.lblMA)
+        Me.TabPage1.Controls.Add(Me.lblWarning)
+        Me.TabPage1.Controls.Add(Me.Label7)
+        Me.TabPage1.Controls.Add(Me.PictureBox1)
+        Me.TabPage1.Controls.Add(Me.dtpBis)
+        Me.TabPage1.Controls.Add(Me.cbxTeilzeit)
+        Me.TabPage1.Controls.Add(Me.lblBis)
+        Me.TabPage1.Controls.Add(Me.Panel1)
+        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage1.Name = "TabPage1"
+        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage1.Size = New System.Drawing.Size(691, 371)
+        Me.TabPage1.TabIndex = 0
+        Me.TabPage1.Text = "Überstunden"
+        Me.TabPage1.UseVisualStyleBackColor = True
+        '
+        'TabPage2
+        '
+        Me.TabPage2.Controls.Add(Me.dgvUberstundenauszahlungen)
+        Me.TabPage2.Controls.Add(Me.Label69)
+        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
+        Me.TabPage2.Name = "TabPage2"
+        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
+        Me.TabPage2.Size = New System.Drawing.Size(691, 346)
+        Me.TabPage2.TabIndex = 1
+        Me.TabPage2.Text = "bereits ausgezahlt"
+        Me.TabPage2.UseVisualStyleBackColor = True
+        '
+        'dgvUberstundenauszahlungen
+        '
+        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)
+        Me.dgvUberstundenauszahlungen.Name = "dgvUberstundenauszahlungen"
+        Me.dgvUberstundenauszahlungen.ReadOnly = True
+        Me.dgvUberstundenauszahlungen.Size = New System.Drawing.Size(677, 320)
+        Me.dgvUberstundenauszahlungen.TabIndex = 138
+        '
+        'Label69
+        '
+        Me.Label69.AutoSize = True
+        Me.Label69.Cursor = System.Windows.Forms.Cursors.Default
+        Me.Label69.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label69.Location = New System.Drawing.Point(1, 2)
+        Me.Label69.Name = "Label69"
+        Me.Label69.Size = New System.Drawing.Size(190, 16)
+        Me.Label69.TabIndex = 137
+        Me.Label69.Text = "Überstundenauszahlungen"
         '
         'frmUeberstundenauszahlen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(646, 337)
-        Me.Controls.Add(Me.LinkLabel1)
-        Me.Controls.Add(Me.PictureBox5)
-        Me.Controls.Add(Me.Label5)
-        Me.Controls.Add(Me.lblWarning)
-        Me.Controls.Add(Me.PictureBox1)
-        Me.Controls.Add(Me.cbxTeilzeit)
-        Me.Controls.Add(Me.Panel1)
-        Me.Controls.Add(Me.lblBis)
-        Me.Controls.Add(Me.dtpBis)
-        Me.Controls.Add(Me.cbxabwDatum)
-        Me.Controls.Add(Me.Label7)
-        Me.Controls.Add(Me.lblMA)
-        Me.Controls.Add(Me.lblMonat)
-        Me.Controls.Add(Me.dtpMonat)
+        Me.ClientSize = New System.Drawing.Size(705, 397)
+        Me.Controls.Add(Me.TabControl1)
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Name = "frmUeberstundenauszahlen"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
@@ -683,11 +746,16 @@ Partial Class frmUeberstundenauszahlen
         Me.Panel1.ResumeLayout(False)
         Me.Panel1.PerformLayout()
         CType(Me.picShow, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.dgvUeberstunden, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabControl1.ResumeLayout(False)
+        Me.TabPage1.ResumeLayout(False)
+        Me.TabPage1.PerformLayout()
+        Me.TabPage2.ResumeLayout(False)
+        Me.TabPage2.PerformLayout()
+        CType(Me.dgvUberstundenauszahlungen, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
-        Me.PerformLayout()
 
     End Sub
 
@@ -708,7 +776,6 @@ Partial Class frmUeberstundenauszahlen
     Friend WithEvents txt50x15 As Windows.Forms.TextBox
     Friend WithEvents txtAusz100 As Windows.Forms.TextBox
     Friend WithEvents txtAusz50 As Windows.Forms.TextBox
-    Friend WithEvents CheckVatTestService1 As eu.europa.ec.checkVatTestService
     Friend WithEvents cbxabwDatum As Windows.Forms.CheckBox
     Friend WithEvents lblBis As Windows.Forms.Label
     Friend WithEvents dtpBis As Windows.Forms.DateTimePicker
@@ -748,4 +815,9 @@ Partial Class frmUeberstundenauszahlen
     Friend WithEvents Label12 As Windows.Forms.Label
     Friend WithEvents PictureBox5 As Windows.Forms.PictureBox
     Friend WithEvents LinkLabel1 As Windows.Forms.LinkLabel
+    Friend WithEvents TabControl1 As Windows.Forms.TabControl
+    Friend WithEvents TabPage1 As Windows.Forms.TabPage
+    Friend WithEvents TabPage2 As Windows.Forms.TabPage
+    Friend WithEvents dgvUberstundenauszahlungen As MyDatagridview
+    Friend WithEvents Label69 As Windows.Forms.Label
 End Class

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.resx

@@ -117,9 +117,6 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <metadata name="CheckVatTestService1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>17, 17</value>
-  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="PictureBox1.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -494,6 +494,27 @@ Public Class frmUeberstundenauszahlen
         Process.Start(webAddress)
     End Sub
 
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
+        If TabControl1.SelectedIndex = 1 Then
+            Try
+
+                Dim dtbereitsausgezahlteUE As DataTable
+                Dim bereitsgezahlteueberstunden = "select 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 
+                FROM [ADMIN].[dbo].[tblUeberstunden] 
+                where uest_deleted = 0 and uest_timasId = " & MA.mit_timasId & "
+                Order by uest_date"
+
+                dtbereitsausgezahlteUE = SQL.loadDgvBySql(bereitsgezahlteueberstunden, "ADMIN", 100, True)
+
+                dgvUberstundenauszahlungen.DataSource = dtbereitsausgezahlteUE
+
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            End Try
+        End If
+    End Sub
+
     Private Sub txtAusz_hhmm_KeyPress(sender As Object, e As KeyPressEventArgs)
         Select Case Asc(e.KeyChar)
             Case 48 To 57, 8, 44, 46, 58
@@ -880,7 +901,7 @@ Public Class frmUeberstundenauszahlen
 
         'wenn berechneter Saldo negativ, dann ist im Regelfall das aktuelle MOnat noch nicht abgeschlossen!, daher anstatt den berechneten Saldo in overallBalance laden!
 
-        txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "overallBalance")
+        txtlfdSaldo.Text = timas.getTimeSaldo(MA.mit_timasId, "", "dailyBalanceYesterday")
 
         stunden100auszbere = RoundOfDigits(stunden100ausz * faktor100Zuschlag / 100, 2)
         stunden50auszbere = RoundOfDigits(stunden50ausz * faktor50Zuschlag / 100, 2)