new

2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
--- a/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb
+++ b/SDL/mdm/SDLAbholung/frmSDLAbholungEintrag.Designer.vb
@@ -453,7 +453,7 @@ Partial Class frmSDLAbholungEintrag
        '
        Me.cbxFahrerAbholung.AutoSize = True
        Me.cbxFahrerAbholung.Checked = True
-        Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbxFahrerAbholung.CheckState = System.Windows.Forms.CheckState.Indeterminate
        Me.cbxFahrerAbholung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.cbxFahrerAbholung.Location = New System.Drawing.Point(411, 52)
        Me.cbxFahrerAbholung.Name = "cbxFahrerAbholung"
--- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
+++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
@@ -120,8 +120,13 @@ Partial Class usrCntlMDMAuswertungen
        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg()
        Me.tbIDS = New System.Windows.Forms.TabPage()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
+        Me.Label45 = New System.Windows.Forms.Label()
+        Me.Button14 = New System.Windows.Forms.Button()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.GroupBox10 = New System.Windows.Forms.GroupBox()
        Me.Label38 = New System.Windows.Forms.Label()
@@ -144,10 +149,9 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label41 = New System.Windows.Forms.Label()
        Me.Button12 = New System.Windows.Forms.Button()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
+        Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV()
        Me.Button15 = New System.Windows.Forms.Button()
        Me.pnl = New System.Windows.Forms.Panel()
-        Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg()
-        Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -168,6 +172,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage3.SuspendLayout()
        Me.tbIDS.SuspendLayout()
        Me.TabPage2.SuspendLayout()
+        Me.GroupBox13.SuspendLayout()
        Me.GroupBox10.SuspendLayout()
        Me.tbPLOSE.SuspendLayout()
        Me.GroupBox12.SuspendLayout()
@@ -1282,6 +1287,14 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage3.Text = "WÖLFL"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
+        'UsrCntlWoelfl_IM_CSVRg1
+        '
+        Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167)
+        Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1"
+        Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97)
+        Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10
+        '
        'tbIDS
        '
        Me.tbIDS.Controls.Add(Me.Label18)
@@ -1298,6 +1311,8 @@ Partial Class usrCntlMDMAuswertungen
        '
        'TabPage2
        '
+        Me.TabPage2.Controls.Add(Me.Label44)
+        Me.TabPage2.Controls.Add(Me.GroupBox13)
        Me.TabPage2.Controls.Add(Me.Label35)
        Me.TabPage2.Controls.Add(Me.GroupBox10)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
@@ -1308,6 +1323,48 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage2.Text = "Organisation"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'Label44
+        '
+        Me.Label44.AutoSize = True
+        Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label44.Location = New System.Drawing.Point(19, 143)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(408, 17)
+        Me.Label44.TabIndex = 11
+        Me.Label44.Text = "MDM Sammelabrechnung  -  Sachbearbeiter = Kriegner"
+        '
+        'GroupBox13
+        '
+        Me.GroupBox13.Controls.Add(Me.Label45)
+        Me.GroupBox13.Controls.Add(Me.Button14)
+        Me.GroupBox13.Location = New System.Drawing.Point(18, 154)
+        Me.GroupBox13.Name = "GroupBox13"
+        Me.GroupBox13.Size = New System.Drawing.Size(697, 82)
+        Me.GroupBox13.TabIndex = 10
+        Me.GroupBox13.TabStop = False
+        '
+        'Label45
+        '
+        Me.Label45.AutoSize = True
+        Me.Label45.Location = New System.Drawing.Point(144, 19)
+        Me.Label45.Name = "Label45"
+        Me.Label45.Size = New System.Drawing.Size(407, 26)
+        Me.Label45.TabIndex = 5
+        Me.Label45.Text = "Bei MDM Sammelrechnung (Art=6) werden alle Einträge auf ""KRIEGNER"" geändert, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "da" &
+    "mit die FMZOLL Abrechnung die entsprechnde Zuweisung findet." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
+        '
+        'Button14
+        '
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button14.Location = New System.Drawing.Point(6, 19)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(121, 49)
+        Me.Button14.TabIndex = 4
+        Me.Button14.Text = "Durchführen"
+        Me.Button14.UseVisualStyleBackColor = True
+        '
        'Label35
        '
        Me.Label35.AutoSize = True
@@ -1535,6 +1592,14 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage4.Text = "MSE"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
+        'UsrCntlMSE_KonvertCSV1
+        '
+        Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7)
+        Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1"
+        Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97)
+        Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0
+        '
        'Button15
        '
        Me.Button15.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
@@ -1559,22 +1624,6 @@ Partial Class usrCntlMDMAuswertungen
        Me.pnl.Size = New System.Drawing.Size(1057, 54)
        Me.pnl.TabIndex = 26
        '
-        'UsrCntlWoelfl_IM_CSVRg1
-        '
-        Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167)
-        Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1"
-        Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97)
-        Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10
-        '
-        'UsrCntlMSE_KonvertCSV1
-        '
-        Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7)
-        Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1"
-        Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97)
-        Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0
-        '
        'usrCntlMDMAuswertungen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1617,6 +1666,8 @@ Partial Class usrCntlMDMAuswertungen
        Me.tbIDS.PerformLayout()
        Me.TabPage2.ResumeLayout(False)
        Me.TabPage2.PerformLayout()
+        Me.GroupBox13.ResumeLayout(False)
+        Me.GroupBox13.PerformLayout()
        Me.GroupBox10.ResumeLayout(False)
        Me.GroupBox10.PerformLayout()
        Me.tbPLOSE.ResumeLayout(False)
@@ -1756,4 +1807,8 @@ Partial Class usrCntlMDMAuswertungen
    Friend WithEvents UsrCntlWoelfl_IM_CSVRg1 As usrCntlWoelfl_IM_CSVRg
    Friend WithEvents TabPage4 As TabPage
    Friend WithEvents UsrCntlMSE_KonvertCSV1 As usrCntlMSE_KonvertCSV
+    Friend WithEvents Label44 As Label
+    Friend WithEvents GroupBox13 As GroupBox
+    Friend WithEvents Label45 As Label
+    Friend WithEvents Button14 As Button
 End Class
--- a/SDL/mdm/usrCntlMDMAuswertungen.vb
+++ b/SDL/mdm/usrCntlMDMAuswertungen.vb
@@ -964,6 +964,14 @@ Public Class usrCntlMDMAuswertungen
        Dim f As New frmMDMDatenverarbetiung
        f.Show()
    End Sub
+
+    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+        If SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='KRIEGNER' where Sammelrechnung=6 and Firma_ID=19 and Sachbearbeiter<>'KRIEGNER' and Abfertigungsdatum> DATEADD(month,-3, GETDATE())", "FMZOLL") Then
+            MsgBox("Update erfolgreich.")
+        End If
+    End Sub
 End Class

 Class cMDMAuswertung