TimasAPI, Uberstunden, Mailvorlagen, etc,

2024-04-24 11:09:58 +02:00
parent a7371e22ae
commit 41a236ad45
12 changed files with 323 additions and 91 deletions
--- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.Designer.vb
+++ b/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